diff --git a/Database/2.3 - vistas stock.sql b/Database/2.3 - vistas stock.sql index 44cb859..3cdee0d 100644 --- a/Database/2.3 - vistas stock.sql +++ b/Database/2.3 - vistas stock.sql @@ -1,3 +1,13 @@ +DROP VIEW RDX_V_CONTROL_INVENTARIO; +DROP VIEW RDX_V_INVENTARIO_STOCK; +DROP VIEW RDX_V_STOCK_CALCULADO_DESGLOSADO; +DROP VIEW RDX_V_STOCK_CALCULADO; +DROP VIEW RDX_V_STOCK; +DROP VIEW RDX_V_STOCK_VENTAS; +DROP VIEW RDX_V_STOCK_INVENTARIO; +DROP VIEW RDX_V_STOCK_VARELA; + + /*--------------- SQL ---------------*/ CREATE VIEW RDX_V_STOCK_VARELA AS @@ -357,6 +367,7 @@ GO CREATE VIEW RDX_V_STOCK_CALCULADO AS SELECT CENTRO, + FILIAL, CODIGO, PRODUCTO, TIPO_PRODUCTO, @@ -394,6 +405,7 @@ GO CREATE VIEW RDX_V_STOCK_CALCULADO_DESGLOSADO AS SELECT CENTRO, + FILIAL, CODIGO, PRODUCTO, TIPO_PRODUCTO, @@ -417,7 +429,8 @@ GO CREATE VIEW RDX_V_INVENTARIO_STOCK_DESGLOSADO AS SELECT - ISNULL(RDX_V_STOCK_CALCULADO_DESGLOSADO.CENTRO, RDX_V_ULTIMO_INVENTARIO.FILIAL) as CENTRO, + ISNULL(RDX_V_STOCK_CALCULADO_DESGLOSADO.CENTRO, RDX_V_ULTIMO_INVENTARIO.CENTRO) as CENTRO, + ISNULL(RDX_V_STOCK_CALCULADO_DESGLOSADO.FILIAL, RDX_V_ULTIMO_INVENTARIO.FILIAL) as FILIAL, ISNULL(RDX_V_STOCK_CALCULADO_DESGLOSADO.CODIGO, RDX_V_ULTIMO_INVENTARIO.CODIGO) as CODIGO, ISNULL(RDX_V_STOCK_CALCULADO_DESGLOSADO.PRODUCTO, RDX_V_ULTIMO_INVENTARIO.PRODUCTO) as PRODUCTO, ISNULL(RDX_V_STOCK_CALCULADO_DESGLOSADO.COLOR, RDX_V_ULTIMO_INVENTARIO.COLOR) as COLOR, @@ -443,6 +456,7 @@ GO CREATE VIEW RDX_V_INVENTARIO_STOCK AS select CENTRO, + FILIAL, CODIGO, PRODUCTO, COLOR, @@ -524,6 +538,7 @@ select from RDX_V_INVENTARIO_STOCK_DESGLOSADO group by CENTRO, + FILIAL, CODIGO, PRODUCTO, COLOR, @@ -537,6 +552,7 @@ GO CREATE VIEW RDX_V_CONTROL_INVENTARIO AS SELECT CENTRO, + FILIAL, CODIGO, PRODUCTO, COLOR, diff --git a/Database/3 - procedimientos.sql b/Database/3 - procedimientos.sql index 11c1189..af96778 100644 --- a/Database/3 - procedimientos.sql +++ b/Database/3 - procedimientos.sql @@ -91,7 +91,7 @@ BEGIN NUMINF, CLAVE1, CLAVE2, CLAVE3, PERVENINI, NUMTALON, EANLUG, FILIAL, EANVEN, CODVEN, VENDEDOR, EANART, CODCOM, PRODUTO, DESC_PRODUTO, COR_PRODUTO, GRADE, TIPO_PRODUTO, GRUPO_PRODUTO, - DESC_COLECAO, VALVEN, CANVEN, CANDEV, CANVENNET, CANESP ) + DESC_COLECAO, VALVEN, CANVEN, CANDEV, CANVENNET, CANESP, IGNORAR ) SELECT RDX_CABVEN.NUMINF, RDX_ARTVEN.CLAVE1, @@ -117,7 +117,9 @@ BEGIN RDX_ARTVEN.CANVEN, RDX_ARTVEN.CANDEV, RDX_ARTVEN.CANVENNET, - RDX_ARTVEN.CANESP + RDX_ARTVEN.CANESP, + RDX_CABVEN.IGNORAR + FROM RDX_ARTVEN INNER JOIN RDX_LUGVEN ON (RDX_ARTVEN.CLAVE1 = RDX_LUGVEN.CLAVE1 AND RDX_ARTVEN.CLAVE2 = RDX_LUGVEN.CLAVE2) diff --git a/Database/SCRIPT MEJORAS TABLAS.SQL b/Database/SCRIPT MEJORAS TABLAS.SQL index 769a8be..2907bb7 100644 --- a/Database/SCRIPT MEJORAS TABLAS.SQL +++ b/Database/SCRIPT MEJORAS TABLAS.SQL @@ -12,10 +12,19 @@ IF EXISTS (SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N'[FK__RDX_ARTVEN__ DROP CONSTRAINT [FK__RDX_ARTVEN__56BFC79A] GO + +ALTER TABLE [RDX_CABINV] +DROP COLUMN [CARGADO] +GO + ALTER TABLE [RDX_CABINV] ADD [CARGADO]char(1) NULL GO +ALTER TABLE [RDX_CABVEN] +DROP COLUMN [CARGADO] +GO + ALTER TABLE [RDX_CABVEN] ADD [CARGADO]char(1) NULL GO diff --git a/Source/Base/BaseD10.dproj b/Source/Base/BaseD10.dproj index 8d2c6f1..cd2c4f7 100644 --- a/Source/Base/BaseD10.dproj +++ b/Source/Base/BaseD10.dproj @@ -1,4 +1,5 @@ - + + {51b1cbd5-e922-4e6d-b778-6de1bca9118c} BaseD10.dpk @@ -39,12 +40,6 @@ Package FalseTrueFalseFalseFalseTrueC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2000FalseFalseFalseFalseFalse308212522.0.0.01.0.0.0 - - - - - - CodeGear WebSnap Components CodeGear SOAP Components Microsoft Office XP Sample Automation Server Wrapper Components diff --git a/Source/Cliente/AdminPV.dpr b/Source/Cliente/AdminPV.dpr index e50b5c9..38d2793 100644 --- a/Source/Cliente/AdminPV.dpr +++ b/Source/Cliente/AdminPV.dpr @@ -1,15 +1,14 @@ program AdminPV; uses + ExceptionLog, Forms, uLoginForm, uPantallaPrincipal in 'uPantallaPrincipal.pas' {fPantallaPrincipal}, uMenuUtils in 'uMenuUtils.pas', uSplash in 'uSplash.pas' {SplashScreen}, uAcercaDe in 'uAcercaDe.pas' {fAcercaDe}, - uIntegerList in '..\Base\uIntegerList.pas', - schVentasTerminadasClient_Intf in '..\Modulos\VentasTerminadas\Reglas\schVentasTerminadasClient_Intf.pas', - schVentasTerminadasServer_Intf in '..\Modulos\VentasTerminadas\Reglas\schVentasTerminadasServer_Intf.pas'; + uIntegerList in '..\Base\uIntegerList.pas'; {$R *.res} diff --git a/Source/Cliente/AdminPV.dproj b/Source/Cliente/AdminPV.dproj index 10dda5b..92de0dd 100644 --- a/Source/Cliente/AdminPV.dproj +++ b/Source/Cliente/AdminPV.dproj @@ -1,78 +1,96 @@ + - - {c1d52109-a098-45a1-97ed-37902144cf8a} - AdminPV.dpr - Debug - AnyCPU - DCC32 - ..\..\Output\Debug\Cliente\AdminPV.exe - true - BaseD10;Configuracion;ControlesBaseD10;Usuarios;FicherosEDI;VentasProceso;VentasTerminadas;ReferenciaGenerica - - - 7.0 - False - False - 0 - RELEASE - ..\..\Output\Release\Cliente - .\ - .\ - .\ - ..\Lib - ..\Lib - ..\Lib - ..\Lib - - - 7.0 - DEBUG - ..\..\Output\Debug\Cliente - .\ - .\ - .\ - ..\Lib - ..\Lib - ..\Lib - ..\Lib - - - Delphi.Personality - VCLApplication - - FalseTrueFalseTrueFalse2000FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.0.0.0Administración de puntos de ventaAdministración de puntos de venta1.0.0.0 - CodeGear WebSnap Components - CodeGear SOAP Components - Microsoft Office XP Sample Automation Server Wrapper Components - Microsoft Office 2000 Sample Automation Server Wrapper Components - CodeGear C++Builder Office 2000 Servers Package - CodeGear C++Builder Office XP Servers Package - AdminPV.dpr - - - - - MainSource - - - - - -
fAcercaDe
- - - -
fPantallaPrincipal
- - -
SplashScreen
- - + + {c1d52109-a098-45a1-97ed-37902144cf8a} + AdminPV.dpr + Debug + AnyCPU + DCC32 + ..\..\Output\Debug\Cliente\AdminPV.exe + true + BaseD10;Configuracion;ControlesBaseD10;Usuarios;FicherosEDI;VentasProceso;VentasTerminadas;ReferenciaGenerica + + + 7.0 + False + False + 0 + RELEASE + ..\..\Output\Release\Cliente + .\ + .\ + .\ + ..\Lib + ..\Lib + ..\Lib + ..\Lib + + + 7.0 + DEBUG;EUREKALOG;EUREKALOG_VER6 + ..\..\Output\Debug\Cliente + .\ + .\ + .\ + ..\Lib + ..\Lib + ..\Lib + ..\Lib + 3 + + + Delphi.Personality + VCLApplication + +FalseTrueFalseTrueFalse2000FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.0.0.0Administración de puntos de ventaAdministración de puntos de venta1.0.0.0 + + + + + + + + + + + + + + + + + + + CodeGear WebSnap Components + CodeGear SOAP Components + Microsoft Office XP Sample Automation Server Wrapper Components + Microsoft Office 2000 Sample Automation Server Wrapper Components + CodeGear C++Builder Office 2000 Servers Package + CodeGear C++Builder Office XP Servers Package + AdminPV.dpr + + + + + MainSource + + + +
fAcercaDe
+ + + +
fPantallaPrincipal
+ + +
SplashScreen
+ + diff --git a/Source/Cliente/AdminPV.drc b/Source/Cliente/AdminPV.drc index 7642ac9..93fcefc 100644 --- a/Source/Cliente/AdminPV.drc +++ b/Source/Cliente/AdminPV.drc @@ -1,5 +1,5 @@ -/* VER180 - Generated by the Borland Delphi Pascal Compiler +/* VER185 + Generated by the CodeGear Delphi Pascal Compiler because -GD or --drc was supplied to the compiler. This file contains compiler-generated resources that @@ -12,3 +12,12 @@ STRINGTABLE BEGIN END +/* C:\Archivos de programa\EurekaLog 6\Delphi11\DIALOG.RES */ +/* c:\archivos de programa\codegear\rad studio\5.0\lib\WindowsXP.res */ +/* c:\varela_d2007\lib\jvcl\JvXPCore.res */ +/* c:\varela_d2007\lib\jvcl\JvXPBar.res */ +/* C:\Varela_D2007\Source\Cliente\uSplash.dfm */ +/* C:\Varela_D2007\Source\Cliente\uAcercaDe.dfm */ +/* C:\Varela_D2007\Source\Cliente\uPantallaPrincipal.dfm */ +/* C:\Varela_D2007\Source\Cliente\AdminPV.res */ +/* C:\Varela_D2007\Source\Cliente\AdminPV.drf */ diff --git a/Source/Cliente/AdminPV.res b/Source/Cliente/AdminPV.res index f3291b4..5323a56 100644 Binary files a/Source/Cliente/AdminPV.res and b/Source/Cliente/AdminPV.res differ diff --git a/Source/Modulos/Devoluciones/Cliente/uEditorListaDevoluciones.dfm b/Source/Modulos/Devoluciones/Cliente/uEditorListaDevoluciones.dfm index c37762d..8dc8243 100644 --- a/Source/Modulos/Devoluciones/Cliente/uEditorListaDevoluciones.dfm +++ b/Source/Modulos/Devoluciones/Cliente/uEditorListaDevoluciones.dfm @@ -61,7 +61,7 @@ inherited fEditorListaDevoluciones: TfEditorListaDevoluciones end object JvTabBar1: TJvTabBar [3] Left = 0 - Top = 204 + Top = 76 Width = 901 Height = 29 Cursor = crHandPoint @@ -85,9 +85,9 @@ inherited fEditorListaDevoluciones: TfEditorListaDevoluciones end inline frViewListaDevoluciones1: TfrViewListaDevoluciones [4] Left = 0 - Top = 233 + Top = 105 Width = 901 - Height = 385 + Height = 513 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -97,14 +97,15 @@ inherited fEditorListaDevoluciones: TfEditorListaDevoluciones ParentFont = False TabOrder = 4 ReadOnly = False - ExplicitTop = 233 + ExplicitTop = 105 ExplicitWidth = 901 - ExplicitHeight = 385 + ExplicitHeight = 513 inherited cxGrid: TcxGrid Width = 901 - Height = 385 + Height = 453 + ExplicitTop = 60 ExplicitWidth = 901 - ExplicitHeight = 385 + ExplicitHeight = 453 inherited cxGridView: TcxGridDBTableView PopupMenu = GridPopupMenu DataController.Summary.DefaultGroupSummaryItems = < @@ -124,84 +125,37 @@ inherited fEditorListaDevoluciones: TfEditorListaDevoluciones end end end + inherited TBXDockablePanel1: TTBXDockablePanel + ExplicitWidth = 901 + inherited frViewParametrosCentro1: TfrViewParametrosCentro + ExplicitHeight = 41 + inherited dxLayoutControl1: TdxLayoutControl + inherited ccbCentro: TJvCheckedComboBox + Width = 392 + ExplicitWidth = 392 + end + end + end + inherited TBXLabel1: TTBXLabel + Width = 901 + ExplicitWidth = 901 + ExplicitHeight = 19 + end + inherited pnlAgrupaciones: TTBXAlignmentPanel + Width = 476 + ExplicitHeight = 41 + inherited TBXButton3: TTBXButton + Action = actRefrescar + end + end + end inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinterLink1: TdxGridReportLink BuiltInReportLink = True end end end - object TBXDockablePanel1: TTBXDockablePanel [5] - Left = 0 - Top = 76 - MaxClientHeight = 61 - Align = alTop - Caption = 'TBXDockablePanel1' - FloatingWidth = 128 - FloatingHeight = 128 - SupportedDocks = [dkStandardDock, dkMultiDock] - TabOrder = 5 - inline frViewParametrosCentro1: TfrViewParametrosCentro - Left = 0 - Top = 19 - Width = 425 - Height = 109 - Align = alLeft - TabOrder = 0 - ReadOnly = False - ExplicitTop = 19 - ExplicitWidth = 425 - ExplicitHeight = 109 - inherited dxLayoutControl1: TdxLayoutControl - Width = 425 - ExplicitWidth = 425 - inherited ccbCentro: TJvCheckedComboBox - Width = 392 - ExplicitWidth = 392 - end - end - end - object TBXLabel1: TTBXLabel - Left = 0 - Top = 0 - Width = 901 - Height = 19 - Margins.Left = 5 - Margins.Top = 5 - Align = alTop - Caption = 'Par'#225'metros de consulta' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [fsBold] - ParentColor = True - ParentFont = False - Underline = True - end - object pnlAgrupaciones: TTBXAlignmentPanel - Left = 425 - Top = 19 - Width = 476 - Height = 109 - Align = alClient - AutoSize = True - TabOrder = 2 - object TBXButton3: TTBXButton - Tag = 3 - Left = 8 - Top = 10 - Width = 90 - Height = 21 - Action = actRefrescar - AutoSize = False - Caption = 'Consultar' - ImageIndex = 0 - TabOrder = 0 - Wrapping = twEndEllipsis - end - end - end - inherited EditorActionList: TActionList [6] + inherited EditorActionList: TActionList [5] inherited actNuevo: TAction Enabled = False Visible = False @@ -258,7 +212,7 @@ inherited fEditorListaDevoluciones: TfEditorListaDevoluciones OnUpdate = actAprobadoUpdate end end - inherited SmallImages: TPngImageList [7] + inherited SmallImages: TPngImageList [6] PngImages = < item PngImage.Data = { @@ -838,7 +792,7 @@ inherited fEditorListaDevoluciones: TfEditorListaDevoluciones end> Bitmap = {} end - inherited LargeImages: TPngImageList [8] + inherited LargeImages: TPngImageList [7] PngImages = < item PngImage.Data = { @@ -1659,11 +1613,11 @@ inherited fEditorListaDevoluciones: TfEditorListaDevoluciones end> Bitmap = {} end - inherited JvFormStorage: TJvFormStorage [9] + inherited JvFormStorage: TJvFormStorage [8] end - inherited JvAppRegistryStorage: TJvAppRegistryStorage [10] + inherited JvAppRegistryStorage: TJvAppRegistryStorage [9] end - inherited dsDataTable: TDADataSource [11] + inherited dsDataTable: TDADataSource [10] Top = 136 end inherited GridPopupMenu: TPopupMenu diff --git a/Source/Modulos/Devoluciones/Cliente/uEditorListaDevoluciones.pas b/Source/Modulos/Devoluciones/Cliente/uEditorListaDevoluciones.pas index 2b65b96..34c26de 100644 --- a/Source/Modulos/Devoluciones/Cliente/uEditorListaDevoluciones.pas +++ b/Source/Modulos/Devoluciones/Cliente/uEditorListaDevoluciones.pas @@ -43,11 +43,6 @@ type TBXItem37: TTBXItem; actAprobado: TAction; frViewListaDevoluciones1: TfrViewListaDevoluciones; - TBXDockablePanel1: TTBXDockablePanel; - frViewParametrosCentro1: TfrViewParametrosCentro; - TBXLabel1: TTBXLabel; - pnlAgrupaciones: TTBXAlignmentPanel; - TBXButton3: TTBXButton; procedure FormShow(Sender: TObject); procedure JvTabBar1TabSelected(Sender: TObject; Item: TJvTabBarItem); procedure actModificarExecute(Sender: TObject); @@ -100,7 +95,7 @@ begin if Assigned(FItems) then begin dsDataTable.DataTable := FItems.DataTable; - frViewListaDevoluciones1.dsDataSource.DataTable := FItems.DataTable; + frViewListaDevoluciones1.Items := FItems; end; end; @@ -113,45 +108,15 @@ begin if not Assigned(ViewGrid) then raise Exception.Create('No hay una vista asignada'); - frViewParametrosCentro1.Refresh; - with (ViewGrid as IViewListaDevoluciones) do VerPendientes; end; -procedure TfEditorListaDevoluciones.JvTabBar1TabSelected( - Sender: TObject; Item: TJvTabBarItem); +procedure TfEditorListaDevoluciones.JvTabBar1TabSelected(Sender: TObject; Item: TJvTabBarItem); begin - inherited; - ShowHourglassCursor; - - Items.DataTable.Active := False; - - Application.ProcessMessages; - ViewGrid._FocusedView.BeginUpdate; - Application.ProcessMessages; - try - case Item.Index of - 0 : begin - Items := dmDevoluciones.GetItems(tidPendiente); - (ViewGrid as IViewListaDevoluciones).VerPendientes; - end; - - 1 : begin - Items := dmDevoluciones.GetItems(tidAprobado); - (ViewGrid as IViewListaDevoluciones).VerAprobados; - end; - - 2 : begin - Items := dmDevoluciones.GetItems; - (ViewGrid as IViewListaDevoluciones).VerTodos; - end; - end; - finally - dsDataTable.DataTable := Items.DataTable; - ViewGrid._FocusedView.EndUpdate; - HideHourglassCursor; - end; + if Items.DataTable.Active then + Items.DataTable.Active := False; + frViewListaDevoluciones1.frViewParametrosCentro1.LimpiarSeleccion; end; procedure TfEditorListaDevoluciones.actModificarExecute( @@ -216,57 +181,40 @@ begin not (ViewGrid._FocusedView.Controller.FocusedRow.Expandable)) end; -procedure TfEditorListaDevoluciones.actRefrescarExecute( - Sender: TObject); -var - ACentrosList : TStringList; - AWhere : String; - i : integer; +procedure TfEditorListaDevoluciones.actRefrescarExecute(Sender: TObject); begin - // BEGIN Adaptación a DA5 - {case (ViewGrid as IViewListaDevoluciones).VistaActiva of - tdvaPendiente, - tdvaAprobado : AWhere := ' and' - else - AWhere := ''; - end;} - AWhere := ''; - // END Adaptación a DA5 - - AWhere := AWhere + ' CENTRO in ('; - - Items.DataTable.Active := False; - ACentrosList := frViewParametrosCentro1.CentrosSeleccionados; - ShowHourglassCursor; + Items.DataTable.Active := False; + Application.ProcessMessages; + ViewGrid._FocusedView.BeginUpdate; + Application.ProcessMessages; try - if ACentrosList.Count = 0 then - ShowMessage('Debe seleccionar al menos un centro en los parámetros de la consulta.') - else begin - with Items.DataTable.Where do - begin - Clear; - for i := 0 to ACentrosList.Count - 1 do - begin - if i > 0 then - AWhere := AWhere + ', '; - AWhere := AWhere + '''' + ACentrosList[i] + ''''; - end; - AWhere := AWhere + ')'; + case JvTabBar1.SelectedTab.Index of + 0 : begin + Items := dmDevoluciones.GetItems(tidPendiente); + (ViewGrid as IViewListaDevoluciones).VerPendientes; + end; - AddText(AWhere); - end; - Items.DataTable.Active := True; + 1 : begin + Items := dmDevoluciones.GetItems(tidAprobado); + (ViewGrid as IViewListaDevoluciones).VerAprobados; + end; + + 2 : begin + Items := dmDevoluciones.GetItems; + (ViewGrid as IViewListaDevoluciones).VerTodos; + end; end; + + frViewListaDevoluciones1.Refresh; + inherited; + finally + ViewGrid._FocusedView.EndUpdate; HideHourglassCursor; - FreeAndNIL(ACentrosList); + ViewGrid.ExpandirTodo; + ViewGrid.GotoFirst; end; - - inherited; - - ViewGrid.ExpandirTodo; - ViewGrid.GotoFirst; end; procedure TfEditorListaDevoluciones.actPendienteExecute( diff --git a/Source/Modulos/Devoluciones/Cliente/uViewListaDevoluciones.dfm b/Source/Modulos/Devoluciones/Cliente/uViewListaDevoluciones.dfm index b599fa6..e637a29 100644 --- a/Source/Modulos/Devoluciones/Cliente/uViewListaDevoluciones.dfm +++ b/Source/Modulos/Devoluciones/Cliente/uViewListaDevoluciones.dfm @@ -1,9 +1,14 @@ inherited frViewListaDevoluciones: TfrViewListaDevoluciones Width = 466 Height = 477 + ExplicitWidth = 466 + ExplicitHeight = 477 inherited cxGrid: TcxGrid + Top = 60 Width = 466 - Height = 477 + Height = 417 + ExplicitWidth = 466 + ExplicitHeight = 477 inherited cxGridView: TcxGridDBTableView OnMouseDown = cxGridViewMouseDown FilterBox.Visible = fvNever @@ -291,6 +296,82 @@ inherited frViewListaDevoluciones: TfrViewListaDevoluciones end end end + object TBXDockablePanel1: TTBXDockablePanel [1] + Left = 0 + Top = 0 + MaxClientHeight = 61 + Align = alTop + Caption = 'TBXDockablePanel1' + DockedWidth = 32 + DockedHeight = 32 + FloatingWidth = 128 + FloatingHeight = 60 + SupportedDocks = [dkStandardDock, dkMultiDock] + TabOrder = 1 + inline frViewParametrosCentro1: TfrViewParametrosCentro + Left = 0 + Top = 19 + Width = 425 + Height = 41 + Align = alLeft + TabOrder = 0 + ReadOnly = False + ExplicitTop = 19 + ExplicitWidth = 425 + ExplicitHeight = 109 + inherited dxLayoutControl1: TdxLayoutControl + Width = 425 + ExplicitWidth = 425 + inherited ccbCentro: TJvCheckedComboBox + Width = 392 + ExplicitWidth = 392 + end + end + end + object TBXLabel1: TTBXLabel + Left = 0 + Top = 0 + Width = 466 + Height = 19 + Margins.Left = 5 + Margins.Top = 5 + Align = alTop + Caption = 'Par'#225'metros de consulta' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentColor = True + ParentFont = False + Underline = True + ExplicitWidth = 128 + ExplicitHeight = 32 + end + object pnlAgrupaciones: TTBXAlignmentPanel + Left = 425 + Top = 19 + Width = 41 + Height = 41 + Align = alClient + AutoSize = True + TabOrder = 2 + ExplicitWidth = 476 + ExplicitHeight = 109 + object TBXButton3: TTBXButton + Tag = 3 + Left = 8 + Top = 10 + Width = 90 + Height = 21 + AutoSize = False + Caption = 'Consultar' + ImageIndex = 0 + TabOrder = 0 + Wrapping = twEndEllipsis + end + end + end inherited dsDataSource: TDADataSource Top = 120 end diff --git a/Source/Modulos/Devoluciones/Cliente/uViewListaDevoluciones.pas b/Source/Modulos/Devoluciones/Cliente/uViewListaDevoluciones.pas index 09bf22b..8529efc 100644 --- a/Source/Modulos/Devoluciones/Cliente/uViewListaDevoluciones.pas +++ b/Source/Modulos/Devoluciones/Cliente/uViewListaDevoluciones.pas @@ -20,7 +20,8 @@ uses dxPSFillPatterns, dxPSEdgePatterns, cxCalendar, cxTextEdit, cxCurrencyEdit, dxPSCore, uDADataTable, StdCtrls, cxGridBandedTableView, cxGridDBBandedTableView, cxImageComboBox, ImgList, PngImageList, - dxPScxCommon, dxPScxGridLnk, cxMemo; + dxPScxCommon, dxPScxGridLnk, cxMemo, TBXDkPanels, uCustomView, uViewBase, + uViewParametrosControlGrid, uViewParametrosCentro, TB2Dock, uDAInterfaces; type TvDevolucionesVistaActiva = (tdvaPendiente, tdvaAprobado, tdvaTodos); @@ -33,6 +34,10 @@ type function GetVistaActiva : TvDevolucionesVistaActiva; property VistaActiva : TvDevolucionesVistaActiva read GetVistaActiva; + + function GetItems: IBizDevoluciones; + procedure SetItems(const Value: IBizDevoluciones); + property Items: IBizDevoluciones read GetItems write SetItems; end; TfrViewListaDevoluciones = class(TfrViewGrid, IViewListaDevoluciones) @@ -82,6 +87,11 @@ type cxStyleGroupInforme: TcxStyle; cxStyleHeaderInforme: TcxStyle; cxStyleSelectionInforme: TcxStyle; + TBXDockablePanel1: TTBXDockablePanel; + frViewParametrosCentro1: TfrViewParametrosCentro; + TBXLabel1: TTBXLabel; + pnlAgrupaciones: TTBXAlignmentPanel; + TBXButton3: TTBXButton; procedure cxGridViewMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure cxGridBandedViewRR38GetDisplayText( @@ -151,11 +161,18 @@ type ARecord: TcxCustomGridRecord; AColumn: TcxGridColumn; AnItem: TAbstractdxReportCellData); protected + FItems: IBizDevoluciones; FTipo : String; FNivelFiltrado : TcxFilterCriteriaItemList; procedure FilterChanged(Sender: TObject); override; function GetVistaActiva : TvDevolucionesVistaActiva; + function GetItems: IBizDevoluciones; + procedure SetItems(const Value: IBizDevoluciones); + public + property Items: IBizDevoluciones read GetItems write SetItems; + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; procedure Preview; override; procedure Print; override; procedure PrintSetup; override; @@ -163,6 +180,7 @@ type procedure VerAprobados; procedure VerTodos; property VistaActiva : TvDevolucionesVistaActiva read GetVistaActiva; + procedure Refresh; end; @@ -448,6 +466,13 @@ begin FOnDblClick(Sender); end; +constructor TfrViewListaDevoluciones.Create(AOwner: TComponent); +begin + inherited; + FItems := Nil; + frViewParametrosCentro1.Refresh; +end; + procedure TfrViewListaDevoluciones.cxGridBandedViewCODIGOGetDataText( Sender: TcxCustomGridTableItem; ARecordIndex: Integer; var AText: String); @@ -479,6 +504,12 @@ begin AStyle := cxStyle1; end; +destructor TfrViewListaDevoluciones.Destroy; +begin + FItems := Nil; + inherited; +end; + procedure TfrViewListaDevoluciones.Preview; begin inherited; @@ -497,6 +528,64 @@ begin dxComponentPrinterLink1.PageSetup end; +procedure TfrViewListaDevoluciones.Refresh; +var + ACentrosList : TStringList; + AWhereCentro : String; + AWhere : String; + i : integer; +begin + ACentrosList := Nil; + + if Assigned(FItems) then + Items.DataTable.Active := False; + ACentrosList := frViewParametrosCentro1.CentrosSeleccionados; + + ShowHourglassCursor; + try + if Assigned(ACentrosList) then + begin + AWhereCentro := ''; + if ACentrosList.Count = 0 then + begin + ShowMessage('Debe seleccionar al menos un centro en los parámetros de la consulta.'); + Exit; + end + else begin + AWhereCentro := AWhereCentro + ' FILIAL in ('; + for i := 0 to ACentrosList.Count - 1 do + begin + if i > 0 then + AWhereCentro := AWhereCentro + ', '; + AWhereCentro := AWhereCentro + '''' + ACentrosList[i] + ''''; + end; + AWhereCentro := AWhereCentro + ')'; + end; + end; + + AWhere := ''; + if AWhereCentro <> '' then + begin + AWhere := AWhere + AWhereCentro; + end; + + Items.DataTable.Where.Clear; + Items.DataTable.Where.AddText(AWhere, False); + Items.DataTable.Active := True; + + finally + HideHourglassCursor; + FreeAndNIL(ACentrosList); + end; +end; + +procedure TfrViewListaDevoluciones.SetItems(const Value: IBizDevoluciones); +begin + FItems := Value; + if Assigned(FItems) then + dsDataSource.DataTable := FItems.DataTable; +end; + procedure TfrViewListaDevoluciones.cxGridViewCODIGOGetDataText( Sender: TcxCustomGridTableItem; ARecordIndex: Integer; var AText: String); @@ -595,6 +684,11 @@ begin cxGridView.DataController.Filter.EndUpdate; end; +function TfrViewListaDevoluciones.GetItems: IBizDevoluciones; +begin + Result := FItems; +end; + function TfrViewListaDevoluciones.GetVistaActiva: TvDevolucionesVistaActiva; begin if FTipo = 'N' then diff --git a/Source/Modulos/Parametros/Cliente/uViewParametrosCentro.pas b/Source/Modulos/Parametros/Cliente/uViewParametrosCentro.pas index bfb1e1b..5809175 100644 --- a/Source/Modulos/Parametros/Cliente/uViewParametrosCentro.pas +++ b/Source/Modulos/Parametros/Cliente/uViewParametrosCentro.pas @@ -3,7 +3,7 @@ unit uViewParametrosCentro; interface uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, dxLayoutControl, StdCtrls, Mask, JvExMask, JvToolEdit, JvCombobox, cxControls, uViewParametrosControlGrid, TBXDkPanels, uBizParametros; @@ -14,6 +14,8 @@ type function GetCentrosSeleccionados: TStringList; property CentrosSeleccionados : TStringList read GetCentrosSeleccionados; + function GetCodigoCentrosSeleccionados: TStringList; + property CodigoCentrosSeleccionados : TStringList read GetCodigoCentrosSeleccionados; end; TfrViewParametrosCentro = class(TfrViewParametrosControlGrid, IViewParametrosCentro) @@ -25,10 +27,13 @@ type FCentros : IBizCentros; procedure RellenarListaCentros; function GetCentrosSeleccionados: TStringList; + function GetCodigoCentrosSeleccionados: TStringList; public procedure Execute; override; procedure Refresh; override; property CentrosSeleccionados : TStringList read GetCentrosSeleccionados; + property CodigoCentrosSeleccionados : TStringList read GetCodigoCentrosSeleccionados; + procedure LimpiarSeleccion; end; implementation @@ -55,12 +60,34 @@ begin for i := 0 to ccbCentro.Items.Count - 1 do begin if ccbCentro.Checked[i] then -// Result.Add(FCentros.CODBARRA); Result.Add(FCentros.FILIAL); FCentros.DataTable.Next; end; end; +function TfrViewParametrosCentro.GetCodigoCentrosSeleccionados: TStringList; +var + i : integer; +begin + Result := TStringList.Create; + + FCentros.DataTable.First; + for i := 0 to ccbCentro.Items.Count - 1 do + begin + if ccbCentro.Checked[i] then + Result.Add(FCentros.CODBARRA); + FCentros.DataTable.Next; + end; +end; + +procedure TfrViewParametrosCentro.LimpiarSeleccion; +var + i : integer; +begin + for i := 0 to ccbCentro.Items.Count - 1 do + ccbCentro.Checked[i] := False; +end; + procedure TfrViewParametrosCentro.Refresh; begin // inherited; <- no descomentar diff --git a/Source/Modulos/Recepciones/Cliente/uEditorListaRecepciones.dfm b/Source/Modulos/Recepciones/Cliente/uEditorListaRecepciones.dfm index 58eadc3..4ccb3b9 100644 --- a/Source/Modulos/Recepciones/Cliente/uEditorListaRecepciones.dfm +++ b/Source/Modulos/Recepciones/Cliente/uEditorListaRecepciones.dfm @@ -61,7 +61,7 @@ inherited fEditorListaRecepciones: TfEditorListaRecepciones end object JvTabBar1: TJvTabBar [3] Left = 0 - Top = 137 + Top = 76 Width = 816 Height = 29 Cursor = crHandPoint @@ -82,13 +82,12 @@ inherited fEditorListaRecepciones: TfEditorListaRecepciones Caption = 'Todos' end> OnTabSelected = JvTabBar1TabSelected - ExplicitTop = 204 end inline frViewListaRecepciones1: TfrViewListaRecepciones [4] Left = 0 - Top = 166 + Top = 105 Width = 816 - Height = 479 + Height = 540 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -98,14 +97,16 @@ inherited fEditorListaRecepciones: TfEditorListaRecepciones ParentFont = False TabOrder = 4 ReadOnly = False - ExplicitTop = 233 + ExplicitTop = 105 ExplicitWidth = 816 - ExplicitHeight = 412 + ExplicitHeight = 540 inherited cxGrid: TcxGrid + Top = 60 Width = 816 - Height = 479 + Height = 480 + ExplicitTop = 60 ExplicitWidth = 816 - ExplicitHeight = 412 + ExplicitHeight = 480 inherited cxGridView: TcxGridDBTableView PopupMenu = GridPopupMenu DataController.Summary.DefaultGroupSummaryItems = < @@ -125,86 +126,36 @@ inherited fEditorListaRecepciones: TfEditorListaRecepciones end end end + inherited TBXDockablePanel1: TTBXDockablePanel + DockedWidth = 32 + DockedHeight = 32 + FloatingHeight = 60 + ExplicitWidth = 816 + ExplicitHeight = 60 + inherited frViewParametrosCentro1: TfrViewParametrosCentro + Height = 41 + ExplicitHeight = 41 + end + inherited TBXLabel1: TTBXLabel + Width = 816 + ExplicitWidth = 816 + end + inherited pnlAgrupaciones: TTBXAlignmentPanel + Width = 391 + Height = 41 + ExplicitHeight = 41 + inherited TBXButton3: TTBXButton + Action = actRefrescar + end + end + end inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinterLink1: TdxGridReportLink BuiltInReportLink = True end end end - object TBXDockablePanel1: TTBXDockablePanel [5] - Left = 0 - Top = 76 - MaxClientHeight = 61 - Align = alTop - Caption = 'TBXDockablePanel1' - FloatingWidth = 128 - FloatingHeight = 128 - SupportedDocks = [dkStandardDock, dkMultiDock] - TabOrder = 5 - inline frViewParametrosCentro1: TfrViewParametrosCentro - Left = 0 - Top = 19 - Width = 425 - Height = 109 - Align = alLeft - TabOrder = 0 - ReadOnly = False - ExplicitTop = 19 - ExplicitWidth = 425 - ExplicitHeight = 109 - inherited dxLayoutControl1: TdxLayoutControl - Width = 425 - ExplicitWidth = 425 - inherited ccbCentro: TJvCheckedComboBox - Width = 363 - ExplicitWidth = 363 - end - end - end - object TBXLabel1: TTBXLabel - Left = 0 - Top = 0 - Width = 816 - Height = 19 - Margins.Left = 5 - Margins.Top = 5 - Align = alTop - Caption = 'Par'#225'metros de consulta' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [fsBold] - ParentColor = True - ParentFont = False - Underline = True - end - object pnlAgrupaciones: TTBXAlignmentPanel - Left = 425 - Top = 19 - Width = 391 - Height = 109 - Align = alClient - AutoSize = True - TabOrder = 2 - ExplicitLeft = 421 - ExplicitTop = 25 - object TBXButton3: TTBXButton - Tag = 3 - Left = 8 - Top = 10 - Width = 90 - Height = 21 - Action = actRefrescar - AutoSize = False - Caption = 'Consultar' - ImageIndex = 0 - TabOrder = 0 - Wrapping = twEndEllipsis - end - end - end - inherited EditorActionList: TActionList [6] + inherited EditorActionList: TActionList [5] inherited actNuevo: TAction Enabled = False Visible = False @@ -261,7 +212,7 @@ inherited fEditorListaRecepciones: TfEditorListaRecepciones OnUpdate = actAprobadoUpdate end end - inherited SmallImages: TPngImageList [7] + inherited SmallImages: TPngImageList [6] PngImages = < item PngImage.Data = { @@ -842,7 +793,7 @@ inherited fEditorListaRecepciones: TfEditorListaRecepciones Left = 331 Bitmap = {} end - inherited LargeImages: TPngImageList [8] + inherited LargeImages: TPngImageList [7] PngImages = < item PngImage.Data = { @@ -1665,15 +1616,15 @@ inherited fEditorListaRecepciones: TfEditorListaRecepciones Top = 88 Bitmap = {} end - inherited JvFormStorage: TJvFormStorage [9] + inherited JvFormStorage: TJvFormStorage [8] Left = 416 Top = 224 end - inherited JvAppRegistryStorage: TJvAppRegistryStorage [10] + inherited JvAppRegistryStorage: TJvAppRegistryStorage [9] Left = 368 Top = 168 end - inherited dsDataTable: TDADataSource [11] + inherited dsDataTable: TDADataSource [10] Top = 136 end inherited GridPopupMenu: TPopupMenu diff --git a/Source/Modulos/Recepciones/Cliente/uEditorListaRecepciones.pas b/Source/Modulos/Recepciones/Cliente/uEditorListaRecepciones.pas index 008f4a6..73cbdd1 100644 --- a/Source/Modulos/Recepciones/Cliente/uEditorListaRecepciones.pas +++ b/Source/Modulos/Recepciones/Cliente/uEditorListaRecepciones.pas @@ -28,8 +28,7 @@ type ['{5CF9C341-A9BB-4A42-A132-0145827FBD9C}'] function GetItems: IBizRecepciones; procedure SetItems(const Value: IBizRecepciones); - property Items: IBizRecepciones read GetItems - write SetItems; + property Items: IBizRecepciones read GetItems write SetItems; end; TfEditorListaRecepciones = class(TfEditorGridBase, IEditorListaRecepciones) @@ -45,11 +44,6 @@ type TBXItem37: TTBXItem; actAprobado: TAction; frViewListaRecepciones1: TfrViewListaRecepciones; - TBXDockablePanel1: TTBXDockablePanel; - frViewParametrosCentro1: TfrViewParametrosCentro; - TBXLabel1: TTBXLabel; - pnlAgrupaciones: TTBXAlignmentPanel; - TBXButton3: TTBXButton; procedure FormShow(Sender: TObject); procedure JvTabBar1TabSelected(Sender: TObject; Item: TJvTabBarItem); procedure actModificarExecute(Sender: TObject); @@ -103,7 +97,7 @@ begin if Assigned(FItems) then begin dsDataTable.DataTable := FItems.DataTable; - frViewListaRecepciones1.dsDataSource.DataTable := FItems.DataTable; + frViewListaRecepciones1.Items := FItems; end; end; @@ -118,44 +112,15 @@ begin //FItems.DataTable.Active := True; - frViewParametrosCentro1.Refresh; with (ViewGrid as IViewListaRecepciones) do VerPendientes; end; -procedure TfEditorListaRecepciones.JvTabBar1TabSelected( - Sender: TObject; Item: TJvTabBarItem); +procedure TfEditorListaRecepciones.JvTabBar1TabSelected(Sender: TObject; Item: TJvTabBarItem); begin - inherited; - ShowHourglassCursor; - - Items.DataTable.Active := False; - - Application.ProcessMessages; - ViewGrid._FocusedView.BeginUpdate; - Application.ProcessMessages; - try - case Item.Index of - 0 : begin - Items := dmRecepciones.GetItems(tirPendiente); - (ViewGrid as IViewListaRecepciones).VerPendientes; - end; - - 1 : begin - Items := dmRecepciones.GetItems(tirAprobado); - (ViewGrid as IViewListaRecepciones).VerAprobados; - end; - - 2 : begin - Items := dmRecepciones.GetItems; - (ViewGrid as IViewListaRecepciones).VerTodos; - end; - end; - finally - dsDataTable.DataTable := Items.DataTable; - ViewGrid._FocusedView.EndUpdate; - HideHourglassCursor; - end; + if Items.DataTable.Active then + Items.DataTable.Active := False; + frViewListaRecepciones1.frViewParametrosCentro1.LimpiarSeleccion; end; procedure TfEditorListaRecepciones.actModificarExecute( @@ -220,55 +185,39 @@ begin not (ViewGrid._FocusedView.Controller.FocusedRow.Expandable)) end; -procedure TfEditorListaRecepciones.actRefrescarExecute( - Sender: TObject); -var - ACentrosList : TStringList; - AWhere : String; - i : integer; +procedure TfEditorListaRecepciones.actRefrescarExecute(Sender: TObject); begin - AWhere := ''; - - {case (ViewGrid as IViewListaRecepciones).VistaActiva of - trvaPendiente, - trvaAprobado : AWhere := ' and' - else - AWhere := ''; - end;} - - AWhere := AWhere + ' CENTRO in ('; - - Items.DataTable.Active := False; - ACentrosList := frViewParametrosCentro1.CentrosSeleccionados; - ShowHourglassCursor; + Items.DataTable.Active := False; + Application.ProcessMessages; + ViewGrid._FocusedView.BeginUpdate; + Application.ProcessMessages; try - if ACentrosList.Count = 0 then - ShowMessage('Debe seleccionar al menos un centro en los parámetros de la consulta.') - else begin - with Items.DataTable.Where do - begin - Clear; - for i := 0 to ACentrosList.Count - 1 do - begin - if i > 0 then - AWhere := AWhere + ', '; - AWhere := AWhere + '''' + ACentrosList[i] + ''''; - end; - AWhere := AWhere + ')'; - AddText(AWhere, False); - end; - Items.DataTable.Active := True; - end; - finally - HideHourglassCursor; - FreeAndNIL(ACentrosList); - end; + case JvTabBar1.SelectedTab.Index of + 0 : begin + Items := dmRecepciones.GetItems(tirPendiente); + (ViewGrid as IViewListaRecepciones).VerPendientes; + end; - inherited; - - ViewGrid.ExpandirTodo; - ViewGrid.GotoFirst; + 1 : begin + Items := dmRecepciones.GetItems(tirAprobado); + (ViewGrid as IViewListaRecepciones).VerAprobados; + end; + + 2 : begin + Items := dmRecepciones.GetItems; + (ViewGrid as IViewListaRecepciones).VerTodos; + end; + end; + + frViewListaRecepciones1.Refresh; + inherited; + finally + ViewGrid._FocusedView.EndUpdate; + HideHourglassCursor; + ViewGrid.ExpandirTodo; + ViewGrid.GotoFirst; + end; end; procedure TfEditorListaRecepciones.actPendienteExecute( @@ -339,8 +288,8 @@ begin finally FItems.DataTable.FreeBookMark(BM); //FItems.DataTable.EnableControls; <- No descomentar - ViewGrid._FocusedView.EndUpdate; ViewGrid._FocusedView.Controller.ClearSelection; + ViewGrid._FocusedView.EndUpdate; PostMessage(Handle, CM_SETFOCUSEDRECORD, Integer(ViewGrid._FocusedView), MakeLParam(ViewGrid._FocusedView.Controller.FocusedRowIndex, ViewGrid._FocusedView.Controller.TopRowIndex)); diff --git a/Source/Modulos/Recepciones/Cliente/uEditorListaRecepcionesAlbaran.dfm b/Source/Modulos/Recepciones/Cliente/uEditorListaRecepcionesAlbaran.dfm index 04d1789..ba23d72 100644 --- a/Source/Modulos/Recepciones/Cliente/uEditorListaRecepcionesAlbaran.dfm +++ b/Source/Modulos/Recepciones/Cliente/uEditorListaRecepcionesAlbaran.dfm @@ -1,21 +1,27 @@ inherited fEditorListaRecepcionesAlbaran: TfEditorListaRecepcionesAlbaran Left = 286 Top = 168 - Width = 850 - Height = 671 Caption = 'Control de '#225'lbaranes' + ClientHeight = 637 + ClientWidth = 842 + ExplicitWidth = 850 + ExplicitHeight = 671 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader Width = 842 Caption = 'Control de albaranes' + ExplicitWidth = 842 inherited Image1: TImage Left = 815 + ExplicitLeft = 815 end end inherited TBXDock: TTBXDock Width = 842 + ExplicitWidth = 842 inherited tbxMain: TTBXToolbar + ExplicitWidth = 344 object TBXSeparatorItem16: TTBXSeparatorItem [7] end object tbxiExpandir: TTBXItem [15] @@ -29,14 +35,20 @@ inherited fEditorListaRecepcionesAlbaran: TfEditorListaRecepcionesAlbaran DisplayMode = nbdmImageAndText end end + inherited tbxMenu: TTBXToolbar + ExplicitWidth = 842 + end inherited tbxFiltro: TTBXToolbar Left = 344 DockPos = 344 + ExplicitLeft = 344 end end inherited StatusBar: TStatusBar Top = 618 Width = 842 + ExplicitTop = 618 + ExplicitWidth = 842 end object JvTabBar1: TJvTabBar [3] Left = 0 @@ -76,9 +88,15 @@ inherited fEditorListaRecepcionesAlbaran: TfEditorListaRecepcionesAlbaran ParentFont = False TabOrder = 4 ReadOnly = False + ExplicitTop = 105 + ExplicitWidth = 842 + ExplicitHeight = 513 inherited cxGrid: TcxGrid Width = 842 - Height = 513 + Height = 453 + ExplicitTop = 60 + ExplicitWidth = 842 + ExplicitHeight = 453 inherited cxGridView: TcxGridDBTableView inherited cxGridViewESTADOPRODUCTO: TcxGridDBColumn Caption = 'Situaci'#243'n' @@ -94,6 +112,31 @@ inherited fEditorListaRecepcionesAlbaran: TfEditorListaRecepcionesAlbaran end end end + inherited TBXDockablePanel1: TTBXDockablePanel + ExplicitWidth = 842 + inherited frViewParametrosCentro1: TfrViewParametrosCentro + ExplicitHeight = 41 + inherited dxLayoutControl1: TdxLayoutControl + inherited ccbCentro: TJvCheckedComboBox + Width = 392 + ExplicitWidth = 392 + end + end + end + inherited TBXLabel1: TTBXLabel + Width = 842 + ExplicitWidth = 842 + ExplicitHeight = 19 + end + inherited pnlAgrupaciones: TTBXAlignmentPanel + Width = 417 + ExplicitWidth = 417 + ExplicitHeight = 41 + inherited TBXButton3: TTBXButton + Action = actRefrescar + end + end + end inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinterLink1: TdxGridReportLink BuiltInReportLink = True diff --git a/Source/Modulos/Recepciones/Cliente/uEditorListaRecepcionesAlbaran.pas b/Source/Modulos/Recepciones/Cliente/uEditorListaRecepcionesAlbaran.pas index b6218d1..71ce949 100644 --- a/Source/Modulos/Recepciones/Cliente/uEditorListaRecepcionesAlbaran.pas +++ b/Source/Modulos/Recepciones/Cliente/uEditorListaRecepcionesAlbaran.pas @@ -17,7 +17,7 @@ uses JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls, TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, ExtCtrls, JvExControls, JvComponent, JvNavigationPane, StdCtrls, - uViewListaRecepcionesAlbaran; + uViewListaRecepcionesAlbaran, uDAInterfaces; type @@ -77,10 +77,8 @@ begin ShowHourglassCursor; try dsDataTable.DataTable := FItems.DataTable; - frViewListaRecepcionesAlbaran1.dsDataSource.DataTable := FItems.DataTable; + frViewListaRecepcionesAlbaran1.Items := FItems; - if not FItems.DataTable.Active then - FItems.DataTable.Active := True; finally HideHourglassCursor; end; @@ -104,41 +102,12 @@ begin end; end; -procedure TfEditorListaRecepcionesAlbaran.JvTabBar1TabSelected( - Sender: TObject; Item: TJvTabBarItem); +procedure TfEditorListaRecepcionesAlbaran.JvTabBar1TabSelected(Sender: TObject; Item: TJvTabBarItem); begin inherited; - ShowHourglassCursor; - Items.DataTable.Active := False; - Application.ProcessMessages; - ViewGrid._FocusedView.BeginUpdate; - Application.ProcessMessages; - try - case Item.Index of - 0 : begin - Items := dmRecepciones.GetItemsAlbaran(tiraPendiente); - end; - - 1 : begin - Items := dmRecepciones.GetItemsAlbaran(tiraRecibido); - end; - - 2 : begin - Items := dmRecepciones.GetItemsAlbaran; - end; - end; - finally - dsDataTable.DataTable := Items.DataTable; - with (ViewGrid as IViewListaRecepcionesAlbaran) do - begin - ExpandirTodo; - AjustarAncho; - ContraerTodo; - _FocusedView.EndUpdate; - GotoFirst; - end; - HideHourglassCursor; - end; + if Items.DataTable.Active then + Items.DataTable.Active := False; + frViewListaRecepcionesAlbaran1.frViewParametrosCentro1.LimpiarSeleccion; end; procedure TfEditorListaRecepcionesAlbaran.actExpandirExecute( @@ -173,12 +142,41 @@ begin (Sender as TAction).Enabled := False; end; -procedure TfEditorListaRecepcionesAlbaran.actRefrescarExecute( - Sender: TObject); +procedure TfEditorListaRecepcionesAlbaran.actRefrescarExecute(Sender: TObject); begin - inherited; - ViewGrid.ContraerTodo; - ViewGrid.GotoFirst; + ShowHourglassCursor; + Items.DataTable.Active := False; + Application.ProcessMessages; + ViewGrid._FocusedView.BeginUpdate; + Application.ProcessMessages; + try + case JvTabBar1.SelectedTab.Index of + 0 : begin + Items := dmRecepciones.GetItemsAlbaran(tiraPendiente); + end; + + 1 : begin + Items := dmRecepciones.GetItemsAlbaran(tiraRecibido); + end; + + 2 : begin + Items := dmRecepciones.GetItemsAlbaran; + end; + end; + + frViewListaRecepcionesAlbaran1.Refresh; + inherited; + finally + with (ViewGrid as IViewListaRecepcionesAlbaran) do + begin + ExpandirTodo; + AjustarAncho; + ContraerTodo; + _FocusedView.EndUpdate; + GotoFirst; + end; + HideHourglassCursor; + end; end; end. diff --git a/Source/Modulos/Recepciones/Cliente/uViewListaRecepciones.dfm b/Source/Modulos/Recepciones/Cliente/uViewListaRecepciones.dfm index cfce401..e0ebfa8 100644 --- a/Source/Modulos/Recepciones/Cliente/uViewListaRecepciones.dfm +++ b/Source/Modulos/Recepciones/Cliente/uViewListaRecepciones.dfm @@ -4,8 +4,9 @@ inherited frViewListaRecepciones: TfrViewListaRecepciones ExplicitWidth = 695 ExplicitHeight = 477 inherited cxGrid: TcxGrid + Top = 61 Width = 695 - Height = 477 + Height = 416 ExplicitWidth = 695 ExplicitHeight = 477 inherited cxGridView: TcxGridDBTableView @@ -328,6 +329,83 @@ inherited frViewListaRecepciones: TfrViewListaRecepciones end end end + object TBXDockablePanel1: TTBXDockablePanel [1] + Left = 0 + Top = 0 + MaxClientHeight = 61 + Align = alTop + Caption = 'TBXDockablePanel1' + FloatingWidth = 128 + FloatingHeight = 128 + SupportedDocks = [dkStandardDock, dkMultiDock] + TabOrder = 1 + ExplicitTop = 76 + ExplicitWidth = 128 + ExplicitHeight = 128 + inline frViewParametrosCentro1: TfrViewParametrosCentro + Left = 0 + Top = 19 + Width = 425 + Height = 42 + Align = alLeft + TabOrder = 0 + ReadOnly = False + ExplicitTop = 19 + ExplicitWidth = 425 + ExplicitHeight = 109 + inherited dxLayoutControl1: TdxLayoutControl + Width = 425 + ExplicitWidth = 425 + inherited ccbCentro: TJvCheckedComboBox + Width = 392 + ExplicitWidth = 392 + end + end + end + object TBXLabel1: TTBXLabel + Left = 0 + Top = 0 + Width = 695 + Height = 19 + Margins.Left = 5 + Margins.Top = 5 + Align = alTop + Caption = 'Par'#225'metros de consulta' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentColor = True + ParentFont = False + Underline = True + ExplicitWidth = 128 + ExplicitHeight = 32 + end + object pnlAgrupaciones: TTBXAlignmentPanel + Left = 425 + Top = 19 + Width = 270 + Height = 42 + Align = alClient + AutoSize = True + TabOrder = 2 + ExplicitWidth = 391 + ExplicitHeight = 109 + object TBXButton3: TTBXButton + Tag = 3 + Left = 8 + Top = 10 + Width = 90 + Height = 21 + AutoSize = False + Caption = 'Consultar' + ImageIndex = 0 + TabOrder = 0 + Wrapping = twEndEllipsis + end + end + end inherited dsDataSource: TDADataSource Top = 120 end diff --git a/Source/Modulos/Recepciones/Cliente/uViewListaRecepciones.pas b/Source/Modulos/Recepciones/Cliente/uViewListaRecepciones.pas index 080d655..b91a2be 100644 --- a/Source/Modulos/Recepciones/Cliente/uViewListaRecepciones.pas +++ b/Source/Modulos/Recepciones/Cliente/uViewListaRecepciones.pas @@ -20,7 +20,8 @@ uses dxPSFillPatterns, dxPSEdgePatterns, cxCalendar, cxTextEdit, cxCurrencyEdit, dxPSCore, uDADataTable, StdCtrls, cxGridBandedTableView, cxGridDBBandedTableView, cxImageComboBox, ImgList, PngImageList, - dxPScxCommon, dxPScxGridLnk, cxMemo, uDAInterfaces; + dxPScxCommon, dxPScxGridLnk, cxMemo, uDAInterfaces, TBXDkPanels, uCustomView, + uViewBase, uViewParametrosControlGrid, uViewParametrosCentro, TB2Dock; type TvRecepcionVistaActiva = (trvaPendiente, trvaAprobado, trvaTodos); @@ -33,6 +34,10 @@ type function GetVistaActiva : TvRecepcionVistaActiva; property VistaActiva : TvRecepcionVistaActiva read GetVistaActiva; + + function GetItems: IBizRecepciones; + procedure SetItems(const Value: IBizRecepciones); + property Items: IBizRecepciones read GetItems write SetItems; end; TfrViewListaRecepciones = class(TfrViewGrid, IViewListaRecepciones) @@ -83,6 +88,11 @@ type cxStyleHeaderInforme: TcxStyle; cxStyleSelectionInforme: TcxStyle; cxGridViewColumnOBSERVACIONES: TcxGridDBColumn; + TBXDockablePanel1: TTBXDockablePanel; + frViewParametrosCentro1: TfrViewParametrosCentro; + TBXLabel1: TTBXLabel; + pnlAgrupaciones: TTBXAlignmentPanel; + TBXButton3: TTBXButton; procedure cxGridViewMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure cxGridBandedViewRR38GetDisplayText( @@ -150,18 +160,27 @@ type ARecord: TcxCustomGridRecord; AColumn: TcxGridColumn; AnItem: TAbstractdxReportCellData); protected + FItems : IBizRecepciones; FTipo : String; FNivelFiltrado : TcxFilterCriteriaItemList; procedure FilterChanged(Sender: TObject); override; function GetVistaActiva : TvRecepcionVistaActiva; + function GetItems: IBizRecepciones; + procedure SetItems(const Value: IBizRecepciones); + public + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; + + property Items: IBizRecepciones read GetItems write SetItems; + property VistaActiva : TvRecepcionVistaActiva read GetVistaActiva; + procedure Refresh; procedure Preview; override; procedure Print; override; procedure PrintSetup; override; procedure VerPendientes; procedure VerAprobados; procedure VerTodos; - property VistaActiva : TvRecepcionVistaActiva read GetVistaActiva; end; @@ -211,6 +230,12 @@ begin end; end; +destructor TfrViewListaRecepciones.Destroy; +begin + FItems := Nil; + inherited; +end; + procedure TfrViewListaRecepciones.VerAprobados; begin FTipo := 'S'; @@ -233,6 +258,13 @@ begin cxGridBandedViewAPROBADO.Visible := True; end; +constructor TfrViewListaRecepciones.Create(AOwner: TComponent); +begin + inherited; + FItems := Nil; + frViewParametrosCentro1.Refresh; +end; + procedure TfrViewListaRecepciones.cxGridBandedViewALBARANGetDisplayText( Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; var AText: String); @@ -497,6 +529,64 @@ begin dxComponentPrinterLink1.PageSetup; end; +procedure TfrViewListaRecepciones.Refresh; +var + ACentrosList : TStringList; + AWhereCentro : String; + AWhere : String; + i : integer; +begin + ACentrosList := Nil; + + if Assigned(FItems) then + Items.DataTable.Active := False; + ACentrosList := frViewParametrosCentro1.CentrosSeleccionados; + + ShowHourglassCursor; + try + if Assigned(ACentrosList) then + begin + AWhereCentro := ''; + if ACentrosList.Count = 0 then + begin + ShowMessage('Debe seleccionar al menos un centro en los parámetros de la consulta.'); + Exit; + end + else begin + AWhereCentro := AWhereCentro + ' FILIAL in ('; + for i := 0 to ACentrosList.Count - 1 do + begin + if i > 0 then + AWhereCentro := AWhereCentro + ', '; + AWhereCentro := AWhereCentro + '''' + ACentrosList[i] + ''''; + end; + AWhereCentro := AWhereCentro + ')'; + end; + end; + + AWhere := ''; + if AWhereCentro <> '' then + begin + AWhere := AWhere + AWhereCentro; + end; + + Items.DataTable.Where.Clear; + Items.DataTable.Where.AddText(AWhere, False); + Items.DataTable.Active := True; + + finally + HideHourglassCursor; + FreeAndNIL(ACentrosList); + end; +end; + +procedure TfrViewListaRecepciones.SetItems(const Value: IBizRecepciones); +begin + FItems := Value; + if Assigned(FItems) then + dsDataSource.DataTable := FItems.DataTable; +end; + procedure TfrViewListaRecepciones.cxGridBandedViewCODIGOGetDisplayText( Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; var AText: String); @@ -582,6 +672,11 @@ begin cxGridView.DataController.Filter.EndUpdate; end; +function TfrViewListaRecepciones.GetItems: IBizRecepciones; +begin + Result := FItems; +end; + function TfrViewListaRecepciones.GetVistaActiva: TvRecepcionVistaActiva; begin if FTipo = 'N' then diff --git a/Source/Modulos/Recepciones/Cliente/uViewListaRecepcionesAlbaran.dfm b/Source/Modulos/Recepciones/Cliente/uViewListaRecepcionesAlbaran.dfm index 8d07c37..73f50db 100644 --- a/Source/Modulos/Recepciones/Cliente/uViewListaRecepcionesAlbaran.dfm +++ b/Source/Modulos/Recepciones/Cliente/uViewListaRecepcionesAlbaran.dfm @@ -1,9 +1,14 @@ inherited frViewListaRecepcionesAlbaran: TfrViewListaRecepcionesAlbaran Width = 695 Height = 477 + ExplicitWidth = 695 + ExplicitHeight = 477 inherited cxGrid: TcxGrid + Top = 60 Width = 695 - Height = 477 + Height = 417 + ExplicitWidth = 695 + ExplicitHeight = 477 inherited cxGridView: TcxGridDBTableView FilterBox.Visible = fvNever DataController.KeyFieldNames = 'Albaran;Codigo;Color' @@ -77,6 +82,81 @@ inherited frViewListaRecepcionesAlbaran: TfrViewListaRecepcionesAlbaran end end end + object TBXDockablePanel1: TTBXDockablePanel [1] + Left = 0 + Top = 0 + MaxClientHeight = 61 + Align = alTop + Caption = 'TBXDockablePanel1' + DockedWidth = 32 + DockedHeight = 32 + FloatingWidth = 128 + FloatingHeight = 60 + SupportedDocks = [dkStandardDock, dkMultiDock] + TabOrder = 1 + inline frViewParametrosCentro1: TfrViewParametrosCentro + Left = 0 + Top = 19 + Width = 425 + Height = 41 + Align = alLeft + TabOrder = 0 + ReadOnly = False + ExplicitTop = 19 + ExplicitWidth = 425 + ExplicitHeight = 109 + inherited dxLayoutControl1: TdxLayoutControl + Width = 425 + ExplicitWidth = 425 + inherited ccbCentro: TJvCheckedComboBox + Width = 392 + ExplicitWidth = 392 + end + end + end + object TBXLabel1: TTBXLabel + Left = 0 + Top = 0 + Width = 695 + Height = 19 + Margins.Left = 5 + Margins.Top = 5 + Align = alTop + Caption = 'Par'#225'metros de consulta' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentColor = True + ParentFont = False + Underline = True + ExplicitWidth = 128 + ExplicitHeight = 32 + end + object pnlAgrupaciones: TTBXAlignmentPanel + Left = 425 + Top = 19 + Width = 270 + Height = 41 + Align = alClient + AutoSize = True + TabOrder = 2 + ExplicitHeight = 109 + object TBXButton3: TTBXButton + Tag = 3 + Left = 8 + Top = 10 + Width = 90 + Height = 21 + AutoSize = False + Caption = 'Consultar' + ImageIndex = 0 + TabOrder = 0 + Wrapping = twEndEllipsis + end + end + end inherited dsDataSource: TDADataSource Top = 120 end diff --git a/Source/Modulos/Recepciones/Cliente/uViewListaRecepcionesAlbaran.pas b/Source/Modulos/Recepciones/Cliente/uViewListaRecepcionesAlbaran.pas index 0ef731b..685931c 100644 --- a/Source/Modulos/Recepciones/Cliente/uViewListaRecepcionesAlbaran.pas +++ b/Source/Modulos/Recepciones/Cliente/uViewListaRecepcionesAlbaran.pas @@ -20,11 +20,15 @@ uses dxPSFillPatterns, dxPSEdgePatterns, cxCalendar, cxTextEdit, cxCurrencyEdit, dxPSCore, uDADataTable, StdCtrls, cxGridBandedTableView, cxGridDBBandedTableView, cxImageComboBox, ImgList, PngImageList, - dxPScxCommon, dxPScxGridLnk, cxMemo; + dxPScxCommon, dxPScxGridLnk, cxMemo, uDAInterfaces, TBXDkPanels, uCustomView, + uViewBase, uViewParametrosControlGrid, uViewParametrosCentro, TB2Dock; type IViewListaRecepcionesAlbaran = interface(IViewGrid) ['{F0B4B97B-158B-4FD8-B3F1-8ECAC7AE40D5}'] + function GetItems: IBizRecepcionesAlbaran; + procedure SetItems(const Value: IBizRecepcionesAlbaran); + property Items: IBizRecepcionesAlbaran read GetItems write SetItems; end; TfrViewListaRecepcionesAlbaran = class(TfrViewGrid, IViewListaRecepcionesAlbaran) @@ -56,12 +60,27 @@ type cxGridViewE44: TcxGridDBColumn; cxGridViewE46: TcxGridDBColumn; cxGridViewE48: TcxGridDBColumn; + TBXDockablePanel1: TTBXDockablePanel; + frViewParametrosCentro1: TfrViewParametrosCentro; + TBXLabel1: TTBXLabel; + pnlAgrupaciones: TTBXAlignmentPanel; + TBXButton3: TTBXButton; procedure cxGridViewALBARANGetDataText(Sender: TcxCustomGridTableItem; ARecordIndex: Integer; var AText: String); + protected + FItems: IBizRecepcionesAlbaran; + function GetItems: IBizRecepcionesAlbaran; + procedure SetItems(const Value: IBizRecepcionesAlbaran); + public + property Items: IBizRecepcionesAlbaran read GetItems write SetItems; + + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; procedure Preview; override; procedure Print; override; procedure PrintSetup; override; + procedure Refresh; end; @@ -72,6 +91,11 @@ uses uViewGridBase, cxGridRows; {$R *.dfm} +function TfrViewListaRecepcionesAlbaran.GetItems: IBizRecepcionesAlbaran; +begin + Result := FItems; +end; + procedure TfrViewListaRecepcionesAlbaran.Preview; begin inherited; @@ -90,6 +114,75 @@ begin dxComponentPrinterLink1.PageSetup; end; +procedure TfrViewListaRecepcionesAlbaran.Refresh; +var + ACentrosList : TStringList; + AWhereCentro : String; + AWhere : String; + i : integer; +begin + ACentrosList := Nil; + + if Assigned(FItems) then + Items.DataTable.Active := False; + ACentrosList := frViewParametrosCentro1.CentrosSeleccionados; + + ShowHourglassCursor; + try + if Assigned(ACentrosList) then + begin + AWhereCentro := ''; + if ACentrosList.Count = 0 then + begin + ShowMessage('Debe seleccionar al menos un centro en los parámetros de la consulta.'); + Exit; + end + else begin + AWhereCentro := AWhereCentro + ' FILIAL in ('; + for i := 0 to ACentrosList.Count - 1 do + begin + if i > 0 then + AWhereCentro := AWhereCentro + ', '; + AWhereCentro := AWhereCentro + '''' + ACentrosList[i] + ''''; + end; + AWhereCentro := AWhereCentro + ')'; + end; + end; + + AWhere := ''; + if AWhereCentro <> '' then + begin + AWhere := AWhere + AWhereCentro; + end; + +//No hacemos clear porque en este caso la aprobación o no del albaran no viene dado por la where desde el editor +// Items.DataTable.Where.Clear; + if not Items.DataTable.Where.Empty then + AWhere := 'AND ' + AWhere; + + Items.DataTable.Where.AddText(AWhere, False); + Items.DataTable.Active := True; + + finally + HideHourglassCursor; + FreeAndNIL(ACentrosList); + end; +end; + +procedure TfrViewListaRecepcionesAlbaran.SetItems(const Value: IBizRecepcionesAlbaran); +begin + FItems := Value; + if Assigned(FItems) then + dsDataSource.DataTable := FItems.DataTable; +end; + +constructor TfrViewListaRecepcionesAlbaran.Create(AOwner: TComponent); +begin + inherited; + FItems := Nil; + frViewParametrosCentro1.Refresh; +end; + procedure TfrViewListaRecepcionesAlbaran.cxGridViewALBARANGetDataText( Sender: TcxCustomGridTableItem; ARecordIndex: Integer; var AText: String); @@ -108,4 +201,10 @@ begin end; end; +destructor TfrViewListaRecepcionesAlbaran.Destroy; +begin + FItems := Nil; + inherited; +end; + end. diff --git a/Source/Modulos/ReferenciaGenerica/Cliente/ReferenciaGenerica.dpk b/Source/Modulos/ReferenciaGenerica/Cliente/ReferenciaGenerica.dpk index ba30062..1861207 100644 --- a/Source/Modulos/ReferenciaGenerica/Cliente/ReferenciaGenerica.dpk +++ b/Source/Modulos/ReferenciaGenerica/Cliente/ReferenciaGenerica.dpk @@ -61,7 +61,8 @@ requires cxExtEditorsD10, dxPSCoreD10, dxComnD10, - JvCustomD10R; + JvCustomD10R, + Parametros; contains uPluginControllerReferenciaGenerica in 'uPluginControllerReferenciaGenerica.pas' {ModuleReferenciaGenerica: TModuleController}, diff --git a/Source/Modulos/ReferenciaGenerica/Cliente/ReferenciaGenerica.dproj b/Source/Modulos/ReferenciaGenerica/Cliente/ReferenciaGenerica.dproj index b9feb5e..4a2e3ff 100644 --- a/Source/Modulos/ReferenciaGenerica/Cliente/ReferenciaGenerica.dproj +++ b/Source/Modulos/ReferenciaGenerica/Cliente/ReferenciaGenerica.dproj @@ -1,4 +1,5 @@ - + + {d34ce1e7-d660-436d-a982-7683ff67eecd} ReferenciaGenerica.dpk @@ -52,45 +53,46 @@ MainSource + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
dmReferenciaGenerica
 diff --git a/Source/Modulos/ReferenciaGenerica/Cliente/uDataModuleReferenciaGenerica.dfm b/Source/Modulos/ReferenciaGenerica/Cliente/uDataModuleReferenciaGenerica.dfm index fa19a3d..5945136 100644 --- a/Source/Modulos/ReferenciaGenerica/Cliente/uDataModuleReferenciaGenerica.dfm +++ b/Source/Modulos/ReferenciaGenerica/Cliente/uDataModuleReferenciaGenerica.dfm @@ -22,9 +22,11 @@ object dmReferenciaGenerica: TdmReferenciaGenerica Name = 'Result' DataType = rtString Flag = fResult + Value = Null end> GetSchemaCall.Default = False GetSchemaCall.IncomingSchemaParameter = 'Result' + GetSchemaCall.OutgoingFilterParameter = 'aFilter' GetDataCall.RemoteService = RORemoteService GetDataCall.MethodName = 'GetDatasetData' GetDataCall.Params = < diff --git a/Source/Modulos/ReferenciaGenerica/Cliente/uEditorListaReferenciaGenerica.dfm b/Source/Modulos/ReferenciaGenerica/Cliente/uEditorListaReferenciaGenerica.dfm index 4f2abe1..72e53c3 100644 --- a/Source/Modulos/ReferenciaGenerica/Cliente/uEditorListaReferenciaGenerica.dfm +++ b/Source/Modulos/ReferenciaGenerica/Cliente/uEditorListaReferenciaGenerica.dfm @@ -81,9 +81,9 @@ inherited fEditorListaReferenciaGenerica: TfEditorListaReferenciaGenerica ExplicitHeight = 513 inherited cxGrid: TcxGrid Width = 901 - Height = 513 + Height = 453 ExplicitWidth = 901 - ExplicitHeight = 513 + ExplicitHeight = 453 inherited cxGridView: TcxGridDBTableView DataController.Summary.DefaultGroupSummaryItems = < item @@ -94,6 +94,28 @@ inherited fEditorListaReferenciaGenerica: TfEditorListaReferenciaGenerica end> end end + inherited TBXDockablePanel1: TTBXDockablePanel + ExplicitLeft = 0 + ExplicitTop = 0 + ExplicitWidth = 901 + inherited frViewParametrosCentro1: TfrViewParametrosCentro + inherited dxLayoutControl1: TdxLayoutControl + inherited ccbCentro: TJvCheckedComboBox + Width = 525 + ExplicitWidth = 525 + end + end + end + inherited TBXLabel1: TTBXLabel + Width = 901 + end + inherited pnlAgrupaciones: TTBXAlignmentPanel + Width = 476 + inherited TBXButton3: TTBXButton + Action = actRefrescar + end + end + end end object JvTabBar1: TJvTabBar [4] Left = 0 diff --git a/Source/Modulos/ReferenciaGenerica/Cliente/uEditorListaReferenciaGenerica.pas b/Source/Modulos/ReferenciaGenerica/Cliente/uEditorListaReferenciaGenerica.pas index d4e4299..214be64 100644 --- a/Source/Modulos/ReferenciaGenerica/Cliente/uEditorListaReferenciaGenerica.pas +++ b/Source/Modulos/ReferenciaGenerica/Cliente/uEditorListaReferenciaGenerica.pas @@ -46,7 +46,6 @@ type actEspera: TAction; actResuelto: TAction; procedure FormShow(Sender: TObject); - procedure JvTabBar1TabSelected(Sender: TObject; Item: TJvTabBarItem); procedure actModificarExecute(Sender: TObject); procedure actExpandirExecute(Sender: TObject); procedure actContraerExecute(Sender: TObject); @@ -66,6 +65,7 @@ type procedure actResueltoUpdate(Sender: TObject); procedure actResueltoExecute(Sender: TObject); procedure actEliminarExecute(Sender: TObject); + procedure JvTabBar1TabSelected(Sender: TObject; Item: TJvTabBarItem); protected FItems : IBizReferenciaGenerica; function GetItems: IBizReferenciaGenerica; @@ -98,14 +98,20 @@ begin Result := FItems; end; -procedure TfEditorListaReferenciaGenerica.SetItems( - const Value: IBizReferenciaGenerica); +procedure TfEditorListaReferenciaGenerica.JvTabBar1TabSelected(Sender: TObject; Item: TJvTabBarItem); +begin + if Items.DataTable.Active then + Items.DataTable.Active := False; + frViewListaReferenciaGenerica1.frViewParametrosCentro1.LimpiarSeleccion; +end; + +procedure TfEditorListaReferenciaGenerica.SetItems(const Value: IBizReferenciaGenerica); begin FItems := Value; if Assigned(FItems) then begin dsDataTable.DataTable := FItems.DataTable; - frViewListaReferenciaGenerica1.dsDataSource.DataTable := FItems.DataTable; + frViewListaReferenciaGenerica1.Items := FItems; end; end; @@ -118,8 +124,6 @@ begin if not Assigned(ViewGrid) then raise Exception.Create('No hay una vista asignada'); - FItems.DataTable.Active := True; - Items.VerPendientes; with (ViewGrid as IViewListaReferenciaGenerica) do begin VerPendientes; @@ -128,30 +132,6 @@ begin end; end; -procedure TfEditorListaReferenciaGenerica.JvTabBar1TabSelected( - Sender: TObject; Item: TJvTabBarItem); -begin - inherited; - case Item.Index of - 0 : begin - Items.VerPendientes; - (ViewGrid as IViewListaReferenciaGenerica).VerPendientes; - end; - - 1 : begin - Items.VerEnEspera; - (ViewGrid as IViewListaReferenciaGenerica).VerEnEspera; - end; - - 2 : begin - Items.VerResueltos; - (ViewGrid as IViewListaReferenciaGenerica).VerResueltos - end; - end; - ViewGrid.ExpandirTodo; - ViewGrid.GotoFirst; -end; - procedure TfEditorListaReferenciaGenerica.actModificarExecute( Sender: TObject); var @@ -329,12 +309,42 @@ begin (ViewGrid._FocusedView.Controller.SelectedRecordCount > 0) end; -procedure TfEditorListaReferenciaGenerica.actRefrescarExecute( - Sender: TObject); +procedure TfEditorListaReferenciaGenerica.actRefrescarExecute(Sender: TObject); begin - inherited; - ViewGrid.ExpandirTodo; - ViewGrid.GotoFirst; + ShowHourglassCursor; + Items.DataTable.Active := False; + Application.ProcessMessages; + ViewGrid._FocusedView.BeginUpdate; + Application.ProcessMessages; + try + case JvTabBar1.SelectedTab.Index of + 0 : begin + Items.VerPendientes; + (ViewGrid as IViewListaReferenciaGenerica).VerPendientes; + end; + + 1 : begin + Items.VerEnEspera; + (ViewGrid as IViewListaReferenciaGenerica).VerEnEspera; + end; + + 2 : begin + Items.VerResueltos; + (ViewGrid as IViewListaReferenciaGenerica).VerResueltos + end; + end; + + frViewListaReferenciaGenerica1.Refresh; + inherited; + + finally + dsDataTable.DataTable := Items.DataTable; + ViewGrid._FocusedView.EndUpdate; + Items.DataTable.Active := True; + ViewGrid.ContraerTodo; + ViewGrid.GotoFirst; + HideHourglassCursor; + end; end; procedure TfEditorListaReferenciaGenerica.actPendienteExecute( diff --git a/Source/Modulos/ReferenciaGenerica/Cliente/uViewListaReferenciaGenerica.dfm b/Source/Modulos/ReferenciaGenerica/Cliente/uViewListaReferenciaGenerica.dfm index dc062a3..885dcb5 100644 --- a/Source/Modulos/ReferenciaGenerica/Cliente/uViewListaReferenciaGenerica.dfm +++ b/Source/Modulos/ReferenciaGenerica/Cliente/uViewListaReferenciaGenerica.dfm @@ -2,7 +2,9 @@ inherited frViewListaReferenciaGenerica: TfrViewListaReferenciaGenerica Width = 504 ExplicitWidth = 504 inherited cxGrid: TcxGrid + Top = 60 Width = 504 + Height = 208 ExplicitWidth = 504 inherited cxGridView: TcxGridDBTableView OnMouseDown = cxGridViewMouseDown @@ -118,6 +120,84 @@ inherited frViewListaReferenciaGenerica: TfrViewListaReferenciaGenerica end end end + object TBXDockablePanel1: TTBXDockablePanel [1] + Left = 0 + Top = 0 + MaxClientHeight = 61 + Align = alTop + Caption = 'TBXDockablePanel1' + DockedWidth = 32 + DockedHeight = 32 + FloatingWidth = 128 + FloatingHeight = 60 + SupportedDocks = [dkStandardDock, dkMultiDock] + TabOrder = 1 + ExplicitLeft = 8 + ExplicitTop = 8 + ExplicitWidth = 128 + inline frViewParametrosCentro1: TfrViewParametrosCentro + Left = 0 + Top = 19 + Width = 425 + Height = 41 + Align = alLeft + TabOrder = 0 + ReadOnly = False + ExplicitTop = 19 + ExplicitWidth = 425 + ExplicitHeight = 41 + inherited dxLayoutControl1: TdxLayoutControl + Width = 425 + ExplicitWidth = 425 + inherited ccbCentro: TJvCheckedComboBox + Width = 392 + ExplicitWidth = 392 + end + end + end + object TBXLabel1: TTBXLabel + Left = 0 + Top = 0 + Width = 504 + Height = 19 + Margins.Left = 5 + Margins.Top = 5 + Align = alTop + Caption = 'Par'#225'metros de consulta' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentColor = True + ParentFont = False + Underline = True + ExplicitWidth = 128 + ExplicitHeight = 32 + end + object pnlAgrupaciones: TTBXAlignmentPanel + Left = 425 + Top = 19 + Width = 79 + Height = 41 + Align = alClient + AutoSize = True + TabOrder = 2 + ExplicitWidth = 251 + object TBXButton3: TTBXButton + Tag = 3 + Left = 8 + Top = 10 + Width = 90 + Height = 21 + AutoSize = False + Caption = 'Consultar' + ImageIndex = 0 + TabOrder = 0 + Wrapping = twEndEllipsis + end + end + end inherited cxStyleRepository1: TcxStyleRepository object cxStyleResuelto: TcxStyle AssignedValues = [svTextColor] diff --git a/Source/Modulos/ReferenciaGenerica/Cliente/uViewListaReferenciaGenerica.pas b/Source/Modulos/ReferenciaGenerica/Cliente/uViewListaReferenciaGenerica.pas index 5150184..5a29f52 100644 --- a/Source/Modulos/ReferenciaGenerica/Cliente/uViewListaReferenciaGenerica.pas +++ b/Source/Modulos/ReferenciaGenerica/Cliente/uViewListaReferenciaGenerica.pas @@ -18,7 +18,9 @@ uses cxControls, cxGridCustomView, cxGrid, uBizReferenciaGenerica, dxPSGlbl, dxPSUtl, dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns, dxPSEdgePatterns, cxCalendar, cxTextEdit, - cxCurrencyEdit, dxPSCore, uDADataTable, StdCtrls, uDAInterfaces; + cxCurrencyEdit, dxPSCore, uDADataTable, StdCtrls, uDAInterfaces, TBXDkPanels, + uCustomView, uViewBase, uViewParametrosControlGrid, uViewParametrosCentro, + TB2Dock; type IViewListaReferenciaGenerica = interface(IViewGrid) @@ -26,6 +28,10 @@ type procedure VerPendientes; procedure VerEnEspera; procedure VerResueltos; + + function GetItems: IBizReferenciaGenerica; + procedure SetItems(const Value: IBizReferenciaGenerica); + property Items: IBizReferenciaGenerica read GetItems write SetItems; end; TfrViewListaReferenciaGenerica = class(TfrViewGrid, IViewListaReferenciaGenerica) @@ -48,6 +54,11 @@ type cxStyleEnEspera1semana: TcxStyle; cxStyleResueltoRectificado: TcxStyle; cxGridViewColumn1: TcxGridDBColumn; + TBXDockablePanel1: TTBXDockablePanel; + frViewParametrosCentro1: TfrViewParametrosCentro; + TBXLabel1: TTBXLabel; + pnlAgrupaciones: TTBXAlignmentPanel; + TBXButton3: TTBXButton; procedure cxGridViewCellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); @@ -58,10 +69,20 @@ type Shift: TShiftState; X, Y: Integer); private FEstado : TRefGenEstado; + protected + FItems: IBizReferenciaGenerica; + function GetItems: IBizReferenciaGenerica; + procedure SetItems(const Value: IBizReferenciaGenerica); + public + property Items: IBizReferenciaGenerica read GetItems write SetItems; + + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; procedure VerPendientes; procedure VerEnEspera; procedure VerResueltos; + procedure Refresh; end; @@ -71,6 +92,13 @@ uses uDataModuleReferenciaGenerica, DateUtils, cxGridDBDataDefinitions; {$R *.dfm} +constructor TfrViewListaReferenciaGenerica.Create(AOwner: TComponent); +begin + inherited; + FItems := Nil; + frViewParametrosCentro1.Refresh; +end; + procedure TfrViewListaReferenciaGenerica.cxGridViewCellDblClick( Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; @@ -142,6 +170,75 @@ begin end; end; +destructor TfrViewListaReferenciaGenerica.Destroy; +begin + FItems := Nil; + inherited; +end; + +function TfrViewListaReferenciaGenerica.GetItems: IBizReferenciaGenerica; +begin + Result := FItems; +end; + +procedure TfrViewListaReferenciaGenerica.Refresh; +var + ACentrosList : TStringList; + AWhereCentro : String; + AWhere : String; + i : integer; +begin + ACentrosList := Nil; + + if Assigned(FItems) then + Items.DataTable.Active := False; + ACentrosList := frViewParametrosCentro1.CentrosSeleccionados; + + ShowHourglassCursor; + try + if Assigned(ACentrosList) then + begin + AWhereCentro := ''; + if ACentrosList.Count = 0 then + begin + ShowMessage('Debe seleccionar al menos un centro en los parámetros de la consulta.'); + Exit; + end + else begin + AWhereCentro := AWhereCentro + ' FILIAL in ('; + for i := 0 to ACentrosList.Count - 1 do + begin + if i > 0 then + AWhereCentro := AWhereCentro + ', '; + AWhereCentro := AWhereCentro + '''' + ACentrosList[i] + ''''; + end; + AWhereCentro := AWhereCentro + ')'; + end; + end; + + AWhere := ''; + if AWhereCentro <> '' then + begin + AWhere := AWhere + AWhereCentro; + end; + +// Items.DataTable.Where.Clear; +// Items.DataTable.Where.AddText(AWhere, False); + Items.DataTable.Active := True; + + finally + HideHourglassCursor; + FreeAndNIL(ACentrosList); + end; +end; + +procedure TfrViewListaReferenciaGenerica.SetItems(const Value: IBizReferenciaGenerica); +begin + FItems := Value; + if Assigned(FItems) then + dsDataSource.DataTable := FItems.DataTable; +end; + procedure TfrViewListaReferenciaGenerica.cxGridViewMouseDown( Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); diff --git a/Source/Modulos/ReferenciaGenerica/Reglas/schReferenciaGenericaClient_Intf.pas b/Source/Modulos/ReferenciaGenerica/Reglas/schReferenciaGenericaClient_Intf.pas index 9210b56..7f0a794 100644 --- a/Source/Modulos/ReferenciaGenerica/Reglas/schReferenciaGenericaClient_Intf.pas +++ b/Source/Modulos/ReferenciaGenerica/Reglas/schReferenciaGenericaClient_Intf.pas @@ -3,16 +3,16 @@ unit schReferenciaGenericaClient_Intf; interface uses - Classes, DB, SysUtils, uROClasses, uDADataTable; + 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__ExisteFilaReferenciaGenerica = '{D1595576-9979-4EBB-840B-FF8B69E9AF21}'; - RID_InformeRefGenerica = '{C8CFA7EB-16B5-4AB4-A583-3EBD915B44B8}'; - RID_GetProducto = '{5D97B590-D22E-4D97-AFC6-400986B4D9FA}'; - RID_ReferenciaGenerica = '{A40BCD4C-E370-497D-8C28-118CBC1A3664}'; + RID__ExisteFilaReferenciaGenerica = '{EBF53A68-5E57-4EAC-997E-C030A9D77BE9}'; + RID_InformeRefGenerica = '{8EAF0E0E-4FDA-4C79-9EB8-B881C24D98BA}'; + RID_GetProducto = '{D81DBABF-987E-4988-BA1F-34E8CC1A6EF0}'; + RID_ReferenciaGenerica = '{F940A3EC-CB4C-4F81-8207-BF0A31ED6C0D}'; { Data table names } nme__ExisteFilaReferenciaGenerica = '_ExisteFilaReferenciaGenerica'; @@ -119,26 +119,41 @@ const type { I_ExisteFilaReferenciaGenerica } I_ExisteFilaReferenciaGenerica = interface(IDAStronglyTypedDataTable) - ['{98972C64-DAD7-4646-90BE-053EFD062BBF}'] + ['{91F75EF4-A2FB-4C6C-9423-D193C95D7DF6}'] { Property getters and setters } function GetNUMINFValue: String; procedure SetNUMINFValue(const aValue: String); + function GetNUMINFIsNull: Boolean; + procedure SetNUMINFIsNull(const aValue: Boolean); function GetCLAVE1Value: Float; procedure SetCLAVE1Value(const aValue: Float); + function GetCLAVE1IsNull: Boolean; + procedure SetCLAVE1IsNull(const aValue: Boolean); function GetCLAVE2Value: Integer; procedure SetCLAVE2Value(const aValue: Integer); + function GetCLAVE2IsNull: Boolean; + procedure SetCLAVE2IsNull(const aValue: Boolean); function GetCLAVE3Value: Integer; procedure SetCLAVE3Value(const aValue: Integer); + function GetCLAVE3IsNull: Boolean; + procedure SetCLAVE3IsNull(const aValue: Boolean); function GetNUMCONValue: Integer; procedure SetNUMCONValue(const aValue: Integer); + function GetNUMCONIsNull: Boolean; + procedure SetNUMCONIsNull(const aValue: Boolean); { Properties } property NUMINF: String read GetNUMINFValue write SetNUMINFValue; + property NUMINFIsNull: Boolean read GetNUMINFIsNull write SetNUMINFIsNull; property CLAVE1: Float read GetCLAVE1Value write SetCLAVE1Value; + property CLAVE1IsNull: Boolean read GetCLAVE1IsNull write SetCLAVE1IsNull; property CLAVE2: Integer read GetCLAVE2Value write SetCLAVE2Value; + property CLAVE2IsNull: Boolean read GetCLAVE2IsNull write SetCLAVE2IsNull; property CLAVE3: Integer read GetCLAVE3Value write SetCLAVE3Value; + property CLAVE3IsNull: Boolean read GetCLAVE3IsNull write SetCLAVE3IsNull; property NUMCON: Integer read GetNUMCONValue write SetNUMCONValue; + property NUMCONIsNull: Boolean read GetNUMCONIsNull write SetNUMCONIsNull; end; { T_ExisteFilaReferenciaGenericaDataTableRules } @@ -148,21 +163,36 @@ type { Property getters and setters } function GetNUMINFValue: String; virtual; procedure SetNUMINFValue(const aValue: String); virtual; + function GetNUMINFIsNull: Boolean; virtual; + procedure SetNUMINFIsNull(const aValue: Boolean); virtual; function GetCLAVE1Value: Float; virtual; procedure SetCLAVE1Value(const aValue: Float); virtual; + function GetCLAVE1IsNull: Boolean; virtual; + procedure SetCLAVE1IsNull(const aValue: Boolean); virtual; function GetCLAVE2Value: Integer; virtual; procedure SetCLAVE2Value(const aValue: Integer); virtual; + function GetCLAVE2IsNull: Boolean; virtual; + procedure SetCLAVE2IsNull(const aValue: Boolean); virtual; function GetCLAVE3Value: Integer; virtual; procedure SetCLAVE3Value(const aValue: Integer); virtual; + function GetCLAVE3IsNull: Boolean; virtual; + procedure SetCLAVE3IsNull(const aValue: Boolean); virtual; function GetNUMCONValue: Integer; virtual; procedure SetNUMCONValue(const aValue: Integer); virtual; + function GetNUMCONIsNull: Boolean; virtual; + procedure SetNUMCONIsNull(const aValue: Boolean); virtual; { Properties } property NUMINF: String read GetNUMINFValue write SetNUMINFValue; + property NUMINFIsNull: Boolean read GetNUMINFIsNull write SetNUMINFIsNull; property CLAVE1: Float read GetCLAVE1Value write SetCLAVE1Value; + property CLAVE1IsNull: Boolean read GetCLAVE1IsNull write SetCLAVE1IsNull; property CLAVE2: Integer read GetCLAVE2Value write SetCLAVE2Value; + property CLAVE2IsNull: Boolean read GetCLAVE2IsNull write SetCLAVE2IsNull; property CLAVE3: Integer read GetCLAVE3Value write SetCLAVE3Value; + property CLAVE3IsNull: Boolean read GetCLAVE3IsNull write SetCLAVE3IsNull; property NUMCON: Integer read GetNUMCONValue write SetNUMCONValue; + property NUMCONIsNull: Boolean read GetNUMCONIsNull write SetNUMCONIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -172,35 +202,59 @@ type { IInformeRefGenerica } IInformeRefGenerica = interface(IDAStronglyTypedDataTable) - ['{6AFE9984-0F66-4AC2-B5E7-87F3C48B81B9}'] + ['{0E01B29A-669B-45CC-9DDA-BC262E989813}'] { Property getters and setters } function GetCODCENTROValue: String; procedure SetCODCENTROValue(const aValue: String); + function GetCODCENTROIsNull: Boolean; + procedure SetCODCENTROIsNull(const aValue: Boolean); function GetCENTROValue: String; procedure SetCENTROValue(const aValue: String); + function GetCENTROIsNull: Boolean; + procedure SetCENTROIsNull(const aValue: Boolean); function GetCODVENDEDORValue: String; procedure SetCODVENDEDORValue(const aValue: String); + function GetCODVENDEDORIsNull: Boolean; + procedure SetCODVENDEDORIsNull(const aValue: Boolean); function GetVENDEDORValue: String; procedure SetVENDEDORValue(const aValue: String); + function GetVENDEDORIsNull: Boolean; + procedure SetVENDEDORIsNull(const aValue: Boolean); function GetFECHAValue: DateTime; procedure SetFECHAValue(const aValue: DateTime); + function GetFECHAIsNull: Boolean; + procedure SetFECHAIsNull(const aValue: Boolean); function GetNUMTALONValue: String; procedure SetNUMTALONValue(const aValue: String); + function GetNUMTALONIsNull: Boolean; + procedure SetNUMTALONIsNull(const aValue: Boolean); function GetCANTIDADValue: String; procedure SetCANTIDADValue(const aValue: String); + function GetCANTIDADIsNull: Boolean; + procedure SetCANTIDADIsNull(const aValue: Boolean); function GetVALTOTValue: Float; procedure SetVALTOTValue(const aValue: Float); + function GetVALTOTIsNull: Boolean; + procedure SetVALTOTIsNull(const aValue: Boolean); { Properties } property CODCENTRO: String read GetCODCENTROValue write SetCODCENTROValue; + property CODCENTROIsNull: Boolean read GetCODCENTROIsNull write SetCODCENTROIsNull; property CENTRO: String read GetCENTROValue write SetCENTROValue; + property CENTROIsNull: Boolean read GetCENTROIsNull write SetCENTROIsNull; property CODVENDEDOR: String read GetCODVENDEDORValue write SetCODVENDEDORValue; + property CODVENDEDORIsNull: Boolean read GetCODVENDEDORIsNull write SetCODVENDEDORIsNull; property VENDEDOR: String read GetVENDEDORValue write SetVENDEDORValue; + property VENDEDORIsNull: Boolean read GetVENDEDORIsNull write SetVENDEDORIsNull; property FECHA: DateTime read GetFECHAValue write SetFECHAValue; + property FECHAIsNull: Boolean read GetFECHAIsNull write SetFECHAIsNull; property NUMTALON: String read GetNUMTALONValue write SetNUMTALONValue; + property NUMTALONIsNull: Boolean read GetNUMTALONIsNull write SetNUMTALONIsNull; property CANTIDAD: String read GetCANTIDADValue write SetCANTIDADValue; + property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull; property VALTOT: Float read GetVALTOTValue write SetVALTOTValue; + property VALTOTIsNull: Boolean read GetVALTOTIsNull write SetVALTOTIsNull; end; { TInformeRefGenericaDataTableRules } @@ -210,30 +264,54 @@ type { Property getters and setters } function GetCODCENTROValue: String; virtual; procedure SetCODCENTROValue(const aValue: String); virtual; + function GetCODCENTROIsNull: Boolean; virtual; + procedure SetCODCENTROIsNull(const aValue: Boolean); virtual; function GetCENTROValue: String; virtual; procedure SetCENTROValue(const aValue: String); virtual; + function GetCENTROIsNull: Boolean; virtual; + procedure SetCENTROIsNull(const aValue: Boolean); virtual; function GetCODVENDEDORValue: String; virtual; procedure SetCODVENDEDORValue(const aValue: String); virtual; + function GetCODVENDEDORIsNull: Boolean; virtual; + procedure SetCODVENDEDORIsNull(const aValue: Boolean); virtual; function GetVENDEDORValue: String; virtual; procedure SetVENDEDORValue(const aValue: String); virtual; + function GetVENDEDORIsNull: Boolean; virtual; + procedure SetVENDEDORIsNull(const aValue: Boolean); virtual; function GetFECHAValue: DateTime; virtual; procedure SetFECHAValue(const aValue: DateTime); virtual; + function GetFECHAIsNull: Boolean; virtual; + procedure SetFECHAIsNull(const aValue: Boolean); virtual; function GetNUMTALONValue: String; virtual; procedure SetNUMTALONValue(const aValue: String); virtual; + function GetNUMTALONIsNull: Boolean; virtual; + procedure SetNUMTALONIsNull(const aValue: Boolean); virtual; function GetCANTIDADValue: String; virtual; procedure SetCANTIDADValue(const aValue: String); virtual; + function GetCANTIDADIsNull: Boolean; virtual; + procedure SetCANTIDADIsNull(const aValue: Boolean); virtual; function GetVALTOTValue: Float; virtual; procedure SetVALTOTValue(const aValue: Float); virtual; + function GetVALTOTIsNull: Boolean; virtual; + procedure SetVALTOTIsNull(const aValue: Boolean); virtual; { Properties } property CODCENTRO: String read GetCODCENTROValue write SetCODCENTROValue; + property CODCENTROIsNull: Boolean read GetCODCENTROIsNull write SetCODCENTROIsNull; property CENTRO: String read GetCENTROValue write SetCENTROValue; + property CENTROIsNull: Boolean read GetCENTROIsNull write SetCENTROIsNull; property CODVENDEDOR: String read GetCODVENDEDORValue write SetCODVENDEDORValue; + property CODVENDEDORIsNull: Boolean read GetCODVENDEDORIsNull write SetCODVENDEDORIsNull; property VENDEDOR: String read GetVENDEDORValue write SetVENDEDORValue; + property VENDEDORIsNull: Boolean read GetVENDEDORIsNull write SetVENDEDORIsNull; property FECHA: DateTime read GetFECHAValue write SetFECHAValue; + property FECHAIsNull: Boolean read GetFECHAIsNull write SetFECHAIsNull; property NUMTALON: String read GetNUMTALONValue write SetNUMTALONValue; + property NUMTALONIsNull: Boolean read GetNUMTALONIsNull write SetNUMTALONIsNull; property CANTIDAD: String read GetCANTIDADValue write SetCANTIDADValue; + property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull; property VALTOT: Float read GetVALTOTValue write SetVALTOTValue; + property VALTOTIsNull: Boolean read GetVALTOTIsNull write SetVALTOTIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -246,26 +324,41 @@ type } { IGetProducto } IGetProducto = interface(IDAStronglyTypedDataTable) - ['{66AEFCA5-9C07-41F0-A81B-9A0965270310}'] + ['{59B0B7BE-94F9-4EB1-B5FA-3E5C8F4A151A}'] { Property getters and setters } function GetCODIGO_BARRAValue: String; procedure SetCODIGO_BARRAValue(const aValue: String); + function GetCODIGO_BARRAIsNull: Boolean; + procedure SetCODIGO_BARRAIsNull(const aValue: Boolean); function GetCOR_PRODUTOValue: String; procedure SetCOR_PRODUTOValue(const aValue: String); + function GetCOR_PRODUTOIsNull: Boolean; + procedure SetCOR_PRODUTOIsNull(const aValue: Boolean); function GetDESC_PRODUTOValue: String; procedure SetDESC_PRODUTOValue(const aValue: String); + function GetDESC_PRODUTOIsNull: Boolean; + procedure SetDESC_PRODUTOIsNull(const aValue: Boolean); function GetPRODUTOValue: String; procedure SetPRODUTOValue(const aValue: String); + function GetPRODUTOIsNull: Boolean; + procedure SetPRODUTOIsNull(const aValue: Boolean); function GetGRADEValue: String; procedure SetGRADEValue(const aValue: String); + function GetGRADEIsNull: Boolean; + procedure SetGRADEIsNull(const aValue: Boolean); { Properties } property CODIGO_BARRA: String read GetCODIGO_BARRAValue write SetCODIGO_BARRAValue; + property CODIGO_BARRAIsNull: Boolean read GetCODIGO_BARRAIsNull write SetCODIGO_BARRAIsNull; property COR_PRODUTO: String read GetCOR_PRODUTOValue write SetCOR_PRODUTOValue; + property COR_PRODUTOIsNull: Boolean read GetCOR_PRODUTOIsNull write SetCOR_PRODUTOIsNull; property DESC_PRODUTO: String read GetDESC_PRODUTOValue write SetDESC_PRODUTOValue; + property DESC_PRODUTOIsNull: Boolean read GetDESC_PRODUTOIsNull write SetDESC_PRODUTOIsNull; property PRODUTO: String read GetPRODUTOValue write SetPRODUTOValue; + property PRODUTOIsNull: Boolean read GetPRODUTOIsNull write SetPRODUTOIsNull; property GRADE: String read GetGRADEValue write SetGRADEValue; + property GRADEIsNull: Boolean read GetGRADEIsNull write SetGRADEIsNull; end; { TGetProductoDataTableRules } @@ -275,21 +368,36 @@ type { Property getters and setters } function GetCODIGO_BARRAValue: String; virtual; procedure SetCODIGO_BARRAValue(const aValue: String); virtual; + function GetCODIGO_BARRAIsNull: Boolean; virtual; + procedure SetCODIGO_BARRAIsNull(const aValue: Boolean); virtual; function GetCOR_PRODUTOValue: String; virtual; procedure SetCOR_PRODUTOValue(const aValue: String); virtual; + function GetCOR_PRODUTOIsNull: Boolean; virtual; + procedure SetCOR_PRODUTOIsNull(const aValue: Boolean); virtual; function GetDESC_PRODUTOValue: String; virtual; procedure SetDESC_PRODUTOValue(const aValue: String); virtual; + function GetDESC_PRODUTOIsNull: Boolean; virtual; + procedure SetDESC_PRODUTOIsNull(const aValue: Boolean); virtual; function GetPRODUTOValue: String; virtual; procedure SetPRODUTOValue(const aValue: String); virtual; + function GetPRODUTOIsNull: Boolean; virtual; + procedure SetPRODUTOIsNull(const aValue: Boolean); virtual; function GetGRADEValue: String; virtual; procedure SetGRADEValue(const aValue: String); virtual; + function GetGRADEIsNull: Boolean; virtual; + procedure SetGRADEIsNull(const aValue: Boolean); virtual; { Properties } property CODIGO_BARRA: String read GetCODIGO_BARRAValue write SetCODIGO_BARRAValue; + property CODIGO_BARRAIsNull: Boolean read GetCODIGO_BARRAIsNull write SetCODIGO_BARRAIsNull; property COR_PRODUTO: String read GetCOR_PRODUTOValue write SetCOR_PRODUTOValue; + property COR_PRODUTOIsNull: Boolean read GetCOR_PRODUTOIsNull write SetCOR_PRODUTOIsNull; property DESC_PRODUTO: String read GetDESC_PRODUTOValue write SetDESC_PRODUTOValue; + property DESC_PRODUTOIsNull: Boolean read GetDESC_PRODUTOIsNull write SetDESC_PRODUTOIsNull; property PRODUTO: String read GetPRODUTOValue write SetPRODUTOValue; + property PRODUTOIsNull: Boolean read GetPRODUTOIsNull write SetPRODUTOIsNull; property GRADE: String read GetGRADEValue write SetGRADEValue; + property GRADEIsNull: Boolean read GetGRADEIsNull write SetGRADEIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -299,77 +407,143 @@ type { IReferenciaGenerica } IReferenciaGenerica = interface(IDAStronglyTypedDataTable) - ['{0D8DB24C-6B9C-4DBA-8B26-D007BD14ED85}'] + ['{BD898F5A-34C8-48CF-97F4-AC215575085C}'] { Property getters and setters } function GetNUMINFValue: String; procedure SetNUMINFValue(const aValue: String); + function GetNUMINFIsNull: Boolean; + procedure SetNUMINFIsNull(const aValue: Boolean); function GetCLAVE1Value: Float; procedure SetCLAVE1Value(const aValue: Float); + function GetCLAVE1IsNull: Boolean; + procedure SetCLAVE1IsNull(const aValue: Boolean); function GetCLAVE2Value: Integer; procedure SetCLAVE2Value(const aValue: Integer); + function GetCLAVE2IsNull: Boolean; + procedure SetCLAVE2IsNull(const aValue: Boolean); function GetCLAVE3Value: Integer; procedure SetCLAVE3Value(const aValue: Integer); + function GetCLAVE3IsNull: Boolean; + procedure SetCLAVE3IsNull(const aValue: Boolean); function GetNUMCONValue: Integer; procedure SetNUMCONValue(const aValue: Integer); + function GetNUMCONIsNull: Boolean; + procedure SetNUMCONIsNull(const aValue: Boolean); function GetFECHAValue: DateTime; procedure SetFECHAValue(const aValue: DateTime); + function GetFECHAIsNull: Boolean; + procedure SetFECHAIsNull(const aValue: Boolean); function GetCODCENTROValue: String; procedure SetCODCENTROValue(const aValue: String); + function GetCODCENTROIsNull: Boolean; + procedure SetCODCENTROIsNull(const aValue: Boolean); function GetCENTROValue: String; procedure SetCENTROValue(const aValue: String); + function GetCENTROIsNull: Boolean; + procedure SetCENTROIsNull(const aValue: Boolean); function GetCODVENDEDORValue: String; procedure SetCODVENDEDORValue(const aValue: String); + function GetCODVENDEDORIsNull: Boolean; + procedure SetCODVENDEDORIsNull(const aValue: Boolean); function GetVENDEDORValue: String; procedure SetVENDEDORValue(const aValue: String); + function GetVENDEDORIsNull: Boolean; + procedure SetVENDEDORIsNull(const aValue: Boolean); function GetNUMTALONValue: String; procedure SetNUMTALONValue(const aValue: String); + function GetNUMTALONIsNull: Boolean; + procedure SetNUMTALONIsNull(const aValue: Boolean); function GetCODIGO_BARRAValue: String; procedure SetCODIGO_BARRAValue(const aValue: String); + function GetCODIGO_BARRAIsNull: Boolean; + procedure SetCODIGO_BARRAIsNull(const aValue: Boolean); function GetCODIGOValue: String; procedure SetCODIGOValue(const aValue: String); + function GetCODIGOIsNull: Boolean; + procedure SetCODIGOIsNull(const aValue: Boolean); function GetPRODUCTOValue: String; procedure SetPRODUCTOValue(const aValue: String); + function GetPRODUCTOIsNull: Boolean; + procedure SetPRODUCTOIsNull(const aValue: Boolean); function GetCOLORValue: String; procedure SetCOLORValue(const aValue: String); + function GetCOLORIsNull: Boolean; + procedure SetCOLORIsNull(const aValue: Boolean); function GetTALLAValue: String; procedure SetTALLAValue(const aValue: String); + function GetTALLAIsNull: Boolean; + procedure SetTALLAIsNull(const aValue: Boolean); function GetVTAPROCESOValue: Float; procedure SetVTAPROCESOValue(const aValue: Float); + function GetVTAPROCESOIsNull: Boolean; + procedure SetVTAPROCESOIsNull(const aValue: Boolean); function GetVTAFINALValue: Float; procedure SetVTAFINALValue(const aValue: Float); + function GetVTAFINALIsNull: Boolean; + procedure SetVTAFINALIsNull(const aValue: Boolean); function GetVTATERMValue: Float; procedure SetVTATERMValue(const aValue: Float); + function GetVTATERMIsNull: Boolean; + procedure SetVTATERMIsNull(const aValue: Boolean); function GetVALTOTValue: Float; procedure SetVALTOTValue(const aValue: Float); + function GetVALTOTIsNull: Boolean; + procedure SetVALTOTIsNull(const aValue: Boolean); function GetESTADOValue: String; procedure SetESTADOValue(const aValue: String); + function GetESTADOIsNull: Boolean; + procedure SetESTADOIsNull(const aValue: Boolean); function GetFECHACAMBIOValue: DateTime; procedure SetFECHACAMBIOValue(const aValue: DateTime); + function GetFECHACAMBIOIsNull: Boolean; + procedure SetFECHACAMBIOIsNull(const aValue: Boolean); { Properties } property NUMINF: String read GetNUMINFValue write SetNUMINFValue; + property NUMINFIsNull: Boolean read GetNUMINFIsNull write SetNUMINFIsNull; property CLAVE1: Float read GetCLAVE1Value write SetCLAVE1Value; + property CLAVE1IsNull: Boolean read GetCLAVE1IsNull write SetCLAVE1IsNull; property CLAVE2: Integer read GetCLAVE2Value write SetCLAVE2Value; + property CLAVE2IsNull: Boolean read GetCLAVE2IsNull write SetCLAVE2IsNull; property CLAVE3: Integer read GetCLAVE3Value write SetCLAVE3Value; + property CLAVE3IsNull: Boolean read GetCLAVE3IsNull write SetCLAVE3IsNull; property NUMCON: Integer read GetNUMCONValue write SetNUMCONValue; + property NUMCONIsNull: Boolean read GetNUMCONIsNull write SetNUMCONIsNull; property FECHA: DateTime read GetFECHAValue write SetFECHAValue; + property FECHAIsNull: Boolean read GetFECHAIsNull write SetFECHAIsNull; property CODCENTRO: String read GetCODCENTROValue write SetCODCENTROValue; + property CODCENTROIsNull: Boolean read GetCODCENTROIsNull write SetCODCENTROIsNull; property CENTRO: String read GetCENTROValue write SetCENTROValue; + property CENTROIsNull: Boolean read GetCENTROIsNull write SetCENTROIsNull; property CODVENDEDOR: String read GetCODVENDEDORValue write SetCODVENDEDORValue; + property CODVENDEDORIsNull: Boolean read GetCODVENDEDORIsNull write SetCODVENDEDORIsNull; property VENDEDOR: String read GetVENDEDORValue write SetVENDEDORValue; + property VENDEDORIsNull: Boolean read GetVENDEDORIsNull write SetVENDEDORIsNull; property NUMTALON: String read GetNUMTALONValue write SetNUMTALONValue; + property NUMTALONIsNull: Boolean read GetNUMTALONIsNull write SetNUMTALONIsNull; property CODIGO_BARRA: String read GetCODIGO_BARRAValue write SetCODIGO_BARRAValue; + property CODIGO_BARRAIsNull: Boolean read GetCODIGO_BARRAIsNull write SetCODIGO_BARRAIsNull; property CODIGO: String read GetCODIGOValue write SetCODIGOValue; + property CODIGOIsNull: Boolean read GetCODIGOIsNull write SetCODIGOIsNull; property PRODUCTO: String read GetPRODUCTOValue write SetPRODUCTOValue; + property PRODUCTOIsNull: Boolean read GetPRODUCTOIsNull write SetPRODUCTOIsNull; property COLOR: String read GetCOLORValue write SetCOLORValue; + property COLORIsNull: Boolean read GetCOLORIsNull write SetCOLORIsNull; property TALLA: String read GetTALLAValue write SetTALLAValue; + property TALLAIsNull: Boolean read GetTALLAIsNull write SetTALLAIsNull; property VTAPROCESO: Float read GetVTAPROCESOValue write SetVTAPROCESOValue; + property VTAPROCESOIsNull: Boolean read GetVTAPROCESOIsNull write SetVTAPROCESOIsNull; property VTAFINAL: Float read GetVTAFINALValue write SetVTAFINALValue; + property VTAFINALIsNull: Boolean read GetVTAFINALIsNull write SetVTAFINALIsNull; property VTATERM: Float read GetVTATERMValue write SetVTATERMValue; + property VTATERMIsNull: Boolean read GetVTATERMIsNull write SetVTATERMIsNull; property VALTOT: Float read GetVALTOTValue write SetVALTOTValue; + property VALTOTIsNull: Boolean read GetVALTOTIsNull write SetVALTOTIsNull; property ESTADO: String read GetESTADOValue write SetESTADOValue; + property ESTADOIsNull: Boolean read GetESTADOIsNull write SetESTADOIsNull; property FECHACAMBIO: DateTime read GetFECHACAMBIOValue write SetFECHACAMBIOValue; + property FECHACAMBIOIsNull: Boolean read GetFECHACAMBIOIsNull write SetFECHACAMBIOIsNull; end; { TReferenciaGenericaDataTableRules } @@ -379,72 +553,138 @@ type { Property getters and setters } function GetNUMINFValue: String; virtual; procedure SetNUMINFValue(const aValue: String); virtual; + function GetNUMINFIsNull: Boolean; virtual; + procedure SetNUMINFIsNull(const aValue: Boolean); virtual; function GetCLAVE1Value: Float; virtual; procedure SetCLAVE1Value(const aValue: Float); virtual; + function GetCLAVE1IsNull: Boolean; virtual; + procedure SetCLAVE1IsNull(const aValue: Boolean); virtual; function GetCLAVE2Value: Integer; virtual; procedure SetCLAVE2Value(const aValue: Integer); virtual; + function GetCLAVE2IsNull: Boolean; virtual; + procedure SetCLAVE2IsNull(const aValue: Boolean); virtual; function GetCLAVE3Value: Integer; virtual; procedure SetCLAVE3Value(const aValue: Integer); virtual; + function GetCLAVE3IsNull: Boolean; virtual; + procedure SetCLAVE3IsNull(const aValue: Boolean); virtual; function GetNUMCONValue: Integer; virtual; procedure SetNUMCONValue(const aValue: Integer); virtual; + function GetNUMCONIsNull: Boolean; virtual; + procedure SetNUMCONIsNull(const aValue: Boolean); virtual; function GetFECHAValue: DateTime; virtual; procedure SetFECHAValue(const aValue: DateTime); virtual; + function GetFECHAIsNull: Boolean; virtual; + procedure SetFECHAIsNull(const aValue: Boolean); virtual; function GetCODCENTROValue: String; virtual; procedure SetCODCENTROValue(const aValue: String); virtual; + function GetCODCENTROIsNull: Boolean; virtual; + procedure SetCODCENTROIsNull(const aValue: Boolean); virtual; function GetCENTROValue: String; virtual; procedure SetCENTROValue(const aValue: String); virtual; + function GetCENTROIsNull: Boolean; virtual; + procedure SetCENTROIsNull(const aValue: Boolean); virtual; function GetCODVENDEDORValue: String; virtual; procedure SetCODVENDEDORValue(const aValue: String); virtual; + function GetCODVENDEDORIsNull: Boolean; virtual; + procedure SetCODVENDEDORIsNull(const aValue: Boolean); virtual; function GetVENDEDORValue: String; virtual; procedure SetVENDEDORValue(const aValue: String); virtual; + function GetVENDEDORIsNull: Boolean; virtual; + procedure SetVENDEDORIsNull(const aValue: Boolean); virtual; function GetNUMTALONValue: String; virtual; procedure SetNUMTALONValue(const aValue: String); virtual; + function GetNUMTALONIsNull: Boolean; virtual; + procedure SetNUMTALONIsNull(const aValue: Boolean); virtual; function GetCODIGO_BARRAValue: String; virtual; procedure SetCODIGO_BARRAValue(const aValue: String); virtual; + function GetCODIGO_BARRAIsNull: Boolean; virtual; + procedure SetCODIGO_BARRAIsNull(const aValue: Boolean); virtual; function GetCODIGOValue: String; virtual; procedure SetCODIGOValue(const aValue: String); virtual; + function GetCODIGOIsNull: Boolean; virtual; + procedure SetCODIGOIsNull(const aValue: Boolean); virtual; function GetPRODUCTOValue: String; virtual; procedure SetPRODUCTOValue(const aValue: String); virtual; + function GetPRODUCTOIsNull: Boolean; virtual; + procedure SetPRODUCTOIsNull(const aValue: Boolean); virtual; function GetCOLORValue: String; virtual; procedure SetCOLORValue(const aValue: String); virtual; + function GetCOLORIsNull: Boolean; virtual; + procedure SetCOLORIsNull(const aValue: Boolean); virtual; function GetTALLAValue: String; virtual; procedure SetTALLAValue(const aValue: String); virtual; + function GetTALLAIsNull: Boolean; virtual; + procedure SetTALLAIsNull(const aValue: Boolean); virtual; function GetVTAPROCESOValue: Float; virtual; procedure SetVTAPROCESOValue(const aValue: Float); virtual; + function GetVTAPROCESOIsNull: Boolean; virtual; + procedure SetVTAPROCESOIsNull(const aValue: Boolean); virtual; function GetVTAFINALValue: Float; virtual; procedure SetVTAFINALValue(const aValue: Float); virtual; + function GetVTAFINALIsNull: Boolean; virtual; + procedure SetVTAFINALIsNull(const aValue: Boolean); virtual; function GetVTATERMValue: Float; virtual; procedure SetVTATERMValue(const aValue: Float); virtual; + function GetVTATERMIsNull: Boolean; virtual; + procedure SetVTATERMIsNull(const aValue: Boolean); virtual; function GetVALTOTValue: Float; virtual; procedure SetVALTOTValue(const aValue: Float); virtual; + function GetVALTOTIsNull: Boolean; virtual; + procedure SetVALTOTIsNull(const aValue: Boolean); virtual; function GetESTADOValue: String; virtual; procedure SetESTADOValue(const aValue: String); virtual; + function GetESTADOIsNull: Boolean; virtual; + procedure SetESTADOIsNull(const aValue: Boolean); virtual; function GetFECHACAMBIOValue: DateTime; virtual; procedure SetFECHACAMBIOValue(const aValue: DateTime); virtual; + function GetFECHACAMBIOIsNull: Boolean; virtual; + procedure SetFECHACAMBIOIsNull(const aValue: Boolean); virtual; { Properties } property NUMINF: String read GetNUMINFValue write SetNUMINFValue; + property NUMINFIsNull: Boolean read GetNUMINFIsNull write SetNUMINFIsNull; property CLAVE1: Float read GetCLAVE1Value write SetCLAVE1Value; + property CLAVE1IsNull: Boolean read GetCLAVE1IsNull write SetCLAVE1IsNull; property CLAVE2: Integer read GetCLAVE2Value write SetCLAVE2Value; + property CLAVE2IsNull: Boolean read GetCLAVE2IsNull write SetCLAVE2IsNull; property CLAVE3: Integer read GetCLAVE3Value write SetCLAVE3Value; + property CLAVE3IsNull: Boolean read GetCLAVE3IsNull write SetCLAVE3IsNull; property NUMCON: Integer read GetNUMCONValue write SetNUMCONValue; + property NUMCONIsNull: Boolean read GetNUMCONIsNull write SetNUMCONIsNull; property FECHA: DateTime read GetFECHAValue write SetFECHAValue; + property FECHAIsNull: Boolean read GetFECHAIsNull write SetFECHAIsNull; property CODCENTRO: String read GetCODCENTROValue write SetCODCENTROValue; + property CODCENTROIsNull: Boolean read GetCODCENTROIsNull write SetCODCENTROIsNull; property CENTRO: String read GetCENTROValue write SetCENTROValue; + property CENTROIsNull: Boolean read GetCENTROIsNull write SetCENTROIsNull; property CODVENDEDOR: String read GetCODVENDEDORValue write SetCODVENDEDORValue; + property CODVENDEDORIsNull: Boolean read GetCODVENDEDORIsNull write SetCODVENDEDORIsNull; property VENDEDOR: String read GetVENDEDORValue write SetVENDEDORValue; + property VENDEDORIsNull: Boolean read GetVENDEDORIsNull write SetVENDEDORIsNull; property NUMTALON: String read GetNUMTALONValue write SetNUMTALONValue; + property NUMTALONIsNull: Boolean read GetNUMTALONIsNull write SetNUMTALONIsNull; property CODIGO_BARRA: String read GetCODIGO_BARRAValue write SetCODIGO_BARRAValue; + property CODIGO_BARRAIsNull: Boolean read GetCODIGO_BARRAIsNull write SetCODIGO_BARRAIsNull; property CODIGO: String read GetCODIGOValue write SetCODIGOValue; + property CODIGOIsNull: Boolean read GetCODIGOIsNull write SetCODIGOIsNull; property PRODUCTO: String read GetPRODUCTOValue write SetPRODUCTOValue; + property PRODUCTOIsNull: Boolean read GetPRODUCTOIsNull write SetPRODUCTOIsNull; property COLOR: String read GetCOLORValue write SetCOLORValue; + property COLORIsNull: Boolean read GetCOLORIsNull write SetCOLORIsNull; property TALLA: String read GetTALLAValue write SetTALLAValue; + property TALLAIsNull: Boolean read GetTALLAIsNull write SetTALLAIsNull; property VTAPROCESO: Float read GetVTAPROCESOValue write SetVTAPROCESOValue; + property VTAPROCESOIsNull: Boolean read GetVTAPROCESOIsNull write SetVTAPROCESOIsNull; property VTAFINAL: Float read GetVTAFINALValue write SetVTAFINALValue; + property VTAFINALIsNull: Boolean read GetVTAFINALIsNull write SetVTAFINALIsNull; property VTATERM: Float read GetVTATERMValue write SetVTATERMValue; + property VTATERMIsNull: Boolean read GetVTATERMIsNull write SetVTATERMIsNull; property VALTOT: Float read GetVALTOTValue write SetVALTOTValue; + property VALTOTIsNull: Boolean read GetVALTOTIsNull write SetVALTOTIsNull; property ESTADO: String read GetESTADOValue write SetESTADOValue; + property ESTADOIsNull: Boolean read GetESTADOIsNull write SetESTADOIsNull; property FECHACAMBIO: DateTime read GetFECHACAMBIOValue write SetFECHACAMBIOValue; + property FECHACAMBIOIsNull: Boolean read GetFECHACAMBIOIsNull write SetFECHACAMBIOIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -454,7 +694,7 @@ type implementation -uses Variants; +uses Variants, uROBinaryHelpers; { T_ExisteFilaReferenciaGenericaDataTableRules } constructor T_ExisteFilaReferenciaGenericaDataTableRules.Create(aDataTable: TDADataTable); @@ -477,6 +717,17 @@ begin DataTable.Fields[idx__ExisteFilaReferenciaGenericaNUMINF].AsString := aValue; end; +function T_ExisteFilaReferenciaGenericaDataTableRules.GetNUMINFIsNull: boolean; +begin + result := DataTable.Fields[idx__ExisteFilaReferenciaGenericaNUMINF].IsNull; +end; + +procedure T_ExisteFilaReferenciaGenericaDataTableRules.SetNUMINFIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx__ExisteFilaReferenciaGenericaNUMINF].AsVariant := Null; +end; + function T_ExisteFilaReferenciaGenericaDataTableRules.GetCLAVE1Value: Float; begin result := DataTable.Fields[idx__ExisteFilaReferenciaGenericaCLAVE1].AsFloat; @@ -487,6 +738,17 @@ begin DataTable.Fields[idx__ExisteFilaReferenciaGenericaCLAVE1].AsFloat := aValue; end; +function T_ExisteFilaReferenciaGenericaDataTableRules.GetCLAVE1IsNull: boolean; +begin + result := DataTable.Fields[idx__ExisteFilaReferenciaGenericaCLAVE1].IsNull; +end; + +procedure T_ExisteFilaReferenciaGenericaDataTableRules.SetCLAVE1IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx__ExisteFilaReferenciaGenericaCLAVE1].AsVariant := Null; +end; + function T_ExisteFilaReferenciaGenericaDataTableRules.GetCLAVE2Value: Integer; begin result := DataTable.Fields[idx__ExisteFilaReferenciaGenericaCLAVE2].AsInteger; @@ -497,6 +759,17 @@ begin DataTable.Fields[idx__ExisteFilaReferenciaGenericaCLAVE2].AsInteger := aValue; end; +function T_ExisteFilaReferenciaGenericaDataTableRules.GetCLAVE2IsNull: boolean; +begin + result := DataTable.Fields[idx__ExisteFilaReferenciaGenericaCLAVE2].IsNull; +end; + +procedure T_ExisteFilaReferenciaGenericaDataTableRules.SetCLAVE2IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx__ExisteFilaReferenciaGenericaCLAVE2].AsVariant := Null; +end; + function T_ExisteFilaReferenciaGenericaDataTableRules.GetCLAVE3Value: Integer; begin result := DataTable.Fields[idx__ExisteFilaReferenciaGenericaCLAVE3].AsInteger; @@ -507,6 +780,17 @@ begin DataTable.Fields[idx__ExisteFilaReferenciaGenericaCLAVE3].AsInteger := aValue; end; +function T_ExisteFilaReferenciaGenericaDataTableRules.GetCLAVE3IsNull: boolean; +begin + result := DataTable.Fields[idx__ExisteFilaReferenciaGenericaCLAVE3].IsNull; +end; + +procedure T_ExisteFilaReferenciaGenericaDataTableRules.SetCLAVE3IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx__ExisteFilaReferenciaGenericaCLAVE3].AsVariant := Null; +end; + function T_ExisteFilaReferenciaGenericaDataTableRules.GetNUMCONValue: Integer; begin result := DataTable.Fields[idx__ExisteFilaReferenciaGenericaNUMCON].AsInteger; @@ -517,6 +801,17 @@ begin DataTable.Fields[idx__ExisteFilaReferenciaGenericaNUMCON].AsInteger := aValue; end; +function T_ExisteFilaReferenciaGenericaDataTableRules.GetNUMCONIsNull: boolean; +begin + result := DataTable.Fields[idx__ExisteFilaReferenciaGenericaNUMCON].IsNull; +end; + +procedure T_ExisteFilaReferenciaGenericaDataTableRules.SetNUMCONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx__ExisteFilaReferenciaGenericaNUMCON].AsVariant := Null; +end; + { TInformeRefGenericaDataTableRules } constructor TInformeRefGenericaDataTableRules.Create(aDataTable: TDADataTable); @@ -539,6 +834,17 @@ begin DataTable.Fields[idx_InformeRefGenericaCODCENTRO].AsString := aValue; end; +function TInformeRefGenericaDataTableRules.GetCODCENTROIsNull: boolean; +begin + result := DataTable.Fields[idx_InformeRefGenericaCODCENTRO].IsNull; +end; + +procedure TInformeRefGenericaDataTableRules.SetCODCENTROIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_InformeRefGenericaCODCENTRO].AsVariant := Null; +end; + function TInformeRefGenericaDataTableRules.GetCENTROValue: String; begin result := DataTable.Fields[idx_InformeRefGenericaCENTRO].AsString; @@ -549,6 +855,17 @@ begin DataTable.Fields[idx_InformeRefGenericaCENTRO].AsString := aValue; end; +function TInformeRefGenericaDataTableRules.GetCENTROIsNull: boolean; +begin + result := DataTable.Fields[idx_InformeRefGenericaCENTRO].IsNull; +end; + +procedure TInformeRefGenericaDataTableRules.SetCENTROIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_InformeRefGenericaCENTRO].AsVariant := Null; +end; + function TInformeRefGenericaDataTableRules.GetCODVENDEDORValue: String; begin result := DataTable.Fields[idx_InformeRefGenericaCODVENDEDOR].AsString; @@ -559,6 +876,17 @@ begin DataTable.Fields[idx_InformeRefGenericaCODVENDEDOR].AsString := aValue; end; +function TInformeRefGenericaDataTableRules.GetCODVENDEDORIsNull: boolean; +begin + result := DataTable.Fields[idx_InformeRefGenericaCODVENDEDOR].IsNull; +end; + +procedure TInformeRefGenericaDataTableRules.SetCODVENDEDORIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_InformeRefGenericaCODVENDEDOR].AsVariant := Null; +end; + function TInformeRefGenericaDataTableRules.GetVENDEDORValue: String; begin result := DataTable.Fields[idx_InformeRefGenericaVENDEDOR].AsString; @@ -569,6 +897,17 @@ begin DataTable.Fields[idx_InformeRefGenericaVENDEDOR].AsString := aValue; end; +function TInformeRefGenericaDataTableRules.GetVENDEDORIsNull: boolean; +begin + result := DataTable.Fields[idx_InformeRefGenericaVENDEDOR].IsNull; +end; + +procedure TInformeRefGenericaDataTableRules.SetVENDEDORIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_InformeRefGenericaVENDEDOR].AsVariant := Null; +end; + function TInformeRefGenericaDataTableRules.GetFECHAValue: DateTime; begin result := DataTable.Fields[idx_InformeRefGenericaFECHA].AsDateTime; @@ -579,6 +918,17 @@ begin DataTable.Fields[idx_InformeRefGenericaFECHA].AsDateTime := aValue; end; +function TInformeRefGenericaDataTableRules.GetFECHAIsNull: boolean; +begin + result := DataTable.Fields[idx_InformeRefGenericaFECHA].IsNull; +end; + +procedure TInformeRefGenericaDataTableRules.SetFECHAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_InformeRefGenericaFECHA].AsVariant := Null; +end; + function TInformeRefGenericaDataTableRules.GetNUMTALONValue: String; begin result := DataTable.Fields[idx_InformeRefGenericaNUMTALON].AsString; @@ -589,6 +939,17 @@ begin DataTable.Fields[idx_InformeRefGenericaNUMTALON].AsString := aValue; end; +function TInformeRefGenericaDataTableRules.GetNUMTALONIsNull: boolean; +begin + result := DataTable.Fields[idx_InformeRefGenericaNUMTALON].IsNull; +end; + +procedure TInformeRefGenericaDataTableRules.SetNUMTALONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_InformeRefGenericaNUMTALON].AsVariant := Null; +end; + function TInformeRefGenericaDataTableRules.GetCANTIDADValue: String; begin result := DataTable.Fields[idx_InformeRefGenericaCANTIDAD].AsString; @@ -599,6 +960,17 @@ begin DataTable.Fields[idx_InformeRefGenericaCANTIDAD].AsString := aValue; end; +function TInformeRefGenericaDataTableRules.GetCANTIDADIsNull: boolean; +begin + result := DataTable.Fields[idx_InformeRefGenericaCANTIDAD].IsNull; +end; + +procedure TInformeRefGenericaDataTableRules.SetCANTIDADIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_InformeRefGenericaCANTIDAD].AsVariant := Null; +end; + function TInformeRefGenericaDataTableRules.GetVALTOTValue: Float; begin result := DataTable.Fields[idx_InformeRefGenericaVALTOT].AsFloat; @@ -609,6 +981,17 @@ begin DataTable.Fields[idx_InformeRefGenericaVALTOT].AsFloat := aValue; end; +function TInformeRefGenericaDataTableRules.GetVALTOTIsNull: boolean; +begin + result := DataTable.Fields[idx_InformeRefGenericaVALTOT].IsNull; +end; + +procedure TInformeRefGenericaDataTableRules.SetVALTOTIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_InformeRefGenericaVALTOT].AsVariant := Null; +end; + { TGetProductoDataTableRules } constructor TGetProductoDataTableRules.Create(aDataTable: TDADataTable); @@ -631,6 +1014,17 @@ begin DataTable.Fields[idx_GetProductoCODIGO_BARRA].AsString := aValue; end; +function TGetProductoDataTableRules.GetCODIGO_BARRAIsNull: boolean; +begin + result := DataTable.Fields[idx_GetProductoCODIGO_BARRA].IsNull; +end; + +procedure TGetProductoDataTableRules.SetCODIGO_BARRAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_GetProductoCODIGO_BARRA].AsVariant := Null; +end; + function TGetProductoDataTableRules.GetCOR_PRODUTOValue: String; begin result := DataTable.Fields[idx_GetProductoCOR_PRODUTO].AsString; @@ -641,6 +1035,17 @@ begin DataTable.Fields[idx_GetProductoCOR_PRODUTO].AsString := aValue; end; +function TGetProductoDataTableRules.GetCOR_PRODUTOIsNull: boolean; +begin + result := DataTable.Fields[idx_GetProductoCOR_PRODUTO].IsNull; +end; + +procedure TGetProductoDataTableRules.SetCOR_PRODUTOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_GetProductoCOR_PRODUTO].AsVariant := Null; +end; + function TGetProductoDataTableRules.GetDESC_PRODUTOValue: String; begin result := DataTable.Fields[idx_GetProductoDESC_PRODUTO].AsString; @@ -651,6 +1056,17 @@ begin DataTable.Fields[idx_GetProductoDESC_PRODUTO].AsString := aValue; end; +function TGetProductoDataTableRules.GetDESC_PRODUTOIsNull: boolean; +begin + result := DataTable.Fields[idx_GetProductoDESC_PRODUTO].IsNull; +end; + +procedure TGetProductoDataTableRules.SetDESC_PRODUTOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_GetProductoDESC_PRODUTO].AsVariant := Null; +end; + function TGetProductoDataTableRules.GetPRODUTOValue: String; begin result := DataTable.Fields[idx_GetProductoPRODUTO].AsString; @@ -661,6 +1077,17 @@ begin DataTable.Fields[idx_GetProductoPRODUTO].AsString := aValue; end; +function TGetProductoDataTableRules.GetPRODUTOIsNull: boolean; +begin + result := DataTable.Fields[idx_GetProductoPRODUTO].IsNull; +end; + +procedure TGetProductoDataTableRules.SetPRODUTOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_GetProductoPRODUTO].AsVariant := Null; +end; + function TGetProductoDataTableRules.GetGRADEValue: String; begin result := DataTable.Fields[idx_GetProductoGRADE].AsString; @@ -671,6 +1098,17 @@ begin DataTable.Fields[idx_GetProductoGRADE].AsString := aValue; end; +function TGetProductoDataTableRules.GetGRADEIsNull: boolean; +begin + result := DataTable.Fields[idx_GetProductoGRADE].IsNull; +end; + +procedure TGetProductoDataTableRules.SetGRADEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_GetProductoGRADE].AsVariant := Null; +end; + { TReferenciaGenericaDataTableRules } constructor TReferenciaGenericaDataTableRules.Create(aDataTable: TDADataTable); @@ -693,6 +1131,17 @@ begin DataTable.Fields[idx_ReferenciaGenericaNUMINF].AsString := aValue; end; +function TReferenciaGenericaDataTableRules.GetNUMINFIsNull: boolean; +begin + result := DataTable.Fields[idx_ReferenciaGenericaNUMINF].IsNull; +end; + +procedure TReferenciaGenericaDataTableRules.SetNUMINFIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ReferenciaGenericaNUMINF].AsVariant := Null; +end; + function TReferenciaGenericaDataTableRules.GetCLAVE1Value: Float; begin result := DataTable.Fields[idx_ReferenciaGenericaCLAVE1].AsFloat; @@ -703,6 +1152,17 @@ begin DataTable.Fields[idx_ReferenciaGenericaCLAVE1].AsFloat := aValue; end; +function TReferenciaGenericaDataTableRules.GetCLAVE1IsNull: boolean; +begin + result := DataTable.Fields[idx_ReferenciaGenericaCLAVE1].IsNull; +end; + +procedure TReferenciaGenericaDataTableRules.SetCLAVE1IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ReferenciaGenericaCLAVE1].AsVariant := Null; +end; + function TReferenciaGenericaDataTableRules.GetCLAVE2Value: Integer; begin result := DataTable.Fields[idx_ReferenciaGenericaCLAVE2].AsInteger; @@ -713,6 +1173,17 @@ begin DataTable.Fields[idx_ReferenciaGenericaCLAVE2].AsInteger := aValue; end; +function TReferenciaGenericaDataTableRules.GetCLAVE2IsNull: boolean; +begin + result := DataTable.Fields[idx_ReferenciaGenericaCLAVE2].IsNull; +end; + +procedure TReferenciaGenericaDataTableRules.SetCLAVE2IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ReferenciaGenericaCLAVE2].AsVariant := Null; +end; + function TReferenciaGenericaDataTableRules.GetCLAVE3Value: Integer; begin result := DataTable.Fields[idx_ReferenciaGenericaCLAVE3].AsInteger; @@ -723,6 +1194,17 @@ begin DataTable.Fields[idx_ReferenciaGenericaCLAVE3].AsInteger := aValue; end; +function TReferenciaGenericaDataTableRules.GetCLAVE3IsNull: boolean; +begin + result := DataTable.Fields[idx_ReferenciaGenericaCLAVE3].IsNull; +end; + +procedure TReferenciaGenericaDataTableRules.SetCLAVE3IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ReferenciaGenericaCLAVE3].AsVariant := Null; +end; + function TReferenciaGenericaDataTableRules.GetNUMCONValue: Integer; begin result := DataTable.Fields[idx_ReferenciaGenericaNUMCON].AsInteger; @@ -733,6 +1215,17 @@ begin DataTable.Fields[idx_ReferenciaGenericaNUMCON].AsInteger := aValue; end; +function TReferenciaGenericaDataTableRules.GetNUMCONIsNull: boolean; +begin + result := DataTable.Fields[idx_ReferenciaGenericaNUMCON].IsNull; +end; + +procedure TReferenciaGenericaDataTableRules.SetNUMCONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ReferenciaGenericaNUMCON].AsVariant := Null; +end; + function TReferenciaGenericaDataTableRules.GetFECHAValue: DateTime; begin result := DataTable.Fields[idx_ReferenciaGenericaFECHA].AsDateTime; @@ -743,6 +1236,17 @@ begin DataTable.Fields[idx_ReferenciaGenericaFECHA].AsDateTime := aValue; end; +function TReferenciaGenericaDataTableRules.GetFECHAIsNull: boolean; +begin + result := DataTable.Fields[idx_ReferenciaGenericaFECHA].IsNull; +end; + +procedure TReferenciaGenericaDataTableRules.SetFECHAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ReferenciaGenericaFECHA].AsVariant := Null; +end; + function TReferenciaGenericaDataTableRules.GetCODCENTROValue: String; begin result := DataTable.Fields[idx_ReferenciaGenericaCODCENTRO].AsString; @@ -753,6 +1257,17 @@ begin DataTable.Fields[idx_ReferenciaGenericaCODCENTRO].AsString := aValue; end; +function TReferenciaGenericaDataTableRules.GetCODCENTROIsNull: boolean; +begin + result := DataTable.Fields[idx_ReferenciaGenericaCODCENTRO].IsNull; +end; + +procedure TReferenciaGenericaDataTableRules.SetCODCENTROIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ReferenciaGenericaCODCENTRO].AsVariant := Null; +end; + function TReferenciaGenericaDataTableRules.GetCENTROValue: String; begin result := DataTable.Fields[idx_ReferenciaGenericaCENTRO].AsString; @@ -763,6 +1278,17 @@ begin DataTable.Fields[idx_ReferenciaGenericaCENTRO].AsString := aValue; end; +function TReferenciaGenericaDataTableRules.GetCENTROIsNull: boolean; +begin + result := DataTable.Fields[idx_ReferenciaGenericaCENTRO].IsNull; +end; + +procedure TReferenciaGenericaDataTableRules.SetCENTROIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ReferenciaGenericaCENTRO].AsVariant := Null; +end; + function TReferenciaGenericaDataTableRules.GetCODVENDEDORValue: String; begin result := DataTable.Fields[idx_ReferenciaGenericaCODVENDEDOR].AsString; @@ -773,6 +1299,17 @@ begin DataTable.Fields[idx_ReferenciaGenericaCODVENDEDOR].AsString := aValue; end; +function TReferenciaGenericaDataTableRules.GetCODVENDEDORIsNull: boolean; +begin + result := DataTable.Fields[idx_ReferenciaGenericaCODVENDEDOR].IsNull; +end; + +procedure TReferenciaGenericaDataTableRules.SetCODVENDEDORIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ReferenciaGenericaCODVENDEDOR].AsVariant := Null; +end; + function TReferenciaGenericaDataTableRules.GetVENDEDORValue: String; begin result := DataTable.Fields[idx_ReferenciaGenericaVENDEDOR].AsString; @@ -783,6 +1320,17 @@ begin DataTable.Fields[idx_ReferenciaGenericaVENDEDOR].AsString := aValue; end; +function TReferenciaGenericaDataTableRules.GetVENDEDORIsNull: boolean; +begin + result := DataTable.Fields[idx_ReferenciaGenericaVENDEDOR].IsNull; +end; + +procedure TReferenciaGenericaDataTableRules.SetVENDEDORIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ReferenciaGenericaVENDEDOR].AsVariant := Null; +end; + function TReferenciaGenericaDataTableRules.GetNUMTALONValue: String; begin result := DataTable.Fields[idx_ReferenciaGenericaNUMTALON].AsString; @@ -793,6 +1341,17 @@ begin DataTable.Fields[idx_ReferenciaGenericaNUMTALON].AsString := aValue; end; +function TReferenciaGenericaDataTableRules.GetNUMTALONIsNull: boolean; +begin + result := DataTable.Fields[idx_ReferenciaGenericaNUMTALON].IsNull; +end; + +procedure TReferenciaGenericaDataTableRules.SetNUMTALONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ReferenciaGenericaNUMTALON].AsVariant := Null; +end; + function TReferenciaGenericaDataTableRules.GetCODIGO_BARRAValue: String; begin result := DataTable.Fields[idx_ReferenciaGenericaCODIGO_BARRA].AsString; @@ -803,6 +1362,17 @@ begin DataTable.Fields[idx_ReferenciaGenericaCODIGO_BARRA].AsString := aValue; end; +function TReferenciaGenericaDataTableRules.GetCODIGO_BARRAIsNull: boolean; +begin + result := DataTable.Fields[idx_ReferenciaGenericaCODIGO_BARRA].IsNull; +end; + +procedure TReferenciaGenericaDataTableRules.SetCODIGO_BARRAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ReferenciaGenericaCODIGO_BARRA].AsVariant := Null; +end; + function TReferenciaGenericaDataTableRules.GetCODIGOValue: String; begin result := DataTable.Fields[idx_ReferenciaGenericaCODIGO].AsString; @@ -813,6 +1383,17 @@ begin DataTable.Fields[idx_ReferenciaGenericaCODIGO].AsString := aValue; end; +function TReferenciaGenericaDataTableRules.GetCODIGOIsNull: boolean; +begin + result := DataTable.Fields[idx_ReferenciaGenericaCODIGO].IsNull; +end; + +procedure TReferenciaGenericaDataTableRules.SetCODIGOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ReferenciaGenericaCODIGO].AsVariant := Null; +end; + function TReferenciaGenericaDataTableRules.GetPRODUCTOValue: String; begin result := DataTable.Fields[idx_ReferenciaGenericaPRODUCTO].AsString; @@ -823,6 +1404,17 @@ begin DataTable.Fields[idx_ReferenciaGenericaPRODUCTO].AsString := aValue; end; +function TReferenciaGenericaDataTableRules.GetPRODUCTOIsNull: boolean; +begin + result := DataTable.Fields[idx_ReferenciaGenericaPRODUCTO].IsNull; +end; + +procedure TReferenciaGenericaDataTableRules.SetPRODUCTOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ReferenciaGenericaPRODUCTO].AsVariant := Null; +end; + function TReferenciaGenericaDataTableRules.GetCOLORValue: String; begin result := DataTable.Fields[idx_ReferenciaGenericaCOLOR].AsString; @@ -833,6 +1425,17 @@ begin DataTable.Fields[idx_ReferenciaGenericaCOLOR].AsString := aValue; end; +function TReferenciaGenericaDataTableRules.GetCOLORIsNull: boolean; +begin + result := DataTable.Fields[idx_ReferenciaGenericaCOLOR].IsNull; +end; + +procedure TReferenciaGenericaDataTableRules.SetCOLORIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ReferenciaGenericaCOLOR].AsVariant := Null; +end; + function TReferenciaGenericaDataTableRules.GetTALLAValue: String; begin result := DataTable.Fields[idx_ReferenciaGenericaTALLA].AsString; @@ -843,6 +1446,17 @@ begin DataTable.Fields[idx_ReferenciaGenericaTALLA].AsString := aValue; end; +function TReferenciaGenericaDataTableRules.GetTALLAIsNull: boolean; +begin + result := DataTable.Fields[idx_ReferenciaGenericaTALLA].IsNull; +end; + +procedure TReferenciaGenericaDataTableRules.SetTALLAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ReferenciaGenericaTALLA].AsVariant := Null; +end; + function TReferenciaGenericaDataTableRules.GetVTAPROCESOValue: Float; begin result := DataTable.Fields[idx_ReferenciaGenericaVTAPROCESO].AsFloat; @@ -853,6 +1467,17 @@ begin DataTable.Fields[idx_ReferenciaGenericaVTAPROCESO].AsFloat := aValue; end; +function TReferenciaGenericaDataTableRules.GetVTAPROCESOIsNull: boolean; +begin + result := DataTable.Fields[idx_ReferenciaGenericaVTAPROCESO].IsNull; +end; + +procedure TReferenciaGenericaDataTableRules.SetVTAPROCESOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ReferenciaGenericaVTAPROCESO].AsVariant := Null; +end; + function TReferenciaGenericaDataTableRules.GetVTAFINALValue: Float; begin result := DataTable.Fields[idx_ReferenciaGenericaVTAFINAL].AsFloat; @@ -863,6 +1488,17 @@ begin DataTable.Fields[idx_ReferenciaGenericaVTAFINAL].AsFloat := aValue; end; +function TReferenciaGenericaDataTableRules.GetVTAFINALIsNull: boolean; +begin + result := DataTable.Fields[idx_ReferenciaGenericaVTAFINAL].IsNull; +end; + +procedure TReferenciaGenericaDataTableRules.SetVTAFINALIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ReferenciaGenericaVTAFINAL].AsVariant := Null; +end; + function TReferenciaGenericaDataTableRules.GetVTATERMValue: Float; begin result := DataTable.Fields[idx_ReferenciaGenericaVTATERM].AsFloat; @@ -873,6 +1509,17 @@ begin DataTable.Fields[idx_ReferenciaGenericaVTATERM].AsFloat := aValue; end; +function TReferenciaGenericaDataTableRules.GetVTATERMIsNull: boolean; +begin + result := DataTable.Fields[idx_ReferenciaGenericaVTATERM].IsNull; +end; + +procedure TReferenciaGenericaDataTableRules.SetVTATERMIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ReferenciaGenericaVTATERM].AsVariant := Null; +end; + function TReferenciaGenericaDataTableRules.GetVALTOTValue: Float; begin result := DataTable.Fields[idx_ReferenciaGenericaVALTOT].AsFloat; @@ -883,6 +1530,17 @@ begin DataTable.Fields[idx_ReferenciaGenericaVALTOT].AsFloat := aValue; end; +function TReferenciaGenericaDataTableRules.GetVALTOTIsNull: boolean; +begin + result := DataTable.Fields[idx_ReferenciaGenericaVALTOT].IsNull; +end; + +procedure TReferenciaGenericaDataTableRules.SetVALTOTIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ReferenciaGenericaVALTOT].AsVariant := Null; +end; + function TReferenciaGenericaDataTableRules.GetESTADOValue: String; begin result := DataTable.Fields[idx_ReferenciaGenericaESTADO].AsString; @@ -893,6 +1551,17 @@ begin DataTable.Fields[idx_ReferenciaGenericaESTADO].AsString := aValue; end; +function TReferenciaGenericaDataTableRules.GetESTADOIsNull: boolean; +begin + result := DataTable.Fields[idx_ReferenciaGenericaESTADO].IsNull; +end; + +procedure TReferenciaGenericaDataTableRules.SetESTADOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ReferenciaGenericaESTADO].AsVariant := Null; +end; + function TReferenciaGenericaDataTableRules.GetFECHACAMBIOValue: DateTime; begin result := DataTable.Fields[idx_ReferenciaGenericaFECHACAMBIO].AsDateTime; @@ -903,6 +1572,17 @@ begin DataTable.Fields[idx_ReferenciaGenericaFECHACAMBIO].AsDateTime := aValue; end; +function TReferenciaGenericaDataTableRules.GetFECHACAMBIOIsNull: boolean; +begin + result := DataTable.Fields[idx_ReferenciaGenericaFECHACAMBIO].IsNull; +end; + +procedure TReferenciaGenericaDataTableRules.SetFECHACAMBIOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ReferenciaGenericaFECHACAMBIO].AsVariant := Null; +end; + initialization RegisterDataTableRules(RID__ExisteFilaReferenciaGenerica, T_ExisteFilaReferenciaGenericaDataTableRules); diff --git a/Source/Modulos/ReferenciaGenerica/Reglas/schReferenciaGenericaServer_Intf.pas b/Source/Modulos/ReferenciaGenerica/Reglas/schReferenciaGenericaServer_Intf.pas index 725953b..76ab070 100644 --- a/Source/Modulos/ReferenciaGenerica/Reglas/schReferenciaGenericaServer_Intf.pas +++ b/Source/Modulos/ReferenciaGenerica/Reglas/schReferenciaGenericaServer_Intf.pas @@ -3,21 +3,21 @@ unit schReferenciaGenericaServer_Intf; interface uses - Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, schReferenciaGenericaClient_Intf; + Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schReferenciaGenericaClient_Intf; const { Delta rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID__ExisteFilaReferenciaGenericaDelta = '{4C9816CA-AD0C-473A-B192-0F3331601D04}'; - RID_InformeRefGenericaDelta = '{2C606C5E-D12E-443D-B4E6-C0B16320F16B}'; - RID_GetProductoDelta = '{A606AA38-2F35-4FC5-BB96-3C6FD80EBFB6}'; - RID_ReferenciaGenericaDelta = '{C8170A4A-6B29-465D-99F4-773795682573}'; + RID__ExisteFilaReferenciaGenericaDelta = '{451243CC-27EC-4D24-BCCF-4A6529D13DAB}'; + RID_InformeRefGenericaDelta = '{2C849E6E-A572-4480-8371-0767BFC76D53}'; + RID_GetProductoDelta = '{1E633156-754C-4296-B146-EB2952CA6084}'; + RID_ReferenciaGenericaDelta = '{E5A5D9F4-735D-4217-A484-35A87F318EAE}'; type { I_ExisteFilaReferenciaGenericaDelta } I_ExisteFilaReferenciaGenericaDelta = interface(I_ExisteFilaReferenciaGenerica) - ['{4C9816CA-AD0C-473A-B192-0F3331601D04}'] + ['{451243CC-27EC-4D24-BCCF-4A6529D13DAB}'] { Property getters and setters } function GetOldNUMINFValue : String; function GetOldCLAVE1Value : Float; @@ -39,32 +39,57 @@ type protected { Property getters and setters } function GetNUMINFValue: String; virtual; + function GetNUMINFIsNull: Boolean; virtual; function GetOldNUMINFValue: String; virtual; + function GetOldNUMINFIsNull: Boolean; virtual; procedure SetNUMINFValue(const aValue: String); virtual; + procedure SetNUMINFIsNull(const aValue: Boolean); virtual; function GetCLAVE1Value: Float; virtual; + function GetCLAVE1IsNull: Boolean; virtual; function GetOldCLAVE1Value: Float; virtual; + function GetOldCLAVE1IsNull: Boolean; virtual; procedure SetCLAVE1Value(const aValue: Float); virtual; + procedure SetCLAVE1IsNull(const aValue: Boolean); virtual; function GetCLAVE2Value: Integer; virtual; + function GetCLAVE2IsNull: Boolean; virtual; function GetOldCLAVE2Value: Integer; virtual; + function GetOldCLAVE2IsNull: Boolean; virtual; procedure SetCLAVE2Value(const aValue: Integer); virtual; + procedure SetCLAVE2IsNull(const aValue: Boolean); virtual; function GetCLAVE3Value: Integer; virtual; + function GetCLAVE3IsNull: Boolean; virtual; function GetOldCLAVE3Value: Integer; virtual; + function GetOldCLAVE3IsNull: Boolean; virtual; procedure SetCLAVE3Value(const aValue: Integer); virtual; + procedure SetCLAVE3IsNull(const aValue: Boolean); virtual; function GetNUMCONValue: Integer; virtual; + function GetNUMCONIsNull: Boolean; virtual; function GetOldNUMCONValue: Integer; virtual; + function GetOldNUMCONIsNull: Boolean; virtual; procedure SetNUMCONValue(const aValue: Integer); virtual; + procedure SetNUMCONIsNull(const aValue: Boolean); virtual; { Properties } property NUMINF : String read GetNUMINFValue write SetNUMINFValue; + property NUMINFIsNull : Boolean read GetNUMINFIsNull write SetNUMINFIsNull; property OldNUMINF : String read GetOldNUMINFValue; + property OldNUMINFIsNull : Boolean read GetOldNUMINFIsNull; property CLAVE1 : Float read GetCLAVE1Value write SetCLAVE1Value; + property CLAVE1IsNull : Boolean read GetCLAVE1IsNull write SetCLAVE1IsNull; property OldCLAVE1 : Float read GetOldCLAVE1Value; + property OldCLAVE1IsNull : Boolean read GetOldCLAVE1IsNull; property CLAVE2 : Integer read GetCLAVE2Value write SetCLAVE2Value; + property CLAVE2IsNull : Boolean read GetCLAVE2IsNull write SetCLAVE2IsNull; property OldCLAVE2 : Integer read GetOldCLAVE2Value; + property OldCLAVE2IsNull : Boolean read GetOldCLAVE2IsNull; property CLAVE3 : Integer read GetCLAVE3Value write SetCLAVE3Value; + property CLAVE3IsNull : Boolean read GetCLAVE3IsNull write SetCLAVE3IsNull; property OldCLAVE3 : Integer read GetOldCLAVE3Value; + property OldCLAVE3IsNull : Boolean read GetOldCLAVE3IsNull; property NUMCON : Integer read GetNUMCONValue write SetNUMCONValue; + property NUMCONIsNull : Boolean read GetNUMCONIsNull write SetNUMCONIsNull; property OldNUMCON : Integer read GetOldNUMCONValue; + property OldNUMCONIsNull : Boolean read GetOldNUMCONIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -74,7 +99,7 @@ type { IInformeRefGenericaDelta } IInformeRefGenericaDelta = interface(IInformeRefGenerica) - ['{2C606C5E-D12E-443D-B4E6-C0B16320F16B}'] + ['{2C849E6E-A572-4480-8371-0767BFC76D53}'] { Property getters and setters } function GetOldCODCENTROValue : String; function GetOldCENTROValue : String; @@ -102,47 +127,87 @@ type protected { Property getters and setters } function GetCODCENTROValue: String; virtual; + function GetCODCENTROIsNull: Boolean; virtual; function GetOldCODCENTROValue: String; virtual; + function GetOldCODCENTROIsNull: Boolean; virtual; procedure SetCODCENTROValue(const aValue: String); virtual; + procedure SetCODCENTROIsNull(const aValue: Boolean); virtual; function GetCENTROValue: String; virtual; + function GetCENTROIsNull: Boolean; virtual; function GetOldCENTROValue: String; virtual; + function GetOldCENTROIsNull: Boolean; virtual; procedure SetCENTROValue(const aValue: String); virtual; + procedure SetCENTROIsNull(const aValue: Boolean); virtual; function GetCODVENDEDORValue: String; virtual; + function GetCODVENDEDORIsNull: Boolean; virtual; function GetOldCODVENDEDORValue: String; virtual; + function GetOldCODVENDEDORIsNull: Boolean; virtual; procedure SetCODVENDEDORValue(const aValue: String); virtual; + procedure SetCODVENDEDORIsNull(const aValue: Boolean); virtual; function GetVENDEDORValue: String; virtual; + function GetVENDEDORIsNull: Boolean; virtual; function GetOldVENDEDORValue: String; virtual; + function GetOldVENDEDORIsNull: Boolean; virtual; procedure SetVENDEDORValue(const aValue: String); virtual; + procedure SetVENDEDORIsNull(const aValue: Boolean); virtual; function GetFECHAValue: DateTime; virtual; + function GetFECHAIsNull: Boolean; virtual; function GetOldFECHAValue: DateTime; virtual; + function GetOldFECHAIsNull: Boolean; virtual; procedure SetFECHAValue(const aValue: DateTime); virtual; + procedure SetFECHAIsNull(const aValue: Boolean); virtual; function GetNUMTALONValue: String; virtual; + function GetNUMTALONIsNull: Boolean; virtual; function GetOldNUMTALONValue: String; virtual; + function GetOldNUMTALONIsNull: Boolean; virtual; procedure SetNUMTALONValue(const aValue: String); virtual; + procedure SetNUMTALONIsNull(const aValue: Boolean); virtual; function GetCANTIDADValue: String; virtual; + function GetCANTIDADIsNull: Boolean; virtual; function GetOldCANTIDADValue: String; virtual; + function GetOldCANTIDADIsNull: Boolean; virtual; procedure SetCANTIDADValue(const aValue: String); virtual; + procedure SetCANTIDADIsNull(const aValue: Boolean); virtual; function GetVALTOTValue: Float; virtual; + function GetVALTOTIsNull: Boolean; virtual; function GetOldVALTOTValue: Float; virtual; + function GetOldVALTOTIsNull: Boolean; virtual; procedure SetVALTOTValue(const aValue: Float); virtual; + procedure SetVALTOTIsNull(const aValue: Boolean); virtual; { Properties } property CODCENTRO : String read GetCODCENTROValue write SetCODCENTROValue; + property CODCENTROIsNull : Boolean read GetCODCENTROIsNull write SetCODCENTROIsNull; property OldCODCENTRO : String read GetOldCODCENTROValue; + property OldCODCENTROIsNull : Boolean read GetOldCODCENTROIsNull; property CENTRO : String read GetCENTROValue write SetCENTROValue; + property CENTROIsNull : Boolean read GetCENTROIsNull write SetCENTROIsNull; property OldCENTRO : String read GetOldCENTROValue; + property OldCENTROIsNull : Boolean read GetOldCENTROIsNull; property CODVENDEDOR : String read GetCODVENDEDORValue write SetCODVENDEDORValue; + property CODVENDEDORIsNull : Boolean read GetCODVENDEDORIsNull write SetCODVENDEDORIsNull; property OldCODVENDEDOR : String read GetOldCODVENDEDORValue; + property OldCODVENDEDORIsNull : Boolean read GetOldCODVENDEDORIsNull; property VENDEDOR : String read GetVENDEDORValue write SetVENDEDORValue; + property VENDEDORIsNull : Boolean read GetVENDEDORIsNull write SetVENDEDORIsNull; property OldVENDEDOR : String read GetOldVENDEDORValue; + property OldVENDEDORIsNull : Boolean read GetOldVENDEDORIsNull; property FECHA : DateTime read GetFECHAValue write SetFECHAValue; + property FECHAIsNull : Boolean read GetFECHAIsNull write SetFECHAIsNull; property OldFECHA : DateTime read GetOldFECHAValue; + property OldFECHAIsNull : Boolean read GetOldFECHAIsNull; property NUMTALON : String read GetNUMTALONValue write SetNUMTALONValue; + property NUMTALONIsNull : Boolean read GetNUMTALONIsNull write SetNUMTALONIsNull; property OldNUMTALON : String read GetOldNUMTALONValue; + property OldNUMTALONIsNull : Boolean read GetOldNUMTALONIsNull; property CANTIDAD : String read GetCANTIDADValue write SetCANTIDADValue; + property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull; property OldCANTIDAD : String read GetOldCANTIDADValue; + property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull; property VALTOT : Float read GetVALTOTValue write SetVALTOTValue; + property VALTOTIsNull : Boolean read GetVALTOTIsNull write SetVALTOTIsNull; property OldVALTOT : Float read GetOldVALTOTValue; + property OldVALTOTIsNull : Boolean read GetOldVALTOTIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -152,7 +217,7 @@ type { IGetProductoDelta } IGetProductoDelta = interface(IGetProducto) - ['{A606AA38-2F35-4FC5-BB96-3C6FD80EBFB6}'] + ['{1E633156-754C-4296-B146-EB2952CA6084}'] { Property getters and setters } function GetOldCODIGO_BARRAValue : String; function GetOldCOR_PRODUTOValue : String; @@ -174,32 +239,57 @@ type protected { Property getters and setters } function GetCODIGO_BARRAValue: String; virtual; + function GetCODIGO_BARRAIsNull: Boolean; virtual; function GetOldCODIGO_BARRAValue: String; virtual; + function GetOldCODIGO_BARRAIsNull: Boolean; virtual; procedure SetCODIGO_BARRAValue(const aValue: String); virtual; + procedure SetCODIGO_BARRAIsNull(const aValue: Boolean); virtual; function GetCOR_PRODUTOValue: String; virtual; + function GetCOR_PRODUTOIsNull: Boolean; virtual; function GetOldCOR_PRODUTOValue: String; virtual; + function GetOldCOR_PRODUTOIsNull: Boolean; virtual; procedure SetCOR_PRODUTOValue(const aValue: String); virtual; + procedure SetCOR_PRODUTOIsNull(const aValue: Boolean); virtual; function GetDESC_PRODUTOValue: String; virtual; + function GetDESC_PRODUTOIsNull: Boolean; virtual; function GetOldDESC_PRODUTOValue: String; virtual; + function GetOldDESC_PRODUTOIsNull: Boolean; virtual; procedure SetDESC_PRODUTOValue(const aValue: String); virtual; + procedure SetDESC_PRODUTOIsNull(const aValue: Boolean); virtual; function GetPRODUTOValue: String; virtual; + function GetPRODUTOIsNull: Boolean; virtual; function GetOldPRODUTOValue: String; virtual; + function GetOldPRODUTOIsNull: Boolean; virtual; procedure SetPRODUTOValue(const aValue: String); virtual; + procedure SetPRODUTOIsNull(const aValue: Boolean); virtual; function GetGRADEValue: String; virtual; + function GetGRADEIsNull: Boolean; virtual; function GetOldGRADEValue: String; virtual; + function GetOldGRADEIsNull: Boolean; virtual; procedure SetGRADEValue(const aValue: String); virtual; + procedure SetGRADEIsNull(const aValue: Boolean); virtual; { Properties } property CODIGO_BARRA : String read GetCODIGO_BARRAValue write SetCODIGO_BARRAValue; + property CODIGO_BARRAIsNull : Boolean read GetCODIGO_BARRAIsNull write SetCODIGO_BARRAIsNull; property OldCODIGO_BARRA : String read GetOldCODIGO_BARRAValue; + property OldCODIGO_BARRAIsNull : Boolean read GetOldCODIGO_BARRAIsNull; property COR_PRODUTO : String read GetCOR_PRODUTOValue write SetCOR_PRODUTOValue; + property COR_PRODUTOIsNull : Boolean read GetCOR_PRODUTOIsNull write SetCOR_PRODUTOIsNull; property OldCOR_PRODUTO : String read GetOldCOR_PRODUTOValue; + property OldCOR_PRODUTOIsNull : Boolean read GetOldCOR_PRODUTOIsNull; property DESC_PRODUTO : String read GetDESC_PRODUTOValue write SetDESC_PRODUTOValue; + property DESC_PRODUTOIsNull : Boolean read GetDESC_PRODUTOIsNull write SetDESC_PRODUTOIsNull; property OldDESC_PRODUTO : String read GetOldDESC_PRODUTOValue; + property OldDESC_PRODUTOIsNull : Boolean read GetOldDESC_PRODUTOIsNull; property PRODUTO : String read GetPRODUTOValue write SetPRODUTOValue; + property PRODUTOIsNull : Boolean read GetPRODUTOIsNull write SetPRODUTOIsNull; property OldPRODUTO : String read GetOldPRODUTOValue; + property OldPRODUTOIsNull : Boolean read GetOldPRODUTOIsNull; property GRADE : String read GetGRADEValue write SetGRADEValue; + property GRADEIsNull : Boolean read GetGRADEIsNull write SetGRADEIsNull; property OldGRADE : String read GetOldGRADEValue; + property OldGRADEIsNull : Boolean read GetOldGRADEIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -209,7 +299,7 @@ type { IReferenciaGenericaDelta } IReferenciaGenericaDelta = interface(IReferenciaGenerica) - ['{C8170A4A-6B29-465D-99F4-773795682573}'] + ['{E5A5D9F4-735D-4217-A484-35A87F318EAE}'] { Property getters and setters } function GetOldNUMINFValue : String; function GetOldCLAVE1Value : Float; @@ -265,117 +355,227 @@ type protected { Property getters and setters } function GetNUMINFValue: String; virtual; + function GetNUMINFIsNull: Boolean; virtual; function GetOldNUMINFValue: String; virtual; + function GetOldNUMINFIsNull: Boolean; virtual; procedure SetNUMINFValue(const aValue: String); virtual; + procedure SetNUMINFIsNull(const aValue: Boolean); virtual; function GetCLAVE1Value: Float; virtual; + function GetCLAVE1IsNull: Boolean; virtual; function GetOldCLAVE1Value: Float; virtual; + function GetOldCLAVE1IsNull: Boolean; virtual; procedure SetCLAVE1Value(const aValue: Float); virtual; + procedure SetCLAVE1IsNull(const aValue: Boolean); virtual; function GetCLAVE2Value: Integer; virtual; + function GetCLAVE2IsNull: Boolean; virtual; function GetOldCLAVE2Value: Integer; virtual; + function GetOldCLAVE2IsNull: Boolean; virtual; procedure SetCLAVE2Value(const aValue: Integer); virtual; + procedure SetCLAVE2IsNull(const aValue: Boolean); virtual; function GetCLAVE3Value: Integer; virtual; + function GetCLAVE3IsNull: Boolean; virtual; function GetOldCLAVE3Value: Integer; virtual; + function GetOldCLAVE3IsNull: Boolean; virtual; procedure SetCLAVE3Value(const aValue: Integer); virtual; + procedure SetCLAVE3IsNull(const aValue: Boolean); virtual; function GetNUMCONValue: Integer; virtual; + function GetNUMCONIsNull: Boolean; virtual; function GetOldNUMCONValue: Integer; virtual; + function GetOldNUMCONIsNull: Boolean; virtual; procedure SetNUMCONValue(const aValue: Integer); virtual; + procedure SetNUMCONIsNull(const aValue: Boolean); virtual; function GetFECHAValue: DateTime; virtual; + function GetFECHAIsNull: Boolean; virtual; function GetOldFECHAValue: DateTime; virtual; + function GetOldFECHAIsNull: Boolean; virtual; procedure SetFECHAValue(const aValue: DateTime); virtual; + procedure SetFECHAIsNull(const aValue: Boolean); virtual; function GetCODCENTROValue: String; virtual; + function GetCODCENTROIsNull: Boolean; virtual; function GetOldCODCENTROValue: String; virtual; + function GetOldCODCENTROIsNull: Boolean; virtual; procedure SetCODCENTROValue(const aValue: String); virtual; + procedure SetCODCENTROIsNull(const aValue: Boolean); virtual; function GetCENTROValue: String; virtual; + function GetCENTROIsNull: Boolean; virtual; function GetOldCENTROValue: String; virtual; + function GetOldCENTROIsNull: Boolean; virtual; procedure SetCENTROValue(const aValue: String); virtual; + procedure SetCENTROIsNull(const aValue: Boolean); virtual; function GetCODVENDEDORValue: String; virtual; + function GetCODVENDEDORIsNull: Boolean; virtual; function GetOldCODVENDEDORValue: String; virtual; + function GetOldCODVENDEDORIsNull: Boolean; virtual; procedure SetCODVENDEDORValue(const aValue: String); virtual; + procedure SetCODVENDEDORIsNull(const aValue: Boolean); virtual; function GetVENDEDORValue: String; virtual; + function GetVENDEDORIsNull: Boolean; virtual; function GetOldVENDEDORValue: String; virtual; + function GetOldVENDEDORIsNull: Boolean; virtual; procedure SetVENDEDORValue(const aValue: String); virtual; + procedure SetVENDEDORIsNull(const aValue: Boolean); virtual; function GetNUMTALONValue: String; virtual; + function GetNUMTALONIsNull: Boolean; virtual; function GetOldNUMTALONValue: String; virtual; + function GetOldNUMTALONIsNull: Boolean; virtual; procedure SetNUMTALONValue(const aValue: String); virtual; + procedure SetNUMTALONIsNull(const aValue: Boolean); virtual; function GetCODIGO_BARRAValue: String; virtual; + function GetCODIGO_BARRAIsNull: Boolean; virtual; function GetOldCODIGO_BARRAValue: String; virtual; + function GetOldCODIGO_BARRAIsNull: Boolean; virtual; procedure SetCODIGO_BARRAValue(const aValue: String); virtual; + procedure SetCODIGO_BARRAIsNull(const aValue: Boolean); virtual; function GetCODIGOValue: String; virtual; + function GetCODIGOIsNull: Boolean; virtual; function GetOldCODIGOValue: String; virtual; + function GetOldCODIGOIsNull: Boolean; virtual; procedure SetCODIGOValue(const aValue: String); virtual; + procedure SetCODIGOIsNull(const aValue: Boolean); virtual; function GetPRODUCTOValue: String; virtual; + function GetPRODUCTOIsNull: Boolean; virtual; function GetOldPRODUCTOValue: String; virtual; + function GetOldPRODUCTOIsNull: Boolean; virtual; procedure SetPRODUCTOValue(const aValue: String); virtual; + procedure SetPRODUCTOIsNull(const aValue: Boolean); virtual; function GetCOLORValue: String; virtual; + function GetCOLORIsNull: Boolean; virtual; function GetOldCOLORValue: String; virtual; + function GetOldCOLORIsNull: Boolean; virtual; procedure SetCOLORValue(const aValue: String); virtual; + procedure SetCOLORIsNull(const aValue: Boolean); virtual; function GetTALLAValue: String; virtual; + function GetTALLAIsNull: Boolean; virtual; function GetOldTALLAValue: String; virtual; + function GetOldTALLAIsNull: Boolean; virtual; procedure SetTALLAValue(const aValue: String); virtual; + procedure SetTALLAIsNull(const aValue: Boolean); virtual; function GetVTAPROCESOValue: Float; virtual; + function GetVTAPROCESOIsNull: Boolean; virtual; function GetOldVTAPROCESOValue: Float; virtual; + function GetOldVTAPROCESOIsNull: Boolean; virtual; procedure SetVTAPROCESOValue(const aValue: Float); virtual; + procedure SetVTAPROCESOIsNull(const aValue: Boolean); virtual; function GetVTAFINALValue: Float; virtual; + function GetVTAFINALIsNull: Boolean; virtual; function GetOldVTAFINALValue: Float; virtual; + function GetOldVTAFINALIsNull: Boolean; virtual; procedure SetVTAFINALValue(const aValue: Float); virtual; + procedure SetVTAFINALIsNull(const aValue: Boolean); virtual; function GetVTATERMValue: Float; virtual; + function GetVTATERMIsNull: Boolean; virtual; function GetOldVTATERMValue: Float; virtual; + function GetOldVTATERMIsNull: Boolean; virtual; procedure SetVTATERMValue(const aValue: Float); virtual; + procedure SetVTATERMIsNull(const aValue: Boolean); virtual; function GetVALTOTValue: Float; virtual; + function GetVALTOTIsNull: Boolean; virtual; function GetOldVALTOTValue: Float; virtual; + function GetOldVALTOTIsNull: Boolean; virtual; procedure SetVALTOTValue(const aValue: Float); virtual; + procedure SetVALTOTIsNull(const aValue: Boolean); virtual; function GetESTADOValue: String; virtual; + function GetESTADOIsNull: Boolean; virtual; function GetOldESTADOValue: String; virtual; + function GetOldESTADOIsNull: Boolean; virtual; procedure SetESTADOValue(const aValue: String); virtual; + procedure SetESTADOIsNull(const aValue: Boolean); virtual; function GetFECHACAMBIOValue: DateTime; virtual; + function GetFECHACAMBIOIsNull: Boolean; virtual; function GetOldFECHACAMBIOValue: DateTime; virtual; + function GetOldFECHACAMBIOIsNull: Boolean; virtual; procedure SetFECHACAMBIOValue(const aValue: DateTime); virtual; + procedure SetFECHACAMBIOIsNull(const aValue: Boolean); virtual; { Properties } property NUMINF : String read GetNUMINFValue write SetNUMINFValue; + property NUMINFIsNull : Boolean read GetNUMINFIsNull write SetNUMINFIsNull; property OldNUMINF : String read GetOldNUMINFValue; + property OldNUMINFIsNull : Boolean read GetOldNUMINFIsNull; property CLAVE1 : Float read GetCLAVE1Value write SetCLAVE1Value; + property CLAVE1IsNull : Boolean read GetCLAVE1IsNull write SetCLAVE1IsNull; property OldCLAVE1 : Float read GetOldCLAVE1Value; + property OldCLAVE1IsNull : Boolean read GetOldCLAVE1IsNull; property CLAVE2 : Integer read GetCLAVE2Value write SetCLAVE2Value; + property CLAVE2IsNull : Boolean read GetCLAVE2IsNull write SetCLAVE2IsNull; property OldCLAVE2 : Integer read GetOldCLAVE2Value; + property OldCLAVE2IsNull : Boolean read GetOldCLAVE2IsNull; property CLAVE3 : Integer read GetCLAVE3Value write SetCLAVE3Value; + property CLAVE3IsNull : Boolean read GetCLAVE3IsNull write SetCLAVE3IsNull; property OldCLAVE3 : Integer read GetOldCLAVE3Value; + property OldCLAVE3IsNull : Boolean read GetOldCLAVE3IsNull; property NUMCON : Integer read GetNUMCONValue write SetNUMCONValue; + property NUMCONIsNull : Boolean read GetNUMCONIsNull write SetNUMCONIsNull; property OldNUMCON : Integer read GetOldNUMCONValue; + property OldNUMCONIsNull : Boolean read GetOldNUMCONIsNull; property FECHA : DateTime read GetFECHAValue write SetFECHAValue; + property FECHAIsNull : Boolean read GetFECHAIsNull write SetFECHAIsNull; property OldFECHA : DateTime read GetOldFECHAValue; + property OldFECHAIsNull : Boolean read GetOldFECHAIsNull; property CODCENTRO : String read GetCODCENTROValue write SetCODCENTROValue; + property CODCENTROIsNull : Boolean read GetCODCENTROIsNull write SetCODCENTROIsNull; property OldCODCENTRO : String read GetOldCODCENTROValue; + property OldCODCENTROIsNull : Boolean read GetOldCODCENTROIsNull; property CENTRO : String read GetCENTROValue write SetCENTROValue; + property CENTROIsNull : Boolean read GetCENTROIsNull write SetCENTROIsNull; property OldCENTRO : String read GetOldCENTROValue; + property OldCENTROIsNull : Boolean read GetOldCENTROIsNull; property CODVENDEDOR : String read GetCODVENDEDORValue write SetCODVENDEDORValue; + property CODVENDEDORIsNull : Boolean read GetCODVENDEDORIsNull write SetCODVENDEDORIsNull; property OldCODVENDEDOR : String read GetOldCODVENDEDORValue; + property OldCODVENDEDORIsNull : Boolean read GetOldCODVENDEDORIsNull; property VENDEDOR : String read GetVENDEDORValue write SetVENDEDORValue; + property VENDEDORIsNull : Boolean read GetVENDEDORIsNull write SetVENDEDORIsNull; property OldVENDEDOR : String read GetOldVENDEDORValue; + property OldVENDEDORIsNull : Boolean read GetOldVENDEDORIsNull; property NUMTALON : String read GetNUMTALONValue write SetNUMTALONValue; + property NUMTALONIsNull : Boolean read GetNUMTALONIsNull write SetNUMTALONIsNull; property OldNUMTALON : String read GetOldNUMTALONValue; + property OldNUMTALONIsNull : Boolean read GetOldNUMTALONIsNull; property CODIGO_BARRA : String read GetCODIGO_BARRAValue write SetCODIGO_BARRAValue; + property CODIGO_BARRAIsNull : Boolean read GetCODIGO_BARRAIsNull write SetCODIGO_BARRAIsNull; property OldCODIGO_BARRA : String read GetOldCODIGO_BARRAValue; + property OldCODIGO_BARRAIsNull : Boolean read GetOldCODIGO_BARRAIsNull; property CODIGO : String read GetCODIGOValue write SetCODIGOValue; + property CODIGOIsNull : Boolean read GetCODIGOIsNull write SetCODIGOIsNull; property OldCODIGO : String read GetOldCODIGOValue; + property OldCODIGOIsNull : Boolean read GetOldCODIGOIsNull; property PRODUCTO : String read GetPRODUCTOValue write SetPRODUCTOValue; + property PRODUCTOIsNull : Boolean read GetPRODUCTOIsNull write SetPRODUCTOIsNull; property OldPRODUCTO : String read GetOldPRODUCTOValue; + property OldPRODUCTOIsNull : Boolean read GetOldPRODUCTOIsNull; property COLOR : String read GetCOLORValue write SetCOLORValue; + property COLORIsNull : Boolean read GetCOLORIsNull write SetCOLORIsNull; property OldCOLOR : String read GetOldCOLORValue; + property OldCOLORIsNull : Boolean read GetOldCOLORIsNull; property TALLA : String read GetTALLAValue write SetTALLAValue; + property TALLAIsNull : Boolean read GetTALLAIsNull write SetTALLAIsNull; property OldTALLA : String read GetOldTALLAValue; + property OldTALLAIsNull : Boolean read GetOldTALLAIsNull; property VTAPROCESO : Float read GetVTAPROCESOValue write SetVTAPROCESOValue; + property VTAPROCESOIsNull : Boolean read GetVTAPROCESOIsNull write SetVTAPROCESOIsNull; property OldVTAPROCESO : Float read GetOldVTAPROCESOValue; + property OldVTAPROCESOIsNull : Boolean read GetOldVTAPROCESOIsNull; property VTAFINAL : Float read GetVTAFINALValue write SetVTAFINALValue; + property VTAFINALIsNull : Boolean read GetVTAFINALIsNull write SetVTAFINALIsNull; property OldVTAFINAL : Float read GetOldVTAFINALValue; + property OldVTAFINALIsNull : Boolean read GetOldVTAFINALIsNull; property VTATERM : Float read GetVTATERMValue write SetVTATERMValue; + property VTATERMIsNull : Boolean read GetVTATERMIsNull write SetVTATERMIsNull; property OldVTATERM : Float read GetOldVTATERMValue; + property OldVTATERMIsNull : Boolean read GetOldVTATERMIsNull; property VALTOT : Float read GetVALTOTValue write SetVALTOTValue; + property VALTOTIsNull : Boolean read GetVALTOTIsNull write SetVALTOTIsNull; property OldVALTOT : Float read GetOldVALTOTValue; + property OldVALTOTIsNull : Boolean read GetOldVALTOTIsNull; property ESTADO : String read GetESTADOValue write SetESTADOValue; + property ESTADOIsNull : Boolean read GetESTADOIsNull write SetESTADOIsNull; property OldESTADO : String read GetOldESTADOValue; + property OldESTADOIsNull : Boolean read GetOldESTADOIsNull; property FECHACAMBIO : DateTime read GetFECHACAMBIOValue write SetFECHACAMBIOValue; + property FECHACAMBIOIsNull : Boolean read GetFECHACAMBIOIsNull write SetFECHACAMBIOIsNull; property OldFECHACAMBIO : DateTime read GetOldFECHACAMBIOValue; + property OldFECHACAMBIOIsNull : Boolean read GetOldFECHACAMBIOIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -386,7 +586,7 @@ type implementation uses - Variants, uROBinaryHelpers; + Variants, uROBinaryHelpers, uDAInterfaces; { T_ExisteFilaReferenciaGenericaBusinessProcessorRules } constructor T_ExisteFilaReferenciaGenericaBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); @@ -404,76 +604,156 @@ begin result := BusinessProcessor.CurrentChange.NewValueByName[fld__ExisteFilaReferenciaGenericaNUMINF]; end; +function T_ExisteFilaReferenciaGenericaBusinessProcessorRules.GetNUMINFIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld__ExisteFilaReferenciaGenericaNUMINF]); +end; + function T_ExisteFilaReferenciaGenericaBusinessProcessorRules.GetOldNUMINFValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld__ExisteFilaReferenciaGenericaNUMINF]; end; +function T_ExisteFilaReferenciaGenericaBusinessProcessorRules.GetOldNUMINFIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld__ExisteFilaReferenciaGenericaNUMINF]); +end; + procedure T_ExisteFilaReferenciaGenericaBusinessProcessorRules.SetNUMINFValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld__ExisteFilaReferenciaGenericaNUMINF] := aValue; end; +procedure T_ExisteFilaReferenciaGenericaBusinessProcessorRules.SetNUMINFIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld__ExisteFilaReferenciaGenericaNUMINF] := Null; +end; + function T_ExisteFilaReferenciaGenericaBusinessProcessorRules.GetCLAVE1Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld__ExisteFilaReferenciaGenericaCLAVE1]; end; +function T_ExisteFilaReferenciaGenericaBusinessProcessorRules.GetCLAVE1IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld__ExisteFilaReferenciaGenericaCLAVE1]); +end; + function T_ExisteFilaReferenciaGenericaBusinessProcessorRules.GetOldCLAVE1Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld__ExisteFilaReferenciaGenericaCLAVE1]; end; +function T_ExisteFilaReferenciaGenericaBusinessProcessorRules.GetOldCLAVE1IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld__ExisteFilaReferenciaGenericaCLAVE1]); +end; + procedure T_ExisteFilaReferenciaGenericaBusinessProcessorRules.SetCLAVE1Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld__ExisteFilaReferenciaGenericaCLAVE1] := aValue; end; +procedure T_ExisteFilaReferenciaGenericaBusinessProcessorRules.SetCLAVE1IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld__ExisteFilaReferenciaGenericaCLAVE1] := Null; +end; + function T_ExisteFilaReferenciaGenericaBusinessProcessorRules.GetCLAVE2Value: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld__ExisteFilaReferenciaGenericaCLAVE2]; end; +function T_ExisteFilaReferenciaGenericaBusinessProcessorRules.GetCLAVE2IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld__ExisteFilaReferenciaGenericaCLAVE2]); +end; + function T_ExisteFilaReferenciaGenericaBusinessProcessorRules.GetOldCLAVE2Value: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld__ExisteFilaReferenciaGenericaCLAVE2]; end; +function T_ExisteFilaReferenciaGenericaBusinessProcessorRules.GetOldCLAVE2IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld__ExisteFilaReferenciaGenericaCLAVE2]); +end; + procedure T_ExisteFilaReferenciaGenericaBusinessProcessorRules.SetCLAVE2Value(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld__ExisteFilaReferenciaGenericaCLAVE2] := aValue; end; +procedure T_ExisteFilaReferenciaGenericaBusinessProcessorRules.SetCLAVE2IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld__ExisteFilaReferenciaGenericaCLAVE2] := Null; +end; + function T_ExisteFilaReferenciaGenericaBusinessProcessorRules.GetCLAVE3Value: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld__ExisteFilaReferenciaGenericaCLAVE3]; end; +function T_ExisteFilaReferenciaGenericaBusinessProcessorRules.GetCLAVE3IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld__ExisteFilaReferenciaGenericaCLAVE3]); +end; + function T_ExisteFilaReferenciaGenericaBusinessProcessorRules.GetOldCLAVE3Value: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld__ExisteFilaReferenciaGenericaCLAVE3]; end; +function T_ExisteFilaReferenciaGenericaBusinessProcessorRules.GetOldCLAVE3IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld__ExisteFilaReferenciaGenericaCLAVE3]); +end; + procedure T_ExisteFilaReferenciaGenericaBusinessProcessorRules.SetCLAVE3Value(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld__ExisteFilaReferenciaGenericaCLAVE3] := aValue; end; +procedure T_ExisteFilaReferenciaGenericaBusinessProcessorRules.SetCLAVE3IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld__ExisteFilaReferenciaGenericaCLAVE3] := Null; +end; + function T_ExisteFilaReferenciaGenericaBusinessProcessorRules.GetNUMCONValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld__ExisteFilaReferenciaGenericaNUMCON]; end; +function T_ExisteFilaReferenciaGenericaBusinessProcessorRules.GetNUMCONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld__ExisteFilaReferenciaGenericaNUMCON]); +end; + function T_ExisteFilaReferenciaGenericaBusinessProcessorRules.GetOldNUMCONValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld__ExisteFilaReferenciaGenericaNUMCON]; end; +function T_ExisteFilaReferenciaGenericaBusinessProcessorRules.GetOldNUMCONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld__ExisteFilaReferenciaGenericaNUMCON]); +end; + procedure T_ExisteFilaReferenciaGenericaBusinessProcessorRules.SetNUMCONValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld__ExisteFilaReferenciaGenericaNUMCON] := aValue; end; +procedure T_ExisteFilaReferenciaGenericaBusinessProcessorRules.SetNUMCONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld__ExisteFilaReferenciaGenericaNUMCON] := Null; +end; + { TInformeRefGenericaBusinessProcessorRules } constructor TInformeRefGenericaBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); @@ -491,121 +771,249 @@ begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaCODCENTRO]; end; +function TInformeRefGenericaBusinessProcessorRules.GetCODCENTROIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaCODCENTRO]); +end; + function TInformeRefGenericaBusinessProcessorRules.GetOldCODCENTROValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeRefGenericaCODCENTRO]; end; +function TInformeRefGenericaBusinessProcessorRules.GetOldCODCENTROIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InformeRefGenericaCODCENTRO]); +end; + procedure TInformeRefGenericaBusinessProcessorRules.SetCODCENTROValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaCODCENTRO] := aValue; end; +procedure TInformeRefGenericaBusinessProcessorRules.SetCODCENTROIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaCODCENTRO] := Null; +end; + function TInformeRefGenericaBusinessProcessorRules.GetCENTROValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaCENTRO]; end; +function TInformeRefGenericaBusinessProcessorRules.GetCENTROIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaCENTRO]); +end; + function TInformeRefGenericaBusinessProcessorRules.GetOldCENTROValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeRefGenericaCENTRO]; end; +function TInformeRefGenericaBusinessProcessorRules.GetOldCENTROIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InformeRefGenericaCENTRO]); +end; + procedure TInformeRefGenericaBusinessProcessorRules.SetCENTROValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaCENTRO] := aValue; end; +procedure TInformeRefGenericaBusinessProcessorRules.SetCENTROIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaCENTRO] := Null; +end; + function TInformeRefGenericaBusinessProcessorRules.GetCODVENDEDORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaCODVENDEDOR]; end; +function TInformeRefGenericaBusinessProcessorRules.GetCODVENDEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaCODVENDEDOR]); +end; + function TInformeRefGenericaBusinessProcessorRules.GetOldCODVENDEDORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeRefGenericaCODVENDEDOR]; end; +function TInformeRefGenericaBusinessProcessorRules.GetOldCODVENDEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InformeRefGenericaCODVENDEDOR]); +end; + procedure TInformeRefGenericaBusinessProcessorRules.SetCODVENDEDORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaCODVENDEDOR] := aValue; end; +procedure TInformeRefGenericaBusinessProcessorRules.SetCODVENDEDORIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaCODVENDEDOR] := Null; +end; + function TInformeRefGenericaBusinessProcessorRules.GetVENDEDORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaVENDEDOR]; end; +function TInformeRefGenericaBusinessProcessorRules.GetVENDEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaVENDEDOR]); +end; + function TInformeRefGenericaBusinessProcessorRules.GetOldVENDEDORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeRefGenericaVENDEDOR]; end; +function TInformeRefGenericaBusinessProcessorRules.GetOldVENDEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InformeRefGenericaVENDEDOR]); +end; + procedure TInformeRefGenericaBusinessProcessorRules.SetVENDEDORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaVENDEDOR] := aValue; end; +procedure TInformeRefGenericaBusinessProcessorRules.SetVENDEDORIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaVENDEDOR] := Null; +end; + function TInformeRefGenericaBusinessProcessorRules.GetFECHAValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaFECHA]; end; +function TInformeRefGenericaBusinessProcessorRules.GetFECHAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaFECHA]); +end; + function TInformeRefGenericaBusinessProcessorRules.GetOldFECHAValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeRefGenericaFECHA]; end; +function TInformeRefGenericaBusinessProcessorRules.GetOldFECHAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InformeRefGenericaFECHA]); +end; + procedure TInformeRefGenericaBusinessProcessorRules.SetFECHAValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaFECHA] := aValue; end; +procedure TInformeRefGenericaBusinessProcessorRules.SetFECHAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaFECHA] := Null; +end; + function TInformeRefGenericaBusinessProcessorRules.GetNUMTALONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaNUMTALON]; end; +function TInformeRefGenericaBusinessProcessorRules.GetNUMTALONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaNUMTALON]); +end; + function TInformeRefGenericaBusinessProcessorRules.GetOldNUMTALONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeRefGenericaNUMTALON]; end; +function TInformeRefGenericaBusinessProcessorRules.GetOldNUMTALONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InformeRefGenericaNUMTALON]); +end; + procedure TInformeRefGenericaBusinessProcessorRules.SetNUMTALONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaNUMTALON] := aValue; end; +procedure TInformeRefGenericaBusinessProcessorRules.SetNUMTALONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaNUMTALON] := Null; +end; + function TInformeRefGenericaBusinessProcessorRules.GetCANTIDADValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaCANTIDAD]; end; +function TInformeRefGenericaBusinessProcessorRules.GetCANTIDADIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaCANTIDAD]); +end; + function TInformeRefGenericaBusinessProcessorRules.GetOldCANTIDADValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeRefGenericaCANTIDAD]; end; +function TInformeRefGenericaBusinessProcessorRules.GetOldCANTIDADIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InformeRefGenericaCANTIDAD]); +end; + procedure TInformeRefGenericaBusinessProcessorRules.SetCANTIDADValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaCANTIDAD] := aValue; end; +procedure TInformeRefGenericaBusinessProcessorRules.SetCANTIDADIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaCANTIDAD] := Null; +end; + function TInformeRefGenericaBusinessProcessorRules.GetVALTOTValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaVALTOT]; end; +function TInformeRefGenericaBusinessProcessorRules.GetVALTOTIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaVALTOT]); +end; + function TInformeRefGenericaBusinessProcessorRules.GetOldVALTOTValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeRefGenericaVALTOT]; end; +function TInformeRefGenericaBusinessProcessorRules.GetOldVALTOTIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_InformeRefGenericaVALTOT]); +end; + procedure TInformeRefGenericaBusinessProcessorRules.SetVALTOTValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaVALTOT] := aValue; end; +procedure TInformeRefGenericaBusinessProcessorRules.SetVALTOTIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_InformeRefGenericaVALTOT] := Null; +end; + { TGetProductoBusinessProcessorRules } constructor TGetProductoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); @@ -623,76 +1031,156 @@ begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_GetProductoCODIGO_BARRA]; end; +function TGetProductoBusinessProcessorRules.GetCODIGO_BARRAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_GetProductoCODIGO_BARRA]); +end; + function TGetProductoBusinessProcessorRules.GetOldCODIGO_BARRAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_GetProductoCODIGO_BARRA]; end; +function TGetProductoBusinessProcessorRules.GetOldCODIGO_BARRAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_GetProductoCODIGO_BARRA]); +end; + procedure TGetProductoBusinessProcessorRules.SetCODIGO_BARRAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_GetProductoCODIGO_BARRA] := aValue; end; +procedure TGetProductoBusinessProcessorRules.SetCODIGO_BARRAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_GetProductoCODIGO_BARRA] := Null; +end; + function TGetProductoBusinessProcessorRules.GetCOR_PRODUTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_GetProductoCOR_PRODUTO]; end; +function TGetProductoBusinessProcessorRules.GetCOR_PRODUTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_GetProductoCOR_PRODUTO]); +end; + function TGetProductoBusinessProcessorRules.GetOldCOR_PRODUTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_GetProductoCOR_PRODUTO]; end; +function TGetProductoBusinessProcessorRules.GetOldCOR_PRODUTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_GetProductoCOR_PRODUTO]); +end; + procedure TGetProductoBusinessProcessorRules.SetCOR_PRODUTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_GetProductoCOR_PRODUTO] := aValue; end; +procedure TGetProductoBusinessProcessorRules.SetCOR_PRODUTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_GetProductoCOR_PRODUTO] := Null; +end; + function TGetProductoBusinessProcessorRules.GetDESC_PRODUTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_GetProductoDESC_PRODUTO]; end; +function TGetProductoBusinessProcessorRules.GetDESC_PRODUTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_GetProductoDESC_PRODUTO]); +end; + function TGetProductoBusinessProcessorRules.GetOldDESC_PRODUTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_GetProductoDESC_PRODUTO]; end; +function TGetProductoBusinessProcessorRules.GetOldDESC_PRODUTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_GetProductoDESC_PRODUTO]); +end; + procedure TGetProductoBusinessProcessorRules.SetDESC_PRODUTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_GetProductoDESC_PRODUTO] := aValue; end; +procedure TGetProductoBusinessProcessorRules.SetDESC_PRODUTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_GetProductoDESC_PRODUTO] := Null; +end; + function TGetProductoBusinessProcessorRules.GetPRODUTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_GetProductoPRODUTO]; end; +function TGetProductoBusinessProcessorRules.GetPRODUTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_GetProductoPRODUTO]); +end; + function TGetProductoBusinessProcessorRules.GetOldPRODUTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_GetProductoPRODUTO]; end; +function TGetProductoBusinessProcessorRules.GetOldPRODUTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_GetProductoPRODUTO]); +end; + procedure TGetProductoBusinessProcessorRules.SetPRODUTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_GetProductoPRODUTO] := aValue; end; +procedure TGetProductoBusinessProcessorRules.SetPRODUTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_GetProductoPRODUTO] := Null; +end; + function TGetProductoBusinessProcessorRules.GetGRADEValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_GetProductoGRADE]; end; +function TGetProductoBusinessProcessorRules.GetGRADEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_GetProductoGRADE]); +end; + function TGetProductoBusinessProcessorRules.GetOldGRADEValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_GetProductoGRADE]; end; +function TGetProductoBusinessProcessorRules.GetOldGRADEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_GetProductoGRADE]); +end; + procedure TGetProductoBusinessProcessorRules.SetGRADEValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_GetProductoGRADE] := aValue; end; +procedure TGetProductoBusinessProcessorRules.SetGRADEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_GetProductoGRADE] := Null; +end; + { TReferenciaGenericaBusinessProcessorRules } constructor TReferenciaGenericaBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); @@ -710,331 +1198,683 @@ begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaNUMINF]; end; +function TReferenciaGenericaBusinessProcessorRules.GetNUMINFIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaNUMINF]); +end; + function TReferenciaGenericaBusinessProcessorRules.GetOldNUMINFValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaNUMINF]; end; +function TReferenciaGenericaBusinessProcessorRules.GetOldNUMINFIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaNUMINF]); +end; + procedure TReferenciaGenericaBusinessProcessorRules.SetNUMINFValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaNUMINF] := aValue; end; +procedure TReferenciaGenericaBusinessProcessorRules.SetNUMINFIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaNUMINF] := Null; +end; + function TReferenciaGenericaBusinessProcessorRules.GetCLAVE1Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCLAVE1]; end; +function TReferenciaGenericaBusinessProcessorRules.GetCLAVE1IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCLAVE1]); +end; + function TReferenciaGenericaBusinessProcessorRules.GetOldCLAVE1Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaCLAVE1]; end; +function TReferenciaGenericaBusinessProcessorRules.GetOldCLAVE1IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaCLAVE1]); +end; + procedure TReferenciaGenericaBusinessProcessorRules.SetCLAVE1Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCLAVE1] := aValue; end; +procedure TReferenciaGenericaBusinessProcessorRules.SetCLAVE1IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCLAVE1] := Null; +end; + function TReferenciaGenericaBusinessProcessorRules.GetCLAVE2Value: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCLAVE2]; end; +function TReferenciaGenericaBusinessProcessorRules.GetCLAVE2IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCLAVE2]); +end; + function TReferenciaGenericaBusinessProcessorRules.GetOldCLAVE2Value: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaCLAVE2]; end; +function TReferenciaGenericaBusinessProcessorRules.GetOldCLAVE2IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaCLAVE2]); +end; + procedure TReferenciaGenericaBusinessProcessorRules.SetCLAVE2Value(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCLAVE2] := aValue; end; +procedure TReferenciaGenericaBusinessProcessorRules.SetCLAVE2IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCLAVE2] := Null; +end; + function TReferenciaGenericaBusinessProcessorRules.GetCLAVE3Value: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCLAVE3]; end; +function TReferenciaGenericaBusinessProcessorRules.GetCLAVE3IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCLAVE3]); +end; + function TReferenciaGenericaBusinessProcessorRules.GetOldCLAVE3Value: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaCLAVE3]; end; +function TReferenciaGenericaBusinessProcessorRules.GetOldCLAVE3IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaCLAVE3]); +end; + procedure TReferenciaGenericaBusinessProcessorRules.SetCLAVE3Value(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCLAVE3] := aValue; end; +procedure TReferenciaGenericaBusinessProcessorRules.SetCLAVE3IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCLAVE3] := Null; +end; + function TReferenciaGenericaBusinessProcessorRules.GetNUMCONValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaNUMCON]; end; +function TReferenciaGenericaBusinessProcessorRules.GetNUMCONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaNUMCON]); +end; + function TReferenciaGenericaBusinessProcessorRules.GetOldNUMCONValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaNUMCON]; end; +function TReferenciaGenericaBusinessProcessorRules.GetOldNUMCONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaNUMCON]); +end; + procedure TReferenciaGenericaBusinessProcessorRules.SetNUMCONValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaNUMCON] := aValue; end; +procedure TReferenciaGenericaBusinessProcessorRules.SetNUMCONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaNUMCON] := Null; +end; + function TReferenciaGenericaBusinessProcessorRules.GetFECHAValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaFECHA]; end; +function TReferenciaGenericaBusinessProcessorRules.GetFECHAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaFECHA]); +end; + function TReferenciaGenericaBusinessProcessorRules.GetOldFECHAValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaFECHA]; end; +function TReferenciaGenericaBusinessProcessorRules.GetOldFECHAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaFECHA]); +end; + procedure TReferenciaGenericaBusinessProcessorRules.SetFECHAValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaFECHA] := aValue; end; +procedure TReferenciaGenericaBusinessProcessorRules.SetFECHAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaFECHA] := Null; +end; + function TReferenciaGenericaBusinessProcessorRules.GetCODCENTROValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCODCENTRO]; end; +function TReferenciaGenericaBusinessProcessorRules.GetCODCENTROIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCODCENTRO]); +end; + function TReferenciaGenericaBusinessProcessorRules.GetOldCODCENTROValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaCODCENTRO]; end; +function TReferenciaGenericaBusinessProcessorRules.GetOldCODCENTROIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaCODCENTRO]); +end; + procedure TReferenciaGenericaBusinessProcessorRules.SetCODCENTROValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCODCENTRO] := aValue; end; +procedure TReferenciaGenericaBusinessProcessorRules.SetCODCENTROIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCODCENTRO] := Null; +end; + function TReferenciaGenericaBusinessProcessorRules.GetCENTROValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCENTRO]; end; +function TReferenciaGenericaBusinessProcessorRules.GetCENTROIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCENTRO]); +end; + function TReferenciaGenericaBusinessProcessorRules.GetOldCENTROValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaCENTRO]; end; +function TReferenciaGenericaBusinessProcessorRules.GetOldCENTROIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaCENTRO]); +end; + procedure TReferenciaGenericaBusinessProcessorRules.SetCENTROValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCENTRO] := aValue; end; +procedure TReferenciaGenericaBusinessProcessorRules.SetCENTROIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCENTRO] := Null; +end; + function TReferenciaGenericaBusinessProcessorRules.GetCODVENDEDORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCODVENDEDOR]; end; +function TReferenciaGenericaBusinessProcessorRules.GetCODVENDEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCODVENDEDOR]); +end; + function TReferenciaGenericaBusinessProcessorRules.GetOldCODVENDEDORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaCODVENDEDOR]; end; +function TReferenciaGenericaBusinessProcessorRules.GetOldCODVENDEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaCODVENDEDOR]); +end; + procedure TReferenciaGenericaBusinessProcessorRules.SetCODVENDEDORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCODVENDEDOR] := aValue; end; +procedure TReferenciaGenericaBusinessProcessorRules.SetCODVENDEDORIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCODVENDEDOR] := Null; +end; + function TReferenciaGenericaBusinessProcessorRules.GetVENDEDORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaVENDEDOR]; end; +function TReferenciaGenericaBusinessProcessorRules.GetVENDEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaVENDEDOR]); +end; + function TReferenciaGenericaBusinessProcessorRules.GetOldVENDEDORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaVENDEDOR]; end; +function TReferenciaGenericaBusinessProcessorRules.GetOldVENDEDORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaVENDEDOR]); +end; + procedure TReferenciaGenericaBusinessProcessorRules.SetVENDEDORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaVENDEDOR] := aValue; end; +procedure TReferenciaGenericaBusinessProcessorRules.SetVENDEDORIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaVENDEDOR] := Null; +end; + function TReferenciaGenericaBusinessProcessorRules.GetNUMTALONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaNUMTALON]; end; +function TReferenciaGenericaBusinessProcessorRules.GetNUMTALONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaNUMTALON]); +end; + function TReferenciaGenericaBusinessProcessorRules.GetOldNUMTALONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaNUMTALON]; end; +function TReferenciaGenericaBusinessProcessorRules.GetOldNUMTALONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaNUMTALON]); +end; + procedure TReferenciaGenericaBusinessProcessorRules.SetNUMTALONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaNUMTALON] := aValue; end; +procedure TReferenciaGenericaBusinessProcessorRules.SetNUMTALONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaNUMTALON] := Null; +end; + function TReferenciaGenericaBusinessProcessorRules.GetCODIGO_BARRAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCODIGO_BARRA]; end; +function TReferenciaGenericaBusinessProcessorRules.GetCODIGO_BARRAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCODIGO_BARRA]); +end; + function TReferenciaGenericaBusinessProcessorRules.GetOldCODIGO_BARRAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaCODIGO_BARRA]; end; +function TReferenciaGenericaBusinessProcessorRules.GetOldCODIGO_BARRAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaCODIGO_BARRA]); +end; + procedure TReferenciaGenericaBusinessProcessorRules.SetCODIGO_BARRAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCODIGO_BARRA] := aValue; end; +procedure TReferenciaGenericaBusinessProcessorRules.SetCODIGO_BARRAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCODIGO_BARRA] := Null; +end; + function TReferenciaGenericaBusinessProcessorRules.GetCODIGOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCODIGO]; end; +function TReferenciaGenericaBusinessProcessorRules.GetCODIGOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCODIGO]); +end; + function TReferenciaGenericaBusinessProcessorRules.GetOldCODIGOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaCODIGO]; end; +function TReferenciaGenericaBusinessProcessorRules.GetOldCODIGOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaCODIGO]); +end; + procedure TReferenciaGenericaBusinessProcessorRules.SetCODIGOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCODIGO] := aValue; end; +procedure TReferenciaGenericaBusinessProcessorRules.SetCODIGOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCODIGO] := Null; +end; + function TReferenciaGenericaBusinessProcessorRules.GetPRODUCTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaPRODUCTO]; end; +function TReferenciaGenericaBusinessProcessorRules.GetPRODUCTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaPRODUCTO]); +end; + function TReferenciaGenericaBusinessProcessorRules.GetOldPRODUCTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaPRODUCTO]; end; +function TReferenciaGenericaBusinessProcessorRules.GetOldPRODUCTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaPRODUCTO]); +end; + procedure TReferenciaGenericaBusinessProcessorRules.SetPRODUCTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaPRODUCTO] := aValue; end; +procedure TReferenciaGenericaBusinessProcessorRules.SetPRODUCTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaPRODUCTO] := Null; +end; + function TReferenciaGenericaBusinessProcessorRules.GetCOLORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCOLOR]; end; +function TReferenciaGenericaBusinessProcessorRules.GetCOLORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCOLOR]); +end; + function TReferenciaGenericaBusinessProcessorRules.GetOldCOLORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaCOLOR]; end; +function TReferenciaGenericaBusinessProcessorRules.GetOldCOLORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaCOLOR]); +end; + procedure TReferenciaGenericaBusinessProcessorRules.SetCOLORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCOLOR] := aValue; end; +procedure TReferenciaGenericaBusinessProcessorRules.SetCOLORIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaCOLOR] := Null; +end; + function TReferenciaGenericaBusinessProcessorRules.GetTALLAValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaTALLA]; end; +function TReferenciaGenericaBusinessProcessorRules.GetTALLAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaTALLA]); +end; + function TReferenciaGenericaBusinessProcessorRules.GetOldTALLAValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaTALLA]; end; +function TReferenciaGenericaBusinessProcessorRules.GetOldTALLAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaTALLA]); +end; + procedure TReferenciaGenericaBusinessProcessorRules.SetTALLAValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaTALLA] := aValue; end; +procedure TReferenciaGenericaBusinessProcessorRules.SetTALLAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaTALLA] := Null; +end; + function TReferenciaGenericaBusinessProcessorRules.GetVTAPROCESOValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaVTAPROCESO]; end; +function TReferenciaGenericaBusinessProcessorRules.GetVTAPROCESOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaVTAPROCESO]); +end; + function TReferenciaGenericaBusinessProcessorRules.GetOldVTAPROCESOValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaVTAPROCESO]; end; +function TReferenciaGenericaBusinessProcessorRules.GetOldVTAPROCESOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaVTAPROCESO]); +end; + procedure TReferenciaGenericaBusinessProcessorRules.SetVTAPROCESOValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaVTAPROCESO] := aValue; end; +procedure TReferenciaGenericaBusinessProcessorRules.SetVTAPROCESOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaVTAPROCESO] := Null; +end; + function TReferenciaGenericaBusinessProcessorRules.GetVTAFINALValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaVTAFINAL]; end; +function TReferenciaGenericaBusinessProcessorRules.GetVTAFINALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaVTAFINAL]); +end; + function TReferenciaGenericaBusinessProcessorRules.GetOldVTAFINALValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaVTAFINAL]; end; +function TReferenciaGenericaBusinessProcessorRules.GetOldVTAFINALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaVTAFINAL]); +end; + procedure TReferenciaGenericaBusinessProcessorRules.SetVTAFINALValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaVTAFINAL] := aValue; end; +procedure TReferenciaGenericaBusinessProcessorRules.SetVTAFINALIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaVTAFINAL] := Null; +end; + function TReferenciaGenericaBusinessProcessorRules.GetVTATERMValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaVTATERM]; end; +function TReferenciaGenericaBusinessProcessorRules.GetVTATERMIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaVTATERM]); +end; + function TReferenciaGenericaBusinessProcessorRules.GetOldVTATERMValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaVTATERM]; end; +function TReferenciaGenericaBusinessProcessorRules.GetOldVTATERMIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaVTATERM]); +end; + procedure TReferenciaGenericaBusinessProcessorRules.SetVTATERMValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaVTATERM] := aValue; end; +procedure TReferenciaGenericaBusinessProcessorRules.SetVTATERMIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaVTATERM] := Null; +end; + function TReferenciaGenericaBusinessProcessorRules.GetVALTOTValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaVALTOT]; end; +function TReferenciaGenericaBusinessProcessorRules.GetVALTOTIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaVALTOT]); +end; + function TReferenciaGenericaBusinessProcessorRules.GetOldVALTOTValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaVALTOT]; end; +function TReferenciaGenericaBusinessProcessorRules.GetOldVALTOTIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaVALTOT]); +end; + procedure TReferenciaGenericaBusinessProcessorRules.SetVALTOTValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaVALTOT] := aValue; end; +procedure TReferenciaGenericaBusinessProcessorRules.SetVALTOTIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaVALTOT] := Null; +end; + function TReferenciaGenericaBusinessProcessorRules.GetESTADOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaESTADO]; end; +function TReferenciaGenericaBusinessProcessorRules.GetESTADOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaESTADO]); +end; + function TReferenciaGenericaBusinessProcessorRules.GetOldESTADOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaESTADO]; end; +function TReferenciaGenericaBusinessProcessorRules.GetOldESTADOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaESTADO]); +end; + procedure TReferenciaGenericaBusinessProcessorRules.SetESTADOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaESTADO] := aValue; end; +procedure TReferenciaGenericaBusinessProcessorRules.SetESTADOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaESTADO] := Null; +end; + function TReferenciaGenericaBusinessProcessorRules.GetFECHACAMBIOValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaFECHACAMBIO]; end; +function TReferenciaGenericaBusinessProcessorRules.GetFECHACAMBIOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaFECHACAMBIO]); +end; + function TReferenciaGenericaBusinessProcessorRules.GetOldFECHACAMBIOValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaFECHACAMBIO]; end; +function TReferenciaGenericaBusinessProcessorRules.GetOldFECHACAMBIOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ReferenciaGenericaFECHACAMBIO]); +end; + procedure TReferenciaGenericaBusinessProcessorRules.SetFECHACAMBIOValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaFECHACAMBIO] := aValue; end; +procedure TReferenciaGenericaBusinessProcessorRules.SetFECHACAMBIOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ReferenciaGenericaFECHACAMBIO] := Null; +end; + initialization RegisterBusinessProcessorRules(RID__ExisteFilaReferenciaGenericaDelta, T_ExisteFilaReferenciaGenericaBusinessProcessorRules); diff --git a/Source/Modulos/ReferenciaGenerica/Servidor/srvReferenciaGenerica_Impl.dfm b/Source/Modulos/ReferenciaGenerica/Servidor/srvReferenciaGenerica_Impl.dfm index 6095da5..66cdd08 100644 --- a/Source/Modulos/ReferenciaGenerica/Servidor/srvReferenciaGenerica_Impl.dfm +++ b/Source/Modulos/ReferenciaGenerica/Servidor/srvReferenciaGenerica_Impl.dfm @@ -20,31 +20,26 @@ object srvReferenciaGenerica: TsrvReferenciaGenerica Params = < item Name = 'NUMINF' - BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'CLAVE1' - BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'CLAVE2' - BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'CLAVE3' - BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'NUMCON' - BlobType = dabtUnknown Value = '' ParamType = daptInput end> @@ -85,65 +80,23 @@ object srvReferenciaGenerica: TsrvReferenciaGenerica Name = 'NUMINF' DataType = datString Size = 35 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'CLAVE1' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'CLAVE2' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'CLAVE3' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'NUMCON' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end> - BusinessRulesClient.ScriptLanguage = rslPascalScript - BusinessRulesServer.ScriptLanguage = rslPascalScript end item Params = <> @@ -209,124 +162,55 @@ object srvReferenciaGenerica: TsrvReferenciaGenerica Name = 'CODCENTRO' DataType = datString Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'CENTRO' DataType = datString Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'CODVENDEDOR' DataType = datString Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'VENDEDOR' DataType = datString Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'FECHA' DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'NUMTALON' DataType = datString Size = 35 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'CANTIDAD' DataType = datString Size = 8000 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'VALTOT' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end> - BusinessRulesClient.ScriptLanguage = rslPascalScript - BusinessRulesServer.ScriptLanguage = rslPascalScript end item Params = < item Name = 'CODIGO' - BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'TALLA' - BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'COLOR' - BlobType = dabtUnknown Value = '' ParamType = daptInput end> @@ -370,69 +254,27 @@ object srvReferenciaGenerica: TsrvReferenciaGenerica Name = 'CODIGO_BARRA' DataType = datString Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'COR_PRODUTO' DataType = datString Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'DESC_PRODUTO' DataType = datString Size = 40 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'PRODUTO' DataType = datString Size = 12 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'GRADE' DataType = datString Size = 8 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end> - BusinessRulesClient.ScriptLanguage = rslPascalScript - BusinessRulesServer.ScriptLanguage = rslPascalScript end item Params = <> @@ -451,7 +293,7 @@ object srvReferenciaGenerica: TsrvReferenciaGenerica ' END,'#10' NUMTALON, CODIGO_BARRA, CODIGO, PRODUCTO, COLOR, TA' + 'LLA, VTAPROCESO,'#10' VTAFINAL, VTATERM, VALTOT, ESTADO, FECHACAM' + 'BIO'#10' FROM'#10' RDX_V_REFERENCIA_GENERICA'#10'ORDER BY CENTRO, VENDED' + - 'OR, FECHA' + 'OR, FECHA'#10 StatementType = stSQL ColumnMappings = < item @@ -549,280 +391,106 @@ object srvReferenciaGenerica: TsrvReferenciaGenerica Name = 'NUMINF' DataType = datString Size = 35 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'CLAVE1' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'CLAVE2' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'CLAVE3' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'NUMCON' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'FECHA' DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'CODCENTRO' DataType = datString Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'CENTRO' DataType = datString Size = 45 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'CODVENDEDOR' DataType = datString Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'VENDEDOR' DataType = datString Size = 86 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'NUMTALON' DataType = datString Size = 35 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'CODIGO_BARRA' DataType = datString Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'CODIGO' DataType = datString Size = 12 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'PRODUCTO' DataType = datString Size = 40 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'COLOR' DataType = datString Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'TALLA' DataType = datString Size = 8 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'VTAPROCESO' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'VTAFINAL' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'VTATERM' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'VALTOT' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'ESTADO' DataType = datString Size = 1 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'FECHACAMBIO' DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end> - BusinessRulesClient.ScriptLanguage = rslPascalScript - BusinessRulesServer.ScriptLanguage = rslPascalScript end> JoinDataTables = <> UnionDataTables = <> @@ -833,14 +501,12 @@ object srvReferenciaGenerica: TsrvReferenciaGenerica Name = 'ESTADO' DataType = datString Size = 1 - BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'FECHACAMBIO' DataType = datDateTime - BlobType = dabtUnknown Value = '' ParamType = daptInput end @@ -848,35 +514,30 @@ object srvReferenciaGenerica: TsrvReferenciaGenerica Name = 'CODIGO_BARRA' DataType = datString Size = 25 - BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'VTAPROCESO' DataType = datFloat - BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'VTAFINAL' DataType = datFloat - BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'VTATERM' DataType = datFloat - BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'VALTOT' DataType = datFloat - BlobType = dabtUnknown Value = '' ParamType = daptInput end @@ -884,35 +545,30 @@ object srvReferenciaGenerica: TsrvReferenciaGenerica Name = 'OLD_NUMINF' DataType = datString Size = 35 - BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'OLD_CLAVE1' DataType = datFloat - BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'OLD_CLAVE2' DataType = datFloat - BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'OLD_CLAVE3' DataType = datFloat - BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'OLD_NUMCON' DataType = datInteger - BlobType = dabtUnknown Value = '' ParamType = daptInput end> @@ -938,7 +594,6 @@ object srvReferenciaGenerica: TsrvReferenciaGenerica Name = 'ESTADO' DataType = datString Size = 1 - BlobType = dabtUnknown Value = '' ParamType = daptInput end> @@ -962,28 +617,24 @@ object srvReferenciaGenerica: TsrvReferenciaGenerica Name = 'NUMINF' DataType = datString Size = 35 - BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'CLAVE1' DataType = datFloat - BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'CLAVE2' DataType = datFloat - BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'CLAVE3' DataType = datFloat - BlobType = dabtUnknown Value = '' ParamType = daptInput end @@ -991,14 +642,12 @@ object srvReferenciaGenerica: TsrvReferenciaGenerica Name = 'ESTADO' DataType = datString Size = 1 - BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'FECHACAMBIO' DataType = datDateTime - BlobType = dabtUnknown Value = '' ParamType = daptInput end @@ -1006,35 +655,30 @@ object srvReferenciaGenerica: TsrvReferenciaGenerica Name = 'CODIGO_BARRA' DataType = datString Size = 25 - BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'VTATERM' DataType = datFloat - BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'VTAPROCESO' DataType = datFloat - BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'VTAFINAL' DataType = datFloat - BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'VALTOT' DataType = datFloat - BlobType = dabtUnknown Value = '' ParamType = daptInput end> @@ -1075,35 +719,30 @@ object srvReferenciaGenerica: TsrvReferenciaGenerica Name = 'OLD_NUMINF' DataType = datString Size = 35 - BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'OLD_CLAVE1' DataType = datFloat - BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'OLD_CLAVE2' DataType = datFloat - BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'OLD_CLAVE3' DataType = datFloat - BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'OLD_NUMCON' DataType = datInteger - BlobType = dabtUnknown Value = '' ParamType = daptInput end> @@ -1228,7 +867,6 @@ object srvReferenciaGenerica: TsrvReferenciaGenerica MasterMappingMode = mmDataRequest StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False - ReadOnly = False DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] IndexDefs = <> @@ -1294,8 +932,6 @@ object srvReferenciaGenerica: TsrvReferenciaGenerica Top = 144 end object DABINAdapter: TDABINAdapter - BufferSize = 262144 - IsCompatibleV4 = True Left = 336 Top = 32 end diff --git a/Source/Modulos/Stock/Cliente/uDataModuleStock.dfm b/Source/Modulos/Stock/Cliente/uDataModuleStock.dfm index 2f888c3..50d9092 100644 --- a/Source/Modulos/Stock/Cliente/uDataModuleStock.dfm +++ b/Source/Modulos/Stock/Cliente/uDataModuleStock.dfm @@ -17,350 +17,151 @@ object dmStock: TdmStock Name = 'CENTRO' DataType = datString Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False + end + item + Name = 'FILIAL' + DataType = datString + Size = 25 end item Name = 'CODIGO' DataType = datString Size = 12 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'PRODUCTO' DataType = datString Size = 40 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'TIPO_PRODUCTO' DataType = datString Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'GRUPO_PRODUCTO' DataType = datString Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'COLECCION' DataType = datString Size = 40 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'COLOR' DataType = datString Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'E38' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'E40' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'E42' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'E44' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'E46' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'E48' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'TE' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'S38' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'S40' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'S42' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'S44' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'S46' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'S48' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'TS' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'K38' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'K40' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'K42' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'K44' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'K46' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'K48' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'KT' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end> Params = <> MasterMappingMode = mmDataRequest StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = DARemoteDataAdapter - ReadOnly = False DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'StockEDI' @@ -375,182 +176,76 @@ object dmStock: TdmStock Name = 'FILIAL' DataType = datString Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'CODIGO' DataType = datString Size = 12 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'COLOR' DataType = datString Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'PRODUCTO' DataType = datString Size = 40 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'TIPO_PRODUTO' DataType = datString Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'GRUPO_PRODUTO' DataType = datString Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'COLECCION' DataType = datString Size = 40 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'K38' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'K40' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'K42' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'K44' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'K46' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'K48' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'KT' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end> Params = <> MasterMappingMode = mmDataRequest StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = DARemoteDataAdapter - ReadOnly = False DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'StockVARELA' @@ -565,182 +260,84 @@ object dmStock: TdmStock Name = 'CODIGO' DataType = datString Size = 12 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'C'#243'digo' - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'PRODUCTO' DataType = datString Size = 40 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Producto' - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'TIPO_PRODUCTO' DataType = datString Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Tipo' - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'GRUPO_PRODUCTO' DataType = datString Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Grupo' - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'COLECCION' DataType = datString Size = 40 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Colecci'#243'n' - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'COLOR' DataType = datString Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Color' - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'T38' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = '38' Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'T40' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = '40' Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'T42' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = '42' Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'T44' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = '44' Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'T46' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = '46' Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'T48' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = '48' Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'TOTAL' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Total' Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end> Params = <> MasterMappingMode = mmDataRequest StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = DARemoteDataAdapter - ReadOnly = False DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'StockPrendasCentros' @@ -761,356 +358,136 @@ object dmStock: TdmStock Name = 'CENTRO' DataType = datString Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False + end + item + Name = 'FILIAL' + DataType = datString + Size = 25 end item Name = 'CODIGO' DataType = datString Size = 12 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'PRODUCTO' DataType = datString Size = 40 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'COLOR' DataType = datString Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'TIPO_PRODUCTO' DataType = datString Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'GRUPO_PRODUCTO' DataType = datString Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'COLECCION' DataType = datString Size = 6 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'I38' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'I40' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'I42' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'I44' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'I46' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'I48' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'TI' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'K38' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'K40' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'K42' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'K44' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'K46' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'K48' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'TK' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'D38' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'D40' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'D42' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'D44' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'D46' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'D48' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'DT' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end> Params = <> MasterMappingMode = mmDataRequest StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = DARemoteDataAdapter - ReadOnly = False DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'StockEDIInventario' IndexDefs = <> Left = 185 - Top = 136 + Top = 128 end object DARemoteDataAdapter: TDARemoteDataAdapter GetSchemaCall.RemoteService = RORemoteService @@ -1120,6 +497,7 @@ object dmStock: TdmStock Name = 'Result' DataType = rtString Flag = fResult + Value = Null end> GetSchemaCall.Default = False GetSchemaCall.IncomingSchemaParameter = 'Result' @@ -1137,6 +515,7 @@ object dmStock: TdmStock Name = 'DatasetName' DataType = rtString Flag = fIn + Value = 'StockEDIInventario' end item Name = 'Params' @@ -1155,11 +534,13 @@ object dmStock: TdmStock Name = 'IncludeSchema' DataType = rtBoolean Flag = fIn + Value = False end item Name = 'MaxRecords' DataType = rtInteger Flag = fIn + Value = -1 end> GetDataCall.Default = False GetDataCall.OutgoingTableNamesParameter = 'DatasetName' @@ -1202,7 +583,6 @@ object dmStock: TdmStock GetScriptsCall.IncomingScriptParameter = 'Result' RemoteService = RORemoteService DataStreamer = dmBase.DABINAdapter - FailureBehavior = fbBoth Left = 48 Top = 96 end diff --git a/Source/Modulos/Stock/Cliente/uEditorControlStockVARELA.dfm b/Source/Modulos/Stock/Cliente/uEditorControlStockVARELA.dfm index b1d2d53..ba48fa0 100644 --- a/Source/Modulos/Stock/Cliente/uEditorControlStockVARELA.dfm +++ b/Source/Modulos/Stock/Cliente/uEditorControlStockVARELA.dfm @@ -11,7 +11,7 @@ inherited fEditorControlStockVARELA: TfEditorControlStockVARELA inherited JvNavPanelHeader: TJvNavPanelHeader Width = 720 Caption = 'Control de stock de almac'#233'n' - ExplicitWidth = 1071 + ExplicitWidth = 720 inherited Image1: TImage Left = 693 Picture.Data = { @@ -127,22 +127,35 @@ inherited fEditorControlStockVARELA: TfEditorControlStockVARELA end inherited TBXDock: TTBXDock Width = 720 + ExplicitWidth = 720 inherited tbxMain: TTBXToolbar - ExplicitWidth = 256 + ExplicitWidth = 331 + object TBXSeparatorItem16: TTBXSeparatorItem [13] + end + object TBXItem35: TTBXItem [14] + Action = actExpandir + end + object TBXItem36: TTBXItem [15] + Action = actContraer + end + object TBXItem37: TTBXItem [16] + Action = actAnchoAuto + end end inherited tbxMenu: TTBXToolbar ExplicitWidth = 720 end inherited tbxFiltro: TTBXToolbar - Left = 392 - ExplicitLeft = 392 + Left = 337 + DockPos = 337 + ExplicitLeft = 337 end end inherited StatusBar: TStatusBar Top = 554 Width = 720 ExplicitTop = 554 - ExplicitWidth = 1071 + ExplicitWidth = 720 end inline frViewControlGridStockVARELA1: TfrViewControlGridStockVARELA [3] Left = 0 @@ -158,14 +171,14 @@ inherited fEditorControlStockVARELA: TfEditorControlStockVARELA ParentFont = False TabOrder = 3 ReadOnly = False - ExplicitLeft = -111 - ExplicitTop = 223 + ExplicitTop = 76 + ExplicitWidth = 720 + ExplicitHeight = 478 inherited cxGrid: TcxGrid Width = 720 Height = 418 - ExplicitTop = 60 - ExplicitWidth = 831 - ExplicitHeight = 290 + ExplicitWidth = 720 + ExplicitHeight = 418 inherited cxGridView: TcxGridDBTableView DataController.Summary.DefaultGroupSummaryItems = < item @@ -260,27 +273,25 @@ inherited fEditorControlStockVARELA: TfEditorControlStockVARELA end end inherited TBXDockablePanel1: TTBXDockablePanel + ExplicitWidth = 720 inherited frViewParametrosColeccion1: TfrViewParametrosColeccion - ExplicitHeight = 41 inherited dxLayoutControl1: TdxLayoutControl - ExplicitHeight = 41 inherited ccbColeccion: TJvCheckedComboBox - Width = 512 - ExplicitWidth = 512 + Width = 513 + ExplicitWidth = 513 end end end inherited pnlAgrupaciones: TTBXAlignmentPanel Width = 399 - ExplicitWidth = 510 - ExplicitHeight = 41 + ExplicitWidth = 399 inherited TBXButton3: TTBXButton Action = actRefrescar end end inherited TBXLabel1: TTBXLabel Width = 720 - ExplicitWidth = 831 + ExplicitWidth = 720 end end inherited dxComponentPrinter: TdxComponentPrinter diff --git a/Source/Modulos/Stock/Cliente/uEditorControlStockVARELA.pas b/Source/Modulos/Stock/Cliente/uEditorControlStockVARELA.pas index 9a160e2..662a600 100644 --- a/Source/Modulos/Stock/Cliente/uEditorControlStockVARELA.pas +++ b/Source/Modulos/Stock/Cliente/uEditorControlStockVARELA.pas @@ -28,6 +28,10 @@ type actContraer: TAction; actAnchoAuto: TAction; frViewControlGridStockVARELA1: TfrViewControlGridStockVARELA; + TBXSeparatorItem16: TTBXSeparatorItem; + TBXItem35: TTBXItem; + TBXItem36: TTBXItem; + TBXItem37: TTBXItem; procedure actAnchoAutoExecute(Sender: TObject); procedure FormShow(Sender: TObject); procedure actPrevisualizarExecute(Sender: TObject); diff --git a/Source/Modulos/Stock/Cliente/uViewControGridStockEDI.dfm b/Source/Modulos/Stock/Cliente/uViewControGridStockEDI.dfm index 8de9679..c2ac469 100644 --- a/Source/Modulos/Stock/Cliente/uViewControGridStockEDI.dfm +++ b/Source/Modulos/Stock/Cliente/uViewControGridStockEDI.dfm @@ -7,9 +7,9 @@ inherited frViewControlGridStockEDI: TfrViewControlGridStockEDI Top = 60 Width = 553 Height = 417 - ExplicitTop = 128 + ExplicitTop = 60 ExplicitWidth = 553 - ExplicitHeight = 349 + ExplicitHeight = 417 inherited cxGridView: TcxGridDBTableView FilterBox.Visible = fvNever DataController.Summary.DefaultGroupSummaryItems = < @@ -259,7 +259,7 @@ inherited frViewControlGridStockEDI: TfrViewControlGridStockEDI end object cxGridViewCENTRO: TcxGridDBColumn Caption = 'Centro' - DataBinding.FieldName = 'CENTRO' + DataBinding.FieldName = 'FILIAL' Visible = False GroupIndex = 1 end @@ -474,14 +474,10 @@ inherited frViewControlGridStockEDI: TfrViewControlGridStockEDI ReadOnly = False ExplicitTop = 19 ExplicitWidth = 321 - ExplicitHeight = 109 + ExplicitHeight = 41 inherited dxLayoutControl1: TdxLayoutControl Width = 321 ExplicitWidth = 321 - inherited ccbColeccion: TJvCheckedComboBox - Width = 512 - ExplicitWidth = 512 - end end end inline frViewParametrosCentro1: TfrViewParametrosCentro @@ -496,14 +492,10 @@ inherited frViewControlGridStockEDI: TfrViewControlGridStockEDI ExplicitLeft = 321 ExplicitTop = 19 ExplicitWidth = 400 - ExplicitHeight = 109 + ExplicitHeight = 41 inherited dxLayoutControl1: TdxLayoutControl Width = 400 ExplicitWidth = 400 - inherited ccbCentro: TJvCheckedComboBox - Width = 392 - ExplicitWidth = 392 - end end end object TBXAlignmentPanel1: TTBXAlignmentPanel @@ -514,7 +506,6 @@ inherited frViewControlGridStockEDI: TfrViewControlGridStockEDI Align = alClient AutoSize = True TabOrder = 2 - ExplicitHeight = 109 object TBXButton1: TTBXButton Tag = 3 Left = 8 @@ -572,7 +563,7 @@ inherited frViewControlGridStockEDI: TfrViewControlGridStockEDI PrinterPage._dxMeasurementUnits_ = 0 PrinterPage._dxLastMU_ = 2 ReportDocument.Caption = 'Venta mensual' - ReportDocument.CreationDate = 39343.811115983790000000 + ReportDocument.CreationDate = 39346.803634976850000000 ReportTitle.Text = 'Venta mensual' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack diff --git a/Source/Modulos/Stock/Cliente/uViewControGridStockEDI.pas b/Source/Modulos/Stock/Cliente/uViewControGridStockEDI.pas index 6cc9c6c..3cdbade 100644 --- a/Source/Modulos/Stock/Cliente/uViewControGridStockEDI.pas +++ b/Source/Modulos/Stock/Cliente/uViewControGridStockEDI.pas @@ -109,14 +109,14 @@ uses uViewGridBase; procedure TfrViewControlGridStockEDI.Preview; begin inherited; -// dxComponentPrinterLink1.ReportTitle.Text := 'Control de stock de colección ' + frViewFiltrosStock1.cbColeccion.Text + ' en centro(s) ' + frViewFiltrosStock1.ccbCentro.Text; + dxComponentPrinterLink1.ReportTitle.Text := 'Control de stock de colección ' + frViewParametrosColeccion1.ccbColeccion.Text + ' en centro(s) ' + frViewParametrosCentro1.ccbCentro.Text; dxComponentPrinterLink1.Preview; end; procedure TfrViewControlGridStockEDI.Print; begin inherited; -// dxComponentPrinterLink1.ReportTitle.Text := 'Control de stock de colección ' + frViewFiltrosStock1.cbColeccion.Text + ' en centro(s) ' + frViewFiltrosStock1.ccbCentro.Text; + dxComponentPrinterLink1.ReportTitle.Text := 'Control de stock de colección ' + frViewParametrosColeccion1.ccbColeccion.Text + ' en centro(s) ' + frViewParametrosCentro1.ccbCentro.Text; dxComponentPrinterLink1.Print(True, Nil); end; @@ -195,7 +195,7 @@ begin if Assigned(FItems) then Items.DataTable.Active := False; AColeccionesList := frViewParametrosColeccion1.ColeccionesSeleccionadas; - ACentrosList := frViewParametrosCentro1.CentrosSeleccionados; + ACentrosList := frViewParametrosCentro1.CodigoCentrosSeleccionados; ShowHourglassCursor; try diff --git a/Source/Modulos/Stock/Cliente/uViewControGridStockEDIInventario.dfm b/Source/Modulos/Stock/Cliente/uViewControGridStockEDIInventario.dfm index 2cd06fc..be543e6 100644 --- a/Source/Modulos/Stock/Cliente/uViewControGridStockEDIInventario.dfm +++ b/Source/Modulos/Stock/Cliente/uViewControGridStockEDIInventario.dfm @@ -7,9 +7,9 @@ inherited frViewControlGridStockEDIInventario: TfrViewControlGridStockEDIInventa Top = 60 Width = 553 Height = 417 - ExplicitTop = 128 + ExplicitTop = 60 ExplicitWidth = 553 - ExplicitHeight = 349 + ExplicitHeight = 417 inherited cxGridView: TcxGridDBTableView FilterBox.Visible = fvNever DataController.Summary.DefaultGroupSummaryItems = < @@ -259,7 +259,7 @@ inherited frViewControlGridStockEDIInventario: TfrViewControlGridStockEDIInventa end object cxGridViewCENTRO: TcxGridDBColumn Caption = 'Centro' - DataBinding.FieldName = 'CENTRO' + DataBinding.FieldName = 'FILIAL' Visible = False GroupIndex = 1 end @@ -474,7 +474,7 @@ inherited frViewControlGridStockEDIInventario: TfrViewControlGridStockEDIInventa ReadOnly = False ExplicitTop = 19 ExplicitWidth = 321 - ExplicitHeight = 109 + ExplicitHeight = 41 inherited dxLayoutControl1: TdxLayoutControl Width = 321 ExplicitWidth = 321 @@ -496,7 +496,7 @@ inherited frViewControlGridStockEDIInventario: TfrViewControlGridStockEDIInventa ExplicitLeft = 321 ExplicitTop = 19 ExplicitWidth = 400 - ExplicitHeight = 109 + ExplicitHeight = 41 inherited dxLayoutControl1: TdxLayoutControl Width = 400 ExplicitWidth = 400 @@ -514,7 +514,6 @@ inherited frViewControlGridStockEDIInventario: TfrViewControlGridStockEDIInventa Align = alClient AutoSize = True TabOrder = 2 - ExplicitHeight = 109 object TBXButton3: TTBXButton Tag = 3 Left = 8 @@ -572,7 +571,7 @@ inherited frViewControlGridStockEDIInventario: TfrViewControlGridStockEDIInventa PrinterPage._dxMeasurementUnits_ = 0 PrinterPage._dxLastMU_ = 2 ReportDocument.Caption = 'Venta mensual' - ReportDocument.CreationDate = 39343.811842083330000000 + ReportDocument.CreationDate = 39346.818025173610000000 ReportTitle.Text = 'Venta mensual' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack diff --git a/Source/Modulos/Stock/Cliente/uViewControGridStockEDIInventario.pas b/Source/Modulos/Stock/Cliente/uViewControGridStockEDIInventario.pas index 7500e83..e4340cb 100644 --- a/Source/Modulos/Stock/Cliente/uViewControGridStockEDIInventario.pas +++ b/Source/Modulos/Stock/Cliente/uViewControGridStockEDIInventario.pas @@ -109,14 +109,14 @@ uses procedure TfrViewControlGridStockEDIInventario.Preview; begin inherited; -// dxComponentPrinterLink1.ReportTitle.Text := 'Diferencias con último inventario de colección ' + frViewFiltrosStock1.cbColeccion.Text + ' en centro(s) ' + frViewFiltrosStock1.ccbCentro.Text; + dxComponentPrinterLink1.ReportTitle.Text := 'Diferencias con último inventario de colección ' + frViewParametrosColeccion1.ccbColeccion.Text + ' en centro(s) ' + frViewParametrosCentro1.ccbCentro.Text; dxComponentPrinterLink1.Preview; end; procedure TfrViewControlGridStockEDIInventario.Print; begin inherited; -// dxComponentPrinterLink1.ReportTitle.Text := 'Diferencias con último inventario de colección ' + frViewFiltrosStock1.cbColeccion.Text + ' en centro(s) ' + frViewFiltrosStock1.ccbCentro.Text; + dxComponentPrinterLink1.ReportTitle.Text := 'Diferencias con último inventario de colección ' + frViewParametrosColeccion1.ccbColeccion.Text + ' en centro(s) ' + frViewParametrosCentro1.ccbCentro.Text; dxComponentPrinterLink1.Print(True, Nil); end; @@ -195,7 +195,7 @@ begin if Assigned(FItems) then Items.DataTable.Active := False; AColeccionesList := frViewParametrosColeccion1.ColeccionesSeleccionadas; - ACentrosList := frViewParametrosCentro1.CentrosSeleccionados; + ACentrosList := frViewParametrosCentro1.CodigoCentrosSeleccionados; ShowHourglassCursor; try @@ -252,7 +252,7 @@ begin Items.DataTable.Where.Clear; - Items.DataTable.Where.AddText(AWhere, False); +// Items.DataTable.Where.AddText(AWhere, False); Items.DataTable.Active := True; finally diff --git a/Source/Modulos/Stock/Cliente/uViewControGridStockPrendasCentros.dfm b/Source/Modulos/Stock/Cliente/uViewControGridStockPrendasCentros.dfm index 5c60d21..65dc2c8 100644 --- a/Source/Modulos/Stock/Cliente/uViewControGridStockPrendasCentros.dfm +++ b/Source/Modulos/Stock/Cliente/uViewControGridStockPrendasCentros.dfm @@ -7,9 +7,9 @@ inherited frViewControlGridStockPrendasCentros: TfrViewControlGridStockPrendasCe Top = 60 Width = 621 Height = 399 - ExplicitTop = 128 + ExplicitTop = 60 ExplicitWidth = 621 - ExplicitHeight = 331 + ExplicitHeight = 399 inherited cxGridView: TcxGridDBTableView FilterBox.Visible = fvNever DataController.Summary.DefaultGroupSummaryItems = < @@ -218,7 +218,7 @@ inherited frViewControlGridStockPrendasCentros: TfrViewControlGridStockPrendasCe ReadOnly = False ExplicitTop = 19 ExplicitWidth = 321 - ExplicitHeight = 109 + ExplicitHeight = 41 inherited dxLayoutControl1: TdxLayoutControl Width = 321 ExplicitWidth = 321 @@ -236,7 +236,6 @@ inherited frViewControlGridStockPrendasCentros: TfrViewControlGridStockPrendasCe Align = alClient AutoSize = True TabOrder = 1 - ExplicitHeight = 109 object TBXButton3: TTBXButton Tag = 3 Left = 8 @@ -296,7 +295,7 @@ inherited frViewControlGridStockPrendasCentros: TfrViewControlGridStockPrendasCe PrinterPage.PageSize.Y = 297000 PrinterPage._dxMeasurementUnits_ = 0 PrinterPage._dxLastMU_ = 2 - ReportDocument.CreationDate = 39343.812036666670000000 + ReportDocument.CreationDate = 39346.696871921300000000 ReportDocument.IsCaptionAssigned = True ReportTitle.AdjustOnReportScale = True ReportTitle.Text = 'Venta mensual' diff --git a/Source/Modulos/Stock/Cliente/uViewControGridStockPrendasCentros.pas b/Source/Modulos/Stock/Cliente/uViewControGridStockPrendasCentros.pas index a5b131f..c071644 100644 --- a/Source/Modulos/Stock/Cliente/uViewControGridStockPrendasCentros.pas +++ b/Source/Modulos/Stock/Cliente/uViewControGridStockPrendasCentros.pas @@ -186,7 +186,7 @@ begin AWhere := AWhere + AWhereColeccion; Items.DataTable.Where.Clear; - Items.DataTable.Where.AddText(AWhere, False); +// Items.DataTable.Where.AddText(AWhere, False); Items.DataTable.Active := True; finally diff --git a/Source/Modulos/Stock/Reglas/schStockClient_Intf.pas b/Source/Modulos/Stock/Reglas/schStockClient_Intf.pas index e984ff2..c5b3a6a 100644 --- a/Source/Modulos/Stock/Reglas/schStockClient_Intf.pas +++ b/Source/Modulos/Stock/Reglas/schStockClient_Intf.pas @@ -3,16 +3,16 @@ unit schStockClient_Intf; interface uses - Classes, DB, SysUtils, uROClasses, uDADataTable; + 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_StockPrendasCentros = '{A01C38D3-19DC-42D1-A0CB-6ABF3E9D5507}'; - RID_StockEDI = '{0CB949AB-F343-4ECF-9163-69234641CEB1}'; - RID_StockVARELA = '{DFB28AB8-F8C4-4AAD-AA73-8015541091D0}'; - RID_StockEDIInventario = '{5496215D-7A4A-43E1-929A-D0538C931177}'; + RID_StockPrendasCentros = '{A8012514-80BD-45B0-9270-F3C4AE5877F8}'; + RID_StockEDI = '{4E97650E-1103-4506-97A1-FDD43A81590A}'; + RID_StockVARELA = '{756C613D-6C51-4E60-B82C-5363636B0DAB}'; + RID_StockEDIInventario = '{E6A81993-C6F8-456A-B88E-08481D29019E}'; { Data table names } nme_StockPrendasCentros = 'StockPrendasCentros'; @@ -52,6 +52,7 @@ const { StockEDI fields } fld_StockEDICENTRO = 'CENTRO'; + fld_StockEDIFILIAL = 'FILIAL'; fld_StockEDICODIGO = 'CODIGO'; fld_StockEDIPRODUCTO = 'PRODUCTO'; fld_StockEDITIPO_PRODUCTO = 'TIPO_PRODUCTO'; @@ -82,33 +83,34 @@ const { StockEDI field indexes } idx_StockEDICENTRO = 0; - idx_StockEDICODIGO = 1; - idx_StockEDIPRODUCTO = 2; - idx_StockEDITIPO_PRODUCTO = 3; - idx_StockEDIGRUPO_PRODUCTO = 4; - idx_StockEDICOLECCION = 5; - idx_StockEDICOLOR = 6; - idx_StockEDIE38 = 7; - idx_StockEDIE40 = 8; - idx_StockEDIE42 = 9; - idx_StockEDIE44 = 10; - idx_StockEDIE46 = 11; - idx_StockEDIE48 = 12; - idx_StockEDITE = 13; - idx_StockEDIS38 = 14; - idx_StockEDIS40 = 15; - idx_StockEDIS42 = 16; - idx_StockEDIS44 = 17; - idx_StockEDIS46 = 18; - idx_StockEDIS48 = 19; - idx_StockEDITS = 20; - idx_StockEDIK38 = 21; - idx_StockEDIK40 = 22; - idx_StockEDIK42 = 23; - idx_StockEDIK44 = 24; - idx_StockEDIK46 = 25; - idx_StockEDIK48 = 26; - idx_StockEDIKT = 27; + idx_StockEDIFILIAL = 1; + idx_StockEDICODIGO = 2; + idx_StockEDIPRODUCTO = 3; + idx_StockEDITIPO_PRODUCTO = 4; + idx_StockEDIGRUPO_PRODUCTO = 5; + idx_StockEDICOLECCION = 6; + idx_StockEDICOLOR = 7; + idx_StockEDIE38 = 8; + idx_StockEDIE40 = 9; + idx_StockEDIE42 = 10; + idx_StockEDIE44 = 11; + idx_StockEDIE46 = 12; + idx_StockEDIE48 = 13; + idx_StockEDITE = 14; + idx_StockEDIS38 = 15; + idx_StockEDIS40 = 16; + idx_StockEDIS42 = 17; + idx_StockEDIS44 = 18; + idx_StockEDIS46 = 19; + idx_StockEDIS48 = 20; + idx_StockEDITS = 21; + idx_StockEDIK38 = 22; + idx_StockEDIK40 = 23; + idx_StockEDIK42 = 24; + idx_StockEDIK44 = 25; + idx_StockEDIK46 = 26; + idx_StockEDIK48 = 27; + idx_StockEDIKT = 28; { StockVARELA fields } fld_StockVARELAFILIAL = 'FILIAL'; @@ -144,6 +146,7 @@ const { StockEDIInventario fields } fld_StockEDIInventarioCENTRO = 'CENTRO'; + fld_StockEDIInventarioFILIAL = 'FILIAL'; fld_StockEDIInventarioCODIGO = 'CODIGO'; fld_StockEDIInventarioPRODUCTO = 'PRODUCTO'; fld_StockEDIInventarioCOLOR = 'COLOR'; @@ -174,81 +177,121 @@ const { StockEDIInventario field indexes } idx_StockEDIInventarioCENTRO = 0; - idx_StockEDIInventarioCODIGO = 1; - idx_StockEDIInventarioPRODUCTO = 2; - idx_StockEDIInventarioCOLOR = 3; - idx_StockEDIInventarioTIPO_PRODUCTO = 4; - idx_StockEDIInventarioGRUPO_PRODUCTO = 5; - idx_StockEDIInventarioCOLECCION = 6; - idx_StockEDIInventarioI38 = 7; - idx_StockEDIInventarioI40 = 8; - idx_StockEDIInventarioI42 = 9; - idx_StockEDIInventarioI44 = 10; - idx_StockEDIInventarioI46 = 11; - idx_StockEDIInventarioI48 = 12; - idx_StockEDIInventarioTI = 13; - idx_StockEDIInventarioK38 = 14; - idx_StockEDIInventarioK40 = 15; - idx_StockEDIInventarioK42 = 16; - idx_StockEDIInventarioK44 = 17; - idx_StockEDIInventarioK46 = 18; - idx_StockEDIInventarioK48 = 19; - idx_StockEDIInventarioTK = 20; - idx_StockEDIInventarioD38 = 21; - idx_StockEDIInventarioD40 = 22; - idx_StockEDIInventarioD42 = 23; - idx_StockEDIInventarioD44 = 24; - idx_StockEDIInventarioD46 = 25; - idx_StockEDIInventarioD48 = 26; - idx_StockEDIInventarioDT = 27; + idx_StockEDIInventarioFILIAL = 1; + idx_StockEDIInventarioCODIGO = 2; + idx_StockEDIInventarioPRODUCTO = 3; + idx_StockEDIInventarioCOLOR = 4; + idx_StockEDIInventarioTIPO_PRODUCTO = 5; + idx_StockEDIInventarioGRUPO_PRODUCTO = 6; + idx_StockEDIInventarioCOLECCION = 7; + idx_StockEDIInventarioI38 = 8; + idx_StockEDIInventarioI40 = 9; + idx_StockEDIInventarioI42 = 10; + idx_StockEDIInventarioI44 = 11; + idx_StockEDIInventarioI46 = 12; + idx_StockEDIInventarioI48 = 13; + idx_StockEDIInventarioTI = 14; + idx_StockEDIInventarioK38 = 15; + idx_StockEDIInventarioK40 = 16; + idx_StockEDIInventarioK42 = 17; + idx_StockEDIInventarioK44 = 18; + idx_StockEDIInventarioK46 = 19; + idx_StockEDIInventarioK48 = 20; + idx_StockEDIInventarioTK = 21; + idx_StockEDIInventarioD38 = 22; + idx_StockEDIInventarioD40 = 23; + idx_StockEDIInventarioD42 = 24; + idx_StockEDIInventarioD44 = 25; + idx_StockEDIInventarioD46 = 26; + idx_StockEDIInventarioD48 = 27; + idx_StockEDIInventarioDT = 28; type { IStockPrendasCentros } IStockPrendasCentros = interface(IDAStronglyTypedDataTable) - ['{9147A7A9-8562-4C08-8D0F-4E08050ED78D}'] + ['{A49DB067-BF73-4963-B765-92DA5C47C377}'] { Property getters and setters } function GetCODIGOValue: String; procedure SetCODIGOValue(const aValue: String); + function GetCODIGOIsNull: Boolean; + procedure SetCODIGOIsNull(const aValue: Boolean); function GetPRODUCTOValue: String; procedure SetPRODUCTOValue(const aValue: String); + function GetPRODUCTOIsNull: Boolean; + procedure SetPRODUCTOIsNull(const aValue: Boolean); function GetTIPO_PRODUCTOValue: String; procedure SetTIPO_PRODUCTOValue(const aValue: String); + function GetTIPO_PRODUCTOIsNull: Boolean; + procedure SetTIPO_PRODUCTOIsNull(const aValue: Boolean); function GetGRUPO_PRODUCTOValue: String; procedure SetGRUPO_PRODUCTOValue(const aValue: String); + function GetGRUPO_PRODUCTOIsNull: Boolean; + procedure SetGRUPO_PRODUCTOIsNull(const aValue: Boolean); function GetCOLECCIONValue: String; procedure SetCOLECCIONValue(const aValue: String); + function GetCOLECCIONIsNull: Boolean; + procedure SetCOLECCIONIsNull(const aValue: Boolean); function GetCOLORValue: String; procedure SetCOLORValue(const aValue: String); + function GetCOLORIsNull: Boolean; + procedure SetCOLORIsNull(const aValue: Boolean); function GetT38Value: Float; procedure SetT38Value(const aValue: Float); + function GetT38IsNull: Boolean; + procedure SetT38IsNull(const aValue: Boolean); function GetT40Value: Float; procedure SetT40Value(const aValue: Float); + function GetT40IsNull: Boolean; + procedure SetT40IsNull(const aValue: Boolean); function GetT42Value: Float; procedure SetT42Value(const aValue: Float); + function GetT42IsNull: Boolean; + procedure SetT42IsNull(const aValue: Boolean); function GetT44Value: Float; procedure SetT44Value(const aValue: Float); + function GetT44IsNull: Boolean; + procedure SetT44IsNull(const aValue: Boolean); function GetT46Value: Float; procedure SetT46Value(const aValue: Float); + function GetT46IsNull: Boolean; + procedure SetT46IsNull(const aValue: Boolean); function GetT48Value: Float; procedure SetT48Value(const aValue: Float); + function GetT48IsNull: Boolean; + procedure SetT48IsNull(const aValue: Boolean); function GetTOTALValue: Float; procedure SetTOTALValue(const aValue: Float); + function GetTOTALIsNull: Boolean; + procedure SetTOTALIsNull(const aValue: Boolean); { Properties } property CODIGO: String read GetCODIGOValue write SetCODIGOValue; + property CODIGOIsNull: Boolean read GetCODIGOIsNull write SetCODIGOIsNull; property PRODUCTO: String read GetPRODUCTOValue write SetPRODUCTOValue; + property PRODUCTOIsNull: Boolean read GetPRODUCTOIsNull write SetPRODUCTOIsNull; property TIPO_PRODUCTO: String read GetTIPO_PRODUCTOValue write SetTIPO_PRODUCTOValue; + property TIPO_PRODUCTOIsNull: Boolean read GetTIPO_PRODUCTOIsNull write SetTIPO_PRODUCTOIsNull; property GRUPO_PRODUCTO: String read GetGRUPO_PRODUCTOValue write SetGRUPO_PRODUCTOValue; + property GRUPO_PRODUCTOIsNull: Boolean read GetGRUPO_PRODUCTOIsNull write SetGRUPO_PRODUCTOIsNull; property COLECCION: String read GetCOLECCIONValue write SetCOLECCIONValue; + property COLECCIONIsNull: Boolean read GetCOLECCIONIsNull write SetCOLECCIONIsNull; property COLOR: String read GetCOLORValue write SetCOLORValue; + property COLORIsNull: Boolean read GetCOLORIsNull write SetCOLORIsNull; property T38: Float read GetT38Value write SetT38Value; + property T38IsNull: Boolean read GetT38IsNull write SetT38IsNull; property T40: Float read GetT40Value write SetT40Value; + property T40IsNull: Boolean read GetT40IsNull write SetT40IsNull; property T42: Float read GetT42Value write SetT42Value; + property T42IsNull: Boolean read GetT42IsNull write SetT42IsNull; property T44: Float read GetT44Value write SetT44Value; + property T44IsNull: Boolean read GetT44IsNull write SetT44IsNull; property T46: Float read GetT46Value write SetT46Value; + property T46IsNull: Boolean read GetT46IsNull write SetT46IsNull; property T48: Float read GetT48Value write SetT48Value; + property T48IsNull: Boolean read GetT48IsNull write SetT48IsNull; property TOTAL: Float read GetTOTALValue write SetTOTALValue; + property TOTALIsNull: Boolean read GetTOTALIsNull write SetTOTALIsNull; end; { TStockPrendasCentrosDataTableRules } @@ -258,45 +301,84 @@ type { Property getters and setters } function GetCODIGOValue: String; virtual; procedure SetCODIGOValue(const aValue: String); virtual; + function GetCODIGOIsNull: Boolean; virtual; + procedure SetCODIGOIsNull(const aValue: Boolean); virtual; function GetPRODUCTOValue: String; virtual; procedure SetPRODUCTOValue(const aValue: String); virtual; + function GetPRODUCTOIsNull: Boolean; virtual; + procedure SetPRODUCTOIsNull(const aValue: Boolean); virtual; function GetTIPO_PRODUCTOValue: String; virtual; procedure SetTIPO_PRODUCTOValue(const aValue: String); virtual; + function GetTIPO_PRODUCTOIsNull: Boolean; virtual; + procedure SetTIPO_PRODUCTOIsNull(const aValue: Boolean); virtual; function GetGRUPO_PRODUCTOValue: String; virtual; procedure SetGRUPO_PRODUCTOValue(const aValue: String); virtual; + function GetGRUPO_PRODUCTOIsNull: Boolean; virtual; + procedure SetGRUPO_PRODUCTOIsNull(const aValue: Boolean); virtual; function GetCOLECCIONValue: String; virtual; procedure SetCOLECCIONValue(const aValue: String); virtual; + function GetCOLECCIONIsNull: Boolean; virtual; + procedure SetCOLECCIONIsNull(const aValue: Boolean); virtual; function GetCOLORValue: String; virtual; procedure SetCOLORValue(const aValue: String); virtual; + function GetCOLORIsNull: Boolean; virtual; + procedure SetCOLORIsNull(const aValue: Boolean); virtual; function GetT38Value: Float; virtual; procedure SetT38Value(const aValue: Float); virtual; + function GetT38IsNull: Boolean; virtual; + procedure SetT38IsNull(const aValue: Boolean); virtual; function GetT40Value: Float; virtual; procedure SetT40Value(const aValue: Float); virtual; + function GetT40IsNull: Boolean; virtual; + procedure SetT40IsNull(const aValue: Boolean); virtual; function GetT42Value: Float; virtual; procedure SetT42Value(const aValue: Float); virtual; + function GetT42IsNull: Boolean; virtual; + procedure SetT42IsNull(const aValue: Boolean); virtual; function GetT44Value: Float; virtual; procedure SetT44Value(const aValue: Float); virtual; + function GetT44IsNull: Boolean; virtual; + procedure SetT44IsNull(const aValue: Boolean); virtual; function GetT46Value: Float; virtual; procedure SetT46Value(const aValue: Float); virtual; + function GetT46IsNull: Boolean; virtual; + procedure SetT46IsNull(const aValue: Boolean); virtual; function GetT48Value: Float; virtual; procedure SetT48Value(const aValue: Float); virtual; + function GetT48IsNull: Boolean; virtual; + procedure SetT48IsNull(const aValue: Boolean); virtual; function GetTOTALValue: Float; virtual; procedure SetTOTALValue(const aValue: Float); virtual; + function GetTOTALIsNull: Boolean; virtual; + procedure SetTOTALIsNull(const aValue: Boolean); virtual; { Properties } property CODIGO: String read GetCODIGOValue write SetCODIGOValue; + property CODIGOIsNull: Boolean read GetCODIGOIsNull write SetCODIGOIsNull; property PRODUCTO: String read GetPRODUCTOValue write SetPRODUCTOValue; + property PRODUCTOIsNull: Boolean read GetPRODUCTOIsNull write SetPRODUCTOIsNull; property TIPO_PRODUCTO: String read GetTIPO_PRODUCTOValue write SetTIPO_PRODUCTOValue; + property TIPO_PRODUCTOIsNull: Boolean read GetTIPO_PRODUCTOIsNull write SetTIPO_PRODUCTOIsNull; property GRUPO_PRODUCTO: String read GetGRUPO_PRODUCTOValue write SetGRUPO_PRODUCTOValue; + property GRUPO_PRODUCTOIsNull: Boolean read GetGRUPO_PRODUCTOIsNull write SetGRUPO_PRODUCTOIsNull; property COLECCION: String read GetCOLECCIONValue write SetCOLECCIONValue; + property COLECCIONIsNull: Boolean read GetCOLECCIONIsNull write SetCOLECCIONIsNull; property COLOR: String read GetCOLORValue write SetCOLORValue; + property COLORIsNull: Boolean read GetCOLORIsNull write SetCOLORIsNull; property T38: Float read GetT38Value write SetT38Value; + property T38IsNull: Boolean read GetT38IsNull write SetT38IsNull; property T40: Float read GetT40Value write SetT40Value; + property T40IsNull: Boolean read GetT40IsNull write SetT40IsNull; property T42: Float read GetT42Value write SetT42Value; + property T42IsNull: Boolean read GetT42IsNull write SetT42IsNull; property T44: Float read GetT44Value write SetT44Value; + property T44IsNull: Boolean read GetT44IsNull write SetT44IsNull; property T46: Float read GetT46Value write SetT46Value; + property T46IsNull: Boolean read GetT46IsNull write SetT46IsNull; property T48: Float read GetT48Value write SetT48Value; + property T48IsNull: Boolean read GetT48IsNull write SetT48IsNull; property TOTAL: Float read GetTOTALValue write SetTOTALValue; + property TOTALIsNull: Boolean read GetTOTALIsNull write SetTOTALIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -306,95 +388,185 @@ type { IStockEDI } IStockEDI = interface(IDAStronglyTypedDataTable) - ['{759266B9-20F4-4F29-9B8B-96F6E62E2560}'] + ['{BDE048F6-D199-4C45-BEA4-E85EBA47C934}'] { Property getters and setters } function GetCENTROValue: String; procedure SetCENTROValue(const aValue: String); + function GetCENTROIsNull: Boolean; + procedure SetCENTROIsNull(const aValue: Boolean); + function GetFILIALValue: String; + procedure SetFILIALValue(const aValue: String); + function GetFILIALIsNull: Boolean; + procedure SetFILIALIsNull(const aValue: Boolean); function GetCODIGOValue: String; procedure SetCODIGOValue(const aValue: String); + function GetCODIGOIsNull: Boolean; + procedure SetCODIGOIsNull(const aValue: Boolean); function GetPRODUCTOValue: String; procedure SetPRODUCTOValue(const aValue: String); + function GetPRODUCTOIsNull: Boolean; + procedure SetPRODUCTOIsNull(const aValue: Boolean); function GetTIPO_PRODUCTOValue: String; procedure SetTIPO_PRODUCTOValue(const aValue: String); + function GetTIPO_PRODUCTOIsNull: Boolean; + procedure SetTIPO_PRODUCTOIsNull(const aValue: Boolean); function GetGRUPO_PRODUCTOValue: String; procedure SetGRUPO_PRODUCTOValue(const aValue: String); + function GetGRUPO_PRODUCTOIsNull: Boolean; + procedure SetGRUPO_PRODUCTOIsNull(const aValue: Boolean); function GetCOLECCIONValue: String; procedure SetCOLECCIONValue(const aValue: String); + function GetCOLECCIONIsNull: Boolean; + procedure SetCOLECCIONIsNull(const aValue: Boolean); function GetCOLORValue: String; procedure SetCOLORValue(const aValue: String); + function GetCOLORIsNull: Boolean; + procedure SetCOLORIsNull(const aValue: Boolean); function GetE38Value: Float; procedure SetE38Value(const aValue: Float); + function GetE38IsNull: Boolean; + procedure SetE38IsNull(const aValue: Boolean); function GetE40Value: Float; procedure SetE40Value(const aValue: Float); + function GetE40IsNull: Boolean; + procedure SetE40IsNull(const aValue: Boolean); function GetE42Value: Float; procedure SetE42Value(const aValue: Float); + function GetE42IsNull: Boolean; + procedure SetE42IsNull(const aValue: Boolean); function GetE44Value: Float; procedure SetE44Value(const aValue: Float); + function GetE44IsNull: Boolean; + procedure SetE44IsNull(const aValue: Boolean); function GetE46Value: Float; procedure SetE46Value(const aValue: Float); + function GetE46IsNull: Boolean; + procedure SetE46IsNull(const aValue: Boolean); function GetE48Value: Float; procedure SetE48Value(const aValue: Float); + function GetE48IsNull: Boolean; + procedure SetE48IsNull(const aValue: Boolean); function GetTEValue: Float; procedure SetTEValue(const aValue: Float); + function GetTEIsNull: Boolean; + procedure SetTEIsNull(const aValue: Boolean); function GetS38Value: Float; procedure SetS38Value(const aValue: Float); + function GetS38IsNull: Boolean; + procedure SetS38IsNull(const aValue: Boolean); function GetS40Value: Float; procedure SetS40Value(const aValue: Float); + function GetS40IsNull: Boolean; + procedure SetS40IsNull(const aValue: Boolean); function GetS42Value: Float; procedure SetS42Value(const aValue: Float); + function GetS42IsNull: Boolean; + procedure SetS42IsNull(const aValue: Boolean); function GetS44Value: Float; procedure SetS44Value(const aValue: Float); + function GetS44IsNull: Boolean; + procedure SetS44IsNull(const aValue: Boolean); function GetS46Value: Float; procedure SetS46Value(const aValue: Float); + function GetS46IsNull: Boolean; + procedure SetS46IsNull(const aValue: Boolean); function GetS48Value: Float; procedure SetS48Value(const aValue: Float); + function GetS48IsNull: Boolean; + procedure SetS48IsNull(const aValue: Boolean); function GetTSValue: Float; procedure SetTSValue(const aValue: Float); + function GetTSIsNull: Boolean; + procedure SetTSIsNull(const aValue: Boolean); function GetK38Value: Float; procedure SetK38Value(const aValue: Float); + function GetK38IsNull: Boolean; + procedure SetK38IsNull(const aValue: Boolean); function GetK40Value: Float; procedure SetK40Value(const aValue: Float); + function GetK40IsNull: Boolean; + procedure SetK40IsNull(const aValue: Boolean); function GetK42Value: Float; procedure SetK42Value(const aValue: Float); + function GetK42IsNull: Boolean; + procedure SetK42IsNull(const aValue: Boolean); function GetK44Value: Float; procedure SetK44Value(const aValue: Float); + function GetK44IsNull: Boolean; + procedure SetK44IsNull(const aValue: Boolean); function GetK46Value: Float; procedure SetK46Value(const aValue: Float); + function GetK46IsNull: Boolean; + procedure SetK46IsNull(const aValue: Boolean); function GetK48Value: Float; procedure SetK48Value(const aValue: Float); + function GetK48IsNull: Boolean; + procedure SetK48IsNull(const aValue: Boolean); function GetKTValue: Float; procedure SetKTValue(const aValue: Float); + function GetKTIsNull: Boolean; + procedure SetKTIsNull(const aValue: Boolean); { Properties } property CENTRO: String read GetCENTROValue write SetCENTROValue; + property CENTROIsNull: Boolean read GetCENTROIsNull write SetCENTROIsNull; + property FILIAL: String read GetFILIALValue write SetFILIALValue; + property FILIALIsNull: Boolean read GetFILIALIsNull write SetFILIALIsNull; property CODIGO: String read GetCODIGOValue write SetCODIGOValue; + property CODIGOIsNull: Boolean read GetCODIGOIsNull write SetCODIGOIsNull; property PRODUCTO: String read GetPRODUCTOValue write SetPRODUCTOValue; + property PRODUCTOIsNull: Boolean read GetPRODUCTOIsNull write SetPRODUCTOIsNull; property TIPO_PRODUCTO: String read GetTIPO_PRODUCTOValue write SetTIPO_PRODUCTOValue; + property TIPO_PRODUCTOIsNull: Boolean read GetTIPO_PRODUCTOIsNull write SetTIPO_PRODUCTOIsNull; property GRUPO_PRODUCTO: String read GetGRUPO_PRODUCTOValue write SetGRUPO_PRODUCTOValue; + property GRUPO_PRODUCTOIsNull: Boolean read GetGRUPO_PRODUCTOIsNull write SetGRUPO_PRODUCTOIsNull; property COLECCION: String read GetCOLECCIONValue write SetCOLECCIONValue; + property COLECCIONIsNull: Boolean read GetCOLECCIONIsNull write SetCOLECCIONIsNull; property COLOR: String read GetCOLORValue write SetCOLORValue; + property COLORIsNull: Boolean read GetCOLORIsNull write SetCOLORIsNull; property E38: Float read GetE38Value write SetE38Value; + property E38IsNull: Boolean read GetE38IsNull write SetE38IsNull; property E40: Float read GetE40Value write SetE40Value; + property E40IsNull: Boolean read GetE40IsNull write SetE40IsNull; property E42: Float read GetE42Value write SetE42Value; + property E42IsNull: Boolean read GetE42IsNull write SetE42IsNull; property E44: Float read GetE44Value write SetE44Value; + property E44IsNull: Boolean read GetE44IsNull write SetE44IsNull; property E46: Float read GetE46Value write SetE46Value; + property E46IsNull: Boolean read GetE46IsNull write SetE46IsNull; property E48: Float read GetE48Value write SetE48Value; + property E48IsNull: Boolean read GetE48IsNull write SetE48IsNull; property TE: Float read GetTEValue write SetTEValue; + property TEIsNull: Boolean read GetTEIsNull write SetTEIsNull; property S38: Float read GetS38Value write SetS38Value; + property S38IsNull: Boolean read GetS38IsNull write SetS38IsNull; property S40: Float read GetS40Value write SetS40Value; + property S40IsNull: Boolean read GetS40IsNull write SetS40IsNull; property S42: Float read GetS42Value write SetS42Value; + property S42IsNull: Boolean read GetS42IsNull write SetS42IsNull; property S44: Float read GetS44Value write SetS44Value; + property S44IsNull: Boolean read GetS44IsNull write SetS44IsNull; property S46: Float read GetS46Value write SetS46Value; + property S46IsNull: Boolean read GetS46IsNull write SetS46IsNull; property S48: Float read GetS48Value write SetS48Value; + property S48IsNull: Boolean read GetS48IsNull write SetS48IsNull; property TS: Float read GetTSValue write SetTSValue; + property TSIsNull: Boolean read GetTSIsNull write SetTSIsNull; property K38: Float read GetK38Value write SetK38Value; + property K38IsNull: Boolean read GetK38IsNull write SetK38IsNull; property K40: Float read GetK40Value write SetK40Value; + property K40IsNull: Boolean read GetK40IsNull write SetK40IsNull; property K42: Float read GetK42Value write SetK42Value; + property K42IsNull: Boolean read GetK42IsNull write SetK42IsNull; property K44: Float read GetK44Value write SetK44Value; + property K44IsNull: Boolean read GetK44IsNull write SetK44IsNull; property K46: Float read GetK46Value write SetK46Value; + property K46IsNull: Boolean read GetK46IsNull write SetK46IsNull; property K48: Float read GetK48Value write SetK48Value; + property K48IsNull: Boolean read GetK48IsNull write SetK48IsNull; property KT: Float read GetKTValue write SetKTValue; + property KTIsNull: Boolean read GetKTIsNull write SetKTIsNull; end; { TStockEDIDataTableRules } @@ -404,90 +576,180 @@ type { Property getters and setters } function GetCENTROValue: String; virtual; procedure SetCENTROValue(const aValue: String); virtual; + function GetCENTROIsNull: Boolean; virtual; + procedure SetCENTROIsNull(const aValue: Boolean); virtual; + function GetFILIALValue: String; virtual; + procedure SetFILIALValue(const aValue: String); virtual; + function GetFILIALIsNull: Boolean; virtual; + procedure SetFILIALIsNull(const aValue: Boolean); virtual; function GetCODIGOValue: String; virtual; procedure SetCODIGOValue(const aValue: String); virtual; + function GetCODIGOIsNull: Boolean; virtual; + procedure SetCODIGOIsNull(const aValue: Boolean); virtual; function GetPRODUCTOValue: String; virtual; procedure SetPRODUCTOValue(const aValue: String); virtual; + function GetPRODUCTOIsNull: Boolean; virtual; + procedure SetPRODUCTOIsNull(const aValue: Boolean); virtual; function GetTIPO_PRODUCTOValue: String; virtual; procedure SetTIPO_PRODUCTOValue(const aValue: String); virtual; + function GetTIPO_PRODUCTOIsNull: Boolean; virtual; + procedure SetTIPO_PRODUCTOIsNull(const aValue: Boolean); virtual; function GetGRUPO_PRODUCTOValue: String; virtual; procedure SetGRUPO_PRODUCTOValue(const aValue: String); virtual; + function GetGRUPO_PRODUCTOIsNull: Boolean; virtual; + procedure SetGRUPO_PRODUCTOIsNull(const aValue: Boolean); virtual; function GetCOLECCIONValue: String; virtual; procedure SetCOLECCIONValue(const aValue: String); virtual; + function GetCOLECCIONIsNull: Boolean; virtual; + procedure SetCOLECCIONIsNull(const aValue: Boolean); virtual; function GetCOLORValue: String; virtual; procedure SetCOLORValue(const aValue: String); virtual; + function GetCOLORIsNull: Boolean; virtual; + procedure SetCOLORIsNull(const aValue: Boolean); virtual; function GetE38Value: Float; virtual; procedure SetE38Value(const aValue: Float); virtual; + function GetE38IsNull: Boolean; virtual; + procedure SetE38IsNull(const aValue: Boolean); virtual; function GetE40Value: Float; virtual; procedure SetE40Value(const aValue: Float); virtual; + function GetE40IsNull: Boolean; virtual; + procedure SetE40IsNull(const aValue: Boolean); virtual; function GetE42Value: Float; virtual; procedure SetE42Value(const aValue: Float); virtual; + function GetE42IsNull: Boolean; virtual; + procedure SetE42IsNull(const aValue: Boolean); virtual; function GetE44Value: Float; virtual; procedure SetE44Value(const aValue: Float); virtual; + function GetE44IsNull: Boolean; virtual; + procedure SetE44IsNull(const aValue: Boolean); virtual; function GetE46Value: Float; virtual; procedure SetE46Value(const aValue: Float); virtual; + function GetE46IsNull: Boolean; virtual; + procedure SetE46IsNull(const aValue: Boolean); virtual; function GetE48Value: Float; virtual; procedure SetE48Value(const aValue: Float); virtual; + function GetE48IsNull: Boolean; virtual; + procedure SetE48IsNull(const aValue: Boolean); virtual; function GetTEValue: Float; virtual; procedure SetTEValue(const aValue: Float); virtual; + function GetTEIsNull: Boolean; virtual; + procedure SetTEIsNull(const aValue: Boolean); virtual; function GetS38Value: Float; virtual; procedure SetS38Value(const aValue: Float); virtual; + function GetS38IsNull: Boolean; virtual; + procedure SetS38IsNull(const aValue: Boolean); virtual; function GetS40Value: Float; virtual; procedure SetS40Value(const aValue: Float); virtual; + function GetS40IsNull: Boolean; virtual; + procedure SetS40IsNull(const aValue: Boolean); virtual; function GetS42Value: Float; virtual; procedure SetS42Value(const aValue: Float); virtual; + function GetS42IsNull: Boolean; virtual; + procedure SetS42IsNull(const aValue: Boolean); virtual; function GetS44Value: Float; virtual; procedure SetS44Value(const aValue: Float); virtual; + function GetS44IsNull: Boolean; virtual; + procedure SetS44IsNull(const aValue: Boolean); virtual; function GetS46Value: Float; virtual; procedure SetS46Value(const aValue: Float); virtual; + function GetS46IsNull: Boolean; virtual; + procedure SetS46IsNull(const aValue: Boolean); virtual; function GetS48Value: Float; virtual; procedure SetS48Value(const aValue: Float); virtual; + function GetS48IsNull: Boolean; virtual; + procedure SetS48IsNull(const aValue: Boolean); virtual; function GetTSValue: Float; virtual; procedure SetTSValue(const aValue: Float); virtual; + function GetTSIsNull: Boolean; virtual; + procedure SetTSIsNull(const aValue: Boolean); virtual; function GetK38Value: Float; virtual; procedure SetK38Value(const aValue: Float); virtual; + function GetK38IsNull: Boolean; virtual; + procedure SetK38IsNull(const aValue: Boolean); virtual; function GetK40Value: Float; virtual; procedure SetK40Value(const aValue: Float); virtual; + function GetK40IsNull: Boolean; virtual; + procedure SetK40IsNull(const aValue: Boolean); virtual; function GetK42Value: Float; virtual; procedure SetK42Value(const aValue: Float); virtual; + function GetK42IsNull: Boolean; virtual; + procedure SetK42IsNull(const aValue: Boolean); virtual; function GetK44Value: Float; virtual; procedure SetK44Value(const aValue: Float); virtual; + function GetK44IsNull: Boolean; virtual; + procedure SetK44IsNull(const aValue: Boolean); virtual; function GetK46Value: Float; virtual; procedure SetK46Value(const aValue: Float); virtual; + function GetK46IsNull: Boolean; virtual; + procedure SetK46IsNull(const aValue: Boolean); virtual; function GetK48Value: Float; virtual; procedure SetK48Value(const aValue: Float); virtual; + function GetK48IsNull: Boolean; virtual; + procedure SetK48IsNull(const aValue: Boolean); virtual; function GetKTValue: Float; virtual; procedure SetKTValue(const aValue: Float); virtual; + function GetKTIsNull: Boolean; virtual; + procedure SetKTIsNull(const aValue: Boolean); virtual; { Properties } property CENTRO: String read GetCENTROValue write SetCENTROValue; + property CENTROIsNull: Boolean read GetCENTROIsNull write SetCENTROIsNull; + property FILIAL: String read GetFILIALValue write SetFILIALValue; + property FILIALIsNull: Boolean read GetFILIALIsNull write SetFILIALIsNull; property CODIGO: String read GetCODIGOValue write SetCODIGOValue; + property CODIGOIsNull: Boolean read GetCODIGOIsNull write SetCODIGOIsNull; property PRODUCTO: String read GetPRODUCTOValue write SetPRODUCTOValue; + property PRODUCTOIsNull: Boolean read GetPRODUCTOIsNull write SetPRODUCTOIsNull; property TIPO_PRODUCTO: String read GetTIPO_PRODUCTOValue write SetTIPO_PRODUCTOValue; + property TIPO_PRODUCTOIsNull: Boolean read GetTIPO_PRODUCTOIsNull write SetTIPO_PRODUCTOIsNull; property GRUPO_PRODUCTO: String read GetGRUPO_PRODUCTOValue write SetGRUPO_PRODUCTOValue; + property GRUPO_PRODUCTOIsNull: Boolean read GetGRUPO_PRODUCTOIsNull write SetGRUPO_PRODUCTOIsNull; property COLECCION: String read GetCOLECCIONValue write SetCOLECCIONValue; + property COLECCIONIsNull: Boolean read GetCOLECCIONIsNull write SetCOLECCIONIsNull; property COLOR: String read GetCOLORValue write SetCOLORValue; + property COLORIsNull: Boolean read GetCOLORIsNull write SetCOLORIsNull; property E38: Float read GetE38Value write SetE38Value; + property E38IsNull: Boolean read GetE38IsNull write SetE38IsNull; property E40: Float read GetE40Value write SetE40Value; + property E40IsNull: Boolean read GetE40IsNull write SetE40IsNull; property E42: Float read GetE42Value write SetE42Value; + property E42IsNull: Boolean read GetE42IsNull write SetE42IsNull; property E44: Float read GetE44Value write SetE44Value; + property E44IsNull: Boolean read GetE44IsNull write SetE44IsNull; property E46: Float read GetE46Value write SetE46Value; + property E46IsNull: Boolean read GetE46IsNull write SetE46IsNull; property E48: Float read GetE48Value write SetE48Value; + property E48IsNull: Boolean read GetE48IsNull write SetE48IsNull; property TE: Float read GetTEValue write SetTEValue; + property TEIsNull: Boolean read GetTEIsNull write SetTEIsNull; property S38: Float read GetS38Value write SetS38Value; + property S38IsNull: Boolean read GetS38IsNull write SetS38IsNull; property S40: Float read GetS40Value write SetS40Value; + property S40IsNull: Boolean read GetS40IsNull write SetS40IsNull; property S42: Float read GetS42Value write SetS42Value; + property S42IsNull: Boolean read GetS42IsNull write SetS42IsNull; property S44: Float read GetS44Value write SetS44Value; + property S44IsNull: Boolean read GetS44IsNull write SetS44IsNull; property S46: Float read GetS46Value write SetS46Value; + property S46IsNull: Boolean read GetS46IsNull write SetS46IsNull; property S48: Float read GetS48Value write SetS48Value; + property S48IsNull: Boolean read GetS48IsNull write SetS48IsNull; property TS: Float read GetTSValue write SetTSValue; + property TSIsNull: Boolean read GetTSIsNull write SetTSIsNull; property K38: Float read GetK38Value write SetK38Value; + property K38IsNull: Boolean read GetK38IsNull write SetK38IsNull; property K40: Float read GetK40Value write SetK40Value; + property K40IsNull: Boolean read GetK40IsNull write SetK40IsNull; property K42: Float read GetK42Value write SetK42Value; + property K42IsNull: Boolean read GetK42IsNull write SetK42IsNull; property K44: Float read GetK44Value write SetK44Value; + property K44IsNull: Boolean read GetK44IsNull write SetK44IsNull; property K46: Float read GetK46Value write SetK46Value; + property K46IsNull: Boolean read GetK46IsNull write SetK46IsNull; property K48: Float read GetK48Value write SetK48Value; + property K48IsNull: Boolean read GetK48IsNull write SetK48IsNull; property KT: Float read GetKTValue write SetKTValue; + property KTIsNull: Boolean read GetKTIsNull write SetKTIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -497,53 +759,95 @@ type { IStockVARELA } IStockVARELA = interface(IDAStronglyTypedDataTable) - ['{29240A98-CF0E-4E1C-AE1B-17DE8E33837F}'] + ['{FA5D0F0E-C711-4EB6-BB53-A0CF15BC31D5}'] { Property getters and setters } function GetFILIALValue: String; procedure SetFILIALValue(const aValue: String); + function GetFILIALIsNull: Boolean; + procedure SetFILIALIsNull(const aValue: Boolean); function GetCODIGOValue: String; procedure SetCODIGOValue(const aValue: String); + function GetCODIGOIsNull: Boolean; + procedure SetCODIGOIsNull(const aValue: Boolean); function GetCOLORValue: String; procedure SetCOLORValue(const aValue: String); + function GetCOLORIsNull: Boolean; + procedure SetCOLORIsNull(const aValue: Boolean); function GetPRODUCTOValue: String; procedure SetPRODUCTOValue(const aValue: String); + function GetPRODUCTOIsNull: Boolean; + procedure SetPRODUCTOIsNull(const aValue: Boolean); function GetTIPO_PRODUTOValue: String; procedure SetTIPO_PRODUTOValue(const aValue: String); + function GetTIPO_PRODUTOIsNull: Boolean; + procedure SetTIPO_PRODUTOIsNull(const aValue: Boolean); function GetGRUPO_PRODUTOValue: String; procedure SetGRUPO_PRODUTOValue(const aValue: String); + function GetGRUPO_PRODUTOIsNull: Boolean; + procedure SetGRUPO_PRODUTOIsNull(const aValue: Boolean); function GetCOLECCIONValue: String; procedure SetCOLECCIONValue(const aValue: String); + function GetCOLECCIONIsNull: Boolean; + procedure SetCOLECCIONIsNull(const aValue: Boolean); function GetK38Value: Integer; procedure SetK38Value(const aValue: Integer); + function GetK38IsNull: Boolean; + procedure SetK38IsNull(const aValue: Boolean); function GetK40Value: Integer; procedure SetK40Value(const aValue: Integer); + function GetK40IsNull: Boolean; + procedure SetK40IsNull(const aValue: Boolean); function GetK42Value: Integer; procedure SetK42Value(const aValue: Integer); + function GetK42IsNull: Boolean; + procedure SetK42IsNull(const aValue: Boolean); function GetK44Value: Integer; procedure SetK44Value(const aValue: Integer); + function GetK44IsNull: Boolean; + procedure SetK44IsNull(const aValue: Boolean); function GetK46Value: Integer; procedure SetK46Value(const aValue: Integer); + function GetK46IsNull: Boolean; + procedure SetK46IsNull(const aValue: Boolean); function GetK48Value: Integer; procedure SetK48Value(const aValue: Integer); + function GetK48IsNull: Boolean; + procedure SetK48IsNull(const aValue: Boolean); function GetKTValue: Integer; procedure SetKTValue(const aValue: Integer); + function GetKTIsNull: Boolean; + procedure SetKTIsNull(const aValue: Boolean); { Properties } property FILIAL: String read GetFILIALValue write SetFILIALValue; + property FILIALIsNull: Boolean read GetFILIALIsNull write SetFILIALIsNull; property CODIGO: String read GetCODIGOValue write SetCODIGOValue; + property CODIGOIsNull: Boolean read GetCODIGOIsNull write SetCODIGOIsNull; property COLOR: String read GetCOLORValue write SetCOLORValue; + property COLORIsNull: Boolean read GetCOLORIsNull write SetCOLORIsNull; property PRODUCTO: String read GetPRODUCTOValue write SetPRODUCTOValue; + property PRODUCTOIsNull: Boolean read GetPRODUCTOIsNull write SetPRODUCTOIsNull; property TIPO_PRODUTO: String read GetTIPO_PRODUTOValue write SetTIPO_PRODUTOValue; + property TIPO_PRODUTOIsNull: Boolean read GetTIPO_PRODUTOIsNull write SetTIPO_PRODUTOIsNull; property GRUPO_PRODUTO: String read GetGRUPO_PRODUTOValue write SetGRUPO_PRODUTOValue; + property GRUPO_PRODUTOIsNull: Boolean read GetGRUPO_PRODUTOIsNull write SetGRUPO_PRODUTOIsNull; property COLECCION: String read GetCOLECCIONValue write SetCOLECCIONValue; + property COLECCIONIsNull: Boolean read GetCOLECCIONIsNull write SetCOLECCIONIsNull; property K38: Integer read GetK38Value write SetK38Value; + property K38IsNull: Boolean read GetK38IsNull write SetK38IsNull; property K40: Integer read GetK40Value write SetK40Value; + property K40IsNull: Boolean read GetK40IsNull write SetK40IsNull; property K42: Integer read GetK42Value write SetK42Value; + property K42IsNull: Boolean read GetK42IsNull write SetK42IsNull; property K44: Integer read GetK44Value write SetK44Value; + property K44IsNull: Boolean read GetK44IsNull write SetK44IsNull; property K46: Integer read GetK46Value write SetK46Value; + property K46IsNull: Boolean read GetK46IsNull write SetK46IsNull; property K48: Integer read GetK48Value write SetK48Value; + property K48IsNull: Boolean read GetK48IsNull write SetK48IsNull; property KT: Integer read GetKTValue write SetKTValue; + property KTIsNull: Boolean read GetKTIsNull write SetKTIsNull; end; { TStockVARELADataTableRules } @@ -553,48 +857,90 @@ type { Property getters and setters } function GetFILIALValue: String; virtual; procedure SetFILIALValue(const aValue: String); virtual; + function GetFILIALIsNull: Boolean; virtual; + procedure SetFILIALIsNull(const aValue: Boolean); virtual; function GetCODIGOValue: String; virtual; procedure SetCODIGOValue(const aValue: String); virtual; + function GetCODIGOIsNull: Boolean; virtual; + procedure SetCODIGOIsNull(const aValue: Boolean); virtual; function GetCOLORValue: String; virtual; procedure SetCOLORValue(const aValue: String); virtual; + function GetCOLORIsNull: Boolean; virtual; + procedure SetCOLORIsNull(const aValue: Boolean); virtual; function GetPRODUCTOValue: String; virtual; procedure SetPRODUCTOValue(const aValue: String); virtual; + function GetPRODUCTOIsNull: Boolean; virtual; + procedure SetPRODUCTOIsNull(const aValue: Boolean); virtual; function GetTIPO_PRODUTOValue: String; virtual; procedure SetTIPO_PRODUTOValue(const aValue: String); virtual; + function GetTIPO_PRODUTOIsNull: Boolean; virtual; + procedure SetTIPO_PRODUTOIsNull(const aValue: Boolean); virtual; function GetGRUPO_PRODUTOValue: String; virtual; procedure SetGRUPO_PRODUTOValue(const aValue: String); virtual; + function GetGRUPO_PRODUTOIsNull: Boolean; virtual; + procedure SetGRUPO_PRODUTOIsNull(const aValue: Boolean); virtual; function GetCOLECCIONValue: String; virtual; procedure SetCOLECCIONValue(const aValue: String); virtual; + function GetCOLECCIONIsNull: Boolean; virtual; + procedure SetCOLECCIONIsNull(const aValue: Boolean); virtual; function GetK38Value: Integer; virtual; procedure SetK38Value(const aValue: Integer); virtual; + function GetK38IsNull: Boolean; virtual; + procedure SetK38IsNull(const aValue: Boolean); virtual; function GetK40Value: Integer; virtual; procedure SetK40Value(const aValue: Integer); virtual; + function GetK40IsNull: Boolean; virtual; + procedure SetK40IsNull(const aValue: Boolean); virtual; function GetK42Value: Integer; virtual; procedure SetK42Value(const aValue: Integer); virtual; + function GetK42IsNull: Boolean; virtual; + procedure SetK42IsNull(const aValue: Boolean); virtual; function GetK44Value: Integer; virtual; procedure SetK44Value(const aValue: Integer); virtual; + function GetK44IsNull: Boolean; virtual; + procedure SetK44IsNull(const aValue: Boolean); virtual; function GetK46Value: Integer; virtual; procedure SetK46Value(const aValue: Integer); virtual; + function GetK46IsNull: Boolean; virtual; + procedure SetK46IsNull(const aValue: Boolean); virtual; function GetK48Value: Integer; virtual; procedure SetK48Value(const aValue: Integer); virtual; + function GetK48IsNull: Boolean; virtual; + procedure SetK48IsNull(const aValue: Boolean); virtual; function GetKTValue: Integer; virtual; procedure SetKTValue(const aValue: Integer); virtual; + function GetKTIsNull: Boolean; virtual; + procedure SetKTIsNull(const aValue: Boolean); virtual; { Properties } property FILIAL: String read GetFILIALValue write SetFILIALValue; + property FILIALIsNull: Boolean read GetFILIALIsNull write SetFILIALIsNull; property CODIGO: String read GetCODIGOValue write SetCODIGOValue; + property CODIGOIsNull: Boolean read GetCODIGOIsNull write SetCODIGOIsNull; property COLOR: String read GetCOLORValue write SetCOLORValue; + property COLORIsNull: Boolean read GetCOLORIsNull write SetCOLORIsNull; property PRODUCTO: String read GetPRODUCTOValue write SetPRODUCTOValue; + property PRODUCTOIsNull: Boolean read GetPRODUCTOIsNull write SetPRODUCTOIsNull; property TIPO_PRODUTO: String read GetTIPO_PRODUTOValue write SetTIPO_PRODUTOValue; + property TIPO_PRODUTOIsNull: Boolean read GetTIPO_PRODUTOIsNull write SetTIPO_PRODUTOIsNull; property GRUPO_PRODUTO: String read GetGRUPO_PRODUTOValue write SetGRUPO_PRODUTOValue; + property GRUPO_PRODUTOIsNull: Boolean read GetGRUPO_PRODUTOIsNull write SetGRUPO_PRODUTOIsNull; property COLECCION: String read GetCOLECCIONValue write SetCOLECCIONValue; + property COLECCIONIsNull: Boolean read GetCOLECCIONIsNull write SetCOLECCIONIsNull; property K38: Integer read GetK38Value write SetK38Value; + property K38IsNull: Boolean read GetK38IsNull write SetK38IsNull; property K40: Integer read GetK40Value write SetK40Value; + property K40IsNull: Boolean read GetK40IsNull write SetK40IsNull; property K42: Integer read GetK42Value write SetK42Value; + property K42IsNull: Boolean read GetK42IsNull write SetK42IsNull; property K44: Integer read GetK44Value write SetK44Value; + property K44IsNull: Boolean read GetK44IsNull write SetK44IsNull; property K46: Integer read GetK46Value write SetK46Value; + property K46IsNull: Boolean read GetK46IsNull write SetK46IsNull; property K48: Integer read GetK48Value write SetK48Value; + property K48IsNull: Boolean read GetK48IsNull write SetK48IsNull; property KT: Integer read GetKTValue write SetKTValue; + property KTIsNull: Boolean read GetKTIsNull write SetKTIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -604,95 +950,185 @@ type { IStockEDIInventario } IStockEDIInventario = interface(IDAStronglyTypedDataTable) - ['{ECFA34AB-357B-4817-BB85-10D0BF34884F}'] + ['{82E00C37-44A9-4184-9514-510BDA32EAC6}'] { Property getters and setters } function GetCENTROValue: String; procedure SetCENTROValue(const aValue: String); + function GetCENTROIsNull: Boolean; + procedure SetCENTROIsNull(const aValue: Boolean); + function GetFILIALValue: String; + procedure SetFILIALValue(const aValue: String); + function GetFILIALIsNull: Boolean; + procedure SetFILIALIsNull(const aValue: Boolean); function GetCODIGOValue: String; procedure SetCODIGOValue(const aValue: String); + function GetCODIGOIsNull: Boolean; + procedure SetCODIGOIsNull(const aValue: Boolean); function GetPRODUCTOValue: String; procedure SetPRODUCTOValue(const aValue: String); + function GetPRODUCTOIsNull: Boolean; + procedure SetPRODUCTOIsNull(const aValue: Boolean); function GetCOLORValue: String; procedure SetCOLORValue(const aValue: String); + function GetCOLORIsNull: Boolean; + procedure SetCOLORIsNull(const aValue: Boolean); function GetTIPO_PRODUCTOValue: String; procedure SetTIPO_PRODUCTOValue(const aValue: String); + function GetTIPO_PRODUCTOIsNull: Boolean; + procedure SetTIPO_PRODUCTOIsNull(const aValue: Boolean); function GetGRUPO_PRODUCTOValue: String; procedure SetGRUPO_PRODUCTOValue(const aValue: String); + function GetGRUPO_PRODUCTOIsNull: Boolean; + procedure SetGRUPO_PRODUCTOIsNull(const aValue: Boolean); function GetCOLECCIONValue: String; procedure SetCOLECCIONValue(const aValue: String); + function GetCOLECCIONIsNull: Boolean; + procedure SetCOLECCIONIsNull(const aValue: Boolean); function GetI38Value: Float; procedure SetI38Value(const aValue: Float); + function GetI38IsNull: Boolean; + procedure SetI38IsNull(const aValue: Boolean); function GetI40Value: Float; procedure SetI40Value(const aValue: Float); + function GetI40IsNull: Boolean; + procedure SetI40IsNull(const aValue: Boolean); function GetI42Value: Float; procedure SetI42Value(const aValue: Float); + function GetI42IsNull: Boolean; + procedure SetI42IsNull(const aValue: Boolean); function GetI44Value: Float; procedure SetI44Value(const aValue: Float); + function GetI44IsNull: Boolean; + procedure SetI44IsNull(const aValue: Boolean); function GetI46Value: Float; procedure SetI46Value(const aValue: Float); + function GetI46IsNull: Boolean; + procedure SetI46IsNull(const aValue: Boolean); function GetI48Value: Float; procedure SetI48Value(const aValue: Float); + function GetI48IsNull: Boolean; + procedure SetI48IsNull(const aValue: Boolean); function GetTIValue: Float; procedure SetTIValue(const aValue: Float); + function GetTIIsNull: Boolean; + procedure SetTIIsNull(const aValue: Boolean); function GetK38Value: Float; procedure SetK38Value(const aValue: Float); + function GetK38IsNull: Boolean; + procedure SetK38IsNull(const aValue: Boolean); function GetK40Value: Float; procedure SetK40Value(const aValue: Float); + function GetK40IsNull: Boolean; + procedure SetK40IsNull(const aValue: Boolean); function GetK42Value: Float; procedure SetK42Value(const aValue: Float); + function GetK42IsNull: Boolean; + procedure SetK42IsNull(const aValue: Boolean); function GetK44Value: Float; procedure SetK44Value(const aValue: Float); + function GetK44IsNull: Boolean; + procedure SetK44IsNull(const aValue: Boolean); function GetK46Value: Float; procedure SetK46Value(const aValue: Float); + function GetK46IsNull: Boolean; + procedure SetK46IsNull(const aValue: Boolean); function GetK48Value: Float; procedure SetK48Value(const aValue: Float); + function GetK48IsNull: Boolean; + procedure SetK48IsNull(const aValue: Boolean); function GetTKValue: Float; procedure SetTKValue(const aValue: Float); + function GetTKIsNull: Boolean; + procedure SetTKIsNull(const aValue: Boolean); function GetD38Value: Float; procedure SetD38Value(const aValue: Float); + function GetD38IsNull: Boolean; + procedure SetD38IsNull(const aValue: Boolean); function GetD40Value: Float; procedure SetD40Value(const aValue: Float); + function GetD40IsNull: Boolean; + procedure SetD40IsNull(const aValue: Boolean); function GetD42Value: Float; procedure SetD42Value(const aValue: Float); + function GetD42IsNull: Boolean; + procedure SetD42IsNull(const aValue: Boolean); function GetD44Value: Float; procedure SetD44Value(const aValue: Float); + function GetD44IsNull: Boolean; + procedure SetD44IsNull(const aValue: Boolean); function GetD46Value: Float; procedure SetD46Value(const aValue: Float); + function GetD46IsNull: Boolean; + procedure SetD46IsNull(const aValue: Boolean); function GetD48Value: Float; procedure SetD48Value(const aValue: Float); + function GetD48IsNull: Boolean; + procedure SetD48IsNull(const aValue: Boolean); function GetDTValue: Float; procedure SetDTValue(const aValue: Float); + function GetDTIsNull: Boolean; + procedure SetDTIsNull(const aValue: Boolean); { Properties } property CENTRO: String read GetCENTROValue write SetCENTROValue; + property CENTROIsNull: Boolean read GetCENTROIsNull write SetCENTROIsNull; + property FILIAL: String read GetFILIALValue write SetFILIALValue; + property FILIALIsNull: Boolean read GetFILIALIsNull write SetFILIALIsNull; property CODIGO: String read GetCODIGOValue write SetCODIGOValue; + property CODIGOIsNull: Boolean read GetCODIGOIsNull write SetCODIGOIsNull; property PRODUCTO: String read GetPRODUCTOValue write SetPRODUCTOValue; + property PRODUCTOIsNull: Boolean read GetPRODUCTOIsNull write SetPRODUCTOIsNull; property COLOR: String read GetCOLORValue write SetCOLORValue; + property COLORIsNull: Boolean read GetCOLORIsNull write SetCOLORIsNull; property TIPO_PRODUCTO: String read GetTIPO_PRODUCTOValue write SetTIPO_PRODUCTOValue; + property TIPO_PRODUCTOIsNull: Boolean read GetTIPO_PRODUCTOIsNull write SetTIPO_PRODUCTOIsNull; property GRUPO_PRODUCTO: String read GetGRUPO_PRODUCTOValue write SetGRUPO_PRODUCTOValue; + property GRUPO_PRODUCTOIsNull: Boolean read GetGRUPO_PRODUCTOIsNull write SetGRUPO_PRODUCTOIsNull; property COLECCION: String read GetCOLECCIONValue write SetCOLECCIONValue; + property COLECCIONIsNull: Boolean read GetCOLECCIONIsNull write SetCOLECCIONIsNull; property I38: Float read GetI38Value write SetI38Value; + property I38IsNull: Boolean read GetI38IsNull write SetI38IsNull; property I40: Float read GetI40Value write SetI40Value; + property I40IsNull: Boolean read GetI40IsNull write SetI40IsNull; property I42: Float read GetI42Value write SetI42Value; + property I42IsNull: Boolean read GetI42IsNull write SetI42IsNull; property I44: Float read GetI44Value write SetI44Value; + property I44IsNull: Boolean read GetI44IsNull write SetI44IsNull; property I46: Float read GetI46Value write SetI46Value; + property I46IsNull: Boolean read GetI46IsNull write SetI46IsNull; property I48: Float read GetI48Value write SetI48Value; + property I48IsNull: Boolean read GetI48IsNull write SetI48IsNull; property TI: Float read GetTIValue write SetTIValue; + property TIIsNull: Boolean read GetTIIsNull write SetTIIsNull; property K38: Float read GetK38Value write SetK38Value; + property K38IsNull: Boolean read GetK38IsNull write SetK38IsNull; property K40: Float read GetK40Value write SetK40Value; + property K40IsNull: Boolean read GetK40IsNull write SetK40IsNull; property K42: Float read GetK42Value write SetK42Value; + property K42IsNull: Boolean read GetK42IsNull write SetK42IsNull; property K44: Float read GetK44Value write SetK44Value; + property K44IsNull: Boolean read GetK44IsNull write SetK44IsNull; property K46: Float read GetK46Value write SetK46Value; + property K46IsNull: Boolean read GetK46IsNull write SetK46IsNull; property K48: Float read GetK48Value write SetK48Value; + property K48IsNull: Boolean read GetK48IsNull write SetK48IsNull; property TK: Float read GetTKValue write SetTKValue; + property TKIsNull: Boolean read GetTKIsNull write SetTKIsNull; property D38: Float read GetD38Value write SetD38Value; + property D38IsNull: Boolean read GetD38IsNull write SetD38IsNull; property D40: Float read GetD40Value write SetD40Value; + property D40IsNull: Boolean read GetD40IsNull write SetD40IsNull; property D42: Float read GetD42Value write SetD42Value; + property D42IsNull: Boolean read GetD42IsNull write SetD42IsNull; property D44: Float read GetD44Value write SetD44Value; + property D44IsNull: Boolean read GetD44IsNull write SetD44IsNull; property D46: Float read GetD46Value write SetD46Value; + property D46IsNull: Boolean read GetD46IsNull write SetD46IsNull; property D48: Float read GetD48Value write SetD48Value; + property D48IsNull: Boolean read GetD48IsNull write SetD48IsNull; property DT: Float read GetDTValue write SetDTValue; + property DTIsNull: Boolean read GetDTIsNull write SetDTIsNull; end; { TStockEDIInventarioDataTableRules } @@ -702,90 +1138,180 @@ type { Property getters and setters } function GetCENTROValue: String; virtual; procedure SetCENTROValue(const aValue: String); virtual; + function GetCENTROIsNull: Boolean; virtual; + procedure SetCENTROIsNull(const aValue: Boolean); virtual; + function GetFILIALValue: String; virtual; + procedure SetFILIALValue(const aValue: String); virtual; + function GetFILIALIsNull: Boolean; virtual; + procedure SetFILIALIsNull(const aValue: Boolean); virtual; function GetCODIGOValue: String; virtual; procedure SetCODIGOValue(const aValue: String); virtual; + function GetCODIGOIsNull: Boolean; virtual; + procedure SetCODIGOIsNull(const aValue: Boolean); virtual; function GetPRODUCTOValue: String; virtual; procedure SetPRODUCTOValue(const aValue: String); virtual; + function GetPRODUCTOIsNull: Boolean; virtual; + procedure SetPRODUCTOIsNull(const aValue: Boolean); virtual; function GetCOLORValue: String; virtual; procedure SetCOLORValue(const aValue: String); virtual; + function GetCOLORIsNull: Boolean; virtual; + procedure SetCOLORIsNull(const aValue: Boolean); virtual; function GetTIPO_PRODUCTOValue: String; virtual; procedure SetTIPO_PRODUCTOValue(const aValue: String); virtual; + function GetTIPO_PRODUCTOIsNull: Boolean; virtual; + procedure SetTIPO_PRODUCTOIsNull(const aValue: Boolean); virtual; function GetGRUPO_PRODUCTOValue: String; virtual; procedure SetGRUPO_PRODUCTOValue(const aValue: String); virtual; + function GetGRUPO_PRODUCTOIsNull: Boolean; virtual; + procedure SetGRUPO_PRODUCTOIsNull(const aValue: Boolean); virtual; function GetCOLECCIONValue: String; virtual; procedure SetCOLECCIONValue(const aValue: String); virtual; + function GetCOLECCIONIsNull: Boolean; virtual; + procedure SetCOLECCIONIsNull(const aValue: Boolean); virtual; function GetI38Value: Float; virtual; procedure SetI38Value(const aValue: Float); virtual; + function GetI38IsNull: Boolean; virtual; + procedure SetI38IsNull(const aValue: Boolean); virtual; function GetI40Value: Float; virtual; procedure SetI40Value(const aValue: Float); virtual; + function GetI40IsNull: Boolean; virtual; + procedure SetI40IsNull(const aValue: Boolean); virtual; function GetI42Value: Float; virtual; procedure SetI42Value(const aValue: Float); virtual; + function GetI42IsNull: Boolean; virtual; + procedure SetI42IsNull(const aValue: Boolean); virtual; function GetI44Value: Float; virtual; procedure SetI44Value(const aValue: Float); virtual; + function GetI44IsNull: Boolean; virtual; + procedure SetI44IsNull(const aValue: Boolean); virtual; function GetI46Value: Float; virtual; procedure SetI46Value(const aValue: Float); virtual; + function GetI46IsNull: Boolean; virtual; + procedure SetI46IsNull(const aValue: Boolean); virtual; function GetI48Value: Float; virtual; procedure SetI48Value(const aValue: Float); virtual; + function GetI48IsNull: Boolean; virtual; + procedure SetI48IsNull(const aValue: Boolean); virtual; function GetTIValue: Float; virtual; procedure SetTIValue(const aValue: Float); virtual; + function GetTIIsNull: Boolean; virtual; + procedure SetTIIsNull(const aValue: Boolean); virtual; function GetK38Value: Float; virtual; procedure SetK38Value(const aValue: Float); virtual; + function GetK38IsNull: Boolean; virtual; + procedure SetK38IsNull(const aValue: Boolean); virtual; function GetK40Value: Float; virtual; procedure SetK40Value(const aValue: Float); virtual; + function GetK40IsNull: Boolean; virtual; + procedure SetK40IsNull(const aValue: Boolean); virtual; function GetK42Value: Float; virtual; procedure SetK42Value(const aValue: Float); virtual; + function GetK42IsNull: Boolean; virtual; + procedure SetK42IsNull(const aValue: Boolean); virtual; function GetK44Value: Float; virtual; procedure SetK44Value(const aValue: Float); virtual; + function GetK44IsNull: Boolean; virtual; + procedure SetK44IsNull(const aValue: Boolean); virtual; function GetK46Value: Float; virtual; procedure SetK46Value(const aValue: Float); virtual; + function GetK46IsNull: Boolean; virtual; + procedure SetK46IsNull(const aValue: Boolean); virtual; function GetK48Value: Float; virtual; procedure SetK48Value(const aValue: Float); virtual; + function GetK48IsNull: Boolean; virtual; + procedure SetK48IsNull(const aValue: Boolean); virtual; function GetTKValue: Float; virtual; procedure SetTKValue(const aValue: Float); virtual; + function GetTKIsNull: Boolean; virtual; + procedure SetTKIsNull(const aValue: Boolean); virtual; function GetD38Value: Float; virtual; procedure SetD38Value(const aValue: Float); virtual; + function GetD38IsNull: Boolean; virtual; + procedure SetD38IsNull(const aValue: Boolean); virtual; function GetD40Value: Float; virtual; procedure SetD40Value(const aValue: Float); virtual; + function GetD40IsNull: Boolean; virtual; + procedure SetD40IsNull(const aValue: Boolean); virtual; function GetD42Value: Float; virtual; procedure SetD42Value(const aValue: Float); virtual; + function GetD42IsNull: Boolean; virtual; + procedure SetD42IsNull(const aValue: Boolean); virtual; function GetD44Value: Float; virtual; procedure SetD44Value(const aValue: Float); virtual; + function GetD44IsNull: Boolean; virtual; + procedure SetD44IsNull(const aValue: Boolean); virtual; function GetD46Value: Float; virtual; procedure SetD46Value(const aValue: Float); virtual; + function GetD46IsNull: Boolean; virtual; + procedure SetD46IsNull(const aValue: Boolean); virtual; function GetD48Value: Float; virtual; procedure SetD48Value(const aValue: Float); virtual; + function GetD48IsNull: Boolean; virtual; + procedure SetD48IsNull(const aValue: Boolean); virtual; function GetDTValue: Float; virtual; procedure SetDTValue(const aValue: Float); virtual; + function GetDTIsNull: Boolean; virtual; + procedure SetDTIsNull(const aValue: Boolean); virtual; { Properties } property CENTRO: String read GetCENTROValue write SetCENTROValue; + property CENTROIsNull: Boolean read GetCENTROIsNull write SetCENTROIsNull; + property FILIAL: String read GetFILIALValue write SetFILIALValue; + property FILIALIsNull: Boolean read GetFILIALIsNull write SetFILIALIsNull; property CODIGO: String read GetCODIGOValue write SetCODIGOValue; + property CODIGOIsNull: Boolean read GetCODIGOIsNull write SetCODIGOIsNull; property PRODUCTO: String read GetPRODUCTOValue write SetPRODUCTOValue; + property PRODUCTOIsNull: Boolean read GetPRODUCTOIsNull write SetPRODUCTOIsNull; property COLOR: String read GetCOLORValue write SetCOLORValue; + property COLORIsNull: Boolean read GetCOLORIsNull write SetCOLORIsNull; property TIPO_PRODUCTO: String read GetTIPO_PRODUCTOValue write SetTIPO_PRODUCTOValue; + property TIPO_PRODUCTOIsNull: Boolean read GetTIPO_PRODUCTOIsNull write SetTIPO_PRODUCTOIsNull; property GRUPO_PRODUCTO: String read GetGRUPO_PRODUCTOValue write SetGRUPO_PRODUCTOValue; + property GRUPO_PRODUCTOIsNull: Boolean read GetGRUPO_PRODUCTOIsNull write SetGRUPO_PRODUCTOIsNull; property COLECCION: String read GetCOLECCIONValue write SetCOLECCIONValue; + property COLECCIONIsNull: Boolean read GetCOLECCIONIsNull write SetCOLECCIONIsNull; property I38: Float read GetI38Value write SetI38Value; + property I38IsNull: Boolean read GetI38IsNull write SetI38IsNull; property I40: Float read GetI40Value write SetI40Value; + property I40IsNull: Boolean read GetI40IsNull write SetI40IsNull; property I42: Float read GetI42Value write SetI42Value; + property I42IsNull: Boolean read GetI42IsNull write SetI42IsNull; property I44: Float read GetI44Value write SetI44Value; + property I44IsNull: Boolean read GetI44IsNull write SetI44IsNull; property I46: Float read GetI46Value write SetI46Value; + property I46IsNull: Boolean read GetI46IsNull write SetI46IsNull; property I48: Float read GetI48Value write SetI48Value; + property I48IsNull: Boolean read GetI48IsNull write SetI48IsNull; property TI: Float read GetTIValue write SetTIValue; + property TIIsNull: Boolean read GetTIIsNull write SetTIIsNull; property K38: Float read GetK38Value write SetK38Value; + property K38IsNull: Boolean read GetK38IsNull write SetK38IsNull; property K40: Float read GetK40Value write SetK40Value; + property K40IsNull: Boolean read GetK40IsNull write SetK40IsNull; property K42: Float read GetK42Value write SetK42Value; + property K42IsNull: Boolean read GetK42IsNull write SetK42IsNull; property K44: Float read GetK44Value write SetK44Value; + property K44IsNull: Boolean read GetK44IsNull write SetK44IsNull; property K46: Float read GetK46Value write SetK46Value; + property K46IsNull: Boolean read GetK46IsNull write SetK46IsNull; property K48: Float read GetK48Value write SetK48Value; + property K48IsNull: Boolean read GetK48IsNull write SetK48IsNull; property TK: Float read GetTKValue write SetTKValue; + property TKIsNull: Boolean read GetTKIsNull write SetTKIsNull; property D38: Float read GetD38Value write SetD38Value; + property D38IsNull: Boolean read GetD38IsNull write SetD38IsNull; property D40: Float read GetD40Value write SetD40Value; + property D40IsNull: Boolean read GetD40IsNull write SetD40IsNull; property D42: Float read GetD42Value write SetD42Value; + property D42IsNull: Boolean read GetD42IsNull write SetD42IsNull; property D44: Float read GetD44Value write SetD44Value; + property D44IsNull: Boolean read GetD44IsNull write SetD44IsNull; property D46: Float read GetD46Value write SetD46Value; + property D46IsNull: Boolean read GetD46IsNull write SetD46IsNull; property D48: Float read GetD48Value write SetD48Value; + property D48IsNull: Boolean read GetD48IsNull write SetD48IsNull; property DT: Float read GetDTValue write SetDTValue; + property DTIsNull: Boolean read GetDTIsNull write SetDTIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -795,7 +1321,7 @@ type implementation -uses Variants; +uses Variants, uROBinaryHelpers; { TStockPrendasCentrosDataTableRules } constructor TStockPrendasCentrosDataTableRules.Create(aDataTable: TDADataTable); @@ -818,6 +1344,17 @@ begin DataTable.Fields[idx_StockPrendasCentrosCODIGO].AsString := aValue; end; +function TStockPrendasCentrosDataTableRules.GetCODIGOIsNull: boolean; +begin + result := DataTable.Fields[idx_StockPrendasCentrosCODIGO].IsNull; +end; + +procedure TStockPrendasCentrosDataTableRules.SetCODIGOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockPrendasCentrosCODIGO].AsVariant := Null; +end; + function TStockPrendasCentrosDataTableRules.GetPRODUCTOValue: String; begin result := DataTable.Fields[idx_StockPrendasCentrosPRODUCTO].AsString; @@ -828,6 +1365,17 @@ begin DataTable.Fields[idx_StockPrendasCentrosPRODUCTO].AsString := aValue; end; +function TStockPrendasCentrosDataTableRules.GetPRODUCTOIsNull: boolean; +begin + result := DataTable.Fields[idx_StockPrendasCentrosPRODUCTO].IsNull; +end; + +procedure TStockPrendasCentrosDataTableRules.SetPRODUCTOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockPrendasCentrosPRODUCTO].AsVariant := Null; +end; + function TStockPrendasCentrosDataTableRules.GetTIPO_PRODUCTOValue: String; begin result := DataTable.Fields[idx_StockPrendasCentrosTIPO_PRODUCTO].AsString; @@ -838,6 +1386,17 @@ begin DataTable.Fields[idx_StockPrendasCentrosTIPO_PRODUCTO].AsString := aValue; end; +function TStockPrendasCentrosDataTableRules.GetTIPO_PRODUCTOIsNull: boolean; +begin + result := DataTable.Fields[idx_StockPrendasCentrosTIPO_PRODUCTO].IsNull; +end; + +procedure TStockPrendasCentrosDataTableRules.SetTIPO_PRODUCTOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockPrendasCentrosTIPO_PRODUCTO].AsVariant := Null; +end; + function TStockPrendasCentrosDataTableRules.GetGRUPO_PRODUCTOValue: String; begin result := DataTable.Fields[idx_StockPrendasCentrosGRUPO_PRODUCTO].AsString; @@ -848,6 +1407,17 @@ begin DataTable.Fields[idx_StockPrendasCentrosGRUPO_PRODUCTO].AsString := aValue; end; +function TStockPrendasCentrosDataTableRules.GetGRUPO_PRODUCTOIsNull: boolean; +begin + result := DataTable.Fields[idx_StockPrendasCentrosGRUPO_PRODUCTO].IsNull; +end; + +procedure TStockPrendasCentrosDataTableRules.SetGRUPO_PRODUCTOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockPrendasCentrosGRUPO_PRODUCTO].AsVariant := Null; +end; + function TStockPrendasCentrosDataTableRules.GetCOLECCIONValue: String; begin result := DataTable.Fields[idx_StockPrendasCentrosCOLECCION].AsString; @@ -858,6 +1428,17 @@ begin DataTable.Fields[idx_StockPrendasCentrosCOLECCION].AsString := aValue; end; +function TStockPrendasCentrosDataTableRules.GetCOLECCIONIsNull: boolean; +begin + result := DataTable.Fields[idx_StockPrendasCentrosCOLECCION].IsNull; +end; + +procedure TStockPrendasCentrosDataTableRules.SetCOLECCIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockPrendasCentrosCOLECCION].AsVariant := Null; +end; + function TStockPrendasCentrosDataTableRules.GetCOLORValue: String; begin result := DataTable.Fields[idx_StockPrendasCentrosCOLOR].AsString; @@ -868,6 +1449,17 @@ begin DataTable.Fields[idx_StockPrendasCentrosCOLOR].AsString := aValue; end; +function TStockPrendasCentrosDataTableRules.GetCOLORIsNull: boolean; +begin + result := DataTable.Fields[idx_StockPrendasCentrosCOLOR].IsNull; +end; + +procedure TStockPrendasCentrosDataTableRules.SetCOLORIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockPrendasCentrosCOLOR].AsVariant := Null; +end; + function TStockPrendasCentrosDataTableRules.GetT38Value: Float; begin result := DataTable.Fields[idx_StockPrendasCentrosT38].AsFloat; @@ -878,6 +1470,17 @@ begin DataTable.Fields[idx_StockPrendasCentrosT38].AsFloat := aValue; end; +function TStockPrendasCentrosDataTableRules.GetT38IsNull: boolean; +begin + result := DataTable.Fields[idx_StockPrendasCentrosT38].IsNull; +end; + +procedure TStockPrendasCentrosDataTableRules.SetT38IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockPrendasCentrosT38].AsVariant := Null; +end; + function TStockPrendasCentrosDataTableRules.GetT40Value: Float; begin result := DataTable.Fields[idx_StockPrendasCentrosT40].AsFloat; @@ -888,6 +1491,17 @@ begin DataTable.Fields[idx_StockPrendasCentrosT40].AsFloat := aValue; end; +function TStockPrendasCentrosDataTableRules.GetT40IsNull: boolean; +begin + result := DataTable.Fields[idx_StockPrendasCentrosT40].IsNull; +end; + +procedure TStockPrendasCentrosDataTableRules.SetT40IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockPrendasCentrosT40].AsVariant := Null; +end; + function TStockPrendasCentrosDataTableRules.GetT42Value: Float; begin result := DataTable.Fields[idx_StockPrendasCentrosT42].AsFloat; @@ -898,6 +1512,17 @@ begin DataTable.Fields[idx_StockPrendasCentrosT42].AsFloat := aValue; end; +function TStockPrendasCentrosDataTableRules.GetT42IsNull: boolean; +begin + result := DataTable.Fields[idx_StockPrendasCentrosT42].IsNull; +end; + +procedure TStockPrendasCentrosDataTableRules.SetT42IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockPrendasCentrosT42].AsVariant := Null; +end; + function TStockPrendasCentrosDataTableRules.GetT44Value: Float; begin result := DataTable.Fields[idx_StockPrendasCentrosT44].AsFloat; @@ -908,6 +1533,17 @@ begin DataTable.Fields[idx_StockPrendasCentrosT44].AsFloat := aValue; end; +function TStockPrendasCentrosDataTableRules.GetT44IsNull: boolean; +begin + result := DataTable.Fields[idx_StockPrendasCentrosT44].IsNull; +end; + +procedure TStockPrendasCentrosDataTableRules.SetT44IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockPrendasCentrosT44].AsVariant := Null; +end; + function TStockPrendasCentrosDataTableRules.GetT46Value: Float; begin result := DataTable.Fields[idx_StockPrendasCentrosT46].AsFloat; @@ -918,6 +1554,17 @@ begin DataTable.Fields[idx_StockPrendasCentrosT46].AsFloat := aValue; end; +function TStockPrendasCentrosDataTableRules.GetT46IsNull: boolean; +begin + result := DataTable.Fields[idx_StockPrendasCentrosT46].IsNull; +end; + +procedure TStockPrendasCentrosDataTableRules.SetT46IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockPrendasCentrosT46].AsVariant := Null; +end; + function TStockPrendasCentrosDataTableRules.GetT48Value: Float; begin result := DataTable.Fields[idx_StockPrendasCentrosT48].AsFloat; @@ -928,6 +1575,17 @@ begin DataTable.Fields[idx_StockPrendasCentrosT48].AsFloat := aValue; end; +function TStockPrendasCentrosDataTableRules.GetT48IsNull: boolean; +begin + result := DataTable.Fields[idx_StockPrendasCentrosT48].IsNull; +end; + +procedure TStockPrendasCentrosDataTableRules.SetT48IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockPrendasCentrosT48].AsVariant := Null; +end; + function TStockPrendasCentrosDataTableRules.GetTOTALValue: Float; begin result := DataTable.Fields[idx_StockPrendasCentrosTOTAL].AsFloat; @@ -938,6 +1596,17 @@ begin DataTable.Fields[idx_StockPrendasCentrosTOTAL].AsFloat := aValue; end; +function TStockPrendasCentrosDataTableRules.GetTOTALIsNull: boolean; +begin + result := DataTable.Fields[idx_StockPrendasCentrosTOTAL].IsNull; +end; + +procedure TStockPrendasCentrosDataTableRules.SetTOTALIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockPrendasCentrosTOTAL].AsVariant := Null; +end; + { TStockEDIDataTableRules } constructor TStockEDIDataTableRules.Create(aDataTable: TDADataTable); @@ -960,6 +1629,38 @@ begin DataTable.Fields[idx_StockEDICENTRO].AsString := aValue; end; +function TStockEDIDataTableRules.GetCENTROIsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDICENTRO].IsNull; +end; + +procedure TStockEDIDataTableRules.SetCENTROIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDICENTRO].AsVariant := Null; +end; + +function TStockEDIDataTableRules.GetFILIALValue: String; +begin + result := DataTable.Fields[idx_StockEDIFILIAL].AsString; +end; + +procedure TStockEDIDataTableRules.SetFILIALValue(const aValue: String); +begin + DataTable.Fields[idx_StockEDIFILIAL].AsString := aValue; +end; + +function TStockEDIDataTableRules.GetFILIALIsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIFILIAL].IsNull; +end; + +procedure TStockEDIDataTableRules.SetFILIALIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIFILIAL].AsVariant := Null; +end; + function TStockEDIDataTableRules.GetCODIGOValue: String; begin result := DataTable.Fields[idx_StockEDICODIGO].AsString; @@ -970,6 +1671,17 @@ begin DataTable.Fields[idx_StockEDICODIGO].AsString := aValue; end; +function TStockEDIDataTableRules.GetCODIGOIsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDICODIGO].IsNull; +end; + +procedure TStockEDIDataTableRules.SetCODIGOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDICODIGO].AsVariant := Null; +end; + function TStockEDIDataTableRules.GetPRODUCTOValue: String; begin result := DataTable.Fields[idx_StockEDIPRODUCTO].AsString; @@ -980,6 +1692,17 @@ begin DataTable.Fields[idx_StockEDIPRODUCTO].AsString := aValue; end; +function TStockEDIDataTableRules.GetPRODUCTOIsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIPRODUCTO].IsNull; +end; + +procedure TStockEDIDataTableRules.SetPRODUCTOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIPRODUCTO].AsVariant := Null; +end; + function TStockEDIDataTableRules.GetTIPO_PRODUCTOValue: String; begin result := DataTable.Fields[idx_StockEDITIPO_PRODUCTO].AsString; @@ -990,6 +1713,17 @@ begin DataTable.Fields[idx_StockEDITIPO_PRODUCTO].AsString := aValue; end; +function TStockEDIDataTableRules.GetTIPO_PRODUCTOIsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDITIPO_PRODUCTO].IsNull; +end; + +procedure TStockEDIDataTableRules.SetTIPO_PRODUCTOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDITIPO_PRODUCTO].AsVariant := Null; +end; + function TStockEDIDataTableRules.GetGRUPO_PRODUCTOValue: String; begin result := DataTable.Fields[idx_StockEDIGRUPO_PRODUCTO].AsString; @@ -1000,6 +1734,17 @@ begin DataTable.Fields[idx_StockEDIGRUPO_PRODUCTO].AsString := aValue; end; +function TStockEDIDataTableRules.GetGRUPO_PRODUCTOIsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIGRUPO_PRODUCTO].IsNull; +end; + +procedure TStockEDIDataTableRules.SetGRUPO_PRODUCTOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIGRUPO_PRODUCTO].AsVariant := Null; +end; + function TStockEDIDataTableRules.GetCOLECCIONValue: String; begin result := DataTable.Fields[idx_StockEDICOLECCION].AsString; @@ -1010,6 +1755,17 @@ begin DataTable.Fields[idx_StockEDICOLECCION].AsString := aValue; end; +function TStockEDIDataTableRules.GetCOLECCIONIsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDICOLECCION].IsNull; +end; + +procedure TStockEDIDataTableRules.SetCOLECCIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDICOLECCION].AsVariant := Null; +end; + function TStockEDIDataTableRules.GetCOLORValue: String; begin result := DataTable.Fields[idx_StockEDICOLOR].AsString; @@ -1020,6 +1776,17 @@ begin DataTable.Fields[idx_StockEDICOLOR].AsString := aValue; end; +function TStockEDIDataTableRules.GetCOLORIsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDICOLOR].IsNull; +end; + +procedure TStockEDIDataTableRules.SetCOLORIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDICOLOR].AsVariant := Null; +end; + function TStockEDIDataTableRules.GetE38Value: Float; begin result := DataTable.Fields[idx_StockEDIE38].AsFloat; @@ -1030,6 +1797,17 @@ begin DataTable.Fields[idx_StockEDIE38].AsFloat := aValue; end; +function TStockEDIDataTableRules.GetE38IsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIE38].IsNull; +end; + +procedure TStockEDIDataTableRules.SetE38IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIE38].AsVariant := Null; +end; + function TStockEDIDataTableRules.GetE40Value: Float; begin result := DataTable.Fields[idx_StockEDIE40].AsFloat; @@ -1040,6 +1818,17 @@ begin DataTable.Fields[idx_StockEDIE40].AsFloat := aValue; end; +function TStockEDIDataTableRules.GetE40IsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIE40].IsNull; +end; + +procedure TStockEDIDataTableRules.SetE40IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIE40].AsVariant := Null; +end; + function TStockEDIDataTableRules.GetE42Value: Float; begin result := DataTable.Fields[idx_StockEDIE42].AsFloat; @@ -1050,6 +1839,17 @@ begin DataTable.Fields[idx_StockEDIE42].AsFloat := aValue; end; +function TStockEDIDataTableRules.GetE42IsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIE42].IsNull; +end; + +procedure TStockEDIDataTableRules.SetE42IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIE42].AsVariant := Null; +end; + function TStockEDIDataTableRules.GetE44Value: Float; begin result := DataTable.Fields[idx_StockEDIE44].AsFloat; @@ -1060,6 +1860,17 @@ begin DataTable.Fields[idx_StockEDIE44].AsFloat := aValue; end; +function TStockEDIDataTableRules.GetE44IsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIE44].IsNull; +end; + +procedure TStockEDIDataTableRules.SetE44IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIE44].AsVariant := Null; +end; + function TStockEDIDataTableRules.GetE46Value: Float; begin result := DataTable.Fields[idx_StockEDIE46].AsFloat; @@ -1070,6 +1881,17 @@ begin DataTable.Fields[idx_StockEDIE46].AsFloat := aValue; end; +function TStockEDIDataTableRules.GetE46IsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIE46].IsNull; +end; + +procedure TStockEDIDataTableRules.SetE46IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIE46].AsVariant := Null; +end; + function TStockEDIDataTableRules.GetE48Value: Float; begin result := DataTable.Fields[idx_StockEDIE48].AsFloat; @@ -1080,6 +1902,17 @@ begin DataTable.Fields[idx_StockEDIE48].AsFloat := aValue; end; +function TStockEDIDataTableRules.GetE48IsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIE48].IsNull; +end; + +procedure TStockEDIDataTableRules.SetE48IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIE48].AsVariant := Null; +end; + function TStockEDIDataTableRules.GetTEValue: Float; begin result := DataTable.Fields[idx_StockEDITE].AsFloat; @@ -1090,6 +1923,17 @@ begin DataTable.Fields[idx_StockEDITE].AsFloat := aValue; end; +function TStockEDIDataTableRules.GetTEIsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDITE].IsNull; +end; + +procedure TStockEDIDataTableRules.SetTEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDITE].AsVariant := Null; +end; + function TStockEDIDataTableRules.GetS38Value: Float; begin result := DataTable.Fields[idx_StockEDIS38].AsFloat; @@ -1100,6 +1944,17 @@ begin DataTable.Fields[idx_StockEDIS38].AsFloat := aValue; end; +function TStockEDIDataTableRules.GetS38IsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIS38].IsNull; +end; + +procedure TStockEDIDataTableRules.SetS38IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIS38].AsVariant := Null; +end; + function TStockEDIDataTableRules.GetS40Value: Float; begin result := DataTable.Fields[idx_StockEDIS40].AsFloat; @@ -1110,6 +1965,17 @@ begin DataTable.Fields[idx_StockEDIS40].AsFloat := aValue; end; +function TStockEDIDataTableRules.GetS40IsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIS40].IsNull; +end; + +procedure TStockEDIDataTableRules.SetS40IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIS40].AsVariant := Null; +end; + function TStockEDIDataTableRules.GetS42Value: Float; begin result := DataTable.Fields[idx_StockEDIS42].AsFloat; @@ -1120,6 +1986,17 @@ begin DataTable.Fields[idx_StockEDIS42].AsFloat := aValue; end; +function TStockEDIDataTableRules.GetS42IsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIS42].IsNull; +end; + +procedure TStockEDIDataTableRules.SetS42IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIS42].AsVariant := Null; +end; + function TStockEDIDataTableRules.GetS44Value: Float; begin result := DataTable.Fields[idx_StockEDIS44].AsFloat; @@ -1130,6 +2007,17 @@ begin DataTable.Fields[idx_StockEDIS44].AsFloat := aValue; end; +function TStockEDIDataTableRules.GetS44IsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIS44].IsNull; +end; + +procedure TStockEDIDataTableRules.SetS44IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIS44].AsVariant := Null; +end; + function TStockEDIDataTableRules.GetS46Value: Float; begin result := DataTable.Fields[idx_StockEDIS46].AsFloat; @@ -1140,6 +2028,17 @@ begin DataTable.Fields[idx_StockEDIS46].AsFloat := aValue; end; +function TStockEDIDataTableRules.GetS46IsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIS46].IsNull; +end; + +procedure TStockEDIDataTableRules.SetS46IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIS46].AsVariant := Null; +end; + function TStockEDIDataTableRules.GetS48Value: Float; begin result := DataTable.Fields[idx_StockEDIS48].AsFloat; @@ -1150,6 +2049,17 @@ begin DataTable.Fields[idx_StockEDIS48].AsFloat := aValue; end; +function TStockEDIDataTableRules.GetS48IsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIS48].IsNull; +end; + +procedure TStockEDIDataTableRules.SetS48IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIS48].AsVariant := Null; +end; + function TStockEDIDataTableRules.GetTSValue: Float; begin result := DataTable.Fields[idx_StockEDITS].AsFloat; @@ -1160,6 +2070,17 @@ begin DataTable.Fields[idx_StockEDITS].AsFloat := aValue; end; +function TStockEDIDataTableRules.GetTSIsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDITS].IsNull; +end; + +procedure TStockEDIDataTableRules.SetTSIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDITS].AsVariant := Null; +end; + function TStockEDIDataTableRules.GetK38Value: Float; begin result := DataTable.Fields[idx_StockEDIK38].AsFloat; @@ -1170,6 +2091,17 @@ begin DataTable.Fields[idx_StockEDIK38].AsFloat := aValue; end; +function TStockEDIDataTableRules.GetK38IsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIK38].IsNull; +end; + +procedure TStockEDIDataTableRules.SetK38IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIK38].AsVariant := Null; +end; + function TStockEDIDataTableRules.GetK40Value: Float; begin result := DataTable.Fields[idx_StockEDIK40].AsFloat; @@ -1180,6 +2112,17 @@ begin DataTable.Fields[idx_StockEDIK40].AsFloat := aValue; end; +function TStockEDIDataTableRules.GetK40IsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIK40].IsNull; +end; + +procedure TStockEDIDataTableRules.SetK40IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIK40].AsVariant := Null; +end; + function TStockEDIDataTableRules.GetK42Value: Float; begin result := DataTable.Fields[idx_StockEDIK42].AsFloat; @@ -1190,6 +2133,17 @@ begin DataTable.Fields[idx_StockEDIK42].AsFloat := aValue; end; +function TStockEDIDataTableRules.GetK42IsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIK42].IsNull; +end; + +procedure TStockEDIDataTableRules.SetK42IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIK42].AsVariant := Null; +end; + function TStockEDIDataTableRules.GetK44Value: Float; begin result := DataTable.Fields[idx_StockEDIK44].AsFloat; @@ -1200,6 +2154,17 @@ begin DataTable.Fields[idx_StockEDIK44].AsFloat := aValue; end; +function TStockEDIDataTableRules.GetK44IsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIK44].IsNull; +end; + +procedure TStockEDIDataTableRules.SetK44IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIK44].AsVariant := Null; +end; + function TStockEDIDataTableRules.GetK46Value: Float; begin result := DataTable.Fields[idx_StockEDIK46].AsFloat; @@ -1210,6 +2175,17 @@ begin DataTable.Fields[idx_StockEDIK46].AsFloat := aValue; end; +function TStockEDIDataTableRules.GetK46IsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIK46].IsNull; +end; + +procedure TStockEDIDataTableRules.SetK46IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIK46].AsVariant := Null; +end; + function TStockEDIDataTableRules.GetK48Value: Float; begin result := DataTable.Fields[idx_StockEDIK48].AsFloat; @@ -1220,6 +2196,17 @@ begin DataTable.Fields[idx_StockEDIK48].AsFloat := aValue; end; +function TStockEDIDataTableRules.GetK48IsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIK48].IsNull; +end; + +procedure TStockEDIDataTableRules.SetK48IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIK48].AsVariant := Null; +end; + function TStockEDIDataTableRules.GetKTValue: Float; begin result := DataTable.Fields[idx_StockEDIKT].AsFloat; @@ -1230,6 +2217,17 @@ begin DataTable.Fields[idx_StockEDIKT].AsFloat := aValue; end; +function TStockEDIDataTableRules.GetKTIsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIKT].IsNull; +end; + +procedure TStockEDIDataTableRules.SetKTIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIKT].AsVariant := Null; +end; + { TStockVARELADataTableRules } constructor TStockVARELADataTableRules.Create(aDataTable: TDADataTable); @@ -1252,6 +2250,17 @@ begin DataTable.Fields[idx_StockVARELAFILIAL].AsString := aValue; end; +function TStockVARELADataTableRules.GetFILIALIsNull: boolean; +begin + result := DataTable.Fields[idx_StockVARELAFILIAL].IsNull; +end; + +procedure TStockVARELADataTableRules.SetFILIALIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockVARELAFILIAL].AsVariant := Null; +end; + function TStockVARELADataTableRules.GetCODIGOValue: String; begin result := DataTable.Fields[idx_StockVARELACODIGO].AsString; @@ -1262,6 +2271,17 @@ begin DataTable.Fields[idx_StockVARELACODIGO].AsString := aValue; end; +function TStockVARELADataTableRules.GetCODIGOIsNull: boolean; +begin + result := DataTable.Fields[idx_StockVARELACODIGO].IsNull; +end; + +procedure TStockVARELADataTableRules.SetCODIGOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockVARELACODIGO].AsVariant := Null; +end; + function TStockVARELADataTableRules.GetCOLORValue: String; begin result := DataTable.Fields[idx_StockVARELACOLOR].AsString; @@ -1272,6 +2292,17 @@ begin DataTable.Fields[idx_StockVARELACOLOR].AsString := aValue; end; +function TStockVARELADataTableRules.GetCOLORIsNull: boolean; +begin + result := DataTable.Fields[idx_StockVARELACOLOR].IsNull; +end; + +procedure TStockVARELADataTableRules.SetCOLORIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockVARELACOLOR].AsVariant := Null; +end; + function TStockVARELADataTableRules.GetPRODUCTOValue: String; begin result := DataTable.Fields[idx_StockVARELAPRODUCTO].AsString; @@ -1282,6 +2313,17 @@ begin DataTable.Fields[idx_StockVARELAPRODUCTO].AsString := aValue; end; +function TStockVARELADataTableRules.GetPRODUCTOIsNull: boolean; +begin + result := DataTable.Fields[idx_StockVARELAPRODUCTO].IsNull; +end; + +procedure TStockVARELADataTableRules.SetPRODUCTOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockVARELAPRODUCTO].AsVariant := Null; +end; + function TStockVARELADataTableRules.GetTIPO_PRODUTOValue: String; begin result := DataTable.Fields[idx_StockVARELATIPO_PRODUTO].AsString; @@ -1292,6 +2334,17 @@ begin DataTable.Fields[idx_StockVARELATIPO_PRODUTO].AsString := aValue; end; +function TStockVARELADataTableRules.GetTIPO_PRODUTOIsNull: boolean; +begin + result := DataTable.Fields[idx_StockVARELATIPO_PRODUTO].IsNull; +end; + +procedure TStockVARELADataTableRules.SetTIPO_PRODUTOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockVARELATIPO_PRODUTO].AsVariant := Null; +end; + function TStockVARELADataTableRules.GetGRUPO_PRODUTOValue: String; begin result := DataTable.Fields[idx_StockVARELAGRUPO_PRODUTO].AsString; @@ -1302,6 +2355,17 @@ begin DataTable.Fields[idx_StockVARELAGRUPO_PRODUTO].AsString := aValue; end; +function TStockVARELADataTableRules.GetGRUPO_PRODUTOIsNull: boolean; +begin + result := DataTable.Fields[idx_StockVARELAGRUPO_PRODUTO].IsNull; +end; + +procedure TStockVARELADataTableRules.SetGRUPO_PRODUTOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockVARELAGRUPO_PRODUTO].AsVariant := Null; +end; + function TStockVARELADataTableRules.GetCOLECCIONValue: String; begin result := DataTable.Fields[idx_StockVARELACOLECCION].AsString; @@ -1312,6 +2376,17 @@ begin DataTable.Fields[idx_StockVARELACOLECCION].AsString := aValue; end; +function TStockVARELADataTableRules.GetCOLECCIONIsNull: boolean; +begin + result := DataTable.Fields[idx_StockVARELACOLECCION].IsNull; +end; + +procedure TStockVARELADataTableRules.SetCOLECCIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockVARELACOLECCION].AsVariant := Null; +end; + function TStockVARELADataTableRules.GetK38Value: Integer; begin result := DataTable.Fields[idx_StockVARELAK38].AsInteger; @@ -1322,6 +2397,17 @@ begin DataTable.Fields[idx_StockVARELAK38].AsInteger := aValue; end; +function TStockVARELADataTableRules.GetK38IsNull: boolean; +begin + result := DataTable.Fields[idx_StockVARELAK38].IsNull; +end; + +procedure TStockVARELADataTableRules.SetK38IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockVARELAK38].AsVariant := Null; +end; + function TStockVARELADataTableRules.GetK40Value: Integer; begin result := DataTable.Fields[idx_StockVARELAK40].AsInteger; @@ -1332,6 +2418,17 @@ begin DataTable.Fields[idx_StockVARELAK40].AsInteger := aValue; end; +function TStockVARELADataTableRules.GetK40IsNull: boolean; +begin + result := DataTable.Fields[idx_StockVARELAK40].IsNull; +end; + +procedure TStockVARELADataTableRules.SetK40IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockVARELAK40].AsVariant := Null; +end; + function TStockVARELADataTableRules.GetK42Value: Integer; begin result := DataTable.Fields[idx_StockVARELAK42].AsInteger; @@ -1342,6 +2439,17 @@ begin DataTable.Fields[idx_StockVARELAK42].AsInteger := aValue; end; +function TStockVARELADataTableRules.GetK42IsNull: boolean; +begin + result := DataTable.Fields[idx_StockVARELAK42].IsNull; +end; + +procedure TStockVARELADataTableRules.SetK42IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockVARELAK42].AsVariant := Null; +end; + function TStockVARELADataTableRules.GetK44Value: Integer; begin result := DataTable.Fields[idx_StockVARELAK44].AsInteger; @@ -1352,6 +2460,17 @@ begin DataTable.Fields[idx_StockVARELAK44].AsInteger := aValue; end; +function TStockVARELADataTableRules.GetK44IsNull: boolean; +begin + result := DataTable.Fields[idx_StockVARELAK44].IsNull; +end; + +procedure TStockVARELADataTableRules.SetK44IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockVARELAK44].AsVariant := Null; +end; + function TStockVARELADataTableRules.GetK46Value: Integer; begin result := DataTable.Fields[idx_StockVARELAK46].AsInteger; @@ -1362,6 +2481,17 @@ begin DataTable.Fields[idx_StockVARELAK46].AsInteger := aValue; end; +function TStockVARELADataTableRules.GetK46IsNull: boolean; +begin + result := DataTable.Fields[idx_StockVARELAK46].IsNull; +end; + +procedure TStockVARELADataTableRules.SetK46IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockVARELAK46].AsVariant := Null; +end; + function TStockVARELADataTableRules.GetK48Value: Integer; begin result := DataTable.Fields[idx_StockVARELAK48].AsInteger; @@ -1372,6 +2502,17 @@ begin DataTable.Fields[idx_StockVARELAK48].AsInteger := aValue; end; +function TStockVARELADataTableRules.GetK48IsNull: boolean; +begin + result := DataTable.Fields[idx_StockVARELAK48].IsNull; +end; + +procedure TStockVARELADataTableRules.SetK48IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockVARELAK48].AsVariant := Null; +end; + function TStockVARELADataTableRules.GetKTValue: Integer; begin result := DataTable.Fields[idx_StockVARELAKT].AsInteger; @@ -1382,6 +2523,17 @@ begin DataTable.Fields[idx_StockVARELAKT].AsInteger := aValue; end; +function TStockVARELADataTableRules.GetKTIsNull: boolean; +begin + result := DataTable.Fields[idx_StockVARELAKT].IsNull; +end; + +procedure TStockVARELADataTableRules.SetKTIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockVARELAKT].AsVariant := Null; +end; + { TStockEDIInventarioDataTableRules } constructor TStockEDIInventarioDataTableRules.Create(aDataTable: TDADataTable); @@ -1404,6 +2556,38 @@ begin DataTable.Fields[idx_StockEDIInventarioCENTRO].AsString := aValue; end; +function TStockEDIInventarioDataTableRules.GetCENTROIsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIInventarioCENTRO].IsNull; +end; + +procedure TStockEDIInventarioDataTableRules.SetCENTROIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIInventarioCENTRO].AsVariant := Null; +end; + +function TStockEDIInventarioDataTableRules.GetFILIALValue: String; +begin + result := DataTable.Fields[idx_StockEDIInventarioFILIAL].AsString; +end; + +procedure TStockEDIInventarioDataTableRules.SetFILIALValue(const aValue: String); +begin + DataTable.Fields[idx_StockEDIInventarioFILIAL].AsString := aValue; +end; + +function TStockEDIInventarioDataTableRules.GetFILIALIsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIInventarioFILIAL].IsNull; +end; + +procedure TStockEDIInventarioDataTableRules.SetFILIALIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIInventarioFILIAL].AsVariant := Null; +end; + function TStockEDIInventarioDataTableRules.GetCODIGOValue: String; begin result := DataTable.Fields[idx_StockEDIInventarioCODIGO].AsString; @@ -1414,6 +2598,17 @@ begin DataTable.Fields[idx_StockEDIInventarioCODIGO].AsString := aValue; end; +function TStockEDIInventarioDataTableRules.GetCODIGOIsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIInventarioCODIGO].IsNull; +end; + +procedure TStockEDIInventarioDataTableRules.SetCODIGOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIInventarioCODIGO].AsVariant := Null; +end; + function TStockEDIInventarioDataTableRules.GetPRODUCTOValue: String; begin result := DataTable.Fields[idx_StockEDIInventarioPRODUCTO].AsString; @@ -1424,6 +2619,17 @@ begin DataTable.Fields[idx_StockEDIInventarioPRODUCTO].AsString := aValue; end; +function TStockEDIInventarioDataTableRules.GetPRODUCTOIsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIInventarioPRODUCTO].IsNull; +end; + +procedure TStockEDIInventarioDataTableRules.SetPRODUCTOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIInventarioPRODUCTO].AsVariant := Null; +end; + function TStockEDIInventarioDataTableRules.GetCOLORValue: String; begin result := DataTable.Fields[idx_StockEDIInventarioCOLOR].AsString; @@ -1434,6 +2640,17 @@ begin DataTable.Fields[idx_StockEDIInventarioCOLOR].AsString := aValue; end; +function TStockEDIInventarioDataTableRules.GetCOLORIsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIInventarioCOLOR].IsNull; +end; + +procedure TStockEDIInventarioDataTableRules.SetCOLORIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIInventarioCOLOR].AsVariant := Null; +end; + function TStockEDIInventarioDataTableRules.GetTIPO_PRODUCTOValue: String; begin result := DataTable.Fields[idx_StockEDIInventarioTIPO_PRODUCTO].AsString; @@ -1444,6 +2661,17 @@ begin DataTable.Fields[idx_StockEDIInventarioTIPO_PRODUCTO].AsString := aValue; end; +function TStockEDIInventarioDataTableRules.GetTIPO_PRODUCTOIsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIInventarioTIPO_PRODUCTO].IsNull; +end; + +procedure TStockEDIInventarioDataTableRules.SetTIPO_PRODUCTOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIInventarioTIPO_PRODUCTO].AsVariant := Null; +end; + function TStockEDIInventarioDataTableRules.GetGRUPO_PRODUCTOValue: String; begin result := DataTable.Fields[idx_StockEDIInventarioGRUPO_PRODUCTO].AsString; @@ -1454,6 +2682,17 @@ begin DataTable.Fields[idx_StockEDIInventarioGRUPO_PRODUCTO].AsString := aValue; end; +function TStockEDIInventarioDataTableRules.GetGRUPO_PRODUCTOIsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIInventarioGRUPO_PRODUCTO].IsNull; +end; + +procedure TStockEDIInventarioDataTableRules.SetGRUPO_PRODUCTOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIInventarioGRUPO_PRODUCTO].AsVariant := Null; +end; + function TStockEDIInventarioDataTableRules.GetCOLECCIONValue: String; begin result := DataTable.Fields[idx_StockEDIInventarioCOLECCION].AsString; @@ -1464,6 +2703,17 @@ begin DataTable.Fields[idx_StockEDIInventarioCOLECCION].AsString := aValue; end; +function TStockEDIInventarioDataTableRules.GetCOLECCIONIsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIInventarioCOLECCION].IsNull; +end; + +procedure TStockEDIInventarioDataTableRules.SetCOLECCIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIInventarioCOLECCION].AsVariant := Null; +end; + function TStockEDIInventarioDataTableRules.GetI38Value: Float; begin result := DataTable.Fields[idx_StockEDIInventarioI38].AsFloat; @@ -1474,6 +2724,17 @@ begin DataTable.Fields[idx_StockEDIInventarioI38].AsFloat := aValue; end; +function TStockEDIInventarioDataTableRules.GetI38IsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIInventarioI38].IsNull; +end; + +procedure TStockEDIInventarioDataTableRules.SetI38IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIInventarioI38].AsVariant := Null; +end; + function TStockEDIInventarioDataTableRules.GetI40Value: Float; begin result := DataTable.Fields[idx_StockEDIInventarioI40].AsFloat; @@ -1484,6 +2745,17 @@ begin DataTable.Fields[idx_StockEDIInventarioI40].AsFloat := aValue; end; +function TStockEDIInventarioDataTableRules.GetI40IsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIInventarioI40].IsNull; +end; + +procedure TStockEDIInventarioDataTableRules.SetI40IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIInventarioI40].AsVariant := Null; +end; + function TStockEDIInventarioDataTableRules.GetI42Value: Float; begin result := DataTable.Fields[idx_StockEDIInventarioI42].AsFloat; @@ -1494,6 +2766,17 @@ begin DataTable.Fields[idx_StockEDIInventarioI42].AsFloat := aValue; end; +function TStockEDIInventarioDataTableRules.GetI42IsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIInventarioI42].IsNull; +end; + +procedure TStockEDIInventarioDataTableRules.SetI42IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIInventarioI42].AsVariant := Null; +end; + function TStockEDIInventarioDataTableRules.GetI44Value: Float; begin result := DataTable.Fields[idx_StockEDIInventarioI44].AsFloat; @@ -1504,6 +2787,17 @@ begin DataTable.Fields[idx_StockEDIInventarioI44].AsFloat := aValue; end; +function TStockEDIInventarioDataTableRules.GetI44IsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIInventarioI44].IsNull; +end; + +procedure TStockEDIInventarioDataTableRules.SetI44IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIInventarioI44].AsVariant := Null; +end; + function TStockEDIInventarioDataTableRules.GetI46Value: Float; begin result := DataTable.Fields[idx_StockEDIInventarioI46].AsFloat; @@ -1514,6 +2808,17 @@ begin DataTable.Fields[idx_StockEDIInventarioI46].AsFloat := aValue; end; +function TStockEDIInventarioDataTableRules.GetI46IsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIInventarioI46].IsNull; +end; + +procedure TStockEDIInventarioDataTableRules.SetI46IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIInventarioI46].AsVariant := Null; +end; + function TStockEDIInventarioDataTableRules.GetI48Value: Float; begin result := DataTable.Fields[idx_StockEDIInventarioI48].AsFloat; @@ -1524,6 +2829,17 @@ begin DataTable.Fields[idx_StockEDIInventarioI48].AsFloat := aValue; end; +function TStockEDIInventarioDataTableRules.GetI48IsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIInventarioI48].IsNull; +end; + +procedure TStockEDIInventarioDataTableRules.SetI48IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIInventarioI48].AsVariant := Null; +end; + function TStockEDIInventarioDataTableRules.GetTIValue: Float; begin result := DataTable.Fields[idx_StockEDIInventarioTI].AsFloat; @@ -1534,6 +2850,17 @@ begin DataTable.Fields[idx_StockEDIInventarioTI].AsFloat := aValue; end; +function TStockEDIInventarioDataTableRules.GetTIIsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIInventarioTI].IsNull; +end; + +procedure TStockEDIInventarioDataTableRules.SetTIIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIInventarioTI].AsVariant := Null; +end; + function TStockEDIInventarioDataTableRules.GetK38Value: Float; begin result := DataTable.Fields[idx_StockEDIInventarioK38].AsFloat; @@ -1544,6 +2871,17 @@ begin DataTable.Fields[idx_StockEDIInventarioK38].AsFloat := aValue; end; +function TStockEDIInventarioDataTableRules.GetK38IsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIInventarioK38].IsNull; +end; + +procedure TStockEDIInventarioDataTableRules.SetK38IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIInventarioK38].AsVariant := Null; +end; + function TStockEDIInventarioDataTableRules.GetK40Value: Float; begin result := DataTable.Fields[idx_StockEDIInventarioK40].AsFloat; @@ -1554,6 +2892,17 @@ begin DataTable.Fields[idx_StockEDIInventarioK40].AsFloat := aValue; end; +function TStockEDIInventarioDataTableRules.GetK40IsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIInventarioK40].IsNull; +end; + +procedure TStockEDIInventarioDataTableRules.SetK40IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIInventarioK40].AsVariant := Null; +end; + function TStockEDIInventarioDataTableRules.GetK42Value: Float; begin result := DataTable.Fields[idx_StockEDIInventarioK42].AsFloat; @@ -1564,6 +2913,17 @@ begin DataTable.Fields[idx_StockEDIInventarioK42].AsFloat := aValue; end; +function TStockEDIInventarioDataTableRules.GetK42IsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIInventarioK42].IsNull; +end; + +procedure TStockEDIInventarioDataTableRules.SetK42IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIInventarioK42].AsVariant := Null; +end; + function TStockEDIInventarioDataTableRules.GetK44Value: Float; begin result := DataTable.Fields[idx_StockEDIInventarioK44].AsFloat; @@ -1574,6 +2934,17 @@ begin DataTable.Fields[idx_StockEDIInventarioK44].AsFloat := aValue; end; +function TStockEDIInventarioDataTableRules.GetK44IsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIInventarioK44].IsNull; +end; + +procedure TStockEDIInventarioDataTableRules.SetK44IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIInventarioK44].AsVariant := Null; +end; + function TStockEDIInventarioDataTableRules.GetK46Value: Float; begin result := DataTable.Fields[idx_StockEDIInventarioK46].AsFloat; @@ -1584,6 +2955,17 @@ begin DataTable.Fields[idx_StockEDIInventarioK46].AsFloat := aValue; end; +function TStockEDIInventarioDataTableRules.GetK46IsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIInventarioK46].IsNull; +end; + +procedure TStockEDIInventarioDataTableRules.SetK46IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIInventarioK46].AsVariant := Null; +end; + function TStockEDIInventarioDataTableRules.GetK48Value: Float; begin result := DataTable.Fields[idx_StockEDIInventarioK48].AsFloat; @@ -1594,6 +2976,17 @@ begin DataTable.Fields[idx_StockEDIInventarioK48].AsFloat := aValue; end; +function TStockEDIInventarioDataTableRules.GetK48IsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIInventarioK48].IsNull; +end; + +procedure TStockEDIInventarioDataTableRules.SetK48IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIInventarioK48].AsVariant := Null; +end; + function TStockEDIInventarioDataTableRules.GetTKValue: Float; begin result := DataTable.Fields[idx_StockEDIInventarioTK].AsFloat; @@ -1604,6 +2997,17 @@ begin DataTable.Fields[idx_StockEDIInventarioTK].AsFloat := aValue; end; +function TStockEDIInventarioDataTableRules.GetTKIsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIInventarioTK].IsNull; +end; + +procedure TStockEDIInventarioDataTableRules.SetTKIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIInventarioTK].AsVariant := Null; +end; + function TStockEDIInventarioDataTableRules.GetD38Value: Float; begin result := DataTable.Fields[idx_StockEDIInventarioD38].AsFloat; @@ -1614,6 +3018,17 @@ begin DataTable.Fields[idx_StockEDIInventarioD38].AsFloat := aValue; end; +function TStockEDIInventarioDataTableRules.GetD38IsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIInventarioD38].IsNull; +end; + +procedure TStockEDIInventarioDataTableRules.SetD38IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIInventarioD38].AsVariant := Null; +end; + function TStockEDIInventarioDataTableRules.GetD40Value: Float; begin result := DataTable.Fields[idx_StockEDIInventarioD40].AsFloat; @@ -1624,6 +3039,17 @@ begin DataTable.Fields[idx_StockEDIInventarioD40].AsFloat := aValue; end; +function TStockEDIInventarioDataTableRules.GetD40IsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIInventarioD40].IsNull; +end; + +procedure TStockEDIInventarioDataTableRules.SetD40IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIInventarioD40].AsVariant := Null; +end; + function TStockEDIInventarioDataTableRules.GetD42Value: Float; begin result := DataTable.Fields[idx_StockEDIInventarioD42].AsFloat; @@ -1634,6 +3060,17 @@ begin DataTable.Fields[idx_StockEDIInventarioD42].AsFloat := aValue; end; +function TStockEDIInventarioDataTableRules.GetD42IsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIInventarioD42].IsNull; +end; + +procedure TStockEDIInventarioDataTableRules.SetD42IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIInventarioD42].AsVariant := Null; +end; + function TStockEDIInventarioDataTableRules.GetD44Value: Float; begin result := DataTable.Fields[idx_StockEDIInventarioD44].AsFloat; @@ -1644,6 +3081,17 @@ begin DataTable.Fields[idx_StockEDIInventarioD44].AsFloat := aValue; end; +function TStockEDIInventarioDataTableRules.GetD44IsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIInventarioD44].IsNull; +end; + +procedure TStockEDIInventarioDataTableRules.SetD44IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIInventarioD44].AsVariant := Null; +end; + function TStockEDIInventarioDataTableRules.GetD46Value: Float; begin result := DataTable.Fields[idx_StockEDIInventarioD46].AsFloat; @@ -1654,6 +3102,17 @@ begin DataTable.Fields[idx_StockEDIInventarioD46].AsFloat := aValue; end; +function TStockEDIInventarioDataTableRules.GetD46IsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIInventarioD46].IsNull; +end; + +procedure TStockEDIInventarioDataTableRules.SetD46IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIInventarioD46].AsVariant := Null; +end; + function TStockEDIInventarioDataTableRules.GetD48Value: Float; begin result := DataTable.Fields[idx_StockEDIInventarioD48].AsFloat; @@ -1664,6 +3123,17 @@ begin DataTable.Fields[idx_StockEDIInventarioD48].AsFloat := aValue; end; +function TStockEDIInventarioDataTableRules.GetD48IsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIInventarioD48].IsNull; +end; + +procedure TStockEDIInventarioDataTableRules.SetD48IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIInventarioD48].AsVariant := Null; +end; + function TStockEDIInventarioDataTableRules.GetDTValue: Float; begin result := DataTable.Fields[idx_StockEDIInventarioDT].AsFloat; @@ -1674,6 +3144,17 @@ begin DataTable.Fields[idx_StockEDIInventarioDT].AsFloat := aValue; end; +function TStockEDIInventarioDataTableRules.GetDTIsNull: boolean; +begin + result := DataTable.Fields[idx_StockEDIInventarioDT].IsNull; +end; + +procedure TStockEDIInventarioDataTableRules.SetDTIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_StockEDIInventarioDT].AsVariant := Null; +end; + initialization RegisterDataTableRules(RID_StockPrendasCentros, TStockPrendasCentrosDataTableRules); diff --git a/Source/Modulos/Stock/Reglas/schStockServer_Intf.pas b/Source/Modulos/Stock/Reglas/schStockServer_Intf.pas index a732519..80589f2 100644 --- a/Source/Modulos/Stock/Reglas/schStockServer_Intf.pas +++ b/Source/Modulos/Stock/Reglas/schStockServer_Intf.pas @@ -3,21 +3,21 @@ unit schStockServer_Intf; interface uses - Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, schStockClient_Intf; + Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schStockClient_Intf; const { Delta rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_StockPrendasCentrosDelta = '{161451C4-A2CF-4468-A880-DBA417307512}'; - RID_StockEDIDelta = '{F20A87B8-0277-4819-B7A6-667A9904EFA9}'; - RID_StockVARELADelta = '{B999E959-A4E5-4C5F-B87A-9CFB862CF28A}'; - RID_StockEDIInventarioDelta = '{11EC9F46-F7DD-486E-ACD2-5873746C963D}'; + RID_StockPrendasCentrosDelta = '{94925BB7-FFD2-475A-A052-E01FC8FC1395}'; + RID_StockEDIDelta = '{DDCD4C21-842E-4BDF-8C1A-02A88AFC71A0}'; + RID_StockVARELADelta = '{4450D642-A9B5-48E4-8D11-D7950511CBA8}'; + RID_StockEDIInventarioDelta = '{4800774F-6C4A-4699-94ED-9BCAA7E34704}'; type { IStockPrendasCentrosDelta } IStockPrendasCentrosDelta = interface(IStockPrendasCentros) - ['{161451C4-A2CF-4468-A880-DBA417307512}'] + ['{94925BB7-FFD2-475A-A052-E01FC8FC1395}'] { Property getters and setters } function GetOldCODIGOValue : String; function GetOldPRODUCTOValue : String; @@ -55,72 +55,137 @@ type protected { Property getters and setters } function GetCODIGOValue: String; virtual; + function GetCODIGOIsNull: Boolean; virtual; function GetOldCODIGOValue: String; virtual; + function GetOldCODIGOIsNull: Boolean; virtual; procedure SetCODIGOValue(const aValue: String); virtual; + procedure SetCODIGOIsNull(const aValue: Boolean); virtual; function GetPRODUCTOValue: String; virtual; + function GetPRODUCTOIsNull: Boolean; virtual; function GetOldPRODUCTOValue: String; virtual; + function GetOldPRODUCTOIsNull: Boolean; virtual; procedure SetPRODUCTOValue(const aValue: String); virtual; + procedure SetPRODUCTOIsNull(const aValue: Boolean); virtual; function GetTIPO_PRODUCTOValue: String; virtual; + function GetTIPO_PRODUCTOIsNull: Boolean; virtual; function GetOldTIPO_PRODUCTOValue: String; virtual; + function GetOldTIPO_PRODUCTOIsNull: Boolean; virtual; procedure SetTIPO_PRODUCTOValue(const aValue: String); virtual; + procedure SetTIPO_PRODUCTOIsNull(const aValue: Boolean); virtual; function GetGRUPO_PRODUCTOValue: String; virtual; + function GetGRUPO_PRODUCTOIsNull: Boolean; virtual; function GetOldGRUPO_PRODUCTOValue: String; virtual; + function GetOldGRUPO_PRODUCTOIsNull: Boolean; virtual; procedure SetGRUPO_PRODUCTOValue(const aValue: String); virtual; + procedure SetGRUPO_PRODUCTOIsNull(const aValue: Boolean); virtual; function GetCOLECCIONValue: String; virtual; + function GetCOLECCIONIsNull: Boolean; virtual; function GetOldCOLECCIONValue: String; virtual; + function GetOldCOLECCIONIsNull: Boolean; virtual; procedure SetCOLECCIONValue(const aValue: String); virtual; + procedure SetCOLECCIONIsNull(const aValue: Boolean); virtual; function GetCOLORValue: String; virtual; + function GetCOLORIsNull: Boolean; virtual; function GetOldCOLORValue: String; virtual; + function GetOldCOLORIsNull: Boolean; virtual; procedure SetCOLORValue(const aValue: String); virtual; + procedure SetCOLORIsNull(const aValue: Boolean); virtual; function GetT38Value: Float; virtual; + function GetT38IsNull: Boolean; virtual; function GetOldT38Value: Float; virtual; + function GetOldT38IsNull: Boolean; virtual; procedure SetT38Value(const aValue: Float); virtual; + procedure SetT38IsNull(const aValue: Boolean); virtual; function GetT40Value: Float; virtual; + function GetT40IsNull: Boolean; virtual; function GetOldT40Value: Float; virtual; + function GetOldT40IsNull: Boolean; virtual; procedure SetT40Value(const aValue: Float); virtual; + procedure SetT40IsNull(const aValue: Boolean); virtual; function GetT42Value: Float; virtual; + function GetT42IsNull: Boolean; virtual; function GetOldT42Value: Float; virtual; + function GetOldT42IsNull: Boolean; virtual; procedure SetT42Value(const aValue: Float); virtual; + procedure SetT42IsNull(const aValue: Boolean); virtual; function GetT44Value: Float; virtual; + function GetT44IsNull: Boolean; virtual; function GetOldT44Value: Float; virtual; + function GetOldT44IsNull: Boolean; virtual; procedure SetT44Value(const aValue: Float); virtual; + procedure SetT44IsNull(const aValue: Boolean); virtual; function GetT46Value: Float; virtual; + function GetT46IsNull: Boolean; virtual; function GetOldT46Value: Float; virtual; + function GetOldT46IsNull: Boolean; virtual; procedure SetT46Value(const aValue: Float); virtual; + procedure SetT46IsNull(const aValue: Boolean); virtual; function GetT48Value: Float; virtual; + function GetT48IsNull: Boolean; virtual; function GetOldT48Value: Float; virtual; + function GetOldT48IsNull: Boolean; virtual; procedure SetT48Value(const aValue: Float); virtual; + procedure SetT48IsNull(const aValue: Boolean); virtual; function GetTOTALValue: Float; virtual; + function GetTOTALIsNull: Boolean; virtual; function GetOldTOTALValue: Float; virtual; + function GetOldTOTALIsNull: Boolean; virtual; procedure SetTOTALValue(const aValue: Float); virtual; + procedure SetTOTALIsNull(const aValue: Boolean); virtual; { Properties } property CODIGO : String read GetCODIGOValue write SetCODIGOValue; + property CODIGOIsNull : Boolean read GetCODIGOIsNull write SetCODIGOIsNull; property OldCODIGO : String read GetOldCODIGOValue; + property OldCODIGOIsNull : Boolean read GetOldCODIGOIsNull; property PRODUCTO : String read GetPRODUCTOValue write SetPRODUCTOValue; + property PRODUCTOIsNull : Boolean read GetPRODUCTOIsNull write SetPRODUCTOIsNull; property OldPRODUCTO : String read GetOldPRODUCTOValue; + property OldPRODUCTOIsNull : Boolean read GetOldPRODUCTOIsNull; property TIPO_PRODUCTO : String read GetTIPO_PRODUCTOValue write SetTIPO_PRODUCTOValue; + property TIPO_PRODUCTOIsNull : Boolean read GetTIPO_PRODUCTOIsNull write SetTIPO_PRODUCTOIsNull; property OldTIPO_PRODUCTO : String read GetOldTIPO_PRODUCTOValue; + property OldTIPO_PRODUCTOIsNull : Boolean read GetOldTIPO_PRODUCTOIsNull; property GRUPO_PRODUCTO : String read GetGRUPO_PRODUCTOValue write SetGRUPO_PRODUCTOValue; + property GRUPO_PRODUCTOIsNull : Boolean read GetGRUPO_PRODUCTOIsNull write SetGRUPO_PRODUCTOIsNull; property OldGRUPO_PRODUCTO : String read GetOldGRUPO_PRODUCTOValue; + property OldGRUPO_PRODUCTOIsNull : Boolean read GetOldGRUPO_PRODUCTOIsNull; property COLECCION : String read GetCOLECCIONValue write SetCOLECCIONValue; + property COLECCIONIsNull : Boolean read GetCOLECCIONIsNull write SetCOLECCIONIsNull; property OldCOLECCION : String read GetOldCOLECCIONValue; + property OldCOLECCIONIsNull : Boolean read GetOldCOLECCIONIsNull; property COLOR : String read GetCOLORValue write SetCOLORValue; + property COLORIsNull : Boolean read GetCOLORIsNull write SetCOLORIsNull; property OldCOLOR : String read GetOldCOLORValue; + property OldCOLORIsNull : Boolean read GetOldCOLORIsNull; property T38 : Float read GetT38Value write SetT38Value; + property T38IsNull : Boolean read GetT38IsNull write SetT38IsNull; property OldT38 : Float read GetOldT38Value; + property OldT38IsNull : Boolean read GetOldT38IsNull; property T40 : Float read GetT40Value write SetT40Value; + property T40IsNull : Boolean read GetT40IsNull write SetT40IsNull; property OldT40 : Float read GetOldT40Value; + property OldT40IsNull : Boolean read GetOldT40IsNull; property T42 : Float read GetT42Value write SetT42Value; + property T42IsNull : Boolean read GetT42IsNull write SetT42IsNull; property OldT42 : Float read GetOldT42Value; + property OldT42IsNull : Boolean read GetOldT42IsNull; property T44 : Float read GetT44Value write SetT44Value; + property T44IsNull : Boolean read GetT44IsNull write SetT44IsNull; property OldT44 : Float read GetOldT44Value; + property OldT44IsNull : Boolean read GetOldT44IsNull; property T46 : Float read GetT46Value write SetT46Value; + property T46IsNull : Boolean read GetT46IsNull write SetT46IsNull; property OldT46 : Float read GetOldT46Value; + property OldT46IsNull : Boolean read GetOldT46IsNull; property T48 : Float read GetT48Value write SetT48Value; + property T48IsNull : Boolean read GetT48IsNull write SetT48IsNull; property OldT48 : Float read GetOldT48Value; + property OldT48IsNull : Boolean read GetOldT48IsNull; property TOTAL : Float read GetTOTALValue write SetTOTALValue; + property TOTALIsNull : Boolean read GetTOTALIsNull write SetTOTALIsNull; property OldTOTAL : Float read GetOldTOTALValue; + property OldTOTALIsNull : Boolean read GetOldTOTALIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -130,9 +195,10 @@ type { IStockEDIDelta } IStockEDIDelta = interface(IStockEDI) - ['{F20A87B8-0277-4819-B7A6-667A9904EFA9}'] + ['{DDCD4C21-842E-4BDF-8C1A-02A88AFC71A0}'] { Property getters and setters } function GetOldCENTROValue : String; + function GetOldFILIALValue : String; function GetOldCODIGOValue : String; function GetOldPRODUCTOValue : String; function GetOldTIPO_PRODUCTOValue : String; @@ -163,6 +229,7 @@ type { Properties } property OldCENTRO : String read GetOldCENTROValue; + property OldFILIAL : String read GetOldFILIALValue; property OldCODIGO : String read GetOldCODIGOValue; property OldPRODUCTO : String read GetOldPRODUCTOValue; property OldTIPO_PRODUCTO : String read GetOldTIPO_PRODUCTOValue; @@ -198,147 +265,297 @@ type protected { Property getters and setters } function GetCENTROValue: String; virtual; + function GetCENTROIsNull: Boolean; virtual; function GetOldCENTROValue: String; virtual; + function GetOldCENTROIsNull: Boolean; virtual; procedure SetCENTROValue(const aValue: String); virtual; + procedure SetCENTROIsNull(const aValue: Boolean); virtual; + function GetFILIALValue: String; virtual; + function GetFILIALIsNull: Boolean; virtual; + function GetOldFILIALValue: String; virtual; + function GetOldFILIALIsNull: Boolean; virtual; + procedure SetFILIALValue(const aValue: String); virtual; + procedure SetFILIALIsNull(const aValue: Boolean); virtual; function GetCODIGOValue: String; virtual; + function GetCODIGOIsNull: Boolean; virtual; function GetOldCODIGOValue: String; virtual; + function GetOldCODIGOIsNull: Boolean; virtual; procedure SetCODIGOValue(const aValue: String); virtual; + procedure SetCODIGOIsNull(const aValue: Boolean); virtual; function GetPRODUCTOValue: String; virtual; + function GetPRODUCTOIsNull: Boolean; virtual; function GetOldPRODUCTOValue: String; virtual; + function GetOldPRODUCTOIsNull: Boolean; virtual; procedure SetPRODUCTOValue(const aValue: String); virtual; + procedure SetPRODUCTOIsNull(const aValue: Boolean); virtual; function GetTIPO_PRODUCTOValue: String; virtual; + function GetTIPO_PRODUCTOIsNull: Boolean; virtual; function GetOldTIPO_PRODUCTOValue: String; virtual; + function GetOldTIPO_PRODUCTOIsNull: Boolean; virtual; procedure SetTIPO_PRODUCTOValue(const aValue: String); virtual; + procedure SetTIPO_PRODUCTOIsNull(const aValue: Boolean); virtual; function GetGRUPO_PRODUCTOValue: String; virtual; + function GetGRUPO_PRODUCTOIsNull: Boolean; virtual; function GetOldGRUPO_PRODUCTOValue: String; virtual; + function GetOldGRUPO_PRODUCTOIsNull: Boolean; virtual; procedure SetGRUPO_PRODUCTOValue(const aValue: String); virtual; + procedure SetGRUPO_PRODUCTOIsNull(const aValue: Boolean); virtual; function GetCOLECCIONValue: String; virtual; + function GetCOLECCIONIsNull: Boolean; virtual; function GetOldCOLECCIONValue: String; virtual; + function GetOldCOLECCIONIsNull: Boolean; virtual; procedure SetCOLECCIONValue(const aValue: String); virtual; + procedure SetCOLECCIONIsNull(const aValue: Boolean); virtual; function GetCOLORValue: String; virtual; + function GetCOLORIsNull: Boolean; virtual; function GetOldCOLORValue: String; virtual; + function GetOldCOLORIsNull: Boolean; virtual; procedure SetCOLORValue(const aValue: String); virtual; + procedure SetCOLORIsNull(const aValue: Boolean); virtual; function GetE38Value: Float; virtual; + function GetE38IsNull: Boolean; virtual; function GetOldE38Value: Float; virtual; + function GetOldE38IsNull: Boolean; virtual; procedure SetE38Value(const aValue: Float); virtual; + procedure SetE38IsNull(const aValue: Boolean); virtual; function GetE40Value: Float; virtual; + function GetE40IsNull: Boolean; virtual; function GetOldE40Value: Float; virtual; + function GetOldE40IsNull: Boolean; virtual; procedure SetE40Value(const aValue: Float); virtual; + procedure SetE40IsNull(const aValue: Boolean); virtual; function GetE42Value: Float; virtual; + function GetE42IsNull: Boolean; virtual; function GetOldE42Value: Float; virtual; + function GetOldE42IsNull: Boolean; virtual; procedure SetE42Value(const aValue: Float); virtual; + procedure SetE42IsNull(const aValue: Boolean); virtual; function GetE44Value: Float; virtual; + function GetE44IsNull: Boolean; virtual; function GetOldE44Value: Float; virtual; + function GetOldE44IsNull: Boolean; virtual; procedure SetE44Value(const aValue: Float); virtual; + procedure SetE44IsNull(const aValue: Boolean); virtual; function GetE46Value: Float; virtual; + function GetE46IsNull: Boolean; virtual; function GetOldE46Value: Float; virtual; + function GetOldE46IsNull: Boolean; virtual; procedure SetE46Value(const aValue: Float); virtual; + procedure SetE46IsNull(const aValue: Boolean); virtual; function GetE48Value: Float; virtual; + function GetE48IsNull: Boolean; virtual; function GetOldE48Value: Float; virtual; + function GetOldE48IsNull: Boolean; virtual; procedure SetE48Value(const aValue: Float); virtual; + procedure SetE48IsNull(const aValue: Boolean); virtual; function GetTEValue: Float; virtual; + function GetTEIsNull: Boolean; virtual; function GetOldTEValue: Float; virtual; + function GetOldTEIsNull: Boolean; virtual; procedure SetTEValue(const aValue: Float); virtual; + procedure SetTEIsNull(const aValue: Boolean); virtual; function GetS38Value: Float; virtual; + function GetS38IsNull: Boolean; virtual; function GetOldS38Value: Float; virtual; + function GetOldS38IsNull: Boolean; virtual; procedure SetS38Value(const aValue: Float); virtual; + procedure SetS38IsNull(const aValue: Boolean); virtual; function GetS40Value: Float; virtual; + function GetS40IsNull: Boolean; virtual; function GetOldS40Value: Float; virtual; + function GetOldS40IsNull: Boolean; virtual; procedure SetS40Value(const aValue: Float); virtual; + procedure SetS40IsNull(const aValue: Boolean); virtual; function GetS42Value: Float; virtual; + function GetS42IsNull: Boolean; virtual; function GetOldS42Value: Float; virtual; + function GetOldS42IsNull: Boolean; virtual; procedure SetS42Value(const aValue: Float); virtual; + procedure SetS42IsNull(const aValue: Boolean); virtual; function GetS44Value: Float; virtual; + function GetS44IsNull: Boolean; virtual; function GetOldS44Value: Float; virtual; + function GetOldS44IsNull: Boolean; virtual; procedure SetS44Value(const aValue: Float); virtual; + procedure SetS44IsNull(const aValue: Boolean); virtual; function GetS46Value: Float; virtual; + function GetS46IsNull: Boolean; virtual; function GetOldS46Value: Float; virtual; + function GetOldS46IsNull: Boolean; virtual; procedure SetS46Value(const aValue: Float); virtual; + procedure SetS46IsNull(const aValue: Boolean); virtual; function GetS48Value: Float; virtual; + function GetS48IsNull: Boolean; virtual; function GetOldS48Value: Float; virtual; + function GetOldS48IsNull: Boolean; virtual; procedure SetS48Value(const aValue: Float); virtual; + procedure SetS48IsNull(const aValue: Boolean); virtual; function GetTSValue: Float; virtual; + function GetTSIsNull: Boolean; virtual; function GetOldTSValue: Float; virtual; + function GetOldTSIsNull: Boolean; virtual; procedure SetTSValue(const aValue: Float); virtual; + procedure SetTSIsNull(const aValue: Boolean); virtual; function GetK38Value: Float; virtual; + function GetK38IsNull: Boolean; virtual; function GetOldK38Value: Float; virtual; + function GetOldK38IsNull: Boolean; virtual; procedure SetK38Value(const aValue: Float); virtual; + procedure SetK38IsNull(const aValue: Boolean); virtual; function GetK40Value: Float; virtual; + function GetK40IsNull: Boolean; virtual; function GetOldK40Value: Float; virtual; + function GetOldK40IsNull: Boolean; virtual; procedure SetK40Value(const aValue: Float); virtual; + procedure SetK40IsNull(const aValue: Boolean); virtual; function GetK42Value: Float; virtual; + function GetK42IsNull: Boolean; virtual; function GetOldK42Value: Float; virtual; + function GetOldK42IsNull: Boolean; virtual; procedure SetK42Value(const aValue: Float); virtual; + procedure SetK42IsNull(const aValue: Boolean); virtual; function GetK44Value: Float; virtual; + function GetK44IsNull: Boolean; virtual; function GetOldK44Value: Float; virtual; + function GetOldK44IsNull: Boolean; virtual; procedure SetK44Value(const aValue: Float); virtual; + procedure SetK44IsNull(const aValue: Boolean); virtual; function GetK46Value: Float; virtual; + function GetK46IsNull: Boolean; virtual; function GetOldK46Value: Float; virtual; + function GetOldK46IsNull: Boolean; virtual; procedure SetK46Value(const aValue: Float); virtual; + procedure SetK46IsNull(const aValue: Boolean); virtual; function GetK48Value: Float; virtual; + function GetK48IsNull: Boolean; virtual; function GetOldK48Value: Float; virtual; + function GetOldK48IsNull: Boolean; virtual; procedure SetK48Value(const aValue: Float); virtual; + procedure SetK48IsNull(const aValue: Boolean); virtual; function GetKTValue: Float; virtual; + function GetKTIsNull: Boolean; virtual; function GetOldKTValue: Float; virtual; + function GetOldKTIsNull: Boolean; virtual; procedure SetKTValue(const aValue: Float); virtual; + procedure SetKTIsNull(const aValue: Boolean); virtual; { Properties } property CENTRO : String read GetCENTROValue write SetCENTROValue; + property CENTROIsNull : Boolean read GetCENTROIsNull write SetCENTROIsNull; property OldCENTRO : String read GetOldCENTROValue; + property OldCENTROIsNull : Boolean read GetOldCENTROIsNull; + property FILIAL : String read GetFILIALValue write SetFILIALValue; + property FILIALIsNull : Boolean read GetFILIALIsNull write SetFILIALIsNull; + property OldFILIAL : String read GetOldFILIALValue; + property OldFILIALIsNull : Boolean read GetOldFILIALIsNull; property CODIGO : String read GetCODIGOValue write SetCODIGOValue; + property CODIGOIsNull : Boolean read GetCODIGOIsNull write SetCODIGOIsNull; property OldCODIGO : String read GetOldCODIGOValue; + property OldCODIGOIsNull : Boolean read GetOldCODIGOIsNull; property PRODUCTO : String read GetPRODUCTOValue write SetPRODUCTOValue; + property PRODUCTOIsNull : Boolean read GetPRODUCTOIsNull write SetPRODUCTOIsNull; property OldPRODUCTO : String read GetOldPRODUCTOValue; + property OldPRODUCTOIsNull : Boolean read GetOldPRODUCTOIsNull; property TIPO_PRODUCTO : String read GetTIPO_PRODUCTOValue write SetTIPO_PRODUCTOValue; + property TIPO_PRODUCTOIsNull : Boolean read GetTIPO_PRODUCTOIsNull write SetTIPO_PRODUCTOIsNull; property OldTIPO_PRODUCTO : String read GetOldTIPO_PRODUCTOValue; + property OldTIPO_PRODUCTOIsNull : Boolean read GetOldTIPO_PRODUCTOIsNull; property GRUPO_PRODUCTO : String read GetGRUPO_PRODUCTOValue write SetGRUPO_PRODUCTOValue; + property GRUPO_PRODUCTOIsNull : Boolean read GetGRUPO_PRODUCTOIsNull write SetGRUPO_PRODUCTOIsNull; property OldGRUPO_PRODUCTO : String read GetOldGRUPO_PRODUCTOValue; + property OldGRUPO_PRODUCTOIsNull : Boolean read GetOldGRUPO_PRODUCTOIsNull; property COLECCION : String read GetCOLECCIONValue write SetCOLECCIONValue; + property COLECCIONIsNull : Boolean read GetCOLECCIONIsNull write SetCOLECCIONIsNull; property OldCOLECCION : String read GetOldCOLECCIONValue; + property OldCOLECCIONIsNull : Boolean read GetOldCOLECCIONIsNull; property COLOR : String read GetCOLORValue write SetCOLORValue; + property COLORIsNull : Boolean read GetCOLORIsNull write SetCOLORIsNull; property OldCOLOR : String read GetOldCOLORValue; + property OldCOLORIsNull : Boolean read GetOldCOLORIsNull; property E38 : Float read GetE38Value write SetE38Value; + property E38IsNull : Boolean read GetE38IsNull write SetE38IsNull; property OldE38 : Float read GetOldE38Value; + property OldE38IsNull : Boolean read GetOldE38IsNull; property E40 : Float read GetE40Value write SetE40Value; + property E40IsNull : Boolean read GetE40IsNull write SetE40IsNull; property OldE40 : Float read GetOldE40Value; + property OldE40IsNull : Boolean read GetOldE40IsNull; property E42 : Float read GetE42Value write SetE42Value; + property E42IsNull : Boolean read GetE42IsNull write SetE42IsNull; property OldE42 : Float read GetOldE42Value; + property OldE42IsNull : Boolean read GetOldE42IsNull; property E44 : Float read GetE44Value write SetE44Value; + property E44IsNull : Boolean read GetE44IsNull write SetE44IsNull; property OldE44 : Float read GetOldE44Value; + property OldE44IsNull : Boolean read GetOldE44IsNull; property E46 : Float read GetE46Value write SetE46Value; + property E46IsNull : Boolean read GetE46IsNull write SetE46IsNull; property OldE46 : Float read GetOldE46Value; + property OldE46IsNull : Boolean read GetOldE46IsNull; property E48 : Float read GetE48Value write SetE48Value; + property E48IsNull : Boolean read GetE48IsNull write SetE48IsNull; property OldE48 : Float read GetOldE48Value; + property OldE48IsNull : Boolean read GetOldE48IsNull; property TE : Float read GetTEValue write SetTEValue; + property TEIsNull : Boolean read GetTEIsNull write SetTEIsNull; property OldTE : Float read GetOldTEValue; + property OldTEIsNull : Boolean read GetOldTEIsNull; property S38 : Float read GetS38Value write SetS38Value; + property S38IsNull : Boolean read GetS38IsNull write SetS38IsNull; property OldS38 : Float read GetOldS38Value; + property OldS38IsNull : Boolean read GetOldS38IsNull; property S40 : Float read GetS40Value write SetS40Value; + property S40IsNull : Boolean read GetS40IsNull write SetS40IsNull; property OldS40 : Float read GetOldS40Value; + property OldS40IsNull : Boolean read GetOldS40IsNull; property S42 : Float read GetS42Value write SetS42Value; + property S42IsNull : Boolean read GetS42IsNull write SetS42IsNull; property OldS42 : Float read GetOldS42Value; + property OldS42IsNull : Boolean read GetOldS42IsNull; property S44 : Float read GetS44Value write SetS44Value; + property S44IsNull : Boolean read GetS44IsNull write SetS44IsNull; property OldS44 : Float read GetOldS44Value; + property OldS44IsNull : Boolean read GetOldS44IsNull; property S46 : Float read GetS46Value write SetS46Value; + property S46IsNull : Boolean read GetS46IsNull write SetS46IsNull; property OldS46 : Float read GetOldS46Value; + property OldS46IsNull : Boolean read GetOldS46IsNull; property S48 : Float read GetS48Value write SetS48Value; + property S48IsNull : Boolean read GetS48IsNull write SetS48IsNull; property OldS48 : Float read GetOldS48Value; + property OldS48IsNull : Boolean read GetOldS48IsNull; property TS : Float read GetTSValue write SetTSValue; + property TSIsNull : Boolean read GetTSIsNull write SetTSIsNull; property OldTS : Float read GetOldTSValue; + property OldTSIsNull : Boolean read GetOldTSIsNull; property K38 : Float read GetK38Value write SetK38Value; + property K38IsNull : Boolean read GetK38IsNull write SetK38IsNull; property OldK38 : Float read GetOldK38Value; + property OldK38IsNull : Boolean read GetOldK38IsNull; property K40 : Float read GetK40Value write SetK40Value; + property K40IsNull : Boolean read GetK40IsNull write SetK40IsNull; property OldK40 : Float read GetOldK40Value; + property OldK40IsNull : Boolean read GetOldK40IsNull; property K42 : Float read GetK42Value write SetK42Value; + property K42IsNull : Boolean read GetK42IsNull write SetK42IsNull; property OldK42 : Float read GetOldK42Value; + property OldK42IsNull : Boolean read GetOldK42IsNull; property K44 : Float read GetK44Value write SetK44Value; + property K44IsNull : Boolean read GetK44IsNull write SetK44IsNull; property OldK44 : Float read GetOldK44Value; + property OldK44IsNull : Boolean read GetOldK44IsNull; property K46 : Float read GetK46Value write SetK46Value; + property K46IsNull : Boolean read GetK46IsNull write SetK46IsNull; property OldK46 : Float read GetOldK46Value; + property OldK46IsNull : Boolean read GetOldK46IsNull; property K48 : Float read GetK48Value write SetK48Value; + property K48IsNull : Boolean read GetK48IsNull write SetK48IsNull; property OldK48 : Float read GetOldK48Value; + property OldK48IsNull : Boolean read GetOldK48IsNull; property KT : Float read GetKTValue write SetKTValue; + property KTIsNull : Boolean read GetKTIsNull write SetKTIsNull; property OldKT : Float read GetOldKTValue; + property OldKTIsNull : Boolean read GetOldKTIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -348,7 +565,7 @@ type { IStockVARELADelta } IStockVARELADelta = interface(IStockVARELA) - ['{B999E959-A4E5-4C5F-B87A-9CFB862CF28A}'] + ['{4450D642-A9B5-48E4-8D11-D7950511CBA8}'] { Property getters and setters } function GetOldFILIALValue : String; function GetOldCODIGOValue : String; @@ -388,77 +605,147 @@ type protected { Property getters and setters } function GetFILIALValue: String; virtual; + function GetFILIALIsNull: Boolean; virtual; function GetOldFILIALValue: String; virtual; + function GetOldFILIALIsNull: Boolean; virtual; procedure SetFILIALValue(const aValue: String); virtual; + procedure SetFILIALIsNull(const aValue: Boolean); virtual; function GetCODIGOValue: String; virtual; + function GetCODIGOIsNull: Boolean; virtual; function GetOldCODIGOValue: String; virtual; + function GetOldCODIGOIsNull: Boolean; virtual; procedure SetCODIGOValue(const aValue: String); virtual; + procedure SetCODIGOIsNull(const aValue: Boolean); virtual; function GetCOLORValue: String; virtual; + function GetCOLORIsNull: Boolean; virtual; function GetOldCOLORValue: String; virtual; + function GetOldCOLORIsNull: Boolean; virtual; procedure SetCOLORValue(const aValue: String); virtual; + procedure SetCOLORIsNull(const aValue: Boolean); virtual; function GetPRODUCTOValue: String; virtual; + function GetPRODUCTOIsNull: Boolean; virtual; function GetOldPRODUCTOValue: String; virtual; + function GetOldPRODUCTOIsNull: Boolean; virtual; procedure SetPRODUCTOValue(const aValue: String); virtual; + procedure SetPRODUCTOIsNull(const aValue: Boolean); virtual; function GetTIPO_PRODUTOValue: String; virtual; + function GetTIPO_PRODUTOIsNull: Boolean; virtual; function GetOldTIPO_PRODUTOValue: String; virtual; + function GetOldTIPO_PRODUTOIsNull: Boolean; virtual; procedure SetTIPO_PRODUTOValue(const aValue: String); virtual; + procedure SetTIPO_PRODUTOIsNull(const aValue: Boolean); virtual; function GetGRUPO_PRODUTOValue: String; virtual; + function GetGRUPO_PRODUTOIsNull: Boolean; virtual; function GetOldGRUPO_PRODUTOValue: String; virtual; + function GetOldGRUPO_PRODUTOIsNull: Boolean; virtual; procedure SetGRUPO_PRODUTOValue(const aValue: String); virtual; + procedure SetGRUPO_PRODUTOIsNull(const aValue: Boolean); virtual; function GetCOLECCIONValue: String; virtual; + function GetCOLECCIONIsNull: Boolean; virtual; function GetOldCOLECCIONValue: String; virtual; + function GetOldCOLECCIONIsNull: Boolean; virtual; procedure SetCOLECCIONValue(const aValue: String); virtual; + procedure SetCOLECCIONIsNull(const aValue: Boolean); virtual; function GetK38Value: Integer; virtual; + function GetK38IsNull: Boolean; virtual; function GetOldK38Value: Integer; virtual; + function GetOldK38IsNull: Boolean; virtual; procedure SetK38Value(const aValue: Integer); virtual; + procedure SetK38IsNull(const aValue: Boolean); virtual; function GetK40Value: Integer; virtual; + function GetK40IsNull: Boolean; virtual; function GetOldK40Value: Integer; virtual; + function GetOldK40IsNull: Boolean; virtual; procedure SetK40Value(const aValue: Integer); virtual; + procedure SetK40IsNull(const aValue: Boolean); virtual; function GetK42Value: Integer; virtual; + function GetK42IsNull: Boolean; virtual; function GetOldK42Value: Integer; virtual; + function GetOldK42IsNull: Boolean; virtual; procedure SetK42Value(const aValue: Integer); virtual; + procedure SetK42IsNull(const aValue: Boolean); virtual; function GetK44Value: Integer; virtual; + function GetK44IsNull: Boolean; virtual; function GetOldK44Value: Integer; virtual; + function GetOldK44IsNull: Boolean; virtual; procedure SetK44Value(const aValue: Integer); virtual; + procedure SetK44IsNull(const aValue: Boolean); virtual; function GetK46Value: Integer; virtual; + function GetK46IsNull: Boolean; virtual; function GetOldK46Value: Integer; virtual; + function GetOldK46IsNull: Boolean; virtual; procedure SetK46Value(const aValue: Integer); virtual; + procedure SetK46IsNull(const aValue: Boolean); virtual; function GetK48Value: Integer; virtual; + function GetK48IsNull: Boolean; virtual; function GetOldK48Value: Integer; virtual; + function GetOldK48IsNull: Boolean; virtual; procedure SetK48Value(const aValue: Integer); virtual; + procedure SetK48IsNull(const aValue: Boolean); virtual; function GetKTValue: Integer; virtual; + function GetKTIsNull: Boolean; virtual; function GetOldKTValue: Integer; virtual; + function GetOldKTIsNull: Boolean; virtual; procedure SetKTValue(const aValue: Integer); virtual; + procedure SetKTIsNull(const aValue: Boolean); virtual; { Properties } property FILIAL : String read GetFILIALValue write SetFILIALValue; + property FILIALIsNull : Boolean read GetFILIALIsNull write SetFILIALIsNull; property OldFILIAL : String read GetOldFILIALValue; + property OldFILIALIsNull : Boolean read GetOldFILIALIsNull; property CODIGO : String read GetCODIGOValue write SetCODIGOValue; + property CODIGOIsNull : Boolean read GetCODIGOIsNull write SetCODIGOIsNull; property OldCODIGO : String read GetOldCODIGOValue; + property OldCODIGOIsNull : Boolean read GetOldCODIGOIsNull; property COLOR : String read GetCOLORValue write SetCOLORValue; + property COLORIsNull : Boolean read GetCOLORIsNull write SetCOLORIsNull; property OldCOLOR : String read GetOldCOLORValue; + property OldCOLORIsNull : Boolean read GetOldCOLORIsNull; property PRODUCTO : String read GetPRODUCTOValue write SetPRODUCTOValue; + property PRODUCTOIsNull : Boolean read GetPRODUCTOIsNull write SetPRODUCTOIsNull; property OldPRODUCTO : String read GetOldPRODUCTOValue; + property OldPRODUCTOIsNull : Boolean read GetOldPRODUCTOIsNull; property TIPO_PRODUTO : String read GetTIPO_PRODUTOValue write SetTIPO_PRODUTOValue; + property TIPO_PRODUTOIsNull : Boolean read GetTIPO_PRODUTOIsNull write SetTIPO_PRODUTOIsNull; property OldTIPO_PRODUTO : String read GetOldTIPO_PRODUTOValue; + property OldTIPO_PRODUTOIsNull : Boolean read GetOldTIPO_PRODUTOIsNull; property GRUPO_PRODUTO : String read GetGRUPO_PRODUTOValue write SetGRUPO_PRODUTOValue; + property GRUPO_PRODUTOIsNull : Boolean read GetGRUPO_PRODUTOIsNull write SetGRUPO_PRODUTOIsNull; property OldGRUPO_PRODUTO : String read GetOldGRUPO_PRODUTOValue; + property OldGRUPO_PRODUTOIsNull : Boolean read GetOldGRUPO_PRODUTOIsNull; property COLECCION : String read GetCOLECCIONValue write SetCOLECCIONValue; + property COLECCIONIsNull : Boolean read GetCOLECCIONIsNull write SetCOLECCIONIsNull; property OldCOLECCION : String read GetOldCOLECCIONValue; + property OldCOLECCIONIsNull : Boolean read GetOldCOLECCIONIsNull; property K38 : Integer read GetK38Value write SetK38Value; + property K38IsNull : Boolean read GetK38IsNull write SetK38IsNull; property OldK38 : Integer read GetOldK38Value; + property OldK38IsNull : Boolean read GetOldK38IsNull; property K40 : Integer read GetK40Value write SetK40Value; + property K40IsNull : Boolean read GetK40IsNull write SetK40IsNull; property OldK40 : Integer read GetOldK40Value; + property OldK40IsNull : Boolean read GetOldK40IsNull; property K42 : Integer read GetK42Value write SetK42Value; + property K42IsNull : Boolean read GetK42IsNull write SetK42IsNull; property OldK42 : Integer read GetOldK42Value; + property OldK42IsNull : Boolean read GetOldK42IsNull; property K44 : Integer read GetK44Value write SetK44Value; + property K44IsNull : Boolean read GetK44IsNull write SetK44IsNull; property OldK44 : Integer read GetOldK44Value; + property OldK44IsNull : Boolean read GetOldK44IsNull; property K46 : Integer read GetK46Value write SetK46Value; + property K46IsNull : Boolean read GetK46IsNull write SetK46IsNull; property OldK46 : Integer read GetOldK46Value; + property OldK46IsNull : Boolean read GetOldK46IsNull; property K48 : Integer read GetK48Value write SetK48Value; + property K48IsNull : Boolean read GetK48IsNull write SetK48IsNull; property OldK48 : Integer read GetOldK48Value; + property OldK48IsNull : Boolean read GetOldK48IsNull; property KT : Integer read GetKTValue write SetKTValue; + property KTIsNull : Boolean read GetKTIsNull write SetKTIsNull; property OldKT : Integer read GetOldKTValue; + property OldKTIsNull : Boolean read GetOldKTIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -468,9 +755,10 @@ type { IStockEDIInventarioDelta } IStockEDIInventarioDelta = interface(IStockEDIInventario) - ['{11EC9F46-F7DD-486E-ACD2-5873746C963D}'] + ['{4800774F-6C4A-4699-94ED-9BCAA7E34704}'] { Property getters and setters } function GetOldCENTROValue : String; + function GetOldFILIALValue : String; function GetOldCODIGOValue : String; function GetOldPRODUCTOValue : String; function GetOldCOLORValue : String; @@ -501,6 +789,7 @@ type { Properties } property OldCENTRO : String read GetOldCENTROValue; + property OldFILIAL : String read GetOldFILIALValue; property OldCODIGO : String read GetOldCODIGOValue; property OldPRODUCTO : String read GetOldPRODUCTOValue; property OldCOLOR : String read GetOldCOLORValue; @@ -536,147 +825,297 @@ type protected { Property getters and setters } function GetCENTROValue: String; virtual; + function GetCENTROIsNull: Boolean; virtual; function GetOldCENTROValue: String; virtual; + function GetOldCENTROIsNull: Boolean; virtual; procedure SetCENTROValue(const aValue: String); virtual; + procedure SetCENTROIsNull(const aValue: Boolean); virtual; + function GetFILIALValue: String; virtual; + function GetFILIALIsNull: Boolean; virtual; + function GetOldFILIALValue: String; virtual; + function GetOldFILIALIsNull: Boolean; virtual; + procedure SetFILIALValue(const aValue: String); virtual; + procedure SetFILIALIsNull(const aValue: Boolean); virtual; function GetCODIGOValue: String; virtual; + function GetCODIGOIsNull: Boolean; virtual; function GetOldCODIGOValue: String; virtual; + function GetOldCODIGOIsNull: Boolean; virtual; procedure SetCODIGOValue(const aValue: String); virtual; + procedure SetCODIGOIsNull(const aValue: Boolean); virtual; function GetPRODUCTOValue: String; virtual; + function GetPRODUCTOIsNull: Boolean; virtual; function GetOldPRODUCTOValue: String; virtual; + function GetOldPRODUCTOIsNull: Boolean; virtual; procedure SetPRODUCTOValue(const aValue: String); virtual; + procedure SetPRODUCTOIsNull(const aValue: Boolean); virtual; function GetCOLORValue: String; virtual; + function GetCOLORIsNull: Boolean; virtual; function GetOldCOLORValue: String; virtual; + function GetOldCOLORIsNull: Boolean; virtual; procedure SetCOLORValue(const aValue: String); virtual; + procedure SetCOLORIsNull(const aValue: Boolean); virtual; function GetTIPO_PRODUCTOValue: String; virtual; + function GetTIPO_PRODUCTOIsNull: Boolean; virtual; function GetOldTIPO_PRODUCTOValue: String; virtual; + function GetOldTIPO_PRODUCTOIsNull: Boolean; virtual; procedure SetTIPO_PRODUCTOValue(const aValue: String); virtual; + procedure SetTIPO_PRODUCTOIsNull(const aValue: Boolean); virtual; function GetGRUPO_PRODUCTOValue: String; virtual; + function GetGRUPO_PRODUCTOIsNull: Boolean; virtual; function GetOldGRUPO_PRODUCTOValue: String; virtual; + function GetOldGRUPO_PRODUCTOIsNull: Boolean; virtual; procedure SetGRUPO_PRODUCTOValue(const aValue: String); virtual; + procedure SetGRUPO_PRODUCTOIsNull(const aValue: Boolean); virtual; function GetCOLECCIONValue: String; virtual; + function GetCOLECCIONIsNull: Boolean; virtual; function GetOldCOLECCIONValue: String; virtual; + function GetOldCOLECCIONIsNull: Boolean; virtual; procedure SetCOLECCIONValue(const aValue: String); virtual; + procedure SetCOLECCIONIsNull(const aValue: Boolean); virtual; function GetI38Value: Float; virtual; + function GetI38IsNull: Boolean; virtual; function GetOldI38Value: Float; virtual; + function GetOldI38IsNull: Boolean; virtual; procedure SetI38Value(const aValue: Float); virtual; + procedure SetI38IsNull(const aValue: Boolean); virtual; function GetI40Value: Float; virtual; + function GetI40IsNull: Boolean; virtual; function GetOldI40Value: Float; virtual; + function GetOldI40IsNull: Boolean; virtual; procedure SetI40Value(const aValue: Float); virtual; + procedure SetI40IsNull(const aValue: Boolean); virtual; function GetI42Value: Float; virtual; + function GetI42IsNull: Boolean; virtual; function GetOldI42Value: Float; virtual; + function GetOldI42IsNull: Boolean; virtual; procedure SetI42Value(const aValue: Float); virtual; + procedure SetI42IsNull(const aValue: Boolean); virtual; function GetI44Value: Float; virtual; + function GetI44IsNull: Boolean; virtual; function GetOldI44Value: Float; virtual; + function GetOldI44IsNull: Boolean; virtual; procedure SetI44Value(const aValue: Float); virtual; + procedure SetI44IsNull(const aValue: Boolean); virtual; function GetI46Value: Float; virtual; + function GetI46IsNull: Boolean; virtual; function GetOldI46Value: Float; virtual; + function GetOldI46IsNull: Boolean; virtual; procedure SetI46Value(const aValue: Float); virtual; + procedure SetI46IsNull(const aValue: Boolean); virtual; function GetI48Value: Float; virtual; + function GetI48IsNull: Boolean; virtual; function GetOldI48Value: Float; virtual; + function GetOldI48IsNull: Boolean; virtual; procedure SetI48Value(const aValue: Float); virtual; + procedure SetI48IsNull(const aValue: Boolean); virtual; function GetTIValue: Float; virtual; + function GetTIIsNull: Boolean; virtual; function GetOldTIValue: Float; virtual; + function GetOldTIIsNull: Boolean; virtual; procedure SetTIValue(const aValue: Float); virtual; + procedure SetTIIsNull(const aValue: Boolean); virtual; function GetK38Value: Float; virtual; + function GetK38IsNull: Boolean; virtual; function GetOldK38Value: Float; virtual; + function GetOldK38IsNull: Boolean; virtual; procedure SetK38Value(const aValue: Float); virtual; + procedure SetK38IsNull(const aValue: Boolean); virtual; function GetK40Value: Float; virtual; + function GetK40IsNull: Boolean; virtual; function GetOldK40Value: Float; virtual; + function GetOldK40IsNull: Boolean; virtual; procedure SetK40Value(const aValue: Float); virtual; + procedure SetK40IsNull(const aValue: Boolean); virtual; function GetK42Value: Float; virtual; + function GetK42IsNull: Boolean; virtual; function GetOldK42Value: Float; virtual; + function GetOldK42IsNull: Boolean; virtual; procedure SetK42Value(const aValue: Float); virtual; + procedure SetK42IsNull(const aValue: Boolean); virtual; function GetK44Value: Float; virtual; + function GetK44IsNull: Boolean; virtual; function GetOldK44Value: Float; virtual; + function GetOldK44IsNull: Boolean; virtual; procedure SetK44Value(const aValue: Float); virtual; + procedure SetK44IsNull(const aValue: Boolean); virtual; function GetK46Value: Float; virtual; + function GetK46IsNull: Boolean; virtual; function GetOldK46Value: Float; virtual; + function GetOldK46IsNull: Boolean; virtual; procedure SetK46Value(const aValue: Float); virtual; + procedure SetK46IsNull(const aValue: Boolean); virtual; function GetK48Value: Float; virtual; + function GetK48IsNull: Boolean; virtual; function GetOldK48Value: Float; virtual; + function GetOldK48IsNull: Boolean; virtual; procedure SetK48Value(const aValue: Float); virtual; + procedure SetK48IsNull(const aValue: Boolean); virtual; function GetTKValue: Float; virtual; + function GetTKIsNull: Boolean; virtual; function GetOldTKValue: Float; virtual; + function GetOldTKIsNull: Boolean; virtual; procedure SetTKValue(const aValue: Float); virtual; + procedure SetTKIsNull(const aValue: Boolean); virtual; function GetD38Value: Float; virtual; + function GetD38IsNull: Boolean; virtual; function GetOldD38Value: Float; virtual; + function GetOldD38IsNull: Boolean; virtual; procedure SetD38Value(const aValue: Float); virtual; + procedure SetD38IsNull(const aValue: Boolean); virtual; function GetD40Value: Float; virtual; + function GetD40IsNull: Boolean; virtual; function GetOldD40Value: Float; virtual; + function GetOldD40IsNull: Boolean; virtual; procedure SetD40Value(const aValue: Float); virtual; + procedure SetD40IsNull(const aValue: Boolean); virtual; function GetD42Value: Float; virtual; + function GetD42IsNull: Boolean; virtual; function GetOldD42Value: Float; virtual; + function GetOldD42IsNull: Boolean; virtual; procedure SetD42Value(const aValue: Float); virtual; + procedure SetD42IsNull(const aValue: Boolean); virtual; function GetD44Value: Float; virtual; + function GetD44IsNull: Boolean; virtual; function GetOldD44Value: Float; virtual; + function GetOldD44IsNull: Boolean; virtual; procedure SetD44Value(const aValue: Float); virtual; + procedure SetD44IsNull(const aValue: Boolean); virtual; function GetD46Value: Float; virtual; + function GetD46IsNull: Boolean; virtual; function GetOldD46Value: Float; virtual; + function GetOldD46IsNull: Boolean; virtual; procedure SetD46Value(const aValue: Float); virtual; + procedure SetD46IsNull(const aValue: Boolean); virtual; function GetD48Value: Float; virtual; + function GetD48IsNull: Boolean; virtual; function GetOldD48Value: Float; virtual; + function GetOldD48IsNull: Boolean; virtual; procedure SetD48Value(const aValue: Float); virtual; + procedure SetD48IsNull(const aValue: Boolean); virtual; function GetDTValue: Float; virtual; + function GetDTIsNull: Boolean; virtual; function GetOldDTValue: Float; virtual; + function GetOldDTIsNull: Boolean; virtual; procedure SetDTValue(const aValue: Float); virtual; + procedure SetDTIsNull(const aValue: Boolean); virtual; { Properties } property CENTRO : String read GetCENTROValue write SetCENTROValue; + property CENTROIsNull : Boolean read GetCENTROIsNull write SetCENTROIsNull; property OldCENTRO : String read GetOldCENTROValue; + property OldCENTROIsNull : Boolean read GetOldCENTROIsNull; + property FILIAL : String read GetFILIALValue write SetFILIALValue; + property FILIALIsNull : Boolean read GetFILIALIsNull write SetFILIALIsNull; + property OldFILIAL : String read GetOldFILIALValue; + property OldFILIALIsNull : Boolean read GetOldFILIALIsNull; property CODIGO : String read GetCODIGOValue write SetCODIGOValue; + property CODIGOIsNull : Boolean read GetCODIGOIsNull write SetCODIGOIsNull; property OldCODIGO : String read GetOldCODIGOValue; + property OldCODIGOIsNull : Boolean read GetOldCODIGOIsNull; property PRODUCTO : String read GetPRODUCTOValue write SetPRODUCTOValue; + property PRODUCTOIsNull : Boolean read GetPRODUCTOIsNull write SetPRODUCTOIsNull; property OldPRODUCTO : String read GetOldPRODUCTOValue; + property OldPRODUCTOIsNull : Boolean read GetOldPRODUCTOIsNull; property COLOR : String read GetCOLORValue write SetCOLORValue; + property COLORIsNull : Boolean read GetCOLORIsNull write SetCOLORIsNull; property OldCOLOR : String read GetOldCOLORValue; + property OldCOLORIsNull : Boolean read GetOldCOLORIsNull; property TIPO_PRODUCTO : String read GetTIPO_PRODUCTOValue write SetTIPO_PRODUCTOValue; + property TIPO_PRODUCTOIsNull : Boolean read GetTIPO_PRODUCTOIsNull write SetTIPO_PRODUCTOIsNull; property OldTIPO_PRODUCTO : String read GetOldTIPO_PRODUCTOValue; + property OldTIPO_PRODUCTOIsNull : Boolean read GetOldTIPO_PRODUCTOIsNull; property GRUPO_PRODUCTO : String read GetGRUPO_PRODUCTOValue write SetGRUPO_PRODUCTOValue; + property GRUPO_PRODUCTOIsNull : Boolean read GetGRUPO_PRODUCTOIsNull write SetGRUPO_PRODUCTOIsNull; property OldGRUPO_PRODUCTO : String read GetOldGRUPO_PRODUCTOValue; + property OldGRUPO_PRODUCTOIsNull : Boolean read GetOldGRUPO_PRODUCTOIsNull; property COLECCION : String read GetCOLECCIONValue write SetCOLECCIONValue; + property COLECCIONIsNull : Boolean read GetCOLECCIONIsNull write SetCOLECCIONIsNull; property OldCOLECCION : String read GetOldCOLECCIONValue; + property OldCOLECCIONIsNull : Boolean read GetOldCOLECCIONIsNull; property I38 : Float read GetI38Value write SetI38Value; + property I38IsNull : Boolean read GetI38IsNull write SetI38IsNull; property OldI38 : Float read GetOldI38Value; + property OldI38IsNull : Boolean read GetOldI38IsNull; property I40 : Float read GetI40Value write SetI40Value; + property I40IsNull : Boolean read GetI40IsNull write SetI40IsNull; property OldI40 : Float read GetOldI40Value; + property OldI40IsNull : Boolean read GetOldI40IsNull; property I42 : Float read GetI42Value write SetI42Value; + property I42IsNull : Boolean read GetI42IsNull write SetI42IsNull; property OldI42 : Float read GetOldI42Value; + property OldI42IsNull : Boolean read GetOldI42IsNull; property I44 : Float read GetI44Value write SetI44Value; + property I44IsNull : Boolean read GetI44IsNull write SetI44IsNull; property OldI44 : Float read GetOldI44Value; + property OldI44IsNull : Boolean read GetOldI44IsNull; property I46 : Float read GetI46Value write SetI46Value; + property I46IsNull : Boolean read GetI46IsNull write SetI46IsNull; property OldI46 : Float read GetOldI46Value; + property OldI46IsNull : Boolean read GetOldI46IsNull; property I48 : Float read GetI48Value write SetI48Value; + property I48IsNull : Boolean read GetI48IsNull write SetI48IsNull; property OldI48 : Float read GetOldI48Value; + property OldI48IsNull : Boolean read GetOldI48IsNull; property TI : Float read GetTIValue write SetTIValue; + property TIIsNull : Boolean read GetTIIsNull write SetTIIsNull; property OldTI : Float read GetOldTIValue; + property OldTIIsNull : Boolean read GetOldTIIsNull; property K38 : Float read GetK38Value write SetK38Value; + property K38IsNull : Boolean read GetK38IsNull write SetK38IsNull; property OldK38 : Float read GetOldK38Value; + property OldK38IsNull : Boolean read GetOldK38IsNull; property K40 : Float read GetK40Value write SetK40Value; + property K40IsNull : Boolean read GetK40IsNull write SetK40IsNull; property OldK40 : Float read GetOldK40Value; + property OldK40IsNull : Boolean read GetOldK40IsNull; property K42 : Float read GetK42Value write SetK42Value; + property K42IsNull : Boolean read GetK42IsNull write SetK42IsNull; property OldK42 : Float read GetOldK42Value; + property OldK42IsNull : Boolean read GetOldK42IsNull; property K44 : Float read GetK44Value write SetK44Value; + property K44IsNull : Boolean read GetK44IsNull write SetK44IsNull; property OldK44 : Float read GetOldK44Value; + property OldK44IsNull : Boolean read GetOldK44IsNull; property K46 : Float read GetK46Value write SetK46Value; + property K46IsNull : Boolean read GetK46IsNull write SetK46IsNull; property OldK46 : Float read GetOldK46Value; + property OldK46IsNull : Boolean read GetOldK46IsNull; property K48 : Float read GetK48Value write SetK48Value; + property K48IsNull : Boolean read GetK48IsNull write SetK48IsNull; property OldK48 : Float read GetOldK48Value; + property OldK48IsNull : Boolean read GetOldK48IsNull; property TK : Float read GetTKValue write SetTKValue; + property TKIsNull : Boolean read GetTKIsNull write SetTKIsNull; property OldTK : Float read GetOldTKValue; + property OldTKIsNull : Boolean read GetOldTKIsNull; property D38 : Float read GetD38Value write SetD38Value; + property D38IsNull : Boolean read GetD38IsNull write SetD38IsNull; property OldD38 : Float read GetOldD38Value; + property OldD38IsNull : Boolean read GetOldD38IsNull; property D40 : Float read GetD40Value write SetD40Value; + property D40IsNull : Boolean read GetD40IsNull write SetD40IsNull; property OldD40 : Float read GetOldD40Value; + property OldD40IsNull : Boolean read GetOldD40IsNull; property D42 : Float read GetD42Value write SetD42Value; + property D42IsNull : Boolean read GetD42IsNull write SetD42IsNull; property OldD42 : Float read GetOldD42Value; + property OldD42IsNull : Boolean read GetOldD42IsNull; property D44 : Float read GetD44Value write SetD44Value; + property D44IsNull : Boolean read GetD44IsNull write SetD44IsNull; property OldD44 : Float read GetOldD44Value; + property OldD44IsNull : Boolean read GetOldD44IsNull; property D46 : Float read GetD46Value write SetD46Value; + property D46IsNull : Boolean read GetD46IsNull write SetD46IsNull; property OldD46 : Float read GetOldD46Value; + property OldD46IsNull : Boolean read GetOldD46IsNull; property D48 : Float read GetD48Value write SetD48Value; + property D48IsNull : Boolean read GetD48IsNull write SetD48IsNull; property OldD48 : Float read GetOldD48Value; + property OldD48IsNull : Boolean read GetOldD48IsNull; property DT : Float read GetDTValue write SetDTValue; + property DTIsNull : Boolean read GetDTIsNull write SetDTIsNull; property OldDT : Float read GetOldDTValue; + property OldDTIsNull : Boolean read GetOldDTIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -687,7 +1126,7 @@ type implementation uses - Variants, uROBinaryHelpers; + Variants, uROBinaryHelpers, uDAInterfaces; { TStockPrendasCentrosBusinessProcessorRules } constructor TStockPrendasCentrosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); @@ -705,196 +1144,404 @@ begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosCODIGO]; end; +function TStockPrendasCentrosBusinessProcessorRules.GetCODIGOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosCODIGO]); +end; + function TStockPrendasCentrosBusinessProcessorRules.GetOldCODIGOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosCODIGO]; end; +function TStockPrendasCentrosBusinessProcessorRules.GetOldCODIGOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosCODIGO]); +end; + procedure TStockPrendasCentrosBusinessProcessorRules.SetCODIGOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosCODIGO] := aValue; end; +procedure TStockPrendasCentrosBusinessProcessorRules.SetCODIGOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosCODIGO] := Null; +end; + function TStockPrendasCentrosBusinessProcessorRules.GetPRODUCTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosPRODUCTO]; end; +function TStockPrendasCentrosBusinessProcessorRules.GetPRODUCTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosPRODUCTO]); +end; + function TStockPrendasCentrosBusinessProcessorRules.GetOldPRODUCTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosPRODUCTO]; end; +function TStockPrendasCentrosBusinessProcessorRules.GetOldPRODUCTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosPRODUCTO]); +end; + procedure TStockPrendasCentrosBusinessProcessorRules.SetPRODUCTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosPRODUCTO] := aValue; end; +procedure TStockPrendasCentrosBusinessProcessorRules.SetPRODUCTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosPRODUCTO] := Null; +end; + function TStockPrendasCentrosBusinessProcessorRules.GetTIPO_PRODUCTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosTIPO_PRODUCTO]; end; +function TStockPrendasCentrosBusinessProcessorRules.GetTIPO_PRODUCTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosTIPO_PRODUCTO]); +end; + function TStockPrendasCentrosBusinessProcessorRules.GetOldTIPO_PRODUCTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosTIPO_PRODUCTO]; end; +function TStockPrendasCentrosBusinessProcessorRules.GetOldTIPO_PRODUCTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosTIPO_PRODUCTO]); +end; + procedure TStockPrendasCentrosBusinessProcessorRules.SetTIPO_PRODUCTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosTIPO_PRODUCTO] := aValue; end; +procedure TStockPrendasCentrosBusinessProcessorRules.SetTIPO_PRODUCTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosTIPO_PRODUCTO] := Null; +end; + function TStockPrendasCentrosBusinessProcessorRules.GetGRUPO_PRODUCTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosGRUPO_PRODUCTO]; end; +function TStockPrendasCentrosBusinessProcessorRules.GetGRUPO_PRODUCTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosGRUPO_PRODUCTO]); +end; + function TStockPrendasCentrosBusinessProcessorRules.GetOldGRUPO_PRODUCTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosGRUPO_PRODUCTO]; end; +function TStockPrendasCentrosBusinessProcessorRules.GetOldGRUPO_PRODUCTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosGRUPO_PRODUCTO]); +end; + procedure TStockPrendasCentrosBusinessProcessorRules.SetGRUPO_PRODUCTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosGRUPO_PRODUCTO] := aValue; end; +procedure TStockPrendasCentrosBusinessProcessorRules.SetGRUPO_PRODUCTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosGRUPO_PRODUCTO] := Null; +end; + function TStockPrendasCentrosBusinessProcessorRules.GetCOLECCIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosCOLECCION]; end; +function TStockPrendasCentrosBusinessProcessorRules.GetCOLECCIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosCOLECCION]); +end; + function TStockPrendasCentrosBusinessProcessorRules.GetOldCOLECCIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosCOLECCION]; end; +function TStockPrendasCentrosBusinessProcessorRules.GetOldCOLECCIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosCOLECCION]); +end; + procedure TStockPrendasCentrosBusinessProcessorRules.SetCOLECCIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosCOLECCION] := aValue; end; +procedure TStockPrendasCentrosBusinessProcessorRules.SetCOLECCIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosCOLECCION] := Null; +end; + function TStockPrendasCentrosBusinessProcessorRules.GetCOLORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosCOLOR]; end; +function TStockPrendasCentrosBusinessProcessorRules.GetCOLORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosCOLOR]); +end; + function TStockPrendasCentrosBusinessProcessorRules.GetOldCOLORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosCOLOR]; end; +function TStockPrendasCentrosBusinessProcessorRules.GetOldCOLORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosCOLOR]); +end; + procedure TStockPrendasCentrosBusinessProcessorRules.SetCOLORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosCOLOR] := aValue; end; +procedure TStockPrendasCentrosBusinessProcessorRules.SetCOLORIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosCOLOR] := Null; +end; + function TStockPrendasCentrosBusinessProcessorRules.GetT38Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT38]; end; +function TStockPrendasCentrosBusinessProcessorRules.GetT38IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT38]); +end; + function TStockPrendasCentrosBusinessProcessorRules.GetOldT38Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosT38]; end; +function TStockPrendasCentrosBusinessProcessorRules.GetOldT38IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosT38]); +end; + procedure TStockPrendasCentrosBusinessProcessorRules.SetT38Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT38] := aValue; end; +procedure TStockPrendasCentrosBusinessProcessorRules.SetT38IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT38] := Null; +end; + function TStockPrendasCentrosBusinessProcessorRules.GetT40Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT40]; end; +function TStockPrendasCentrosBusinessProcessorRules.GetT40IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT40]); +end; + function TStockPrendasCentrosBusinessProcessorRules.GetOldT40Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosT40]; end; +function TStockPrendasCentrosBusinessProcessorRules.GetOldT40IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosT40]); +end; + procedure TStockPrendasCentrosBusinessProcessorRules.SetT40Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT40] := aValue; end; +procedure TStockPrendasCentrosBusinessProcessorRules.SetT40IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT40] := Null; +end; + function TStockPrendasCentrosBusinessProcessorRules.GetT42Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT42]; end; +function TStockPrendasCentrosBusinessProcessorRules.GetT42IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT42]); +end; + function TStockPrendasCentrosBusinessProcessorRules.GetOldT42Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosT42]; end; +function TStockPrendasCentrosBusinessProcessorRules.GetOldT42IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosT42]); +end; + procedure TStockPrendasCentrosBusinessProcessorRules.SetT42Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT42] := aValue; end; +procedure TStockPrendasCentrosBusinessProcessorRules.SetT42IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT42] := Null; +end; + function TStockPrendasCentrosBusinessProcessorRules.GetT44Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT44]; end; +function TStockPrendasCentrosBusinessProcessorRules.GetT44IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT44]); +end; + function TStockPrendasCentrosBusinessProcessorRules.GetOldT44Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosT44]; end; +function TStockPrendasCentrosBusinessProcessorRules.GetOldT44IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosT44]); +end; + procedure TStockPrendasCentrosBusinessProcessorRules.SetT44Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT44] := aValue; end; +procedure TStockPrendasCentrosBusinessProcessorRules.SetT44IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT44] := Null; +end; + function TStockPrendasCentrosBusinessProcessorRules.GetT46Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT46]; end; +function TStockPrendasCentrosBusinessProcessorRules.GetT46IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT46]); +end; + function TStockPrendasCentrosBusinessProcessorRules.GetOldT46Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosT46]; end; +function TStockPrendasCentrosBusinessProcessorRules.GetOldT46IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosT46]); +end; + procedure TStockPrendasCentrosBusinessProcessorRules.SetT46Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT46] := aValue; end; +procedure TStockPrendasCentrosBusinessProcessorRules.SetT46IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT46] := Null; +end; + function TStockPrendasCentrosBusinessProcessorRules.GetT48Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT48]; end; +function TStockPrendasCentrosBusinessProcessorRules.GetT48IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT48]); +end; + function TStockPrendasCentrosBusinessProcessorRules.GetOldT48Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosT48]; end; +function TStockPrendasCentrosBusinessProcessorRules.GetOldT48IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosT48]); +end; + procedure TStockPrendasCentrosBusinessProcessorRules.SetT48Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT48] := aValue; end; +procedure TStockPrendasCentrosBusinessProcessorRules.SetT48IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosT48] := Null; +end; + function TStockPrendasCentrosBusinessProcessorRules.GetTOTALValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosTOTAL]; end; +function TStockPrendasCentrosBusinessProcessorRules.GetTOTALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosTOTAL]); +end; + function TStockPrendasCentrosBusinessProcessorRules.GetOldTOTALValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosTOTAL]; end; +function TStockPrendasCentrosBusinessProcessorRules.GetOldTOTALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockPrendasCentrosTOTAL]); +end; + procedure TStockPrendasCentrosBusinessProcessorRules.SetTOTALValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosTOTAL] := aValue; end; +procedure TStockPrendasCentrosBusinessProcessorRules.SetTOTALIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockPrendasCentrosTOTAL] := Null; +end; + { TStockEDIBusinessProcessorRules } constructor TStockEDIBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); @@ -912,421 +1559,900 @@ begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDICENTRO]; end; +function TStockEDIBusinessProcessorRules.GetCENTROIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDICENTRO]); +end; + function TStockEDIBusinessProcessorRules.GetOldCENTROValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDICENTRO]; end; +function TStockEDIBusinessProcessorRules.GetOldCENTROIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDICENTRO]); +end; + procedure TStockEDIBusinessProcessorRules.SetCENTROValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDICENTRO] := aValue; end; +procedure TStockEDIBusinessProcessorRules.SetCENTROIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDICENTRO] := Null; +end; + +function TStockEDIBusinessProcessorRules.GetFILIALValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIFILIAL]; +end; + +function TStockEDIBusinessProcessorRules.GetFILIALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIFILIAL]); +end; + +function TStockEDIBusinessProcessorRules.GetOldFILIALValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIFILIAL]; +end; + +function TStockEDIBusinessProcessorRules.GetOldFILIALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIFILIAL]); +end; + +procedure TStockEDIBusinessProcessorRules.SetFILIALValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIFILIAL] := aValue; +end; + +procedure TStockEDIBusinessProcessorRules.SetFILIALIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIFILIAL] := Null; +end; + function TStockEDIBusinessProcessorRules.GetCODIGOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDICODIGO]; end; +function TStockEDIBusinessProcessorRules.GetCODIGOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDICODIGO]); +end; + function TStockEDIBusinessProcessorRules.GetOldCODIGOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDICODIGO]; end; +function TStockEDIBusinessProcessorRules.GetOldCODIGOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDICODIGO]); +end; + procedure TStockEDIBusinessProcessorRules.SetCODIGOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDICODIGO] := aValue; end; +procedure TStockEDIBusinessProcessorRules.SetCODIGOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDICODIGO] := Null; +end; + function TStockEDIBusinessProcessorRules.GetPRODUCTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIPRODUCTO]; end; +function TStockEDIBusinessProcessorRules.GetPRODUCTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIPRODUCTO]); +end; + function TStockEDIBusinessProcessorRules.GetOldPRODUCTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIPRODUCTO]; end; +function TStockEDIBusinessProcessorRules.GetOldPRODUCTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIPRODUCTO]); +end; + procedure TStockEDIBusinessProcessorRules.SetPRODUCTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIPRODUCTO] := aValue; end; +procedure TStockEDIBusinessProcessorRules.SetPRODUCTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIPRODUCTO] := Null; +end; + function TStockEDIBusinessProcessorRules.GetTIPO_PRODUCTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDITIPO_PRODUCTO]; end; +function TStockEDIBusinessProcessorRules.GetTIPO_PRODUCTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDITIPO_PRODUCTO]); +end; + function TStockEDIBusinessProcessorRules.GetOldTIPO_PRODUCTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDITIPO_PRODUCTO]; end; +function TStockEDIBusinessProcessorRules.GetOldTIPO_PRODUCTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDITIPO_PRODUCTO]); +end; + procedure TStockEDIBusinessProcessorRules.SetTIPO_PRODUCTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDITIPO_PRODUCTO] := aValue; end; +procedure TStockEDIBusinessProcessorRules.SetTIPO_PRODUCTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDITIPO_PRODUCTO] := Null; +end; + function TStockEDIBusinessProcessorRules.GetGRUPO_PRODUCTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIGRUPO_PRODUCTO]; end; +function TStockEDIBusinessProcessorRules.GetGRUPO_PRODUCTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIGRUPO_PRODUCTO]); +end; + function TStockEDIBusinessProcessorRules.GetOldGRUPO_PRODUCTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIGRUPO_PRODUCTO]; end; +function TStockEDIBusinessProcessorRules.GetOldGRUPO_PRODUCTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIGRUPO_PRODUCTO]); +end; + procedure TStockEDIBusinessProcessorRules.SetGRUPO_PRODUCTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIGRUPO_PRODUCTO] := aValue; end; +procedure TStockEDIBusinessProcessorRules.SetGRUPO_PRODUCTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIGRUPO_PRODUCTO] := Null; +end; + function TStockEDIBusinessProcessorRules.GetCOLECCIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDICOLECCION]; end; +function TStockEDIBusinessProcessorRules.GetCOLECCIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDICOLECCION]); +end; + function TStockEDIBusinessProcessorRules.GetOldCOLECCIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDICOLECCION]; end; +function TStockEDIBusinessProcessorRules.GetOldCOLECCIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDICOLECCION]); +end; + procedure TStockEDIBusinessProcessorRules.SetCOLECCIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDICOLECCION] := aValue; end; +procedure TStockEDIBusinessProcessorRules.SetCOLECCIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDICOLECCION] := Null; +end; + function TStockEDIBusinessProcessorRules.GetCOLORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDICOLOR]; end; +function TStockEDIBusinessProcessorRules.GetCOLORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDICOLOR]); +end; + function TStockEDIBusinessProcessorRules.GetOldCOLORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDICOLOR]; end; +function TStockEDIBusinessProcessorRules.GetOldCOLORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDICOLOR]); +end; + procedure TStockEDIBusinessProcessorRules.SetCOLORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDICOLOR] := aValue; end; +procedure TStockEDIBusinessProcessorRules.SetCOLORIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDICOLOR] := Null; +end; + function TStockEDIBusinessProcessorRules.GetE38Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE38]; end; +function TStockEDIBusinessProcessorRules.GetE38IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE38]); +end; + function TStockEDIBusinessProcessorRules.GetOldE38Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIE38]; end; +function TStockEDIBusinessProcessorRules.GetOldE38IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIE38]); +end; + procedure TStockEDIBusinessProcessorRules.SetE38Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE38] := aValue; end; +procedure TStockEDIBusinessProcessorRules.SetE38IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE38] := Null; +end; + function TStockEDIBusinessProcessorRules.GetE40Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE40]; end; +function TStockEDIBusinessProcessorRules.GetE40IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE40]); +end; + function TStockEDIBusinessProcessorRules.GetOldE40Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIE40]; end; +function TStockEDIBusinessProcessorRules.GetOldE40IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIE40]); +end; + procedure TStockEDIBusinessProcessorRules.SetE40Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE40] := aValue; end; +procedure TStockEDIBusinessProcessorRules.SetE40IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE40] := Null; +end; + function TStockEDIBusinessProcessorRules.GetE42Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE42]; end; +function TStockEDIBusinessProcessorRules.GetE42IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE42]); +end; + function TStockEDIBusinessProcessorRules.GetOldE42Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIE42]; end; +function TStockEDIBusinessProcessorRules.GetOldE42IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIE42]); +end; + procedure TStockEDIBusinessProcessorRules.SetE42Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE42] := aValue; end; +procedure TStockEDIBusinessProcessorRules.SetE42IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE42] := Null; +end; + function TStockEDIBusinessProcessorRules.GetE44Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE44]; end; +function TStockEDIBusinessProcessorRules.GetE44IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE44]); +end; + function TStockEDIBusinessProcessorRules.GetOldE44Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIE44]; end; +function TStockEDIBusinessProcessorRules.GetOldE44IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIE44]); +end; + procedure TStockEDIBusinessProcessorRules.SetE44Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE44] := aValue; end; +procedure TStockEDIBusinessProcessorRules.SetE44IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE44] := Null; +end; + function TStockEDIBusinessProcessorRules.GetE46Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE46]; end; +function TStockEDIBusinessProcessorRules.GetE46IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE46]); +end; + function TStockEDIBusinessProcessorRules.GetOldE46Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIE46]; end; +function TStockEDIBusinessProcessorRules.GetOldE46IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIE46]); +end; + procedure TStockEDIBusinessProcessorRules.SetE46Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE46] := aValue; end; +procedure TStockEDIBusinessProcessorRules.SetE46IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE46] := Null; +end; + function TStockEDIBusinessProcessorRules.GetE48Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE48]; end; +function TStockEDIBusinessProcessorRules.GetE48IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE48]); +end; + function TStockEDIBusinessProcessorRules.GetOldE48Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIE48]; end; +function TStockEDIBusinessProcessorRules.GetOldE48IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIE48]); +end; + procedure TStockEDIBusinessProcessorRules.SetE48Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE48] := aValue; end; +procedure TStockEDIBusinessProcessorRules.SetE48IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIE48] := Null; +end; + function TStockEDIBusinessProcessorRules.GetTEValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDITE]; end; +function TStockEDIBusinessProcessorRules.GetTEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDITE]); +end; + function TStockEDIBusinessProcessorRules.GetOldTEValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDITE]; end; +function TStockEDIBusinessProcessorRules.GetOldTEIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDITE]); +end; + procedure TStockEDIBusinessProcessorRules.SetTEValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDITE] := aValue; end; +procedure TStockEDIBusinessProcessorRules.SetTEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDITE] := Null; +end; + function TStockEDIBusinessProcessorRules.GetS38Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS38]; end; +function TStockEDIBusinessProcessorRules.GetS38IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS38]); +end; + function TStockEDIBusinessProcessorRules.GetOldS38Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIS38]; end; +function TStockEDIBusinessProcessorRules.GetOldS38IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIS38]); +end; + procedure TStockEDIBusinessProcessorRules.SetS38Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS38] := aValue; end; +procedure TStockEDIBusinessProcessorRules.SetS38IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS38] := Null; +end; + function TStockEDIBusinessProcessorRules.GetS40Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS40]; end; +function TStockEDIBusinessProcessorRules.GetS40IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS40]); +end; + function TStockEDIBusinessProcessorRules.GetOldS40Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIS40]; end; +function TStockEDIBusinessProcessorRules.GetOldS40IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIS40]); +end; + procedure TStockEDIBusinessProcessorRules.SetS40Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS40] := aValue; end; +procedure TStockEDIBusinessProcessorRules.SetS40IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS40] := Null; +end; + function TStockEDIBusinessProcessorRules.GetS42Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS42]; end; +function TStockEDIBusinessProcessorRules.GetS42IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS42]); +end; + function TStockEDIBusinessProcessorRules.GetOldS42Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIS42]; end; +function TStockEDIBusinessProcessorRules.GetOldS42IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIS42]); +end; + procedure TStockEDIBusinessProcessorRules.SetS42Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS42] := aValue; end; +procedure TStockEDIBusinessProcessorRules.SetS42IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS42] := Null; +end; + function TStockEDIBusinessProcessorRules.GetS44Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS44]; end; +function TStockEDIBusinessProcessorRules.GetS44IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS44]); +end; + function TStockEDIBusinessProcessorRules.GetOldS44Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIS44]; end; +function TStockEDIBusinessProcessorRules.GetOldS44IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIS44]); +end; + procedure TStockEDIBusinessProcessorRules.SetS44Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS44] := aValue; end; +procedure TStockEDIBusinessProcessorRules.SetS44IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS44] := Null; +end; + function TStockEDIBusinessProcessorRules.GetS46Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS46]; end; +function TStockEDIBusinessProcessorRules.GetS46IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS46]); +end; + function TStockEDIBusinessProcessorRules.GetOldS46Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIS46]; end; +function TStockEDIBusinessProcessorRules.GetOldS46IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIS46]); +end; + procedure TStockEDIBusinessProcessorRules.SetS46Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS46] := aValue; end; +procedure TStockEDIBusinessProcessorRules.SetS46IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS46] := Null; +end; + function TStockEDIBusinessProcessorRules.GetS48Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS48]; end; +function TStockEDIBusinessProcessorRules.GetS48IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS48]); +end; + function TStockEDIBusinessProcessorRules.GetOldS48Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIS48]; end; +function TStockEDIBusinessProcessorRules.GetOldS48IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIS48]); +end; + procedure TStockEDIBusinessProcessorRules.SetS48Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS48] := aValue; end; +procedure TStockEDIBusinessProcessorRules.SetS48IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIS48] := Null; +end; + function TStockEDIBusinessProcessorRules.GetTSValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDITS]; end; +function TStockEDIBusinessProcessorRules.GetTSIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDITS]); +end; + function TStockEDIBusinessProcessorRules.GetOldTSValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDITS]; end; +function TStockEDIBusinessProcessorRules.GetOldTSIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDITS]); +end; + procedure TStockEDIBusinessProcessorRules.SetTSValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDITS] := aValue; end; +procedure TStockEDIBusinessProcessorRules.SetTSIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDITS] := Null; +end; + function TStockEDIBusinessProcessorRules.GetK38Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK38]; end; +function TStockEDIBusinessProcessorRules.GetK38IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK38]); +end; + function TStockEDIBusinessProcessorRules.GetOldK38Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIK38]; end; +function TStockEDIBusinessProcessorRules.GetOldK38IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIK38]); +end; + procedure TStockEDIBusinessProcessorRules.SetK38Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK38] := aValue; end; +procedure TStockEDIBusinessProcessorRules.SetK38IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK38] := Null; +end; + function TStockEDIBusinessProcessorRules.GetK40Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK40]; end; +function TStockEDIBusinessProcessorRules.GetK40IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK40]); +end; + function TStockEDIBusinessProcessorRules.GetOldK40Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIK40]; end; +function TStockEDIBusinessProcessorRules.GetOldK40IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIK40]); +end; + procedure TStockEDIBusinessProcessorRules.SetK40Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK40] := aValue; end; +procedure TStockEDIBusinessProcessorRules.SetK40IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK40] := Null; +end; + function TStockEDIBusinessProcessorRules.GetK42Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK42]; end; +function TStockEDIBusinessProcessorRules.GetK42IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK42]); +end; + function TStockEDIBusinessProcessorRules.GetOldK42Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIK42]; end; +function TStockEDIBusinessProcessorRules.GetOldK42IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIK42]); +end; + procedure TStockEDIBusinessProcessorRules.SetK42Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK42] := aValue; end; +procedure TStockEDIBusinessProcessorRules.SetK42IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK42] := Null; +end; + function TStockEDIBusinessProcessorRules.GetK44Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK44]; end; +function TStockEDIBusinessProcessorRules.GetK44IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK44]); +end; + function TStockEDIBusinessProcessorRules.GetOldK44Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIK44]; end; +function TStockEDIBusinessProcessorRules.GetOldK44IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIK44]); +end; + procedure TStockEDIBusinessProcessorRules.SetK44Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK44] := aValue; end; +procedure TStockEDIBusinessProcessorRules.SetK44IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK44] := Null; +end; + function TStockEDIBusinessProcessorRules.GetK46Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK46]; end; +function TStockEDIBusinessProcessorRules.GetK46IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK46]); +end; + function TStockEDIBusinessProcessorRules.GetOldK46Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIK46]; end; +function TStockEDIBusinessProcessorRules.GetOldK46IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIK46]); +end; + procedure TStockEDIBusinessProcessorRules.SetK46Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK46] := aValue; end; +procedure TStockEDIBusinessProcessorRules.SetK46IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK46] := Null; +end; + function TStockEDIBusinessProcessorRules.GetK48Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK48]; end; +function TStockEDIBusinessProcessorRules.GetK48IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK48]); +end; + function TStockEDIBusinessProcessorRules.GetOldK48Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIK48]; end; +function TStockEDIBusinessProcessorRules.GetOldK48IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIK48]); +end; + procedure TStockEDIBusinessProcessorRules.SetK48Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK48] := aValue; end; +procedure TStockEDIBusinessProcessorRules.SetK48IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIK48] := Null; +end; + function TStockEDIBusinessProcessorRules.GetKTValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIKT]; end; +function TStockEDIBusinessProcessorRules.GetKTIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIKT]); +end; + function TStockEDIBusinessProcessorRules.GetOldKTValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIKT]; end; +function TStockEDIBusinessProcessorRules.GetOldKTIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIKT]); +end; + procedure TStockEDIBusinessProcessorRules.SetKTValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIKT] := aValue; end; +procedure TStockEDIBusinessProcessorRules.SetKTIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIKT] := Null; +end; + { TStockVARELABusinessProcessorRules } constructor TStockVARELABusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); @@ -1344,211 +2470,435 @@ begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAFILIAL]; end; +function TStockVARELABusinessProcessorRules.GetFILIALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAFILIAL]); +end; + function TStockVARELABusinessProcessorRules.GetOldFILIALValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAFILIAL]; end; +function TStockVARELABusinessProcessorRules.GetOldFILIALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAFILIAL]); +end; + procedure TStockVARELABusinessProcessorRules.SetFILIALValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAFILIAL] := aValue; end; +procedure TStockVARELABusinessProcessorRules.SetFILIALIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAFILIAL] := Null; +end; + function TStockVARELABusinessProcessorRules.GetCODIGOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELACODIGO]; end; +function TStockVARELABusinessProcessorRules.GetCODIGOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELACODIGO]); +end; + function TStockVARELABusinessProcessorRules.GetOldCODIGOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELACODIGO]; end; +function TStockVARELABusinessProcessorRules.GetOldCODIGOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELACODIGO]); +end; + procedure TStockVARELABusinessProcessorRules.SetCODIGOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELACODIGO] := aValue; end; +procedure TStockVARELABusinessProcessorRules.SetCODIGOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELACODIGO] := Null; +end; + function TStockVARELABusinessProcessorRules.GetCOLORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELACOLOR]; end; +function TStockVARELABusinessProcessorRules.GetCOLORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELACOLOR]); +end; + function TStockVARELABusinessProcessorRules.GetOldCOLORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELACOLOR]; end; +function TStockVARELABusinessProcessorRules.GetOldCOLORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELACOLOR]); +end; + procedure TStockVARELABusinessProcessorRules.SetCOLORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELACOLOR] := aValue; end; +procedure TStockVARELABusinessProcessorRules.SetCOLORIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELACOLOR] := Null; +end; + function TStockVARELABusinessProcessorRules.GetPRODUCTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAPRODUCTO]; end; +function TStockVARELABusinessProcessorRules.GetPRODUCTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAPRODUCTO]); +end; + function TStockVARELABusinessProcessorRules.GetOldPRODUCTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAPRODUCTO]; end; +function TStockVARELABusinessProcessorRules.GetOldPRODUCTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAPRODUCTO]); +end; + procedure TStockVARELABusinessProcessorRules.SetPRODUCTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAPRODUCTO] := aValue; end; +procedure TStockVARELABusinessProcessorRules.SetPRODUCTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAPRODUCTO] := Null; +end; + function TStockVARELABusinessProcessorRules.GetTIPO_PRODUTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELATIPO_PRODUTO]; end; +function TStockVARELABusinessProcessorRules.GetTIPO_PRODUTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELATIPO_PRODUTO]); +end; + function TStockVARELABusinessProcessorRules.GetOldTIPO_PRODUTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELATIPO_PRODUTO]; end; +function TStockVARELABusinessProcessorRules.GetOldTIPO_PRODUTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELATIPO_PRODUTO]); +end; + procedure TStockVARELABusinessProcessorRules.SetTIPO_PRODUTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELATIPO_PRODUTO] := aValue; end; +procedure TStockVARELABusinessProcessorRules.SetTIPO_PRODUTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELATIPO_PRODUTO] := Null; +end; + function TStockVARELABusinessProcessorRules.GetGRUPO_PRODUTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAGRUPO_PRODUTO]; end; +function TStockVARELABusinessProcessorRules.GetGRUPO_PRODUTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAGRUPO_PRODUTO]); +end; + function TStockVARELABusinessProcessorRules.GetOldGRUPO_PRODUTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAGRUPO_PRODUTO]; end; +function TStockVARELABusinessProcessorRules.GetOldGRUPO_PRODUTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAGRUPO_PRODUTO]); +end; + procedure TStockVARELABusinessProcessorRules.SetGRUPO_PRODUTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAGRUPO_PRODUTO] := aValue; end; +procedure TStockVARELABusinessProcessorRules.SetGRUPO_PRODUTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAGRUPO_PRODUTO] := Null; +end; + function TStockVARELABusinessProcessorRules.GetCOLECCIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELACOLECCION]; end; +function TStockVARELABusinessProcessorRules.GetCOLECCIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELACOLECCION]); +end; + function TStockVARELABusinessProcessorRules.GetOldCOLECCIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELACOLECCION]; end; +function TStockVARELABusinessProcessorRules.GetOldCOLECCIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELACOLECCION]); +end; + procedure TStockVARELABusinessProcessorRules.SetCOLECCIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELACOLECCION] := aValue; end; +procedure TStockVARELABusinessProcessorRules.SetCOLECCIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELACOLECCION] := Null; +end; + function TStockVARELABusinessProcessorRules.GetK38Value: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK38]; end; +function TStockVARELABusinessProcessorRules.GetK38IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK38]); +end; + function TStockVARELABusinessProcessorRules.GetOldK38Value: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAK38]; end; +function TStockVARELABusinessProcessorRules.GetOldK38IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAK38]); +end; + procedure TStockVARELABusinessProcessorRules.SetK38Value(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK38] := aValue; end; +procedure TStockVARELABusinessProcessorRules.SetK38IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK38] := Null; +end; + function TStockVARELABusinessProcessorRules.GetK40Value: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK40]; end; +function TStockVARELABusinessProcessorRules.GetK40IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK40]); +end; + function TStockVARELABusinessProcessorRules.GetOldK40Value: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAK40]; end; +function TStockVARELABusinessProcessorRules.GetOldK40IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAK40]); +end; + procedure TStockVARELABusinessProcessorRules.SetK40Value(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK40] := aValue; end; +procedure TStockVARELABusinessProcessorRules.SetK40IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK40] := Null; +end; + function TStockVARELABusinessProcessorRules.GetK42Value: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK42]; end; +function TStockVARELABusinessProcessorRules.GetK42IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK42]); +end; + function TStockVARELABusinessProcessorRules.GetOldK42Value: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAK42]; end; +function TStockVARELABusinessProcessorRules.GetOldK42IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAK42]); +end; + procedure TStockVARELABusinessProcessorRules.SetK42Value(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK42] := aValue; end; +procedure TStockVARELABusinessProcessorRules.SetK42IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK42] := Null; +end; + function TStockVARELABusinessProcessorRules.GetK44Value: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK44]; end; +function TStockVARELABusinessProcessorRules.GetK44IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK44]); +end; + function TStockVARELABusinessProcessorRules.GetOldK44Value: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAK44]; end; +function TStockVARELABusinessProcessorRules.GetOldK44IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAK44]); +end; + procedure TStockVARELABusinessProcessorRules.SetK44Value(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK44] := aValue; end; +procedure TStockVARELABusinessProcessorRules.SetK44IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK44] := Null; +end; + function TStockVARELABusinessProcessorRules.GetK46Value: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK46]; end; +function TStockVARELABusinessProcessorRules.GetK46IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK46]); +end; + function TStockVARELABusinessProcessorRules.GetOldK46Value: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAK46]; end; +function TStockVARELABusinessProcessorRules.GetOldK46IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAK46]); +end; + procedure TStockVARELABusinessProcessorRules.SetK46Value(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK46] := aValue; end; +procedure TStockVARELABusinessProcessorRules.SetK46IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK46] := Null; +end; + function TStockVARELABusinessProcessorRules.GetK48Value: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK48]; end; +function TStockVARELABusinessProcessorRules.GetK48IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK48]); +end; + function TStockVARELABusinessProcessorRules.GetOldK48Value: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAK48]; end; +function TStockVARELABusinessProcessorRules.GetOldK48IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAK48]); +end; + procedure TStockVARELABusinessProcessorRules.SetK48Value(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK48] := aValue; end; +procedure TStockVARELABusinessProcessorRules.SetK48IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAK48] := Null; +end; + function TStockVARELABusinessProcessorRules.GetKTValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAKT]; end; +function TStockVARELABusinessProcessorRules.GetKTIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAKT]); +end; + function TStockVARELABusinessProcessorRules.GetOldKTValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAKT]; end; +function TStockVARELABusinessProcessorRules.GetOldKTIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockVARELAKT]); +end; + procedure TStockVARELABusinessProcessorRules.SetKTValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAKT] := aValue; end; +procedure TStockVARELABusinessProcessorRules.SetKTIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockVARELAKT] := Null; +end; + { TStockEDIInventarioBusinessProcessorRules } constructor TStockEDIInventarioBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); @@ -1566,421 +2916,900 @@ begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioCENTRO]; end; +function TStockEDIInventarioBusinessProcessorRules.GetCENTROIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioCENTRO]); +end; + function TStockEDIInventarioBusinessProcessorRules.GetOldCENTROValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioCENTRO]; end; +function TStockEDIInventarioBusinessProcessorRules.GetOldCENTROIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioCENTRO]); +end; + procedure TStockEDIInventarioBusinessProcessorRules.SetCENTROValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioCENTRO] := aValue; end; +procedure TStockEDIInventarioBusinessProcessorRules.SetCENTROIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioCENTRO] := Null; +end; + +function TStockEDIInventarioBusinessProcessorRules.GetFILIALValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioFILIAL]; +end; + +function TStockEDIInventarioBusinessProcessorRules.GetFILIALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioFILIAL]); +end; + +function TStockEDIInventarioBusinessProcessorRules.GetOldFILIALValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioFILIAL]; +end; + +function TStockEDIInventarioBusinessProcessorRules.GetOldFILIALIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioFILIAL]); +end; + +procedure TStockEDIInventarioBusinessProcessorRules.SetFILIALValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioFILIAL] := aValue; +end; + +procedure TStockEDIInventarioBusinessProcessorRules.SetFILIALIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioFILIAL] := Null; +end; + function TStockEDIInventarioBusinessProcessorRules.GetCODIGOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioCODIGO]; end; +function TStockEDIInventarioBusinessProcessorRules.GetCODIGOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioCODIGO]); +end; + function TStockEDIInventarioBusinessProcessorRules.GetOldCODIGOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioCODIGO]; end; +function TStockEDIInventarioBusinessProcessorRules.GetOldCODIGOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioCODIGO]); +end; + procedure TStockEDIInventarioBusinessProcessorRules.SetCODIGOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioCODIGO] := aValue; end; +procedure TStockEDIInventarioBusinessProcessorRules.SetCODIGOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioCODIGO] := Null; +end; + function TStockEDIInventarioBusinessProcessorRules.GetPRODUCTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioPRODUCTO]; end; +function TStockEDIInventarioBusinessProcessorRules.GetPRODUCTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioPRODUCTO]); +end; + function TStockEDIInventarioBusinessProcessorRules.GetOldPRODUCTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioPRODUCTO]; end; +function TStockEDIInventarioBusinessProcessorRules.GetOldPRODUCTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioPRODUCTO]); +end; + procedure TStockEDIInventarioBusinessProcessorRules.SetPRODUCTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioPRODUCTO] := aValue; end; +procedure TStockEDIInventarioBusinessProcessorRules.SetPRODUCTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioPRODUCTO] := Null; +end; + function TStockEDIInventarioBusinessProcessorRules.GetCOLORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioCOLOR]; end; +function TStockEDIInventarioBusinessProcessorRules.GetCOLORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioCOLOR]); +end; + function TStockEDIInventarioBusinessProcessorRules.GetOldCOLORValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioCOLOR]; end; +function TStockEDIInventarioBusinessProcessorRules.GetOldCOLORIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioCOLOR]); +end; + procedure TStockEDIInventarioBusinessProcessorRules.SetCOLORValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioCOLOR] := aValue; end; +procedure TStockEDIInventarioBusinessProcessorRules.SetCOLORIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioCOLOR] := Null; +end; + function TStockEDIInventarioBusinessProcessorRules.GetTIPO_PRODUCTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioTIPO_PRODUCTO]; end; +function TStockEDIInventarioBusinessProcessorRules.GetTIPO_PRODUCTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioTIPO_PRODUCTO]); +end; + function TStockEDIInventarioBusinessProcessorRules.GetOldTIPO_PRODUCTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioTIPO_PRODUCTO]; end; +function TStockEDIInventarioBusinessProcessorRules.GetOldTIPO_PRODUCTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioTIPO_PRODUCTO]); +end; + procedure TStockEDIInventarioBusinessProcessorRules.SetTIPO_PRODUCTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioTIPO_PRODUCTO] := aValue; end; +procedure TStockEDIInventarioBusinessProcessorRules.SetTIPO_PRODUCTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioTIPO_PRODUCTO] := Null; +end; + function TStockEDIInventarioBusinessProcessorRules.GetGRUPO_PRODUCTOValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioGRUPO_PRODUCTO]; end; +function TStockEDIInventarioBusinessProcessorRules.GetGRUPO_PRODUCTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioGRUPO_PRODUCTO]); +end; + function TStockEDIInventarioBusinessProcessorRules.GetOldGRUPO_PRODUCTOValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioGRUPO_PRODUCTO]; end; +function TStockEDIInventarioBusinessProcessorRules.GetOldGRUPO_PRODUCTOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioGRUPO_PRODUCTO]); +end; + procedure TStockEDIInventarioBusinessProcessorRules.SetGRUPO_PRODUCTOValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioGRUPO_PRODUCTO] := aValue; end; +procedure TStockEDIInventarioBusinessProcessorRules.SetGRUPO_PRODUCTOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioGRUPO_PRODUCTO] := Null; +end; + function TStockEDIInventarioBusinessProcessorRules.GetCOLECCIONValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioCOLECCION]; end; +function TStockEDIInventarioBusinessProcessorRules.GetCOLECCIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioCOLECCION]); +end; + function TStockEDIInventarioBusinessProcessorRules.GetOldCOLECCIONValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioCOLECCION]; end; +function TStockEDIInventarioBusinessProcessorRules.GetOldCOLECCIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioCOLECCION]); +end; + procedure TStockEDIInventarioBusinessProcessorRules.SetCOLECCIONValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioCOLECCION] := aValue; end; +procedure TStockEDIInventarioBusinessProcessorRules.SetCOLECCIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioCOLECCION] := Null; +end; + function TStockEDIInventarioBusinessProcessorRules.GetI38Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI38]; end; +function TStockEDIInventarioBusinessProcessorRules.GetI38IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI38]); +end; + function TStockEDIInventarioBusinessProcessorRules.GetOldI38Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioI38]; end; +function TStockEDIInventarioBusinessProcessorRules.GetOldI38IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioI38]); +end; + procedure TStockEDIInventarioBusinessProcessorRules.SetI38Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI38] := aValue; end; +procedure TStockEDIInventarioBusinessProcessorRules.SetI38IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI38] := Null; +end; + function TStockEDIInventarioBusinessProcessorRules.GetI40Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI40]; end; +function TStockEDIInventarioBusinessProcessorRules.GetI40IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI40]); +end; + function TStockEDIInventarioBusinessProcessorRules.GetOldI40Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioI40]; end; +function TStockEDIInventarioBusinessProcessorRules.GetOldI40IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioI40]); +end; + procedure TStockEDIInventarioBusinessProcessorRules.SetI40Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI40] := aValue; end; +procedure TStockEDIInventarioBusinessProcessorRules.SetI40IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI40] := Null; +end; + function TStockEDIInventarioBusinessProcessorRules.GetI42Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI42]; end; +function TStockEDIInventarioBusinessProcessorRules.GetI42IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI42]); +end; + function TStockEDIInventarioBusinessProcessorRules.GetOldI42Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioI42]; end; +function TStockEDIInventarioBusinessProcessorRules.GetOldI42IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioI42]); +end; + procedure TStockEDIInventarioBusinessProcessorRules.SetI42Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI42] := aValue; end; +procedure TStockEDIInventarioBusinessProcessorRules.SetI42IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI42] := Null; +end; + function TStockEDIInventarioBusinessProcessorRules.GetI44Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI44]; end; +function TStockEDIInventarioBusinessProcessorRules.GetI44IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI44]); +end; + function TStockEDIInventarioBusinessProcessorRules.GetOldI44Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioI44]; end; +function TStockEDIInventarioBusinessProcessorRules.GetOldI44IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioI44]); +end; + procedure TStockEDIInventarioBusinessProcessorRules.SetI44Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI44] := aValue; end; +procedure TStockEDIInventarioBusinessProcessorRules.SetI44IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI44] := Null; +end; + function TStockEDIInventarioBusinessProcessorRules.GetI46Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI46]; end; +function TStockEDIInventarioBusinessProcessorRules.GetI46IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI46]); +end; + function TStockEDIInventarioBusinessProcessorRules.GetOldI46Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioI46]; end; +function TStockEDIInventarioBusinessProcessorRules.GetOldI46IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioI46]); +end; + procedure TStockEDIInventarioBusinessProcessorRules.SetI46Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI46] := aValue; end; +procedure TStockEDIInventarioBusinessProcessorRules.SetI46IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI46] := Null; +end; + function TStockEDIInventarioBusinessProcessorRules.GetI48Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI48]; end; +function TStockEDIInventarioBusinessProcessorRules.GetI48IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI48]); +end; + function TStockEDIInventarioBusinessProcessorRules.GetOldI48Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioI48]; end; +function TStockEDIInventarioBusinessProcessorRules.GetOldI48IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioI48]); +end; + procedure TStockEDIInventarioBusinessProcessorRules.SetI48Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI48] := aValue; end; +procedure TStockEDIInventarioBusinessProcessorRules.SetI48IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioI48] := Null; +end; + function TStockEDIInventarioBusinessProcessorRules.GetTIValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioTI]; end; +function TStockEDIInventarioBusinessProcessorRules.GetTIIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioTI]); +end; + function TStockEDIInventarioBusinessProcessorRules.GetOldTIValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioTI]; end; +function TStockEDIInventarioBusinessProcessorRules.GetOldTIIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioTI]); +end; + procedure TStockEDIInventarioBusinessProcessorRules.SetTIValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioTI] := aValue; end; +procedure TStockEDIInventarioBusinessProcessorRules.SetTIIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioTI] := Null; +end; + function TStockEDIInventarioBusinessProcessorRules.GetK38Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK38]; end; +function TStockEDIInventarioBusinessProcessorRules.GetK38IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK38]); +end; + function TStockEDIInventarioBusinessProcessorRules.GetOldK38Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioK38]; end; +function TStockEDIInventarioBusinessProcessorRules.GetOldK38IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioK38]); +end; + procedure TStockEDIInventarioBusinessProcessorRules.SetK38Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK38] := aValue; end; +procedure TStockEDIInventarioBusinessProcessorRules.SetK38IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK38] := Null; +end; + function TStockEDIInventarioBusinessProcessorRules.GetK40Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK40]; end; +function TStockEDIInventarioBusinessProcessorRules.GetK40IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK40]); +end; + function TStockEDIInventarioBusinessProcessorRules.GetOldK40Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioK40]; end; +function TStockEDIInventarioBusinessProcessorRules.GetOldK40IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioK40]); +end; + procedure TStockEDIInventarioBusinessProcessorRules.SetK40Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK40] := aValue; end; +procedure TStockEDIInventarioBusinessProcessorRules.SetK40IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK40] := Null; +end; + function TStockEDIInventarioBusinessProcessorRules.GetK42Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK42]; end; +function TStockEDIInventarioBusinessProcessorRules.GetK42IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK42]); +end; + function TStockEDIInventarioBusinessProcessorRules.GetOldK42Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioK42]; end; +function TStockEDIInventarioBusinessProcessorRules.GetOldK42IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioK42]); +end; + procedure TStockEDIInventarioBusinessProcessorRules.SetK42Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK42] := aValue; end; +procedure TStockEDIInventarioBusinessProcessorRules.SetK42IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK42] := Null; +end; + function TStockEDIInventarioBusinessProcessorRules.GetK44Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK44]; end; +function TStockEDIInventarioBusinessProcessorRules.GetK44IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK44]); +end; + function TStockEDIInventarioBusinessProcessorRules.GetOldK44Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioK44]; end; +function TStockEDIInventarioBusinessProcessorRules.GetOldK44IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioK44]); +end; + procedure TStockEDIInventarioBusinessProcessorRules.SetK44Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK44] := aValue; end; +procedure TStockEDIInventarioBusinessProcessorRules.SetK44IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK44] := Null; +end; + function TStockEDIInventarioBusinessProcessorRules.GetK46Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK46]; end; +function TStockEDIInventarioBusinessProcessorRules.GetK46IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK46]); +end; + function TStockEDIInventarioBusinessProcessorRules.GetOldK46Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioK46]; end; +function TStockEDIInventarioBusinessProcessorRules.GetOldK46IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioK46]); +end; + procedure TStockEDIInventarioBusinessProcessorRules.SetK46Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK46] := aValue; end; +procedure TStockEDIInventarioBusinessProcessorRules.SetK46IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK46] := Null; +end; + function TStockEDIInventarioBusinessProcessorRules.GetK48Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK48]; end; +function TStockEDIInventarioBusinessProcessorRules.GetK48IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK48]); +end; + function TStockEDIInventarioBusinessProcessorRules.GetOldK48Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioK48]; end; +function TStockEDIInventarioBusinessProcessorRules.GetOldK48IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioK48]); +end; + procedure TStockEDIInventarioBusinessProcessorRules.SetK48Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK48] := aValue; end; +procedure TStockEDIInventarioBusinessProcessorRules.SetK48IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioK48] := Null; +end; + function TStockEDIInventarioBusinessProcessorRules.GetTKValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioTK]; end; +function TStockEDIInventarioBusinessProcessorRules.GetTKIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioTK]); +end; + function TStockEDIInventarioBusinessProcessorRules.GetOldTKValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioTK]; end; +function TStockEDIInventarioBusinessProcessorRules.GetOldTKIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioTK]); +end; + procedure TStockEDIInventarioBusinessProcessorRules.SetTKValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioTK] := aValue; end; +procedure TStockEDIInventarioBusinessProcessorRules.SetTKIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioTK] := Null; +end; + function TStockEDIInventarioBusinessProcessorRules.GetD38Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD38]; end; +function TStockEDIInventarioBusinessProcessorRules.GetD38IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD38]); +end; + function TStockEDIInventarioBusinessProcessorRules.GetOldD38Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioD38]; end; +function TStockEDIInventarioBusinessProcessorRules.GetOldD38IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioD38]); +end; + procedure TStockEDIInventarioBusinessProcessorRules.SetD38Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD38] := aValue; end; +procedure TStockEDIInventarioBusinessProcessorRules.SetD38IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD38] := Null; +end; + function TStockEDIInventarioBusinessProcessorRules.GetD40Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD40]; end; +function TStockEDIInventarioBusinessProcessorRules.GetD40IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD40]); +end; + function TStockEDIInventarioBusinessProcessorRules.GetOldD40Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioD40]; end; +function TStockEDIInventarioBusinessProcessorRules.GetOldD40IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioD40]); +end; + procedure TStockEDIInventarioBusinessProcessorRules.SetD40Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD40] := aValue; end; +procedure TStockEDIInventarioBusinessProcessorRules.SetD40IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD40] := Null; +end; + function TStockEDIInventarioBusinessProcessorRules.GetD42Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD42]; end; +function TStockEDIInventarioBusinessProcessorRules.GetD42IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD42]); +end; + function TStockEDIInventarioBusinessProcessorRules.GetOldD42Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioD42]; end; +function TStockEDIInventarioBusinessProcessorRules.GetOldD42IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioD42]); +end; + procedure TStockEDIInventarioBusinessProcessorRules.SetD42Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD42] := aValue; end; +procedure TStockEDIInventarioBusinessProcessorRules.SetD42IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD42] := Null; +end; + function TStockEDIInventarioBusinessProcessorRules.GetD44Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD44]; end; +function TStockEDIInventarioBusinessProcessorRules.GetD44IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD44]); +end; + function TStockEDIInventarioBusinessProcessorRules.GetOldD44Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioD44]; end; +function TStockEDIInventarioBusinessProcessorRules.GetOldD44IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioD44]); +end; + procedure TStockEDIInventarioBusinessProcessorRules.SetD44Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD44] := aValue; end; +procedure TStockEDIInventarioBusinessProcessorRules.SetD44IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD44] := Null; +end; + function TStockEDIInventarioBusinessProcessorRules.GetD46Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD46]; end; +function TStockEDIInventarioBusinessProcessorRules.GetD46IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD46]); +end; + function TStockEDIInventarioBusinessProcessorRules.GetOldD46Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioD46]; end; +function TStockEDIInventarioBusinessProcessorRules.GetOldD46IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioD46]); +end; + procedure TStockEDIInventarioBusinessProcessorRules.SetD46Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD46] := aValue; end; +procedure TStockEDIInventarioBusinessProcessorRules.SetD46IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD46] := Null; +end; + function TStockEDIInventarioBusinessProcessorRules.GetD48Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD48]; end; +function TStockEDIInventarioBusinessProcessorRules.GetD48IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD48]); +end; + function TStockEDIInventarioBusinessProcessorRules.GetOldD48Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioD48]; end; +function TStockEDIInventarioBusinessProcessorRules.GetOldD48IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioD48]); +end; + procedure TStockEDIInventarioBusinessProcessorRules.SetD48Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD48] := aValue; end; +procedure TStockEDIInventarioBusinessProcessorRules.SetD48IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioD48] := Null; +end; + function TStockEDIInventarioBusinessProcessorRules.GetDTValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioDT]; end; +function TStockEDIInventarioBusinessProcessorRules.GetDTIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioDT]); +end; + function TStockEDIInventarioBusinessProcessorRules.GetOldDTValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioDT]; end; +function TStockEDIInventarioBusinessProcessorRules.GetOldDTIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_StockEDIInventarioDT]); +end; + procedure TStockEDIInventarioBusinessProcessorRules.SetDTValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioDT] := aValue; end; +procedure TStockEDIInventarioBusinessProcessorRules.SetDTIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_StockEDIInventarioDT] := Null; +end; + initialization RegisterBusinessProcessorRules(RID_StockPrendasCentrosDelta, TStockPrendasCentrosBusinessProcessorRules); diff --git a/Source/Modulos/Stock/Servidor/srvStock_Impl.dfm b/Source/Modulos/Stock/Servidor/srvStock_Impl.dfm index 4fce771..33988c2 100644 --- a/Source/Modulos/Stock/Servidor/srvStock_Impl.dfm +++ b/Source/Modulos/Stock/Servidor/srvStock_Impl.dfm @@ -94,166 +94,80 @@ object srvStock: TsrvStock Name = 'CODIGO' DataType = datString Size = 12 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'C'#243'digo' - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'PRODUCTO' DataType = datString Size = 40 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Producto' - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'TIPO_PRODUCTO' DataType = datString Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Tipo' - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'GRUPO_PRODUCTO' DataType = datString Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Grupo' - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'COLECCION' DataType = datString Size = 40 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Colecci'#243'n' - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'COLOR' DataType = datString Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Color' - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'T38' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = '38' Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'T40' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = '40' Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'T42' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = '42' Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'T44' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = '44' Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'T46' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = '46' Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'T48' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = '48' Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'TOTAL' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Total' Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end> - BusinessRulesClient.ScriptLanguage = rslPascalScript - BusinessRulesServer.ScriptLanguage = rslPascalScript end item Params = <> @@ -261,10 +175,10 @@ object srvStock: TsrvStock item Connection = 'GFT_VARELA' SQL = - 'SELECT CENTRO, CODIGO, PRODUCTO, TIPO_PRODUCTO, GRUPO_PRODUCTO, ' + - 'COLECCION, COLOR,'#10' E38, E40, E42, E44, E46, E48, TE,'#10' ' + - 'S38, S40, S42, S44, S46, S48, TS,'#10' K38, K40, K42, K44, K46,' + - ' K48, KT'#10' '#10'FROM RDX_V_STOCK_CALCULADO' + 'SELECT CENTRO, FILIAL, CODIGO, PRODUCTO, TIPO_PRODUCTO, GRUPO_PR' + + 'ODUCTO, COLECCION, COLOR,'#10' E38, E40, E42, E44, E46, E48, TE' + + ','#10' S38, S40, S42, S44, S46, S48, TS,'#10' K38, K40, K42, K' + + '44, K46, K48, KT'#10' '#10'FROM RDX_V_STOCK_CALCULADO'#10 StatementType = stSQL ColumnMappings = < item @@ -272,20 +186,16 @@ object srvStock: TsrvStock TableField = 'CENTRO' end item - DatasetField = 'PRODUCTO' - TableField = 'PRODUCTO' - end - item - DatasetField = 'COLOR' - TableField = 'COLOR' + DatasetField = 'FILIAL' + TableField = 'FILIAL' end item DatasetField = 'CODIGO' TableField = 'CODIGO' end item - DatasetField = 'COLECCION' - TableField = 'COLECCION' + DatasetField = 'PRODUCTO' + TableField = 'PRODUCTO' end item DatasetField = 'TIPO_PRODUCTO' @@ -295,6 +205,14 @@ object srvStock: TsrvStock DatasetField = 'GRUPO_PRODUCTO' TableField = 'GRUPO_PRODUCTO' end + item + DatasetField = 'COLECCION' + TableField = 'COLECCION' + end + item + DatasetField = 'COLOR' + TableField = 'COLOR' + end item DatasetField = 'E38' TableField = 'E38' @@ -385,320 +303,148 @@ object srvStock: TsrvStock item Name = 'CENTRO' DataType = datString + Size = 17 + end + item + Name = 'FILIAL' + DataType = datString Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'CODIGO' DataType = datString Size = 12 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'PRODUCTO' DataType = datString Size = 40 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'TIPO_PRODUCTO' DataType = datString Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'GRUPO_PRODUCTO' DataType = datString Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'COLECCION' DataType = datString - Size = 40 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False + Size = 6 end item Name = 'COLOR' DataType = datString Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'E38' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'E40' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'E42' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'E44' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'E46' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'E48' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'TE' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'S38' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'S40' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'S42' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'S44' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'S46' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'S48' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'TS' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'K38' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'K40' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'K42' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'K44' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'K46' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'K48' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'KT' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end> - BusinessRulesClient.ScriptLanguage = rslPascalScript - BusinessRulesServer.ScriptLanguage = rslPascalScript end item Params = <> @@ -774,165 +520,72 @@ object srvStock: TsrvStock Name = 'FILIAL' DataType = datString Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'CODIGO' DataType = datString Size = 12 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'COLOR' DataType = datString Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'PRODUCTO' DataType = datString Size = 40 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'TIPO_PRODUTO' DataType = datString Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'GRUPO_PRODUTO' DataType = datString Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'COLECCION' DataType = datString Size = 40 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'K38' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'K40' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'K42' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'K44' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'K46' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'K48' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'KT' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 Alignment = taRightJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end> - BusinessRulesClient.ScriptLanguage = rslPascalScript - BusinessRulesServer.ScriptLanguage = rslPascalScript end item Params = <> @@ -941,16 +594,20 @@ object srvStock: TsrvStock Connection = 'GFT_VARELA' TargetTable = 'RDX_V_CONTROL_INVENTARIO' SQL = - 'SELECT '#10' CENTRO, CODIGO, PRODUCTO, COLOR, TIPO_PRODUCTO, GRUP' + - 'O_PRODUCTO, '#10' COLECCION, I38, I40, I42, I44, I46, I48, TI, K3' + - '8, K40, '#10' K42, K44, K46, K48, TK, D38, D40, D42, D44, D46, D4' + - '8, '#10' DT'#10' FROM'#10' RDX_V_CONTROL_INVENTARIO' + 'SELECT '#10' CENTRO, FILIAL, CODIGO, PRODUCTO, COLOR, TIPO_PRODUC' + + 'TO, GRUPO_PRODUCTO,'#10' COLECCION, I38, I40, I42, I44, I46, I48,' + + ' TI, K38, K40, '#10' K42, K44, K46, K48, TK, D38, D40, D42, D44, ' + + 'D46, D48, '#10' DT'#10' FROM'#10' RDX_V_CONTROL_INVENTARIO'#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'CENTRO' TableField = 'CENTRO' end + item + DatasetField = 'FILIAL' + TableField = 'FILIAL' + end item DatasetField = 'CODIGO' TableField = 'CODIGO' @@ -1065,324 +722,134 @@ object srvStock: TsrvStock item Name = 'CENTRO' DataType = datString + Size = 17 + end + item + Name = 'FILIAL' + DataType = datString Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'CODIGO' DataType = datString Size = 12 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'PRODUCTO' DataType = datString Size = 40 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'COLOR' DataType = datString Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'TIPO_PRODUCTO' DataType = datString Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'GRUPO_PRODUCTO' DataType = datString Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'COLECCION' DataType = datString Size = 6 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'I38' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'I40' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'I42' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'I44' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'I46' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'I48' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'TI' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'K38' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'K40' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'K42' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'K44' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'K46' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'K48' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'TK' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'D38' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'D40' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'D42' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'D44' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'D46' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'D48' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'DT' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end> - BusinessRulesClient.ScriptLanguage = rslPascalScript - BusinessRulesServer.ScriptLanguage = rslPascalScript end> + JoinDataTables = <> + UnionDataTables = <> Commands = <> RelationShips = <> UpdateRules = <> + Version = 0 Left = 56 Top = 32 end diff --git a/Source/Modulos/Traspasos/Cliente/Traspasos.dpk b/Source/Modulos/Traspasos/Cliente/Traspasos.dpk index 709b8d1..82c43ec 100644 --- a/Source/Modulos/Traspasos/Cliente/Traspasos.dpk +++ b/Source/Modulos/Traspasos/Cliente/Traspasos.dpk @@ -70,7 +70,8 @@ requires vclshlctrls, dxPScxGridLnkD10, dclcxLibraryD10, - dxLayoutControlD10; + dxLayoutControlD10, + Parametros; contains uDataModuleTraspasos in 'uDataModuleTraspasos.pas' {dmTraspasos: TDAClientDataModule}, diff --git a/Source/Modulos/Traspasos/Cliente/Traspasos.dproj b/Source/Modulos/Traspasos/Cliente/Traspasos.dproj index 4a71e87..0cc553a 100644 --- a/Source/Modulos/Traspasos/Cliente/Traspasos.dproj +++ b/Source/Modulos/Traspasos/Cliente/Traspasos.dproj @@ -1,4 +1,5 @@ - + + {8271ac21-0741-43b7-8373-432a0bf0ec7a} Traspasos.dpk @@ -52,52 +53,53 @@ MainSource + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
dmTraspasos
 diff --git a/Source/Modulos/Traspasos/Cliente/uDataModuleTraspasos.dfm b/Source/Modulos/Traspasos/Cliente/uDataModuleTraspasos.dfm index a407ef1..826eb11 100644 --- a/Source/Modulos/Traspasos/Cliente/uDataModuleTraspasos.dfm +++ b/Source/Modulos/Traspasos/Cliente/uDataModuleTraspasos.dfm @@ -17,419 +17,194 @@ object dmTraspasos: TdmTraspasos Name = 'TIPO' DataType = datString Size = 1 - BlobType = dabtUnknown Required = True - DisplayWidth = 0 DisplayLabel = 'Tipo' ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_TIPO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'FECHA' DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Fecha' ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_FECHA' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'CENTRO' DataType = datString Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Centro' ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_CENTRO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'FILIAL' DataType = datString Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Filial' ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_FILIAL' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'CENTRO2' DataType = datString Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Centro2' ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_CENTRO2' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'FILIAL2' DataType = datString Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Filial2' ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_FILIAL2' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'APROBADO' DataType = datString Size = 1 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Aprobado' - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_APROBADO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'ESTADO_TRASPASO' DataType = datString Size = 20 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Estado' - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_ESTADO_TRASPASO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'OBSERVACIONES' DataType = datString Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Observaciones' - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_OBSERVACIONES' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'CONTABILIZAR' DataType = datString Size = 1 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Contabilizar' - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_CONTABILIZAR' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'FECHACAMBIO' DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Fecha cambio' ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_FECHACAMBIO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'CODIGO' DataType = datString Size = 12 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'C'#243'digo' ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_CODIGO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'PRODUCTO' DataType = datString Size = 40 - BlobType = dabtUnknown Required = True - DisplayWidth = 0 DisplayLabel = 'Producto' ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_PRODUCTO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'COLOR' DataType = datString Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Color' ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_COLOR' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'T38' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_T38' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'T40' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_T40' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'T42' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_T42' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'T44' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_T44' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'T46' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_T46' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'T48' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_T48' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'TOTAL' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Total' ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_TOTAL' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'TR38' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_TR38' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'TR40' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_TR40' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'TR42' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_TR42' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'TR44' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_TR44' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'TR46' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_TR46' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'TR48' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_TR48' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'TOTAL_RECT' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Total' - Alignment = taLeftJustify ServerAutoRefresh = True DictionaryEntry = 'Traspasos_TOTAL_RECT' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end> Params = <> MasterMappingMode = mmDataRequest StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = DARemoteDataAdapter - ReadOnly = False DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'Traspasos' @@ -450,419 +225,194 @@ object dmTraspasos: TdmTraspasos Name = 'TIPO' DataType = datString Size = 1 - BlobType = dabtUnknown Required = True - DisplayWidth = 0 DisplayLabel = 'Tipo' ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_TIPO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'FECHA' DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Fecha' ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_FECHA' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'CENTRO' DataType = datString Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Centro' ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_CENTRO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'FILIAL' DataType = datString Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Filial' ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_FILIAL' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'CENTRO2' DataType = datString Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Centro2' ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_CENTRO2' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'FILIAL2' DataType = datString Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Filial2' ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_FILIAL2' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'APROBADO' DataType = datString Size = 1 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Aprobado' - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_APROBADO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'ESTADO_TRASPASO' DataType = datString Size = 20 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Estado' - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_ESTADO_TRASPASO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'OBSERVACIONES' DataType = datString Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Observaciones' - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_OBSERVACIONES' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'CONTABILIZAR' DataType = datString Size = 1 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Contabilizar' - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_CONTABILIZAR' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'FECHACAMBIO' DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Fecha cambio' ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_FECHACAMBIO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'CODIGO' DataType = datString Size = 12 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'C'#243'digo' ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_CODIGO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'PRODUCTO' DataType = datString Size = 40 - BlobType = dabtUnknown Required = True - DisplayWidth = 0 DisplayLabel = 'Producto' ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_PRODUCTO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'COLOR' DataType = datString Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Color' ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_COLOR' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'T38' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_T38' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'T40' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_T40' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'T42' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_T42' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'T44' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_T44' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'T46' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_T46' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'T48' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_T48' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'TOTAL' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Total' ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_TOTAL' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'TR38' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_TR38' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'TR40' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_TR40' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'TR42' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_TR42' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'TR44' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_TR44' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'TR46' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_TR46' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'TR48' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_TR48' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'TOTAL_RECT' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Total' - Alignment = taLeftJustify ServerAutoRefresh = True DictionaryEntry = 'Traspasos_TOTAL_RECT' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end> Params = <> MasterMappingMode = mmDataRequest StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = DARemoteDataAdapter - ReadOnly = False DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'TraspasosAprobados' @@ -883,419 +433,194 @@ object dmTraspasos: TdmTraspasos Name = 'TIPO' DataType = datString Size = 1 - BlobType = dabtUnknown Required = True - DisplayWidth = 0 DisplayLabel = 'Tipo' ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_TIPO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'FECHA' DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Fecha' ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_FECHA' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'CENTRO' DataType = datString Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Centro' ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_CENTRO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'FILIAL' DataType = datString Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Filial' ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_FILIAL' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'CENTRO2' DataType = datString Size = 17 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Centro2' ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_CENTRO2' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'FILIAL2' DataType = datString Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Filial2' ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_FILIAL2' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'APROBADO' DataType = datString Size = 1 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Aprobado' - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_APROBADO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'ESTADO_TRASPASO' DataType = datString Size = 20 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Estado' - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_ESTADO_TRASPASO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'OBSERVACIONES' DataType = datString Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Observaciones' - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_OBSERVACIONES' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'CONTABILIZAR' DataType = datString Size = 1 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Contabilizar' - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_CONTABILIZAR' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'FECHACAMBIO' DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Fecha cambio' ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_FECHACAMBIO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'CODIGO' DataType = datString Size = 12 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'C'#243'digo' ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_CODIGO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'PRODUCTO' DataType = datString Size = 40 - BlobType = dabtUnknown Required = True - DisplayWidth = 0 DisplayLabel = 'Producto' ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_PRODUCTO' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'COLOR' DataType = datString Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Color' ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_COLOR' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'T38' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_T38' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'T40' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_T40' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'T42' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_T42' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'T44' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_T44' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'T46' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_T46' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'T48' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_T48' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'TOTAL' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Total' ReadOnly = True - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_TOTAL' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'TR38' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_TR38' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'TR40' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_TR40' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'TR42' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_TR42' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'TR44' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_TR44' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'TR46' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_TR46' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'TR48' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify DictionaryEntry = 'Traspasos_TR48' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'TOTAL_RECT' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Total' - Alignment = taLeftJustify ServerAutoRefresh = True DictionaryEntry = 'Traspasos_TOTAL_RECT' - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end> Params = <> MasterMappingMode = mmDataRequest StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = DARemoteDataAdapter - ReadOnly = False DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'TraspasosPendientes' @@ -1399,7 +724,6 @@ object dmTraspasos: TdmTraspasos GetScriptsCall.IncomingScriptParameter = 'Result' RemoteService = RORemoteService DataStreamer = dmBase.DABINAdapter - FailureBehavior = fbBoth Left = 40 Top = 96 end diff --git a/Source/Modulos/Traspasos/Cliente/uDataModuleTraspasos.pas b/Source/Modulos/Traspasos/Cliente/uDataModuleTraspasos.pas index b24c908..133ca2b 100644 --- a/Source/Modulos/Traspasos/Cliente/uDataModuleTraspasos.pas +++ b/Source/Modulos/Traspasos/Cliente/uDataModuleTraspasos.pas @@ -56,11 +56,9 @@ begin end; end; -function TdmTraspasos.GetItems( - const AEstado: TInvTraspasoEstado): IBizTraspasos; +function TdmTraspasos.GetItems(const AEstado: TInvTraspasoEstado): IBizTraspasos; var dtLista: TDACDSDataTable; - AStr : String; begin ShowHourglassCursor; try diff --git a/Source/Modulos/Traspasos/Cliente/uEditorListaTraspasos.dfm b/Source/Modulos/Traspasos/Cliente/uEditorListaTraspasos.dfm index 98db9b3..788f17f 100644 --- a/Source/Modulos/Traspasos/Cliente/uEditorListaTraspasos.dfm +++ b/Source/Modulos/Traspasos/Cliente/uEditorListaTraspasos.dfm @@ -1,21 +1,27 @@ inherited fEditorListaTraspasos: TfEditorListaTraspasos Left = 271 Top = 250 - Width = 909 - Height = 659 Caption = 'Control de traspasos' + ClientHeight = 625 + ClientWidth = 901 + ExplicitWidth = 909 + ExplicitHeight = 659 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader Width = 901 Caption = 'Control de traspasos' + ExplicitWidth = 901 inherited Image1: TImage Left = 874 + ExplicitLeft = 874 end end inherited TBXDock: TTBXDock Width = 901 + ExplicitWidth = 901 inherited tbxMain: TTBXToolbar + ExplicitWidth = 571 object TBXSubmenuItem2: TTBXSubmenuItem [5] Caption = 'Cambiar el estado' DropdownCombo = True @@ -39,13 +45,19 @@ inherited fEditorListaTraspasos: TfEditorListaTraspasos DisplayMode = nbdmImageAndText end end + inherited tbxMenu: TTBXToolbar + ExplicitWidth = 901 + end inherited tbxFiltro: TTBXToolbar Left = 571 + ExplicitLeft = 571 end end inherited StatusBar: TStatusBar Top = 606 Width = 901 + ExplicitTop = 606 + ExplicitWidth = 901 end object JvTabBar1: TJvTabBar [3] Left = 0 @@ -85,15 +97,43 @@ inherited fEditorListaTraspasos: TfEditorListaTraspasos ParentFont = False TabOrder = 0 ReadOnly = False + ExplicitTop = 105 + ExplicitWidth = 901 + ExplicitHeight = 501 inherited cxGrid: TcxGrid Width = 901 - Height = 501 + Height = 441 + ExplicitWidth = 901 + ExplicitHeight = 441 inherited cxGridView: TcxGridDBTableView inherited cxGridViewAPROBADO: TcxGridDBColumn IsCaptionAssigned = True end end end + inherited TBXDockablePanel1: TTBXDockablePanel + ExplicitWidth = 901 + inherited frViewParametrosCentro1: TfrViewParametrosCentro + inherited dxLayoutControl1: TdxLayoutControl + inherited ccbCentro: TJvCheckedComboBox + Width = 392 + ExplicitWidth = 392 + end + end + end + inherited TBXLabel1: TTBXLabel + Width = 901 + ExplicitWidth = 901 + ExplicitHeight = 19 + end + inherited pnlAgrupaciones: TTBXAlignmentPanel + Width = 476 + ExplicitWidth = 476 + inherited TBXButton3: TTBXButton + Action = actRefrescar + end + end + end inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinterLink1: TdxGridReportLink BuiltInReportLink = True diff --git a/Source/Modulos/Traspasos/Cliente/uEditorListaTraspasos.pas b/Source/Modulos/Traspasos/Cliente/uEditorListaTraspasos.pas index 0f6e376..9ce9a31 100644 --- a/Source/Modulos/Traspasos/Cliente/uEditorListaTraspasos.pas +++ b/Source/Modulos/Traspasos/Cliente/uEditorListaTraspasos.pas @@ -18,16 +18,17 @@ uses JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls, TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, ExtCtrls, JvExControls, JvComponent, JvNavigationPane, StdCtrls, - uViewListaTraspasos, uBizTraspasos; - + uViewListaTraspasos, uBizTraspasos, uDAInterfaces; + +const + CM_SETFOCUSEDRECORD = WM_USER + 1002; type IEditorListaTraspasos = interface(IEditorGridBase) ['{729D3CD7-88E7-4D97-A9A0-8E0E1CF74716}'] function GetItems: IBizTraspasos; procedure SetItems(const Value: IBizTraspasos); - property Items: IBizTraspasos read GetItems - write SetItems; + property Items: IBizTraspasos read GetItems write SetItems; end; TfEditorListaTraspasos = class(TfEditorGridBase, IEditorListaTraspasos) @@ -62,7 +63,7 @@ type function GetItems: IBizTraspasos; procedure SetItems(const Value: IBizTraspasos); procedure CambiarEstado(const NuevoEstado: TInvTraspasoEstado); - function GetModified: Boolean; override; + function GetModified: Boolean; override; public property Items: IBizTraspasos read GetItems write SetItems; constructor Create(AOwner: TComponent); override; @@ -95,7 +96,7 @@ begin if Assigned(FItems) then begin dsDataTable.DataTable := FItems.DataTable; - frViewListaTraspasos1.dsDataSource.DataTable := FItems.DataTable; + frViewListaTraspasos1.Items := FItems; end; end; @@ -108,8 +109,6 @@ begin if not Assigned(ViewGrid) then raise Exception.Create('No hay una vista asignada'); - FItems.DataTable.Active := True; - with (ViewGrid as IViewListaTraspasos) do begin VerPendientes; @@ -118,40 +117,11 @@ begin end; end; -procedure TfEditorListaTraspasos.JvTabBar1TabSelected( - Sender: TObject; Item: TJvTabBarItem); +procedure TfEditorListaTraspasos.JvTabBar1TabSelected(Sender: TObject; Item: TJvTabBarItem); begin - inherited; - ShowHourglassCursor; - Items.DataTable.Active := False; - Application.ProcessMessages; - ViewGrid._FocusedView.BeginUpdate; - Application.ProcessMessages; - try - case Item.Index of - 0 : begin - Items := dmTraspasos.GetItems(titPendiente); - (ViewGrid as IViewListaTraspasos).VerPendientes; - end; - - 1 : begin - Items := dmTraspasos.GetItems(titAprobado); - (ViewGrid as IViewListaTraspasos).VerAprobados; - end; - - 2 : begin - Items := dmTraspasos.GetItems; - (ViewGrid as IViewListaTraspasos).VerTodos; - end; - end; - finally - dsDataTable.DataTable := Items.DataTable; - ViewGrid._FocusedView.EndUpdate; - Items.DataTable.Active := True; - ViewGrid.ContraerTodo; - ViewGrid.GotoFirst; - HideHourglassCursor; - end; + if Items.DataTable.Active then + Items.DataTable.Active := False; + frViewListaTraspasos1.frViewParametrosCentro1.LimpiarSeleccion; end; procedure TfEditorListaTraspasos.actModificarExecute( @@ -216,11 +186,42 @@ begin not (ViewGrid._FocusedView.Controller.FocusedRow.Expandable)) end; -procedure TfEditorListaTraspasos.actRefrescarExecute( - Sender: TObject); +procedure TfEditorListaTraspasos.actRefrescarExecute(Sender: TObject); begin - inherited; - ViewGrid.GotoFirst; + ShowHourglassCursor; + Items.DataTable.Active := False; + Application.ProcessMessages; + ViewGrid._FocusedView.BeginUpdate; + Application.ProcessMessages; + try + case JvTabBar1.SelectedTab.Index of + 0 : begin + Items := dmTraspasos.GetItems(titPendiente); + (ViewGrid as IViewListaTraspasos).VerPendientes; + end; + + 1 : begin + Items := dmTraspasos.GetItems(titAprobado); + (ViewGrid as IViewListaTraspasos).VerAprobados; + end; + + 2 : begin + Items := dmTraspasos.GetItems; + (ViewGrid as IViewListaTraspasos).VerTodos; + end; + end; + + frViewListaTraspasos1.Refresh; + inherited; + + finally + dsDataTable.DataTable := Items.DataTable; + ViewGrid._FocusedView.EndUpdate; + Items.DataTable.Active := True; + ViewGrid.ContraerTodo; + ViewGrid.GotoFirst; + HideHourglassCursor; + end; end; procedure TfEditorListaTraspasos.actPendienteExecute( @@ -269,7 +270,8 @@ begin begin ShowHourglassCursor; bm := FItems.DataTable.GetBookMark; - FItems.DataTable.DisableControls; +// FItems.DataTable.DisableControls; + ViewGrid._FocusedView.BeginUpdate; try for i := 0 to ViewGrid._FocusedView.Controller.SelectedRecordCount-1 do begin @@ -286,8 +288,12 @@ begin FItems.DataTable.GotoBookMark(bm); finally FItems.DataTable.FreeBookMark(BM); - FItems.DataTable.EnableControls; +// FItems.DataTable.EnableControls; ViewGrid._FocusedView.Controller.ClearSelection; + ViewGrid._FocusedView.EndUpdate; + PostMessage(Handle, CM_SETFOCUSEDRECORD, Integer(ViewGrid._FocusedView), + MakeLParam(ViewGrid._FocusedView.Controller.FocusedRowIndex, + ViewGrid._FocusedView.Controller.TopRowIndex)); HideHourglassCursor; end; end; diff --git a/Source/Modulos/Traspasos/Cliente/uViewListaTraspasos.dfm b/Source/Modulos/Traspasos/Cliente/uViewListaTraspasos.dfm index db977c5..626cf22 100644 --- a/Source/Modulos/Traspasos/Cliente/uViewListaTraspasos.dfm +++ b/Source/Modulos/Traspasos/Cliente/uViewListaTraspasos.dfm @@ -1,9 +1,14 @@ inherited frViewListaTraspasos: TfrViewListaTraspasos Width = 676 Height = 486 + ExplicitWidth = 676 + ExplicitHeight = 486 inherited cxGrid: TcxGrid + Top = 60 Width = 676 - Height = 486 + Height = 426 + ExplicitWidth = 676 + ExplicitHeight = 486 inherited cxGridView: TcxGridDBTableView OnMouseDown = cxGridViewMouseDown FilterBox.Visible = fvNever @@ -199,7 +204,86 @@ inherited frViewListaTraspasos: TfrViewListaTraspasos end end end + object TBXDockablePanel1: TTBXDockablePanel [1] + Left = 0 + Top = 0 + MaxClientHeight = 61 + Align = alTop + Caption = 'TBXDockablePanel1' + DockedWidth = 32 + DockedHeight = 32 + FloatingWidth = 128 + FloatingHeight = 60 + SupportedDocks = [dkStandardDock, dkMultiDock] + TabOrder = 1 + ExplicitLeft = 8 + ExplicitTop = 8 + ExplicitWidth = 128 + inline frViewParametrosCentro1: TfrViewParametrosCentro + Left = 0 + Top = 19 + Width = 425 + Height = 41 + Align = alLeft + TabOrder = 0 + ReadOnly = False + ExplicitTop = 19 + ExplicitWidth = 425 + ExplicitHeight = 41 + inherited dxLayoutControl1: TdxLayoutControl + Width = 425 + ExplicitWidth = 425 + inherited ccbCentro: TJvCheckedComboBox + Width = 392 + ExplicitWidth = 392 + end + end + end + object TBXLabel1: TTBXLabel + Left = 0 + Top = 0 + Width = 676 + Height = 19 + Margins.Left = 5 + Margins.Top = 5 + Align = alTop + Caption = 'Par'#225'metros de consulta' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentColor = True + ParentFont = False + Underline = True + ExplicitWidth = 128 + ExplicitHeight = 32 + end + object pnlAgrupaciones: TTBXAlignmentPanel + Left = 425 + Top = 19 + Width = 251 + Height = 41 + Align = alClient + AutoSize = True + TabOrder = 2 + ExplicitWidth = 41 + object TBXButton3: TTBXButton + Tag = 3 + Left = 8 + Top = 10 + Width = 90 + Height = 21 + AutoSize = False + Caption = 'Consultar' + ImageIndex = 0 + TabOrder = 0 + Wrapping = twEndEllipsis + end + end + end inherited dsDataSource: TDADataSource + DataSet = tbl_TraspasosPendientes.Dataset DataTable = dmTraspasos.tbl_TraspasosPendientes Top = 120 end diff --git a/Source/Modulos/Traspasos/Cliente/uViewListaTraspasos.pas b/Source/Modulos/Traspasos/Cliente/uViewListaTraspasos.pas index 6c05e5e..7ad0af1 100644 --- a/Source/Modulos/Traspasos/Cliente/uViewListaTraspasos.pas +++ b/Source/Modulos/Traspasos/Cliente/uViewListaTraspasos.pas @@ -20,7 +20,8 @@ uses dxPSFillPatterns, dxPSEdgePatterns, cxCalendar, cxTextEdit, cxCurrencyEdit, dxPSCore, uDADataTable, StdCtrls, cxGridBandedTableView, cxGridDBBandedTableView, cxImageComboBox, ImgList, PngImageList, - dxPScxCommon, dxPScxGridLnk, cxMemo; + dxPScxCommon, dxPScxGridLnk, cxMemo, TBXDkPanels, uCustomView, uViewBase, + uViewParametrosCentro, TB2Dock, uDAInterfaces, uViewParametrosControlGrid; type IViewListaTraspasos = interface(IViewGrid) @@ -28,6 +29,10 @@ type procedure VerPendientes; procedure VerAprobados; procedure VerTodos; + + function GetItems: IBizTraspasos; + procedure SetItems(const Value: IBizTraspasos); + property Items: IBizTraspasos read GetItems write SetItems; end; TfrViewListaTraspasos = class(TfrViewGrid, IViewListaTraspasos) @@ -73,6 +78,11 @@ type cxStyleCentro2: TcxStyle; cxGridViewObservaciones: TcxGridDBColumn; cxStyleObservacionesInforme: TcxStyle; + TBXDockablePanel1: TTBXDockablePanel; + frViewParametrosCentro1: TfrViewParametrosCentro; + TBXLabel1: TTBXLabel; + pnlAgrupaciones: TTBXAlignmentPanel; + TBXButton3: TTBXButton; procedure cxGridViewMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure cxGridBandedViewRR38GetDisplayText( @@ -130,16 +140,24 @@ type ARecord: TcxCustomGridRecord; AColumn: TcxGridColumn; AnItem: TAbstractdxReportCellData); protected + FItems: IBizTraspasos; FTipo : String; FNivelFiltrado : TcxFilterCriteriaItemList; procedure FilterChanged(Sender: TObject); override; + function GetItems: IBizTraspasos; + procedure SetItems(const Value: IBizTraspasos); + public + property Items: IBizTraspasos read GetItems write SetItems; + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; procedure Preview; override; procedure Print; override; procedure PrintSetup; override; procedure VerPendientes; procedure VerAprobados; procedure VerTodos; + procedure Refresh; end; @@ -259,6 +277,79 @@ begin dxComponentPrinterLink1.PageSetup; end; +procedure TfrViewListaTraspasos.Refresh; +var + ACentrosList : TStringList; + AWhereCentro : String; + AWhereCentro2 : String; + AWhere : String; + i : integer; +begin + ACentrosList := Nil; + + if Assigned(FItems) then + Items.DataTable.Active := False; + ACentrosList := frViewParametrosCentro1.CentrosSeleccionados; + + ShowHourglassCursor; + try + if Assigned(ACentrosList) then + begin + AWhereCentro := ''; + AWhereCentro2 := ''; + if ACentrosList.Count = 0 then + begin + ShowMessage('Debe seleccionar al menos un centro en los parámetros de la consulta.'); + Exit; + end + else begin + AWhereCentro := AWhereCentro + ' FILIAL in ('; + AWhereCentro2 := AWhereCentro2 + ' FILIAL2 in ('; + for i := 0 to ACentrosList.Count - 1 do + begin + if i > 0 then + begin + AWhereCentro := AWhereCentro + ', '; + AWhereCentro2 := AWhereCentro2 + ', '; + end; + AWhereCentro := AWhereCentro + '''' + ACentrosList[i] + ''''; + AWhereCentro2 := AWhereCentro2 + '''' + ACentrosList[i] + ''''; + end; + AWhereCentro := AWhereCentro + ')'; + AWhereCentro2 := AWhereCentro2 + ')'; + end; + end; + + AWhere := ''; + if AWhereCentro <> '' then + begin + AWhere := AWhere + AWhereCentro + ' OR ' + AWhereCentro2; + end; + + Items.DataTable.Where.Clear; + Items.DataTable.Where.AddText(AWhere, False); + Items.DataTable.Active := True; + + finally + HideHourglassCursor; + FreeAndNIL(ACentrosList); + end; +end; + +constructor TfrViewListaTraspasos.Create(AOwner: TComponent); +begin + inherited; + FItems := Nil; + frViewParametrosCentro1.Refresh; +end; + +procedure TfrViewListaTraspasos.SetItems(const Value: IBizTraspasos); +begin + FItems := Value; + if Assigned(FItems) then + dsDataSource.DataTable := FItems.DataTable; +end; + procedure TfrViewListaTraspasos.cxGridBandedViewCODIGOGetDisplayText( Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; var AText: String); @@ -453,6 +544,12 @@ begin end; end; +destructor TfrViewListaTraspasos.Destroy; +begin + FItems := Nil; + inherited; +end; + procedure TfrViewListaTraspasos.cxGridViewCODIGOGetDataText( Sender: TcxCustomGridTableItem; ARecordIndex: Integer; var AText: String); @@ -551,4 +648,9 @@ begin cxGridView.DataController.Filter.EndUpdate; end; +function TfrViewListaTraspasos.GetItems: IBizTraspasos; +begin + Result := FItems; +end; + end. diff --git a/Source/Modulos/VentasTerminadas/Cliente/uDataModuleVentasTerminadas.dfm b/Source/Modulos/VentasTerminadas/Cliente/uDataModuleVentasTerminadas.dfm index 700e83c..7a7433e 100644 --- a/Source/Modulos/VentasTerminadas/Cliente/uDataModuleVentasTerminadas.dfm +++ b/Source/Modulos/VentasTerminadas/Cliente/uDataModuleVentasTerminadas.dfm @@ -523,31 +523,36 @@ object dmVentasTerminadas: TdmVentasTerminadas end item Name = 'VALTERMDEV' - DataType = datDecimal + DataType = datCurrency + DecimalPrecision = 2 DisplayLabel = 'Val.Term/Dev' Alignment = taRightJustify end item Name = 'VALFINALRESC' - DataType = datDecimal + DataType = datCurrency + DecimalPrecision = 2 DisplayLabel = 'Val.Final/Resc' Alignment = taRightJustify end item Name = 'VALVEN' - DataType = datDecimal + DataType = datCurrency + DecimalPrecision = 2 DisplayLabel = 'Imp. ventas' Alignment = taRightJustify end item Name = 'VALDEV' - DataType = datDecimal + DataType = datCurrency + DecimalPrecision = 2 DisplayLabel = 'Imp. devoluciones' Alignment = taRightJustify end item Name = 'VALTOT' - DataType = datDecimal + DataType = datCurrency + DecimalPrecision = 2 DisplayLabel = 'Imp. Total' Alignment = taRightJustify end> diff --git a/Source/Modulos/VentasTerminadas/Reglas/schVentasTerminadasClient_Intf.pas b/Source/Modulos/VentasTerminadas/Reglas/schVentasTerminadasClient_Intf.pas index 8f7213b..1d77712 100644 --- a/Source/Modulos/VentasTerminadas/Reglas/schVentasTerminadasClient_Intf.pas +++ b/Source/Modulos/VentasTerminadas/Reglas/schVentasTerminadasClient_Intf.pas @@ -9,8 +9,8 @@ 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_VentasTerminadasCrossTab = '{2E68D174-CE7E-4597-A951-7670FA84D874}'; - RID_VentasTerminadas = '{F20667F0-C1D2-4500-8E10-1B8577467C80}'; + RID_VentasTerminadasCrossTab = '{E35531EF-55AE-4A00-823F-5B7AD2AC3170}'; + RID_VentasTerminadas = '{D098E936-4B28-485D-8B90-913C71342300}'; { Data table names } nme_VentasTerminadasCrossTab = 'VentasTerminadasCrossTab'; @@ -97,7 +97,7 @@ const type { IVentasTerminadasCrossTab } IVentasTerminadasCrossTab = interface(IDAStronglyTypedDataTable) - ['{F1FA92FE-5A97-4645-A93A-CAFA9775A238}'] + ['{7F43FB66-B68A-4E2E-BF67-E314FDE24117}'] { Property getters and setters } @@ -120,7 +120,7 @@ type { IVentasTerminadas } IVentasTerminadas = interface(IDAStronglyTypedDataTable) - ['{78DAAFC9-9EAE-4237-B301-3103B6C18EF2}'] + ['{6861A381-9EBD-4816-8EAC-5B2EDB0ED191}'] { Property getters and setters } function GetNUMINFValue: String; procedure SetNUMINFValue(const aValue: String); @@ -242,24 +242,24 @@ type procedure SetTOTALValue(const aValue: TBcd); function GetTOTALIsNull: Boolean; procedure SetTOTALIsNull(const aValue: Boolean); - function GetVALTERMDEVValue: TBcd; - procedure SetVALTERMDEVValue(const aValue: TBcd); + function GetVALTERMDEVValue: Currency; + procedure SetVALTERMDEVValue(const aValue: Currency); function GetVALTERMDEVIsNull: Boolean; procedure SetVALTERMDEVIsNull(const aValue: Boolean); - function GetVALFINALRESCValue: TBcd; - procedure SetVALFINALRESCValue(const aValue: TBcd); + function GetVALFINALRESCValue: Currency; + procedure SetVALFINALRESCValue(const aValue: Currency); function GetVALFINALRESCIsNull: Boolean; procedure SetVALFINALRESCIsNull(const aValue: Boolean); - function GetVALVENValue: TBcd; - procedure SetVALVENValue(const aValue: TBcd); + function GetVALVENValue: Currency; + procedure SetVALVENValue(const aValue: Currency); function GetVALVENIsNull: Boolean; procedure SetVALVENIsNull(const aValue: Boolean); - function GetVALDEVValue: TBcd; - procedure SetVALDEVValue(const aValue: TBcd); + function GetVALDEVValue: Currency; + procedure SetVALDEVValue(const aValue: Currency); function GetVALDEVIsNull: Boolean; procedure SetVALDEVIsNull(const aValue: Boolean); - function GetVALTOTValue: TBcd; - procedure SetVALTOTValue(const aValue: TBcd); + function GetVALTOTValue: Currency; + procedure SetVALTOTValue(const aValue: Currency); function GetVALTOTIsNull: Boolean; procedure SetVALTOTIsNull(const aValue: Boolean); @@ -325,15 +325,15 @@ type property DEVOLUCIONESIsNull: Boolean read GetDEVOLUCIONESIsNull write SetDEVOLUCIONESIsNull; property TOTAL: TBcd read GetTOTALValue write SetTOTALValue; property TOTALIsNull: Boolean read GetTOTALIsNull write SetTOTALIsNull; - property VALTERMDEV: TBcd read GetVALTERMDEVValue write SetVALTERMDEVValue; + property VALTERMDEV: Currency read GetVALTERMDEVValue write SetVALTERMDEVValue; property VALTERMDEVIsNull: Boolean read GetVALTERMDEVIsNull write SetVALTERMDEVIsNull; - property VALFINALRESC: TBcd read GetVALFINALRESCValue write SetVALFINALRESCValue; + property VALFINALRESC: Currency read GetVALFINALRESCValue write SetVALFINALRESCValue; property VALFINALRESCIsNull: Boolean read GetVALFINALRESCIsNull write SetVALFINALRESCIsNull; - property VALVEN: TBcd read GetVALVENValue write SetVALVENValue; + property VALVEN: Currency read GetVALVENValue write SetVALVENValue; property VALVENIsNull: Boolean read GetVALVENIsNull write SetVALVENIsNull; - property VALDEV: TBcd read GetVALDEVValue write SetVALDEVValue; + property VALDEV: Currency read GetVALDEVValue write SetVALDEVValue; property VALDEVIsNull: Boolean read GetVALDEVIsNull write SetVALDEVIsNull; - property VALTOT: TBcd read GetVALTOTValue write SetVALTOTValue; + property VALTOT: Currency read GetVALTOTValue write SetVALTOTValue; property VALTOTIsNull: Boolean read GetVALTOTIsNull write SetVALTOTIsNull; end; @@ -462,24 +462,24 @@ type procedure SetTOTALValue(const aValue: TBcd); virtual; function GetTOTALIsNull: Boolean; virtual; procedure SetTOTALIsNull(const aValue: Boolean); virtual; - function GetVALTERMDEVValue: TBcd; virtual; - procedure SetVALTERMDEVValue(const aValue: TBcd); virtual; + function GetVALTERMDEVValue: Currency; virtual; + procedure SetVALTERMDEVValue(const aValue: Currency); virtual; function GetVALTERMDEVIsNull: Boolean; virtual; procedure SetVALTERMDEVIsNull(const aValue: Boolean); virtual; - function GetVALFINALRESCValue: TBcd; virtual; - procedure SetVALFINALRESCValue(const aValue: TBcd); virtual; + function GetVALFINALRESCValue: Currency; virtual; + procedure SetVALFINALRESCValue(const aValue: Currency); virtual; function GetVALFINALRESCIsNull: Boolean; virtual; procedure SetVALFINALRESCIsNull(const aValue: Boolean); virtual; - function GetVALVENValue: TBcd; virtual; - procedure SetVALVENValue(const aValue: TBcd); virtual; + function GetVALVENValue: Currency; virtual; + procedure SetVALVENValue(const aValue: Currency); virtual; function GetVALVENIsNull: Boolean; virtual; procedure SetVALVENIsNull(const aValue: Boolean); virtual; - function GetVALDEVValue: TBcd; virtual; - procedure SetVALDEVValue(const aValue: TBcd); virtual; + function GetVALDEVValue: Currency; virtual; + procedure SetVALDEVValue(const aValue: Currency); virtual; function GetVALDEVIsNull: Boolean; virtual; procedure SetVALDEVIsNull(const aValue: Boolean); virtual; - function GetVALTOTValue: TBcd; virtual; - procedure SetVALTOTValue(const aValue: TBcd); virtual; + function GetVALTOTValue: Currency; virtual; + procedure SetVALTOTValue(const aValue: Currency); virtual; function GetVALTOTIsNull: Boolean; virtual; procedure SetVALTOTIsNull(const aValue: Boolean); virtual; @@ -544,15 +544,15 @@ type property DEVOLUCIONESIsNull: Boolean read GetDEVOLUCIONESIsNull write SetDEVOLUCIONESIsNull; property TOTAL: TBcd read GetTOTALValue write SetTOTALValue; property TOTALIsNull: Boolean read GetTOTALIsNull write SetTOTALIsNull; - property VALTERMDEV: TBcd read GetVALTERMDEVValue write SetVALTERMDEVValue; + property VALTERMDEV: Currency read GetVALTERMDEVValue write SetVALTERMDEVValue; property VALTERMDEVIsNull: Boolean read GetVALTERMDEVIsNull write SetVALTERMDEVIsNull; - property VALFINALRESC: TBcd read GetVALFINALRESCValue write SetVALFINALRESCValue; + property VALFINALRESC: Currency read GetVALFINALRESCValue write SetVALFINALRESCValue; property VALFINALRESCIsNull: Boolean read GetVALFINALRESCIsNull write SetVALFINALRESCIsNull; - property VALVEN: TBcd read GetVALVENValue write SetVALVENValue; + property VALVEN: Currency read GetVALVENValue write SetVALVENValue; property VALVENIsNull: Boolean read GetVALVENIsNull write SetVALVENIsNull; - property VALDEV: TBcd read GetVALDEVValue write SetVALDEVValue; + property VALDEV: Currency read GetVALDEVValue write SetVALDEVValue; property VALDEVIsNull: Boolean read GetVALDEVIsNull write SetVALDEVIsNull; - property VALTOT: TBcd read GetVALTOTValue write SetVALTOTValue; + property VALTOT: Currency read GetVALTOTValue write SetVALTOTValue; property VALTOTIsNull: Boolean read GetVALTOTIsNull write SetVALTOTIsNull; public @@ -1218,14 +1218,14 @@ begin DataTable.Fields[idx_VentasTerminadasTOTAL].AsVariant := Null; end; -function TVentasTerminadasDataTableRules.GetVALTERMDEVValue: TBcd; +function TVentasTerminadasDataTableRules.GetVALTERMDEVValue: Currency; begin - result := DataTable.Fields[idx_VentasTerminadasVALTERMDEV].AsDecimal; + result := DataTable.Fields[idx_VentasTerminadasVALTERMDEV].AsCurrency; end; -procedure TVentasTerminadasDataTableRules.SetVALTERMDEVValue(const aValue: TBcd); +procedure TVentasTerminadasDataTableRules.SetVALTERMDEVValue(const aValue: Currency); begin - DataTable.Fields[idx_VentasTerminadasVALTERMDEV].AsDecimal := aValue; + DataTable.Fields[idx_VentasTerminadasVALTERMDEV].AsCurrency := aValue; end; function TVentasTerminadasDataTableRules.GetVALTERMDEVIsNull: boolean; @@ -1239,14 +1239,14 @@ begin DataTable.Fields[idx_VentasTerminadasVALTERMDEV].AsVariant := Null; end; -function TVentasTerminadasDataTableRules.GetVALFINALRESCValue: TBcd; +function TVentasTerminadasDataTableRules.GetVALFINALRESCValue: Currency; begin - result := DataTable.Fields[idx_VentasTerminadasVALFINALRESC].AsDecimal; + result := DataTable.Fields[idx_VentasTerminadasVALFINALRESC].AsCurrency; end; -procedure TVentasTerminadasDataTableRules.SetVALFINALRESCValue(const aValue: TBcd); +procedure TVentasTerminadasDataTableRules.SetVALFINALRESCValue(const aValue: Currency); begin - DataTable.Fields[idx_VentasTerminadasVALFINALRESC].AsDecimal := aValue; + DataTable.Fields[idx_VentasTerminadasVALFINALRESC].AsCurrency := aValue; end; function TVentasTerminadasDataTableRules.GetVALFINALRESCIsNull: boolean; @@ -1260,14 +1260,14 @@ begin DataTable.Fields[idx_VentasTerminadasVALFINALRESC].AsVariant := Null; end; -function TVentasTerminadasDataTableRules.GetVALVENValue: TBcd; +function TVentasTerminadasDataTableRules.GetVALVENValue: Currency; begin - result := DataTable.Fields[idx_VentasTerminadasVALVEN].AsDecimal; + result := DataTable.Fields[idx_VentasTerminadasVALVEN].AsCurrency; end; -procedure TVentasTerminadasDataTableRules.SetVALVENValue(const aValue: TBcd); +procedure TVentasTerminadasDataTableRules.SetVALVENValue(const aValue: Currency); begin - DataTable.Fields[idx_VentasTerminadasVALVEN].AsDecimal := aValue; + DataTable.Fields[idx_VentasTerminadasVALVEN].AsCurrency := aValue; end; function TVentasTerminadasDataTableRules.GetVALVENIsNull: boolean; @@ -1281,14 +1281,14 @@ begin DataTable.Fields[idx_VentasTerminadasVALVEN].AsVariant := Null; end; -function TVentasTerminadasDataTableRules.GetVALDEVValue: TBcd; +function TVentasTerminadasDataTableRules.GetVALDEVValue: Currency; begin - result := DataTable.Fields[idx_VentasTerminadasVALDEV].AsDecimal; + result := DataTable.Fields[idx_VentasTerminadasVALDEV].AsCurrency; end; -procedure TVentasTerminadasDataTableRules.SetVALDEVValue(const aValue: TBcd); +procedure TVentasTerminadasDataTableRules.SetVALDEVValue(const aValue: Currency); begin - DataTable.Fields[idx_VentasTerminadasVALDEV].AsDecimal := aValue; + DataTable.Fields[idx_VentasTerminadasVALDEV].AsCurrency := aValue; end; function TVentasTerminadasDataTableRules.GetVALDEVIsNull: boolean; @@ -1302,14 +1302,14 @@ begin DataTable.Fields[idx_VentasTerminadasVALDEV].AsVariant := Null; end; -function TVentasTerminadasDataTableRules.GetVALTOTValue: TBcd; +function TVentasTerminadasDataTableRules.GetVALTOTValue: Currency; begin - result := DataTable.Fields[idx_VentasTerminadasVALTOT].AsDecimal; + result := DataTable.Fields[idx_VentasTerminadasVALTOT].AsCurrency; end; -procedure TVentasTerminadasDataTableRules.SetVALTOTValue(const aValue: TBcd); +procedure TVentasTerminadasDataTableRules.SetVALTOTValue(const aValue: Currency); begin - DataTable.Fields[idx_VentasTerminadasVALTOT].AsDecimal := aValue; + DataTable.Fields[idx_VentasTerminadasVALTOT].AsCurrency := aValue; end; function TVentasTerminadasDataTableRules.GetVALTOTIsNull: boolean; diff --git a/Source/Modulos/VentasTerminadas/Reglas/schVentasTerminadasServer_Intf.pas b/Source/Modulos/VentasTerminadas/Reglas/schVentasTerminadasServer_Intf.pas index cdee0f2..4f58e5a 100644 --- a/Source/Modulos/VentasTerminadas/Reglas/schVentasTerminadasServer_Intf.pas +++ b/Source/Modulos/VentasTerminadas/Reglas/schVentasTerminadasServer_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_VentasTerminadasCrossTabDelta = '{450CE6EB-71EE-4A59-9D2A-558F4D5346A3}'; - RID_VentasTerminadasDelta = '{05A89678-2248-4B09-9BEC-354E07FD2CE5}'; + RID_VentasTerminadasCrossTabDelta = '{D13D1DE1-ED2A-4146-8D79-6B99529AC6CB}'; + RID_VentasTerminadasDelta = '{D00EC469-4C92-48AF-BDC3-D946B20C1A47}'; type { IVentasTerminadasCrossTabDelta } IVentasTerminadasCrossTabDelta = interface(IVentasTerminadasCrossTab) - ['{450CE6EB-71EE-4A59-9D2A-558F4D5346A3}'] + ['{D13D1DE1-ED2A-4146-8D79-6B99529AC6CB}'] { Property getters and setters } { Properties } @@ -37,7 +37,7 @@ type { IVentasTerminadasDelta } IVentasTerminadasDelta = interface(IVentasTerminadas) - ['{05A89678-2248-4B09-9BEC-354E07FD2CE5}'] + ['{D00EC469-4C92-48AF-BDC3-D946B20C1A47}'] { Property getters and setters } function GetOldNUMINFValue : String; function GetOldCLAVE1Value : TBcd; @@ -69,11 +69,11 @@ type function GetOldVENTASValue : TBcd; function GetOldDEVOLUCIONESValue : TBcd; function GetOldTOTALValue : TBcd; - function GetOldVALTERMDEVValue : TBcd; - function GetOldVALFINALRESCValue : TBcd; - function GetOldVALVENValue : TBcd; - function GetOldVALDEVValue : TBcd; - function GetOldVALTOTValue : TBcd; + function GetOldVALTERMDEVValue : Currency; + function GetOldVALFINALRESCValue : Currency; + function GetOldVALVENValue : Currency; + function GetOldVALDEVValue : Currency; + function GetOldVALTOTValue : Currency; { Properties } property OldNUMINF : String read GetOldNUMINFValue; @@ -106,11 +106,11 @@ type property OldVENTAS : TBcd read GetOldVENTASValue; property OldDEVOLUCIONES : TBcd read GetOldDEVOLUCIONESValue; property OldTOTAL : TBcd read GetOldTOTALValue; - property OldVALTERMDEV : TBcd read GetOldVALTERMDEVValue; - property OldVALFINALRESC : TBcd read GetOldVALFINALRESCValue; - property OldVALVEN : TBcd read GetOldVALVENValue; - property OldVALDEV : TBcd read GetOldVALDEVValue; - property OldVALTOT : TBcd read GetOldVALTOTValue; + property OldVALTERMDEV : Currency read GetOldVALTERMDEVValue; + property OldVALFINALRESC : Currency read GetOldVALFINALRESCValue; + property OldVALVEN : Currency read GetOldVALVENValue; + property OldVALDEV : Currency read GetOldVALDEVValue; + property OldVALTOT : Currency read GetOldVALTOTValue; end; { TVentasTerminadasBusinessProcessorRules } @@ -298,35 +298,35 @@ type function GetOldTOTALIsNull: Boolean; virtual; procedure SetTOTALValue(const aValue: TBcd); virtual; procedure SetTOTALIsNull(const aValue: Boolean); virtual; - function GetVALTERMDEVValue: TBcd; virtual; + function GetVALTERMDEVValue: Currency; virtual; function GetVALTERMDEVIsNull: Boolean; virtual; - function GetOldVALTERMDEVValue: TBcd; virtual; + function GetOldVALTERMDEVValue: Currency; virtual; function GetOldVALTERMDEVIsNull: Boolean; virtual; - procedure SetVALTERMDEVValue(const aValue: TBcd); virtual; + procedure SetVALTERMDEVValue(const aValue: Currency); virtual; procedure SetVALTERMDEVIsNull(const aValue: Boolean); virtual; - function GetVALFINALRESCValue: TBcd; virtual; + function GetVALFINALRESCValue: Currency; virtual; function GetVALFINALRESCIsNull: Boolean; virtual; - function GetOldVALFINALRESCValue: TBcd; virtual; + function GetOldVALFINALRESCValue: Currency; virtual; function GetOldVALFINALRESCIsNull: Boolean; virtual; - procedure SetVALFINALRESCValue(const aValue: TBcd); virtual; + procedure SetVALFINALRESCValue(const aValue: Currency); virtual; procedure SetVALFINALRESCIsNull(const aValue: Boolean); virtual; - function GetVALVENValue: TBcd; virtual; + function GetVALVENValue: Currency; virtual; function GetVALVENIsNull: Boolean; virtual; - function GetOldVALVENValue: TBcd; virtual; + function GetOldVALVENValue: Currency; virtual; function GetOldVALVENIsNull: Boolean; virtual; - procedure SetVALVENValue(const aValue: TBcd); virtual; + procedure SetVALVENValue(const aValue: Currency); virtual; procedure SetVALVENIsNull(const aValue: Boolean); virtual; - function GetVALDEVValue: TBcd; virtual; + function GetVALDEVValue: Currency; virtual; function GetVALDEVIsNull: Boolean; virtual; - function GetOldVALDEVValue: TBcd; virtual; + function GetOldVALDEVValue: Currency; virtual; function GetOldVALDEVIsNull: Boolean; virtual; - procedure SetVALDEVValue(const aValue: TBcd); virtual; + procedure SetVALDEVValue(const aValue: Currency); virtual; procedure SetVALDEVIsNull(const aValue: Boolean); virtual; - function GetVALTOTValue: TBcd; virtual; + function GetVALTOTValue: Currency; virtual; function GetVALTOTIsNull: Boolean; virtual; - function GetOldVALTOTValue: TBcd; virtual; + function GetOldVALTOTValue: Currency; virtual; function GetOldVALTOTIsNull: Boolean; virtual; - procedure SetVALTOTValue(const aValue: TBcd); virtual; + procedure SetVALTOTValue(const aValue: Currency); virtual; procedure SetVALTOTIsNull(const aValue: Boolean); virtual; { Properties } @@ -450,25 +450,25 @@ type property TOTALIsNull : Boolean read GetTOTALIsNull write SetTOTALIsNull; property OldTOTAL : TBcd read GetOldTOTALValue; property OldTOTALIsNull : Boolean read GetOldTOTALIsNull; - property VALTERMDEV : TBcd read GetVALTERMDEVValue write SetVALTERMDEVValue; + property VALTERMDEV : Currency read GetVALTERMDEVValue write SetVALTERMDEVValue; property VALTERMDEVIsNull : Boolean read GetVALTERMDEVIsNull write SetVALTERMDEVIsNull; - property OldVALTERMDEV : TBcd read GetOldVALTERMDEVValue; + property OldVALTERMDEV : Currency read GetOldVALTERMDEVValue; property OldVALTERMDEVIsNull : Boolean read GetOldVALTERMDEVIsNull; - property VALFINALRESC : TBcd read GetVALFINALRESCValue write SetVALFINALRESCValue; + property VALFINALRESC : Currency read GetVALFINALRESCValue write SetVALFINALRESCValue; property VALFINALRESCIsNull : Boolean read GetVALFINALRESCIsNull write SetVALFINALRESCIsNull; - property OldVALFINALRESC : TBcd read GetOldVALFINALRESCValue; + property OldVALFINALRESC : Currency read GetOldVALFINALRESCValue; property OldVALFINALRESCIsNull : Boolean read GetOldVALFINALRESCIsNull; - property VALVEN : TBcd read GetVALVENValue write SetVALVENValue; + property VALVEN : Currency read GetVALVENValue write SetVALVENValue; property VALVENIsNull : Boolean read GetVALVENIsNull write SetVALVENIsNull; - property OldVALVEN : TBcd read GetOldVALVENValue; + property OldVALVEN : Currency read GetOldVALVENValue; property OldVALVENIsNull : Boolean read GetOldVALVENIsNull; - property VALDEV : TBcd read GetVALDEVValue write SetVALDEVValue; + property VALDEV : Currency read GetVALDEVValue write SetVALDEVValue; property VALDEVIsNull : Boolean read GetVALDEVIsNull write SetVALDEVIsNull; - property OldVALDEV : TBcd read GetOldVALDEVValue; + property OldVALDEV : Currency read GetOldVALDEVValue; property OldVALDEVIsNull : Boolean read GetOldVALDEVIsNull; - property VALTOT : TBcd read GetVALTOTValue write SetVALTOTValue; + property VALTOT : Currency read GetVALTOTValue write SetVALTOTValue; property VALTOTIsNull : Boolean read GetVALTOTIsNull write SetVALTOTIsNull; - property OldVALTOT : TBcd read GetOldVALTOTValue; + property OldVALTOT : Currency read GetOldVALTOTValue; property OldVALTOTIsNull : Boolean read GetOldVALTOTIsNull; public @@ -1435,9 +1435,9 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasTOTAL] := Null; end; -function TVentasTerminadasBusinessProcessorRules.GetVALTERMDEVValue: TBcd; +function TVentasTerminadasBusinessProcessorRules.GetVALTERMDEVValue: Currency; begin - result := GetVarDecimal(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALTERMDEV]); + result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALTERMDEV]; end; function TVentasTerminadasBusinessProcessorRules.GetVALTERMDEVIsNull: Boolean; @@ -1445,9 +1445,9 @@ begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALTERMDEV]); end; -function TVentasTerminadasBusinessProcessorRules.GetOldVALTERMDEVValue: TBcd; +function TVentasTerminadasBusinessProcessorRules.GetOldVALTERMDEVValue: Currency; begin - result := GetVarDecimal(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVALTERMDEV]); + result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVALTERMDEV]; end; function TVentasTerminadasBusinessProcessorRules.GetOldVALTERMDEVIsNull: Boolean; @@ -1455,9 +1455,9 @@ begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVALTERMDEV]); end; -procedure TVentasTerminadasBusinessProcessorRules.SetVALTERMDEVValue(const aValue: TBcd); +procedure TVentasTerminadasBusinessProcessorRules.SetVALTERMDEVValue(const aValue: Currency); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALTERMDEV] := BCDToVariant(aValue); + BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALTERMDEV] := aValue; end; procedure TVentasTerminadasBusinessProcessorRules.SetVALTERMDEVIsNull(const aValue: Boolean); @@ -1466,9 +1466,9 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALTERMDEV] := Null; end; -function TVentasTerminadasBusinessProcessorRules.GetVALFINALRESCValue: TBcd; +function TVentasTerminadasBusinessProcessorRules.GetVALFINALRESCValue: Currency; begin - result := GetVarDecimal(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALFINALRESC]); + result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALFINALRESC]; end; function TVentasTerminadasBusinessProcessorRules.GetVALFINALRESCIsNull: Boolean; @@ -1476,9 +1476,9 @@ begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALFINALRESC]); end; -function TVentasTerminadasBusinessProcessorRules.GetOldVALFINALRESCValue: TBcd; +function TVentasTerminadasBusinessProcessorRules.GetOldVALFINALRESCValue: Currency; begin - result := GetVarDecimal(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVALFINALRESC]); + result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVALFINALRESC]; end; function TVentasTerminadasBusinessProcessorRules.GetOldVALFINALRESCIsNull: Boolean; @@ -1486,9 +1486,9 @@ begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVALFINALRESC]); end; -procedure TVentasTerminadasBusinessProcessorRules.SetVALFINALRESCValue(const aValue: TBcd); +procedure TVentasTerminadasBusinessProcessorRules.SetVALFINALRESCValue(const aValue: Currency); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALFINALRESC] := BCDToVariant(aValue); + BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALFINALRESC] := aValue; end; procedure TVentasTerminadasBusinessProcessorRules.SetVALFINALRESCIsNull(const aValue: Boolean); @@ -1497,9 +1497,9 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALFINALRESC] := Null; end; -function TVentasTerminadasBusinessProcessorRules.GetVALVENValue: TBcd; +function TVentasTerminadasBusinessProcessorRules.GetVALVENValue: Currency; begin - result := GetVarDecimal(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALVEN]); + result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALVEN]; end; function TVentasTerminadasBusinessProcessorRules.GetVALVENIsNull: Boolean; @@ -1507,9 +1507,9 @@ begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALVEN]); end; -function TVentasTerminadasBusinessProcessorRules.GetOldVALVENValue: TBcd; +function TVentasTerminadasBusinessProcessorRules.GetOldVALVENValue: Currency; begin - result := GetVarDecimal(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVALVEN]); + result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVALVEN]; end; function TVentasTerminadasBusinessProcessorRules.GetOldVALVENIsNull: Boolean; @@ -1517,9 +1517,9 @@ begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVALVEN]); end; -procedure TVentasTerminadasBusinessProcessorRules.SetVALVENValue(const aValue: TBcd); +procedure TVentasTerminadasBusinessProcessorRules.SetVALVENValue(const aValue: Currency); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALVEN] := BCDToVariant(aValue); + BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALVEN] := aValue; end; procedure TVentasTerminadasBusinessProcessorRules.SetVALVENIsNull(const aValue: Boolean); @@ -1528,9 +1528,9 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALVEN] := Null; end; -function TVentasTerminadasBusinessProcessorRules.GetVALDEVValue: TBcd; +function TVentasTerminadasBusinessProcessorRules.GetVALDEVValue: Currency; begin - result := GetVarDecimal(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALDEV]); + result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALDEV]; end; function TVentasTerminadasBusinessProcessorRules.GetVALDEVIsNull: Boolean; @@ -1538,9 +1538,9 @@ begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALDEV]); end; -function TVentasTerminadasBusinessProcessorRules.GetOldVALDEVValue: TBcd; +function TVentasTerminadasBusinessProcessorRules.GetOldVALDEVValue: Currency; begin - result := GetVarDecimal(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVALDEV]); + result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVALDEV]; end; function TVentasTerminadasBusinessProcessorRules.GetOldVALDEVIsNull: Boolean; @@ -1548,9 +1548,9 @@ begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVALDEV]); end; -procedure TVentasTerminadasBusinessProcessorRules.SetVALDEVValue(const aValue: TBcd); +procedure TVentasTerminadasBusinessProcessorRules.SetVALDEVValue(const aValue: Currency); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALDEV] := BCDToVariant(aValue); + BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALDEV] := aValue; end; procedure TVentasTerminadasBusinessProcessorRules.SetVALDEVIsNull(const aValue: Boolean); @@ -1559,9 +1559,9 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALDEV] := Null; end; -function TVentasTerminadasBusinessProcessorRules.GetVALTOTValue: TBcd; +function TVentasTerminadasBusinessProcessorRules.GetVALTOTValue: Currency; begin - result := GetVarDecimal(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALTOT]); + result := BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALTOT]; end; function TVentasTerminadasBusinessProcessorRules.GetVALTOTIsNull: Boolean; @@ -1569,9 +1569,9 @@ begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALTOT]); end; -function TVentasTerminadasBusinessProcessorRules.GetOldVALTOTValue: TBcd; +function TVentasTerminadasBusinessProcessorRules.GetOldVALTOTValue: Currency; begin - result := GetVarDecimal(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVALTOT]); + result := BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVALTOT]; end; function TVentasTerminadasBusinessProcessorRules.GetOldVALTOTIsNull: Boolean; @@ -1579,9 +1579,9 @@ begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VentasTerminadasVALTOT]); end; -procedure TVentasTerminadasBusinessProcessorRules.SetVALTOTValue(const aValue: TBcd); +procedure TVentasTerminadasBusinessProcessorRules.SetVALTOTValue(const aValue: Currency); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALTOT] := BCDToVariant(aValue); + BusinessProcessor.CurrentChange.NewValueByName[fld_VentasTerminadasVALTOT] := aValue; end; procedure TVentasTerminadasBusinessProcessorRules.SetVALTOTIsNull(const aValue: Boolean); diff --git a/Source/Modulos/VentasTerminadas/Servidor/srvVentasTerminadas_Impl.dfm b/Source/Modulos/VentasTerminadas/Servidor/srvVentasTerminadas_Impl.dfm index 82f7044..c8f4de4 100644 --- a/Source/Modulos/VentasTerminadas/Servidor/srvVentasTerminadas_Impl.dfm +++ b/Source/Modulos/VentasTerminadas/Servidor/srvVentasTerminadas_Impl.dfm @@ -400,31 +400,39 @@ object srvVentasTerminadas: TsrvVentasTerminadas end item Name = 'VALTERMDEV' - DataType = datDecimal + DataType = datCurrency + DecimalPrecision = 2 DisplayLabel = 'Val.Term/Dev' Alignment = taRightJustify end item Name = 'VALFINALRESC' - DataType = datDecimal + DataType = datCurrency + DecimalPrecision = 2 + LogChanges = False DisplayLabel = 'Val.Final/Resc' + ReadOnly = True Alignment = taRightJustify + ServerCalculated = True end item Name = 'VALVEN' - DataType = datDecimal + DataType = datCurrency + DecimalPrecision = 2 DisplayLabel = 'Imp. ventas' Alignment = taRightJustify end item Name = 'VALDEV' - DataType = datDecimal + DataType = datCurrency + DecimalPrecision = 2 DisplayLabel = 'Imp. devoluciones' Alignment = taRightJustify end item Name = 'VALTOT' - DataType = datDecimal + DataType = datCurrency + DecimalPrecision = 2 DisplayLabel = 'Imp. Total' Alignment = taRightJustify end> diff --git a/Source/Servidor/AdminPV_Server.dpr b/Source/Servidor/AdminPV_Server.dpr index 168ff0e..c37d351 100644 --- a/Source/Servidor/AdminPV_Server.dpr +++ b/Source/Servidor/AdminPV_Server.dpr @@ -3,6 +3,8 @@ program AdminPV_Server; {#ROGEN:VARELA.rodl} // RemObjects: Careful, do not remove! uses + uROComInit, + ExceptionLog, Forms, fServerForm in 'fServerForm.pas' {ServerForm}, VARELA_Intf in 'VARELA_Intf.pas', @@ -32,11 +34,7 @@ uses schVentasEnProcesoServer_Intf in '..\Modulos\VentasProceso\Reglas\schVentasEnProcesoServer_Intf.pas', uSchemaUtilsServer in 'uSchemaUtilsServer.pas', srvVentasTerminadas_Impl in '..\Modulos\VentasTerminadas\Servidor\srvVentasTerminadas_Impl.pas' {srvVentasTerminadas: TDARemoteService}, - schVentasTerminadasClient_Intf in '..\Modulos\VentasTerminadas\Reglas\schVentasTerminadasClient_Intf.pas', - schVentasTerminadasServer_Intf in '..\Modulos\VentasTerminadas\Reglas\schVentasTerminadasServer_Intf.pas', srvReferenciaGenerica_Impl in '..\Modulos\ReferenciaGenerica\Servidor\srvReferenciaGenerica_Impl.pas' {srvReferenciaGenerica: TDARemoteService}, - schReferenciaGenericaClient_Intf in '..\Modulos\ReferenciaGenerica\Reglas\schReferenciaGenericaClient_Intf.pas', - schReferenciaGenericaServer_Intf in '..\Modulos\ReferenciaGenerica\Reglas\schReferenciaGenericaServer_Intf.pas', uBizReferenciaGenericaServer in '..\Modulos\ReferenciaGenerica\Reglas\uBizReferenciaGenericaServer.pas', uDataModuleEDI_Inventary in 'Services\EDI_Inventary\uDataModuleEDI_Inventary.pas' {dmEDIInventary: TDataModule}, schEDIInventaryClient_Intf in 'Services\EDI_Inventary\schEDIInventaryClient_Intf.pas', @@ -47,8 +45,6 @@ uses srvDevoluciones_Impl in '..\Modulos\Devoluciones\Servidor\srvDevoluciones_Impl.pas' {srvDevoluciones: TDARemoteService}, srvTraspasos_Impl in '..\Modulos\Traspasos\Servidor\srvTraspasos_Impl.pas' {srvTraspasos: TDARemoteService}, srvStock_Impl in '..\Modulos\Stock\Servidor\srvStock_Impl.pas' {srvStock: TDARemoteService}, - schStockClient_Intf in '..\Modulos\Stock\Reglas\schStockClient_Intf.pas', - schStockServer_Intf in '..\Modulos\Stock\Reglas\schStockServer_Intf.pas', uAcercaDe in 'uAcercaDe.pas' {fAcercaDe}, srvParametros_Impl in '..\Modulos\Parametros\Servidor\srvParametros_Impl.pas' {srvParametros: TDARemoteService}, schParametrosClient_Intf in '..\Modulos\Parametros\Reglas\schParametrosClient_Intf.pas', @@ -60,7 +56,13 @@ uses schControlesServer_Intf in '..\ControlesBase\Reglas\schControlesServer_Intf.pas', RegExpr in 'RegExpr.pas', uDBSelectionList in '..\Base\uDBSelectionList.pas', - uIntegerList in '..\Base\uIntegerList.pas'; + schReferenciaGenericaClient_Intf in '..\Modulos\ReferenciaGenerica\Reglas\schReferenciaGenericaClient_Intf.pas', + schReferenciaGenericaServer_Intf in '..\Modulos\ReferenciaGenerica\Reglas\schReferenciaGenericaServer_Intf.pas', + schVentasTerminadasClient_Intf in '..\Modulos\VentasTerminadas\Reglas\schVentasTerminadasClient_Intf.pas', + schVentasTerminadasServer_Intf in '..\Modulos\VentasTerminadas\Reglas\schVentasTerminadasServer_Intf.pas', + uIntegerList in '..\Base\uIntegerList.pas', + schStockClient_Intf in '..\Modulos\Stock\Reglas\schStockClient_Intf.pas', + schStockServer_Intf in '..\Modulos\Stock\Reglas\schStockServer_Intf.pas'; {$R *.res} {$R RODLFile.res} diff --git a/Source/Servidor/AdminPV_Server.dproj b/Source/Servidor/AdminPV_Server.dproj index 7e41017..60aab37 100644 --- a/Source/Servidor/AdminPV_Server.dproj +++ b/Source/Servidor/AdminPV_Server.dproj @@ -38,7 +38,7 @@ ..\Lib;..\Base ..\Lib;..\Base ..\Lib;..\Base - DEBUG + DEBUG;EUREKALOG;EUREKALOG_VER6 Delphi.Personality @@ -51,6 +51,20 @@ + + + + + + + + + + + + + + ExpressPrinting System by Developer Express Inc. CodeGear WebSnap Components @@ -172,12 +186,12 @@ diff --git a/Source/Servidor/AdminPV_Server.drc b/Source/Servidor/AdminPV_Server.drc index 3289eda..00f5aa5 100644 --- a/Source/Servidor/AdminPV_Server.drc +++ b/Source/Servidor/AdminPV_Server.drc @@ -8,1253 +8,1471 @@ resources were bound to the produced executable. */ -#define cxPCConsts_scxPCTabIndexError 64272 -#define cxPCConsts_scxPCTabVisibleIndexOutsOfBounds 64273 -#define cxPCConsts_scxPCVisibleTabListEmpty 64274 -#define cxPCConsts_scxPCAllowRotateError 64275 -#define cxGridStrs_scxGridDeletingConfirmationCaption 64276 -#define cxGridStrs_scxGridDeletingFocusedConfirmationText 64277 -#define cxGridStrs_scxGridDeletingSelectedConfirmationText 64278 -#define cxGridStrs_scxGridNoDataInfoText 64279 -#define cxGridStrs_scxGridNewItemRowInfoText 64280 -#define cxGridStrs_scxGridFilterIsEmpty 64281 -#define cxGridStrs_scxGridCustomizationFormCaption 64282 -#define cxGridStrs_scxGridCustomizationFormColumnsPageCaption 64283 -#define cxGridStrs_scxGridGroupByBoxCaption 64284 -#define cxGridStrs_scxGridFilterCustomizeButtonCaption 64285 -#define cxGridStrs_scxGridColumnsQuickCustomizationHint 64286 -#define MidConst_SConstraintFailed 64288 -#define MidConst_SField 64289 -#define MidConst_SRecConstFail 64290 -#define MidConst_SFieldConstFail 64291 -#define MidConst_SDefExprFail 64292 -#define MidConst_SNoEditsAllowed 64293 -#define MidConst_SNoDeletesAllowed 64294 -#define MidConst_SNoInsertsAllowed 64295 -#define MidConst_SConnectionMissing 64296 -#define MidConst_SNoCircularConnection 64297 -#define cxPCConsts_scxPCImageListIndexError 64298 -#define cxPCConsts_scxPCNoBaseImages 64299 -#define cxPCConsts_scxPCNoRegisteredStyles 64300 -#define cxPCConsts_scxPCPageIndexError 64301 -#define cxPCConsts_scxPCPainterClassError 64302 -#define cxPCConsts_scxPCTabCountEqualsZero 64303 -#define cxFilterControlStrs_cxSFilterControlDialogActionSaveCaption 64304 -#define cxFilterControlStrs_cxSFilterControlDialogActionOpenCaption 64305 -#define cxFilterControlStrs_cxSFilterControlDialogActionApplyCaption 64306 -#define cxFilterControlStrs_cxSFilterControlDialogActionOkCaption 64307 -#define cxFilterControlStrs_cxSFilterControlDialogActionCancelCaption 64308 -#define cxFilterControlStrs_cxSFilterControlDialogFileExt 64309 -#define cxFilterControlStrs_cxSFilterControlDialogFileFilter 64310 -#define MidConst_SNoDataProvider 64311 -#define MidConst_SInvalidDataPacket 64312 -#define MidConst_SRefreshError 64313 -#define MidConst_SNoCircularReference 64314 -#define MidConst_SErrorLoadingMidas 64315 -#define MidConst_SCannotCreateDataSet 64316 -#define MidConst_SNoConnectToBroker 64317 -#define MidConst_SNoParentConnection 64318 -#define MidConst_SInvalidOptParamType 64319 -#define cxFilterControlStrs_cxSFilterGroupCaption 64320 -#define cxFilterControlStrs_cxSFilterRootGroupCaption 64321 -#define cxFilterControlStrs_cxSFilterControlNullString 64322 -#define cxFilterControlStrs_cxSFilterErrorBuilding 64323 -#define cxFilterControlStrs_cxSFilterDialogCaption 64324 -#define cxFilterControlStrs_cxSFilterDialogInvalidValue 64325 -#define cxFilterControlStrs_cxSFilterDialogUse 64326 -#define cxFilterControlStrs_cxSFilterDialogSingleCharacter 64327 -#define cxFilterControlStrs_cxSFilterDialogCharactersSeries 64328 -#define cxFilterControlStrs_cxSFilterDialogOperationAnd 64329 -#define cxFilterControlStrs_cxSFilterDialogOperationOr 64330 -#define cxFilterControlStrs_cxSFilterDialogRows 64331 -#define cxFilterControlStrs_cxSFilterControlDialogCaption 64332 -#define cxFilterControlStrs_cxSFilterControlDialogNewFile 64333 -#define cxFilterControlStrs_cxSFilterControlDialogOpenDialogCaption 64334 -#define cxFilterControlStrs_cxSFilterControlDialogSaveDialogCaption 64335 -#define cxEditConsts_scxRegExprNotCompiled 64336 -#define cxEditConsts_scxRegExprIncorrectParameterQuantifier 64337 -#define cxEditConsts_scxRegExprCantUseParameterQuantifier 64338 -#define cxEditConsts_scxMaskEditRegExprError 64339 -#define cxEditConsts_scxMaskEditInvalidEditValue 64340 -#define cxEditConsts_cxSSpinEditInvalidNumericValue 64341 -#define cxFilterControlStrs_cxSFilterBoolOperatorAnd 64342 -#define cxFilterControlStrs_cxSFilterBoolOperatorOr 64343 -#define cxFilterControlStrs_cxSFilterBoolOperatorNotAnd 64344 -#define cxFilterControlStrs_cxSFilterBoolOperatorNotOr 64345 -#define cxFilterControlStrs_cxSFilterRootButtonCaption 64346 -#define cxFilterControlStrs_cxSFilterAddCondition 64347 -#define cxFilterControlStrs_cxSFilterAddGroup 64348 -#define cxFilterControlStrs_cxSFilterRemoveRow 64349 -#define cxFilterControlStrs_cxSFilterClearAll 64350 -#define cxFilterControlStrs_cxSFilterFooterAddCondition 64351 -#define cxEditConsts_scxRegExprEmptySourceStream 64352 -#define cxEditConsts_scxRegExprCantUsePlusQuantifier 64353 -#define cxEditConsts_scxRegExprCantUseStarQuantifier 64354 -#define cxEditConsts_scxRegExprCantCreateEmptyAlt 64355 -#define cxEditConsts_scxRegExprCantCreateEmptyBlock 64356 -#define cxEditConsts_scxRegExprIllegalSymbol 64357 -#define cxEditConsts_scxRegExprIllegalQuantifier 64358 -#define cxEditConsts_scxRegExprIllegalIntegerValue 64359 -#define cxEditConsts_scxRegExprTooBigReferenceNumber 64360 -#define cxEditConsts_scxRegExprCantCreateEmptyEnum 64361 -#define cxEditConsts_scxRegExprSubrangeOrder 64362 -#define cxEditConsts_scxRegExprHexNumberExpected0 64363 -#define cxEditConsts_scxRegExprHexNumberExpected 64364 -#define cxEditConsts_scxRegExprMissing 64365 -#define cxEditConsts_scxRegExprUnnecessary 64366 -#define cxEditConsts_scxRegExprIncorrectSpace 64367 -#define cxEditConsts_scxSEditRepositoryCurrencyItem 64368 -#define cxEditConsts_scxSEditRepositoryDateItem 64369 -#define cxEditConsts_scxSEditRepositoryHyperLinkItem 64370 -#define cxEditConsts_scxSEditRepositoryImageComboBoxItem 64371 -#define cxEditConsts_scxSEditRepositoryImageItem 64372 -#define cxEditConsts_scxSEditRepositoryMaskItem 64373 -#define cxEditConsts_scxSEditRepositoryMemoItem 64374 -#define cxEditConsts_scxSEditRepositoryMRUItem 64375 -#define cxEditConsts_scxSEditRepositoryPopupItem 64376 -#define cxEditConsts_scxSEditRepositorySpinItem 64377 -#define cxEditConsts_scxSEditRepositoryRadioGroupItem 64378 -#define cxEditConsts_scxSEditRepositoryTextItem 64379 -#define cxEditConsts_scxSEditRepositoryTimeItem 64380 -#define cxEditConsts_scxRegExprLine 64381 -#define cxEditConsts_scxRegExprChar 64382 -#define cxEditConsts_scxRegExprNotAssignedSourceStream 64383 -#define cxEditConsts_cxNavigatorHint_NextPage 64384 -#define cxEditConsts_cxNavigatorHint_Last 64385 -#define cxEditConsts_cxNavigatorHint_Insert 64386 -#define cxEditConsts_cxNavigatorHint_Delete 64387 -#define cxEditConsts_cxNavigatorHint_Edit 64388 -#define cxEditConsts_cxNavigatorHint_Post 64389 -#define cxEditConsts_cxNavigatorHint_Cancel 64390 -#define cxEditConsts_cxNavigatorHint_Refresh 64391 -#define cxEditConsts_cxNavigatorHint_SaveBookmark 64392 -#define cxEditConsts_cxNavigatorHint_GotoBookmark 64393 -#define cxEditConsts_cxNavigatorHint_Filter 64394 -#define cxEditConsts_scxSEditRepositoryBlobItem 64395 -#define cxEditConsts_scxSEditRepositoryButtonItem 64396 -#define cxEditConsts_scxSEditRepositoryCalcItem 64397 -#define cxEditConsts_scxSEditRepositoryCheckBoxItem 64398 -#define cxEditConsts_scxSEditRepositoryComboBoxItem 64399 -#define cxEditConsts_cxSDateFirst 64400 -#define cxEditConsts_cxSDateSecond 64401 -#define cxEditConsts_cxSDateThird 64402 -#define cxEditConsts_cxSDateFourth 64403 -#define cxEditConsts_cxSDateFifth 64404 -#define cxEditConsts_cxSDateSixth 64405 -#define cxEditConsts_cxSDateSeventh 64406 -#define cxEditConsts_cxSDateBOM 64407 -#define cxEditConsts_cxSDateEOM 64408 -#define cxEditConsts_cxSDateNow 64409 -#define cxEditConsts_scxSCalcError 64410 -#define cxEditConsts_scxSHyperLinkPrefix 64411 -#define cxEditConsts_cxNavigatorHint_First 64412 -#define cxEditConsts_cxNavigatorHint_Prior 64413 -#define cxEditConsts_cxNavigatorHint_PriorPage 64414 -#define cxEditConsts_cxNavigatorHint_Next 64415 -#define cxEditConsts_cxSMenuItemCaptionSave 64416 -#define cxEditConsts_cxSDatePopupClear 64417 -#define cxEditConsts_cxSDatePopupNow 64418 -#define cxEditConsts_cxSDatePopupOK 64419 -#define cxEditConsts_cxSDatePopupToday 64420 -#define cxEditConsts_cxSDateError 64421 -#define cxEditConsts_cxSDateToday 64422 -#define cxEditConsts_cxSDateYesterday 64423 -#define cxEditConsts_cxSDateTomorrow 64424 -#define cxEditConsts_cxSDateSunday 64425 -#define cxEditConsts_cxSDateMonday 64426 -#define cxEditConsts_cxSDateTuesday 64427 -#define cxEditConsts_cxSDateWednesday 64428 -#define cxEditConsts_cxSDateThursday 64429 -#define cxEditConsts_cxSDateFriday 64430 -#define cxEditConsts_cxSDateSaturday 64431 -#define cxEditConsts_cxSEditCheckBoxChecked 64432 -#define cxEditConsts_cxSEditCheckBoxGrayed 64433 -#define cxEditConsts_cxSEditCheckBoxUnchecked 64434 -#define cxEditConsts_cxSRadioGroupDefaultCaption 64435 -#define cxEditConsts_cxSBlobButtonOK 64436 -#define cxEditConsts_cxSBlobButtonCancel 64437 -#define cxEditConsts_cxSBlobButtonClose 64438 -#define cxEditConsts_cxSBlobMemo 64439 -#define cxEditConsts_cxSBlobMemoEmpty 64440 -#define cxEditConsts_cxSBlobPicture 64441 -#define cxEditConsts_cxSBlobPictureEmpty 64442 -#define cxEditConsts_cxSMenuItemCaptionCut 64443 -#define cxEditConsts_cxSMenuItemCaptionCopy 64444 -#define cxEditConsts_cxSMenuItemCaptionPaste 64445 -#define cxEditConsts_cxSMenuItemCaptionDelete 64446 -#define cxEditConsts_cxSMenuItemCaptionLoad 64447 -#define cxFilterConsts_cxSFilterOperatorDoesNotBeginWith 64448 -#define cxFilterConsts_cxSFilterOperatorEndsWith 64449 -#define cxFilterConsts_cxSFilterOperatorDoesNotEndWith 64450 -#define cxFilterConsts_cxSFilterOperatorContains 64451 -#define cxFilterConsts_cxSFilterOperatorDoesNotContain 64452 -#define cxFilterConsts_cxSFilterBoxAllCaption 64453 -#define cxFilterConsts_cxSFilterBoxCustomCaption 64454 -#define cxFilterConsts_cxSFilterBoxBlanksCaption 64455 -#define cxFilterConsts_cxSFilterBoxNonBlanksCaption 64456 -#define cxEditConsts_cxSEditDateConvertError 64457 -#define cxEditConsts_cxSEditInvalidRepositoryItem 64458 -#define cxEditConsts_cxSEditNumericValueConvertError 64459 -#define cxEditConsts_cxSEditPopupCircularReferencingError 64460 -#define cxEditConsts_cxSEditTimeConvertError 64461 -#define cxEditConsts_cxSEditValidateErrorText 64462 -#define cxEditConsts_cxSEditValueOutOfBounds 64463 -#define cxFilterConsts_cxSFilterOperatorThisYear 64464 -#define cxFilterConsts_cxSFilterOperatorNext7Days 64465 -#define cxFilterConsts_cxSFilterOperatorNextWeek 64466 -#define cxFilterConsts_cxSFilterOperatorNext14Days 64467 -#define cxFilterConsts_cxSFilterOperatorNextTwoWeeks 64468 -#define cxFilterConsts_cxSFilterOperatorNext30Days 64469 -#define cxFilterConsts_cxSFilterOperatorNextMonth 64470 -#define cxFilterConsts_cxSFilterOperatorNextYear 64471 -#define cxFilterConsts_cxSFilterOperatorFuture 64472 -#define cxFilterConsts_cxSFilterAndCaption 64473 -#define cxFilterConsts_cxSFilterOrCaption 64474 -#define cxFilterConsts_cxSFilterNotCaption 64475 -#define cxFilterConsts_cxSFilterBlankCaption 64476 -#define cxFilterConsts_cxSFilterOperatorIsNull 64477 -#define cxFilterConsts_cxSFilterOperatorIsNotNull 64478 -#define cxFilterConsts_cxSFilterOperatorBeginsWith 64479 -#define cxFilterConsts_cxSFilterOperatorNotBetween 64480 -#define cxFilterConsts_cxSFilterOperatorInList 64481 -#define cxFilterConsts_cxSFilterOperatorNotInList 64482 -#define cxFilterConsts_cxSFilterOperatorYesterday 64483 -#define cxFilterConsts_cxSFilterOperatorToday 64484 -#define cxFilterConsts_cxSFilterOperatorTomorrow 64485 -#define cxFilterConsts_cxSFilterOperatorLast7Days 64486 -#define cxFilterConsts_cxSFilterOperatorLastWeek 64487 -#define cxFilterConsts_cxSFilterOperatorLast14Days 64488 -#define cxFilterConsts_cxSFilterOperatorLastTwoWeeks 64489 -#define cxFilterConsts_cxSFilterOperatorLast30Days 64490 -#define cxFilterConsts_cxSFilterOperatorLastMonth 64491 -#define cxFilterConsts_cxSFilterOperatorLastYear 64492 -#define cxFilterConsts_cxSFilterOperatorPast 64493 -#define cxFilterConsts_cxSFilterOperatorThisWeek 64494 -#define cxFilterConsts_cxSFilterOperatorThisMonth 64495 -#define cxDataConsts_cxSDataWriteError 64496 -#define cxDataConsts_cxSDataItemExistError 64497 -#define cxDataConsts_cxSDataRecordIndexError 64498 -#define cxDataConsts_cxSDataItemIndexError 64499 -#define cxDataConsts_cxSDataProviderModeError 64500 -#define cxDataConsts_cxSDataInvalidStreamFormat 64501 -#define cxDataConsts_cxSDataRowIndexError 64502 -#define cxFilterConsts_cxSFilterOperatorEqual 64503 -#define cxFilterConsts_cxSFilterOperatorNotEqual 64504 -#define cxFilterConsts_cxSFilterOperatorLess 64505 -#define cxFilterConsts_cxSFilterOperatorLessEqual 64506 -#define cxFilterConsts_cxSFilterOperatorGreater 64507 -#define cxFilterConsts_cxSFilterOperatorGreaterEqual 64508 -#define cxFilterConsts_cxSFilterOperatorLike 64509 -#define cxFilterConsts_cxSFilterOperatorNotLike 64510 -#define cxFilterConsts_cxSFilterOperatorBetween 64511 -#define pnglang_EPNGInvalidFileHeaderText 64512 -#define pnglang_EPNGIHDRNotFirstText 64513 -#define pnglang_EPNGSizeExceedsText 64514 -#define pnglang_EPNGUnknownPalEntryText 64515 -#define pnglang_EPNGUnknownCriticalChunkText 64516 -#define pnglang_EPNGUnknownCompressionText 64517 -#define pnglang_EPNGUnknownInterlaceText 64518 -#define pnglang_EPNGCannotAssignChunkText 64519 -#define pnglang_EPNGUnexpectedEndText 64520 -#define pnglang_EPNGNoImageDataText 64521 -#define pnglang_EPNGCannotChangeSizeText 64522 -#define pnglang_EPNGCannotAddChunkText 64523 -#define pnglang_EPNGCannotAddInvalidImageText 64524 -#define pnglang_EPNGOutMemoryText 64525 -#define pnglang_EPNGHeaderNotPresentText 64526 -#define cxDataConsts_cxSDataReadError 64527 -#define ADOConst_SMissingCommandText 64528 -#define ADOConst_SNoResultSet 64529 -#define ADOConst_SADOCreateError 64530 -#define ADOConst_SEventsNotSupported 64531 -#define ADOConst_SUsupportedFieldType 64532 -#define ADOConst_SConnectionRequired 64533 -#define ADOConst_SCantRequery 64534 -#define ADOConst_SNoFilterOptions 64535 -#define ADOConst_SRecordsetNotOpen 64536 -#define ADOConst_sNameAttr 64537 -#define ADOConst_sValueAttr 64538 -#define pnglang_EPngInvalidCRCText 64539 -#define pnglang_EPNGInvalidIHDRText 64540 -#define pnglang_EPNGMissingMultipleIDATText 64541 -#define pnglang_EPNGZLIBErrorText 64542 -#define pnglang_EPNGInvalidPaletteText 64543 -#define IBSQLMonitor_StrExecute 64544 -#define IBSQLMonitor_StrNULL 64545 -#define IBSQLMonitor_StrBLOB 64546 -#define IBSQLMonitor_StrFetch 64547 -#define IBSQLMonitor_StrPrepare 64548 -#define IBSQLMonitor_StrPlan 64549 -#define IBSQLMonitor_StrPlanCantRetrive 64550 -#define IBSQLMonitor_StrCommitHardComm 64551 -#define IBSQLMonitor_StrCommitRetaining 64552 -#define IBSQLMonitor_StrRollback 64553 -#define IBSQLMonitor_StrRollbackRetainin 64554 -#define IBSQLMonitor_StrStartTransaction 64555 -#define IBSQLMonitor_StrApplication 64556 -#define ADOConst_SMissingConnection 64557 -#define ADOConst_SNoDetailFilter 64558 -#define ADOConst_SBookmarksRequired 64559 -#define IBXConst_SEventAlreadyRegistered 64560 -#define IBXConst_SStringTooLarge 64561 -#define IBXConst_SNoTimers 64562 -#define IBXConst_SIB65feature 64563 -#define IBXConst_SLoginPromptFailure 64564 -#define IBXConst_SIB70feature 64565 -#define IBXConst_SIB71feature 64566 -#define IBXConst_SIB80feature 64567 -#define IBSQLMonitor_StrConnect 64568 -#define IBSQLMonitor_StrDisconnect 64569 -#define IBSQLMonitor_StrMisc 64570 -#define IBSQLMonitor_StrError 64571 -#define IBSQLMonitor_StrAttach 64572 -#define IBSQLMonitor_StrDetach 64573 -#define IBSQLMonitor_StrQuery 64574 -#define IBSQLMonitor_StrStart 64575 -#define IBXConst_SParamNameExpected 64576 -#define IBXConst_SSuccess 64577 -#define IBXConst_SDelphiException 64578 -#define IBXConst_SNoOptionsSet 64579 -#define IBXConst_SNoDestinationDirectory 64580 -#define IBXConst_SNosourceDirectory 64581 -#define IBXConst_SNoUninstallFile 64582 -#define IBXConst_SOptionNeedsClient 64583 -#define IBXConst_SOptionNeedsServer 64584 -#define IBXConst_SInvalidOption 64585 -#define IBXConst_SInvalidOnErrorResult 64586 -#define IBXConst_SInvalidOnStatusResult 64587 -#define IBXConst_SDPBConstantUnknownEx 64588 -#define IBXConst_STPBConstantUnknownEx 64589 -#define IBXConst_SUnknownPlan 64590 -#define IBXConst_SFieldSizeMismatch 64591 -#define IBXConst_SInvalidBatchMove 64592 -#define IBXConst_SSQLDialectInvalid 64593 -#define IBXConst_SSPBConstantNotSupported 64594 -#define IBXConst_SSPBConstantUnknown 64595 -#define IBXConst_SServiceActive 64596 -#define IBXConst_SServiceInActive 64597 -#define IBXConst_SServerNameMissing 64598 -#define IBXConst_SQueryParamsError 64599 -#define IBXConst_SStartParamsError 64600 -#define IBXConst_SOutputParsingError 64601 -#define IBXConst_SUseSpecificProcedures 64602 -#define IBXConst_SSQLMonitorAlreadyPresent 64603 -#define IBXConst_SCantPrintValue 64604 -#define IBXConst_SEOFReached 64605 -#define IBXConst_SEOFInComment 64606 -#define IBXConst_SEOFInString 64607 -#define IBXConst_SUpdateFailed 64608 -#define IBXConst_SNotCachedUpdates 64609 -#define IBXConst_SNotLiveRequest 64610 -#define IBXConst_SNoProvider 64611 -#define IBXConst_SNoRecordsAffected 64612 -#define IBXConst_SNoTableName 64613 -#define IBXConst_SCannotCreatePrimaryIndex 64614 -#define IBXConst_SCannotDropSystemIndex 64615 -#define IBXConst_STableNameMismatch 64616 -#define IBXConst_SIndexFieldMissing 64617 -#define IBXConst_SInvalidCancellation 64618 -#define IBXConst_SInvalidEvent 64619 -#define IBXConst_SMaximumEvents 64620 -#define IBXConst_SNoEventsRegistered 64621 -#define IBXConst_SInvalidQueueing 64622 -#define IBXConst_SInvalidRegistration 64623 -#define IBXConst_SCircularReference 64624 -#define IBXConst_SSQLParseError 64625 -#define IBXConst_SUserAbort 64626 -#define IBXConst_SDataSetUniDirectional 64627 -#define IBXConst_SCannotCreateSharedResource 64628 -#define IBXConst_SWindowsAPIError 64629 -#define IBXConst_SColumnListsDontMatch 64630 -#define IBXConst_SColumnTypesDontMatch 64631 -#define IBXConst_SCantEndSharedTransaction 64632 -#define IBXConst_SFieldUnsupportedType 64633 -#define IBXConst_SCircularDataLink 64634 -#define IBXConst_SEmptySQLStatement 64635 -#define IBXConst_SIsASelectStatement 64636 -#define IBXConst_SRequiredParamNotSet 64637 -#define IBXConst_SNoStoredProcName 64638 -#define IBXConst_SIsAExecuteProcedure 64639 -#define IBXConst_SInvalidDataConversion 64640 -#define IBXConst_SColumnIsNotNullable 64641 -#define IBXConst_SBlobCannotBeRead 64642 -#define IBXConst_SBlobCannotBeWritten 64643 -#define IBXConst_SEmptyQuery 64644 -#define IBXConst_SCannotOpenNonSQLSelect 64645 -#define IBXConst_SNoFieldAccess 64646 -#define IBXConst_SFieldReadOnly 64647 -#define IBXConst_SFieldNotFound 64648 -#define IBXConst_SNotEditing 64649 -#define IBXConst_SCannotInsert 64650 -#define IBXConst_SCannotPost 64651 -#define IBXConst_SCannotUpdate 64652 -#define IBXConst_SCannotDelete 64653 -#define IBXConst_SCannotRefresh 64654 -#define IBXConst_SBufferNotSet 64655 -#define IBXConst_SUpdateWrongDB 64656 -#define IBXConst_SUpdateWrongTR 64657 -#define IBXConst_SDatabaseNotAssigned 64658 -#define IBXConst_STransactionNotAssigned 64659 -#define IBXConst_SXSQLDAIndexOutOfRange 64660 -#define IBXConst_SXSQLDANameDoesNotExist 64661 -#define IBXConst_SEOF 64662 -#define IBXConst_SBOF 64663 -#define IBXConst_SInvalidStatementHandle 64664 -#define IBXConst_SSQLOpen 64665 -#define IBXConst_SSQLClosed 64666 -#define IBXConst_SDatasetOpen 64667 -#define IBXConst_SDatasetClosed 64668 -#define IBXConst_SUnknownSQLDataType 64669 -#define IBXConst_SInvalidColumnIndex 64670 -#define IBXConst_SInvalidParamColumnIndex 64671 -#define IBXConst_SFileAccessError 64672 -#define IBXConst_SConnectionTimeout 64673 -#define IBXConst_SCannotSetDatabase 64674 -#define IBXConst_SCannotSetTransaction 64675 -#define IBXConst_SOperationCancelled 64676 -#define IBXConst_SDPBConstantNotSupported 64677 -#define IBXConst_SDPBConstantUnknown 64678 -#define IBXConst_STPBConstantNotSupported 64679 -#define IBXConst_STPBConstantUnknown 64680 -#define IBXConst_SDatabaseClosed 64681 -#define IBXConst_SDatabaseOpen 64682 -#define IBXConst_SDatabaseNameMissing 64683 -#define IBXConst_SNotInTransaction 64684 -#define IBXConst_SInTransaction 64685 -#define IBXConst_STimeoutNegative 64686 -#define IBXConst_SNoDatabasesInTransaction 64687 -#define VDBConsts_SPriorRecord 64688 -#define VDBConsts_SNextRecord 64689 -#define VDBConsts_SLastRecord 64690 -#define VDBConsts_SInsertRecord 64691 -#define VDBConsts_SDeleteRecord 64692 -#define VDBConsts_SEditRecord 64693 -#define VDBConsts_SPostEdit 64694 -#define VDBConsts_SCancelEdit 64695 -#define VDBConsts_SRefreshRecord 64696 -#define VDBConsts_SRemoteLogin 64697 -#define IBXConst_SUnknownError 64698 -#define IBXConst_SInterBaseMissing 64699 -#define IBXConst_SInterBaseInstallMissing 64700 -#define IBXConst_SIB60feature 64701 -#define IBXConst_SNotSupported 64702 -#define IBXConst_SNotPermitted 64703 -#define uDARes_err_LoadPackageFailed 64704 -#define uDARes_err_InvalidDriverReference 64705 -#define uDARes_err_CannotFindStatement 64706 -#define uDARes_err_CannotFindDefaultItem 64707 -#define uDARes_err_PoolIsNotEmpty 64708 -#define uDARes_err_MaxPoolSizeReached 64709 -#define uDARes_err_LAMEDataset 64710 -#define uDARes_err_HETConnectionNotSupportedInV3 64711 -#define uDARes_err_DARDMInvalidSchema 64712 -#define uDARes_err_DARDMUnassignedAdapter 64713 -#define uDARes_err_DARDMConnectionIsNotAssigned 64714 -#define uDARes_err_DARDMCannotFindProxessorForDelta 64715 -#define uDARes_err_NeedShareMem 64716 -#define uDARes_err_ExecuteSQLCommandNotAllowed 64717 -#define uDARes_err_DatasetNotAccessible 64718 -#define VDBConsts_SFirstRecord 64719 -#define JvResources_RsHotLight 64720 -#define JvResources_RsMenuBar 64721 -#define JvResources_RsMenuHighlight 64722 -#define uDARes_err_ChangeLogAlreadyStarted 64723 -#define uDARes_err_NotAttachedToDataTable 64724 -#define uDARes_err_DriverProcAlreadyRegistered 64725 -#define uDARes_err_DriverManagerAlreadyCreated 64726 -#define uDARes_err_DriverManagerNotAssigned 64727 -#define uDARes_err_FieldTypeNotSupported 64728 -#define uDARes_err_InvalidDataset 64729 -#define uDARes_err_CannotFindItem 64730 -#define uDARes_err_DriverAlreadyLoaded 64731 -#define uDARes_err_InvalidDLL 64732 -#define uDARes_err_UnknownDriver 64733 -#define uDARes_err_FieldIsNotBound 64734 -#define uDARes_err_CannotFindField 64735 -#define JvResources_RsClInactiveBorder 64736 -#define JvResources_RsClAppWorkSpace 64737 -#define JvResources_RsClHighlight 64738 -#define JvResources_RsClHighlightText 64739 -#define JvResources_RsClBtnFace 64740 -#define JvResources_RsClBtnShadow 64741 -#define JvResources_RsClGrayText 64742 -#define JvResources_RsClBtnText 64743 -#define JvResources_RsClInactiveCaptionText 64744 -#define JvResources_RsClBtnHighlight 64745 -#define JvResources_RsCl3DDkShadow 64746 -#define JvResources_RsCl3DLight 64747 -#define JvResources_RsClInfoText 64748 -#define JvResources_RsClInfoBk 64749 -#define JvResources_RsGradientActiveCaption 64750 -#define JvResources_RsGradientInactiveCaption 64751 -#define JvResources_RsClLightYellow 64752 -#define JvResources_RsClLightGreen 64753 -#define JvResources_RsClLightTurquoise 64754 -#define JvResources_RsClPaleBlue 64755 -#define JvResources_RsClLavender 64756 -#define JvResources_RsClScrollBar 64757 -#define JvResources_RsClBackground 64758 -#define JvResources_RsClActiveCaption 64759 -#define JvResources_RsClInactiveCaption 64760 -#define JvResources_RsClMenu 64761 -#define JvResources_RsClWindow 64762 -#define JvResources_RsClWindowFrame 64763 -#define JvResources_RsClMenuText 64764 -#define JvResources_RsClWindowText 64765 -#define JvResources_RsClCaptionText 64766 -#define JvResources_RsClActiveBorder 64767 -#define JvResources_RsClDarkYellow 64768 -#define JvResources_RsClBlueGray 64769 -#define JvResources_RsClGray50 64770 -#define JvResources_RsClLightOrange 64771 -#define JvResources_RsClSeaGreen 64772 -#define JvResources_RsClLightBlue 64773 -#define JvResources_RsClViolet 64774 -#define JvResources_RsClGray40 64775 -#define JvResources_RsClPink 64776 -#define JvResources_RsClGold 64777 -#define JvResources_RsClBrightGreen 64778 -#define JvResources_RsClTurquoise 64779 -#define JvResources_RsClPlum 64780 -#define JvResources_RsClGray25 64781 -#define JvResources_RsClRose 64782 -#define JvResources_RsClTan 64783 -#define JvResources_RsClFuchsia 64784 -#define JvResources_RsClAqua 64785 -#define JvResources_RsClWhite 64786 -#define JvResources_RsClMoneyGreen 64787 -#define JvResources_RsClSkyBlue 64788 -#define JvResources_RsClCream 64789 -#define JvResources_RsClMedGray 64790 -#define JvResources_RsClBrown 64791 -#define JvResources_RsClOliveGreen 64792 -#define JvResources_RsClDarkGreen 64793 -#define JvResources_RsClDarkTeal 64794 -#define JvResources_RsClDarkBlue 64795 -#define JvResources_RsClIndigo 64796 -#define JvResources_RsClGray80 64797 -#define JvResources_RsClDarkRed 64798 -#define JvResources_RsClOrange 64799 -#define JvResources_RsEGIFVersion 64800 -#define JvResources_RsEPixelFormatNotImplemented 64801 -#define JvResources_RsEBitCountNotImplemented 64802 -#define JvResources_RsClBlack 64803 -#define JvResources_RsClMaroon 64804 -#define JvResources_RsClGreen 64805 -#define JvResources_RsClOlive 64806 -#define JvResources_RsClNavy 64807 -#define JvResources_RsClPurple 64808 -#define JvResources_RsClTeal 64809 -#define JvResources_RsClGray 64810 -#define JvResources_RsClSilver 64811 -#define JvResources_RsClRed 64812 -#define JvResources_RsClLime 64813 -#define JvResources_RsClYellow 64814 -#define JvResources_RsClBlue 64815 -#define JvResources_RsEUnableToCreateKey 64816 -#define JvResources_RsEEnumeratingRegistry 64817 -#define JvResources_RsEInvalidType 64818 -#define JvResources_RsEUnknownBaseType 64819 -#define JvResources_RsEInvalidPath 64820 -#define JvResources_RsENotAUniqueRootPath 64821 -#define JvResources_RsECircularReferenceOfStorages 64822 -#define JvResources_RsEShellNotCompatible 64823 -#define JvResources_RsGIFImage 64824 -#define JvResources_RsEChangeGIFSize 64825 -#define JvResources_RsENoGIFData 64826 -#define JvResources_RsEUnrecognizedGIFExt 64827 -#define JvResources_RsEWrongGIFColors 64828 -#define JvResources_RsEBadGIFCodeSize 64829 -#define JvResources_RsEGIFDecodeError 64830 -#define JvResources_RsEGIFEncodeError 64831 -#define JclResources_RsIntelCacheDescr7D 64832 -#define JclResources_RsIntelCacheDescr7F 64833 -#define JclResources_RsIntelCacheDescr82 64834 -#define JclResources_RsIntelCacheDescr83 64835 -#define JclResources_RsIntelCacheDescr84 64836 -#define JclResources_RsIntelCacheDescr85 64837 -#define JclResources_RsIntelCacheDescr86 64838 -#define JclResources_RsIntelCacheDescr87 64839 -#define JclResources_RsIntelCacheDescrB0 64840 -#define JclResources_RsIntelCacheDescrB3 64841 -#define JclResources_RsIntelCacheDescrB4 64842 -#define JclResources_RsIntelCacheDescrF0 64843 -#define JclResources_RsIntelCacheDescrF1 64844 -#define JvResources_RsAniExtension 64845 -#define JvResources_RsAniFilterName 64846 -#define JvResources_RsRootValueReplaceFmt 64847 -#define JclResources_RsIntelCacheDescr57 64848 -#define JclResources_RsIntelCacheDescr5B 64849 -#define JclResources_RsIntelCacheDescr5C 64850 -#define JclResources_RsIntelCacheDescr5D 64851 -#define JclResources_RsIntelCacheDescr60 64852 -#define JclResources_RsIntelCacheDescr66 64853 -#define JclResources_RsIntelCacheDescr67 64854 -#define JclResources_RsIntelCacheDescr68 64855 -#define JclResources_RsIntelCacheDescr70 64856 -#define JclResources_RsIntelCacheDescr71 64857 -#define JclResources_RsIntelCacheDescr72 64858 -#define JclResources_RsIntelCacheDescr78 64859 -#define JclResources_RsIntelCacheDescr79 64860 -#define JclResources_RsIntelCacheDescr7A 64861 -#define JclResources_RsIntelCacheDescr7B 64862 -#define JclResources_RsIntelCacheDescr7C 64863 -#define JclResources_RsIntelCacheDescr29 64864 -#define JclResources_RsIntelCacheDescr2C 64865 -#define JclResources_RsIntelCacheDescr30 64866 -#define JclResources_RsIntelCacheDescr40 64867 -#define JclResources_RsIntelCacheDescr41 64868 -#define JclResources_RsIntelCacheDescr42 64869 -#define JclResources_RsIntelCacheDescr43 64870 -#define JclResources_RsIntelCacheDescr44 64871 -#define JclResources_RsIntelCacheDescr45 64872 -#define JclResources_RsIntelCacheDescr46 64873 -#define JclResources_RsIntelCacheDescr47 64874 -#define JclResources_RsIntelCacheDescr49 64875 -#define JclResources_RsIntelCacheDescr50 64876 -#define JclResources_RsIntelCacheDescr51 64877 -#define JclResources_RsIntelCacheDescr52 64878 -#define JclResources_RsIntelCacheDescr56 64879 -#define JclResources_RsRTTIVarType 64880 -#define JclResources_RsDeclarationFormat 64881 -#define JclResources_RsIntelCacheDescr00 64882 -#define JclResources_RsIntelCacheDescr01 64883 -#define JclResources_RsIntelCacheDescr02 64884 -#define JclResources_RsIntelCacheDescr03 64885 -#define JclResources_RsIntelCacheDescr04 64886 -#define JclResources_RsIntelCacheDescr05 64887 -#define JclResources_RsIntelCacheDescr06 64888 -#define JclResources_RsIntelCacheDescr08 64889 -#define JclResources_RsIntelCacheDescr0A 64890 -#define JclResources_RsIntelCacheDescr0B 64891 -#define JclResources_RsIntelCacheDescr0C 64892 -#define JclResources_RsIntelCacheDescr22 64893 -#define JclResources_RsIntelCacheDescr23 64894 -#define JclResources_RsIntelCacheDescr25 64895 -#define JclResources_RsRTTIMinValue 64896 -#define JclResources_RsRTTIMaxValue 64897 -#define JclResources_RsRTTINameList 64898 -#define JclResources_RsRTTIClassName 64899 -#define JclResources_RsRTTIParent 64900 -#define JclResources_RsRTTIPropCount 64901 -#define JclResources_RsRTTIUnitName 64902 -#define JclResources_RsRTTIBasedOn 64903 -#define JclResources_RsRTTIFloatType 64904 -#define JclResources_RsRTTIMethodKind 64905 -#define JclResources_RsRTTIParamCount 64906 -#define JclResources_RsRTTIReturnType 64907 -#define JclResources_RsRTTIMaxLen 64908 -#define JclResources_RsRTTIElSize 64909 -#define JclResources_RsRTTIElType 64910 -#define JclResources_RsRTTIElNeedCleanup 64911 -#define JclResources_RsRTTITypeError 64912 -#define JclResources_RsRTTITypeInfoAt 64913 -#define JclResources_RsRTTIPropRead 64914 -#define JclResources_RsRTTIPropWrite 64915 -#define JclResources_RsRTTIPropStored 64916 -#define JclResources_RsRTTIField 64917 -#define JclResources_RsRTTIStaticMethod 64918 -#define JclResources_RsRTTIVirtualMethod 64919 -#define JclResources_RsRTTIIndex 64920 -#define JclResources_RsRTTIDefault 64921 -#define JclResources_RsRTTIName 64922 -#define JclResources_RsRTTIType 64923 -#define JclResources_RsRTTIFlags 64924 -#define JclResources_RsRTTIGUID 64925 -#define JclResources_RsRTTITypeKind 64926 -#define JclResources_RsRTTIOrdinalType 64927 -#define JclResources_RsHKCRShort 64928 -#define JclResources_RsHKCUShort 64929 -#define JclResources_RsHKLMShort 64930 -#define JclResources_RsHKUSShort 64931 -#define JclResources_RsHKPDShort 64932 -#define JclResources_RsHKCCShort 64933 -#define JclResources_RsHKDDShort 64934 -#define JclResources_RsRTTIValueOutOfRange 64935 -#define JclResources_RsRTTIUnknownIdentifier 64936 -#define JclResources_RsRTTIVar 64937 -#define JclResources_RsRTTIConst 64938 -#define JclResources_RsRTTIArrayOf 64939 -#define JclResources_RsRTTIOut 64940 -#define JclResources_RsRTTIOrdinal 64941 -#define JclResources_RsRTTITrue 64942 -#define JclResources_RsRTTIFalse 64943 -#define JConsts_sChangeJPGSize 64944 -#define JConsts_sJPEGError 64945 -#define JConsts_sJPEGImageFile 64946 -#define JclResources_RsFileUtilsNoVersionInfo 64947 -#define JclResources_RsUnableToOpenKeyRead 64948 -#define JclResources_RsUnableToOpenKeyWrite 64949 -#define JclResources_RsUnableToAccessValue 64950 -#define JclResources_RsWrongDataType 64951 -#define JclResources_RsInconsistentPath 64952 -#define JclResources_RsHKCRLong 64953 -#define JclResources_RsHKCULong 64954 -#define JclResources_RsHKLMLong 64955 -#define JclResources_RsHKUSLong 64956 -#define JclResources_RsHKPDLong 64957 -#define JclResources_RsHKCCLong 64958 -#define JclResources_RsHKDDLong 64959 -#define IdResourceStringsCore_RSConnectTimeout 64960 -#define IdResourceStringsCore_RSThreadTerminateAndWaitFor 64961 -#define IdResourceStringsCore_RSAlreadyConnected 64962 -#define IdResourceStringsCore_RSMaximumNumberOfCaptureLineExceeded 64963 -#define IdResourceStringsCore_RSchedMaxThreadEx 64964 -#define IdResourceStringsCore_RSTransparentProxyCannotBind 64965 -#define IdResourceStringsCore_RSTransparentProxyCanNotSupportUDP 64966 -#define IdResourceStringsCore_RSBufferMissingTerminator 64967 -#define IdResourceStringsCore_RSBufferInvalidStartPos 64968 -#define IdResourceStringsCore_RSReplyInvalidCode 64969 -#define IdResourceStringsCore_RSThreadSchedulerThreadRequired 64970 -#define IdResourceStringsCore_RSNoOnExecute 64971 -#define IdResourceStringsCore_RSTCPServerSchedulerAlreadyActive 64972 -#define ComStrs_sInvalidIndex 64973 -#define ComStrs_sInsertError 64974 -#define ComStrs_sUDAssociated 64975 -#define IdResourceStringsCore_RSSocksServerPermissionError 64976 -#define IdResourceStringsCore_RSSocksServerNetUnreachableError 64977 -#define IdResourceStringsCore_RSSocksServerHostUnreachableError 64978 -#define IdResourceStringsCore_RSSocksServerConnectionRefusedError 64979 -#define IdResourceStringsCore_RSSocksServerTTLExpiredError 64980 -#define IdResourceStringsCore_RSSocksServerCommandError 64981 -#define IdResourceStringsCore_RSSocksServerAddressError 64982 -#define IdResourceStringsCore_RSInterceptCircularLink 64983 -#define IdResourceStringsCore_RSNotEnoughDataInBuffer 64984 -#define IdResourceStringsCore_RSTooMuchDataInBuffer 64985 -#define IdResourceStringsCore_RSFileNotFound 64986 -#define IdResourceStringsCore_RSNotConnected 64987 -#define IdResourceStringsCore_RSObjectTypeNotSupported 64988 -#define IdResourceStringsCore_RSIdNoDataToRead 64989 -#define IdResourceStringsCore_RSReadTimeout 64990 -#define IdResourceStringsCore_RSReadLnMaxLineLengthExceeded 64991 -#define IdResourceStringsProtocols_RSHTTPHTTPVersionNotSupported 64992 -#define IdResourceStringsProtocols_RSHTTPUnknownResponseCode 64993 -#define IdResourceStringsProtocols_RSHTTPHeaderAlreadyWritten 64994 -#define IdResourceStringsProtocols_RSHTTPErrorParsingCommand 64995 -#define IdResourceStringsProtocols_RSHTTPUnsupportedAuthorisationScheme 64996 -#define IdResourceStringsProtocols_RSHTTPCannotSwitchSessionStateWhenActive 64997 -#define IdResourceStringsProtocols_RSHTTPAuthAlreadyRegistered 64998 -#define IdResourceStringsCore_RSSocksUDPNotSupported 64999 -#define IdResourceStringsCore_RSSocksRequestFailed 65000 -#define IdResourceStringsCore_RSSocksRequestServerFailed 65001 -#define IdResourceStringsCore_RSSocksRequestIdentFailed 65002 -#define IdResourceStringsCore_RSSocksUnknownError 65003 -#define IdResourceStringsCore_RSSocksServerRespondError 65004 -#define IdResourceStringsCore_RSSocksAuthMethodError 65005 -#define IdResourceStringsCore_RSSocksAuthError 65006 -#define IdResourceStringsCore_RSSocksServerGeneralError 65007 -#define IdResourceStringsProtocols_RSHTTPMethodNotAllowed 65008 -#define IdResourceStringsProtocols_RSHTTPNotAcceptable 65009 -#define IdResourceStringsProtocols_RSHTTPProxyAuthenticationRequired 65010 -#define IdResourceStringsProtocols_RSHTTPRequestTimeout 65011 -#define IdResourceStringsProtocols_RSHTTPConflict 65012 -#define IdResourceStringsProtocols_RSHTTPGone 65013 -#define IdResourceStringsProtocols_RSHTTPLengthRequired 65014 -#define IdResourceStringsProtocols_RSHTTPPreconditionFailed 65015 -#define IdResourceStringsProtocols_RSHTTPRequestEntityToLong 65016 -#define IdResourceStringsProtocols_RSHTTPRequestURITooLong 65017 -#define IdResourceStringsProtocols_RSHTTPUnsupportedMediaType 65018 -#define IdResourceStringsProtocols_RSHTTPInternalServerError 65019 -#define IdResourceStringsProtocols_RSHTTPNotImplemented 65020 -#define IdResourceStringsProtocols_RSHTTPBadGateway 65021 -#define IdResourceStringsProtocols_RSHTTPServiceUnavailable 65022 -#define IdResourceStringsProtocols_RSHTTPGatewayTimeout 65023 -#define IdResourceStringsProtocols_RSHTTPOK 65024 -#define IdResourceStringsProtocols_RSHTTPCreated 65025 -#define IdResourceStringsProtocols_RSHTTPAccepted 65026 -#define IdResourceStringsProtocols_RSHTTPNonAuthoritativeInformation 65027 -#define IdResourceStringsProtocols_RSHTTPNoContent 65028 -#define IdResourceStringsProtocols_RSHTTPResetContent 65029 -#define IdResourceStringsProtocols_RSHTTPPartialContent 65030 -#define IdResourceStringsProtocols_RSHTTPMovedPermanently 65031 -#define IdResourceStringsProtocols_RSHTTPMovedTemporarily 65032 -#define IdResourceStringsProtocols_RSHTTPSeeOther 65033 -#define IdResourceStringsProtocols_RSHTTPNotModified 65034 -#define IdResourceStringsProtocols_RSHTTPUseProxy 65035 -#define IdResourceStringsProtocols_RSHTTPBadRequest 65036 -#define IdResourceStringsProtocols_RSHTTPUnauthorized 65037 -#define IdResourceStringsProtocols_RSHTTPForbidden 65038 -#define IdResourceStringsProtocols_RSHTTPNotFound 65039 -#define IdResourceStrings_RSCannotSetIPVersionWhenConnected 65040 -#define IdResourceStrings_RSCannotBindRange 65041 -#define IdResourceStrings_RSConnectionClosedGracefully 65042 -#define IdResourceStrings_RSCouldNotBindSocket 65043 -#define IdResourceStrings_RSInvalidPortRange 65044 -#define IdResourceStrings_RSInvalidServiceName 65045 -#define IdResourceStrings_RSIPv6Unavailable 65046 -#define IdResourceStrings_RSInvalidIPv6Address 65047 -#define IdResourceStrings_RSIPVersionUnsupported 65048 -#define IdResourceStrings_RSNotAllBytesSent 65049 -#define IdResourceStrings_RSPackageSizeTooBig 65050 -#define IdResourceStrings_RSSetSizeExceeded 65051 -#define IdResourceStringsProtocols_RSMIMEExtensionEmpty 65052 -#define IdResourceStringsProtocols_RSMIMEMIMETypeEmpty 65053 -#define IdResourceStringsProtocols_RSMIMEMIMEExtAlreadyExists 65054 -#define IdResourceStringsProtocols_RSHTTPContinue 65055 -#define IdResourceStrings_RSStackENOBUFS 65056 -#define IdResourceStrings_RSStackEISCONN 65057 -#define IdResourceStrings_RSStackENOTCONN 65058 -#define IdResourceStrings_RSStackESHUTDOWN 65059 -#define IdResourceStrings_RSStackETOOMANYREFS 65060 -#define IdResourceStrings_RSStackETIMEDOUT 65061 -#define IdResourceStrings_RSStackECONNREFUSED 65062 -#define IdResourceStrings_RSStackELOOP 65063 -#define IdResourceStrings_RSStackENAMETOOLONG 65064 -#define IdResourceStrings_RSStackEHOSTDOWN 65065 -#define IdResourceStrings_RSStackEHOSTUNREACH 65066 -#define IdResourceStrings_RSStackENOTEMPTY 65067 -#define IdResourceStrings_RSStackHOST_NOT_FOUND 65068 -#define IdResourceStrings_RSStackClassUndefined 65069 -#define IdResourceStrings_RSStackAlreadyCreated 65070 -#define IdResourceStrings_RSAntiFreezeOnlyOne 65071 -#define IdResourceStrings_RSStackEDESTADDRREQ 65072 -#define IdResourceStrings_RSStackEMSGSIZE 65073 -#define IdResourceStrings_RSStackEPROTOTYPE 65074 -#define IdResourceStrings_RSStackENOPROTOOPT 65075 -#define IdResourceStrings_RSStackEPROTONOSUPPORT 65076 -#define IdResourceStrings_RSStackESOCKTNOSUPPORT 65077 -#define IdResourceStrings_RSStackEOPNOTSUPP 65078 -#define IdResourceStrings_RSStackEPFNOSUPPORT 65079 -#define IdResourceStrings_RSStackEAFNOSUPPORT 65080 -#define IdResourceStrings_RSStackEADDRINUSE 65081 -#define IdResourceStrings_RSStackEADDRNOTAVAIL 65082 -#define IdResourceStrings_RSStackENETDOWN 65083 -#define IdResourceStrings_RSStackENETUNREACH 65084 -#define IdResourceStrings_RSStackENETRESET 65085 -#define IdResourceStrings_RSStackECONNABORTED 65086 -#define IdResourceStrings_RSStackECONNRESET 65087 -#define IdResourceStrings_RSStatusConnecting 65088 -#define IdResourceStrings_RSStatusConnected 65089 -#define IdResourceStrings_RSStatusDisconnecting 65090 -#define IdResourceStrings_RSStatusDisconnected 65091 -#define IdResourceStrings_RSStatusText 65092 -#define IdResourceStrings_RSStackError 65093 -#define IdResourceStrings_RSStackEINTR 65094 -#define IdResourceStrings_RSStackEBADF 65095 -#define IdResourceStrings_RSStackEACCES 65096 -#define IdResourceStrings_RSStackEFAULT 65097 -#define IdResourceStrings_RSStackEINVAL 65098 -#define IdResourceStrings_RSStackEMFILE 65099 -#define IdResourceStrings_RSStackEWOULDBLOCK 65100 -#define IdResourceStrings_RSStackEINPROGRESS 65101 -#define IdResourceStrings_RSStackEALREADY 65102 -#define IdResourceStrings_RSStackENOTSOCK 65103 -#define DBConsts_SProviderSQLNotSupported 65104 -#define DBConsts_SProviderExecuteNotSupported 65105 -#define DBConsts_SExprNoAggOnCalcs 65106 -#define DBConsts_SDataSetUnidirectional 65107 -#define DBConsts_SUnassignedVar 65108 -#define DBConsts_SRecordNotFound 65109 -#define DBConsts_SBcdOverflow 65110 -#define DBConsts_SInvalidBcdValue 65111 -#define DBConsts_SInvalidFormatType 65112 -#define DBConsts_SCouldNotParseTimeStamp 65113 -#define DBConsts_SInvalidSqlTimeStamp 65114 -#define IdResourceStrings_RSFailedTimeZoneInfo 65115 -#define IdResourceStrings_RSWinsockCallError 65116 -#define IdResourceStrings_RSWinsockLoadError 65117 -#define IdResourceStrings_RSWinsockInitializationError 65118 -#define IdResourceStrings_RSStatusResolving 65119 -#define DBConsts_SExprIncorrect 65120 -#define DBConsts_SExprNothing 65121 -#define DBConsts_SExprTypeMis 65122 -#define DBConsts_SExprBadScope 65123 -#define DBConsts_SExprNoArith 65124 -#define DBConsts_SExprNotAgg 65125 -#define DBConsts_SExprBadConst 65126 -#define DBConsts_SExprNoAggFilter 65127 -#define DBConsts_SExprEmptyInList 65128 -#define DBConsts_SInvalidKeywordUse 65129 -#define DBConsts_STextFalse 65130 -#define DBConsts_STextTrue 65131 -#define DBConsts_SParameterNotFound 65132 -#define DBConsts_SInvalidVersion 65133 -#define DBConsts_SBadFieldType 65134 -#define DBConsts_SAggActive 65135 -#define DBConsts_SNotEditing 65136 -#define DBConsts_SDataSetClosed 65137 -#define DBConsts_SDataSetEmpty 65138 -#define DBConsts_SDataSetReadOnly 65139 -#define DBConsts_SNestedDataSetClass 65140 -#define DBConsts_SExprTermination 65141 -#define DBConsts_SExprNameError 65142 -#define DBConsts_SExprStringError 65143 -#define DBConsts_SExprInvalidChar 65144 -#define DBConsts_SExprNoLParen 65145 -#define DBConsts_SExprNoRParen 65146 -#define DBConsts_SExprNoRParenOrComma 65147 -#define DBConsts_SExprExpected 65148 -#define DBConsts_SExprBadField 65149 -#define DBConsts_SExprBadNullTest 65150 -#define DBConsts_SExprRangeError 65151 -#define DBConsts_SFieldOutOfRange 65152 -#define DBConsts_SFieldRequired 65153 -#define DBConsts_SDataSetMissing 65154 -#define DBConsts_SInvalidCalcType 65155 -#define DBConsts_SFieldReadOnly 65156 -#define DBConsts_SFieldIndexError 65157 -#define DBConsts_SNoFieldIndexes 65158 -#define DBConsts_SNotIndexField 65159 -#define DBConsts_SIndexFieldMissing 65160 -#define DBConsts_SNoIndexForFields 65161 -#define DBConsts_SIndexNotFound 65162 -#define DBConsts_SCircularDataLink 65163 -#define DBConsts_SLookupInfoError 65164 -#define DBConsts_SDataSourceChange 65165 -#define DBConsts_SNoNestedMasterSource 65166 -#define DBConsts_SDataSetOpen 65167 -#define DBConsts_SInvalidFieldSize 65168 -#define DBConsts_SInvalidFieldKind 65169 -#define DBConsts_SUnknownFieldType 65170 -#define DBConsts_SFieldNameMissing 65171 -#define DBConsts_SDuplicateFieldName 65172 -#define DBConsts_SFieldNotFound 65173 -#define DBConsts_SFieldAccessError 65174 -#define DBConsts_SFieldValueError 65175 -#define DBConsts_SFieldRangeError 65176 -#define DBConsts_SBcdFieldRangeError 65177 -#define DBConsts_SInvalidIntegerValue 65178 -#define DBConsts_SInvalidBoolValue 65179 -#define DBConsts_SInvalidFloatValue 65180 -#define DBConsts_SFieldTypeMismatch 65181 -#define DBConsts_SFieldSizeMismatch 65182 -#define DBConsts_SInvalidVarByteArray 65183 -#define uRORes_err_ChannelDoesntSupportIROMetadataReader 65184 -#define uRORes_err_TooManySessions 65185 -#define uRORes_err_DOMElementIsNIL 65186 -#define uRORes_err_CannotLoadXMLDocument 65187 -#define uRORes_err_ErrorCreatingMsXmlDoc 65188 -#define uRORes_err_NoXMLParsersAvailable 65189 -#define uRORes_err_IDispatchMarshalingNotSupported 65190 -#define uRORes_err_UnsupportedVariantType 65191 -#define uRORes_err_VariantIsNotArray 65192 -#define uRORes_err_InvalidVarArrayDimCount 65193 -#define uRORes_err_CannotFindParameter 65194 -#define uRORes_err_MessageNotAssigned 65195 -#define ComConst_SOleError 65196 -#define ComConst_SNoMethod 65197 -#define ComConst_SVarNotObject 65198 -#define ComConst_STooManyParams 65199 -#define uRORes_err_ClassFactoryNotFound 65200 -#define uRORes_err_IROMessageNotSupported 65201 -#define uRORes_err_ClassAlreadyRegistered 65202 -#define uRORes_err_UnknownClass 65203 -#define uRORes_err_UnknownProxyInterface 65204 -#define uRORes_err_DispatcherAlreadyAssigned 65205 -#define uRORes_err_CannotFindMessageDispatcher 65206 -#define uRORes_err_ServerOnlySupportsOneDispatcher 65207 -#define uRORes_err_UnhandledException 65208 -#define uRORes_err_ChannelBusy 65209 -#define uRORes_err_ArrayIndexOutOfBounds 65210 -#define uRORes_err_InvalidHeader 65211 -#define uRORes_err_InvalidHeaderEncrypted 65212 -#define uRORes_err_UnknownClassInStream 65213 -#define uRORes_err_UnexpectedClassInStream 65214 -#define uRORes_err_SessionNotFound 65215 -#define uRORes_err_RodlNoOperationsDefined 65216 -#define uRORes_err_RodlUsedFileDoesNotExist 65217 -#define uRORes_err_RodlInvalidDataType 65218 -#define uRORes_err_RodlStructCannotBeNested 65219 -#define uRORes_err_RodlInvalidAncestorType 65220 -#define uRORes_str_ExceptionOnServer 65221 -#define uRORes_str_ExceptionReraisedFromServer 65222 -#define uRORes_err_AssignError 65223 -#define uRORes_err_InvalidRequestStream 65224 -#define uRORes_err_NILMessage 65225 -#define uRORes_err_UnspecifiedInterface 65226 -#define uRORes_err_UnspecifiedMessage 65227 -#define uRORes_err_UnknownMethod 65228 -#define uRORes_err_ClassFactoryDidNotReturnInstance 65229 -#define uRORes_err_ParameterNotFound 65230 -#define uRORes_err_TypeNotSupported 65231 -#define uRODECConst_sFMT_XX 65232 -#define uRODECConst_sInvalidKeySize 65233 -#define uRODECConst_sNotInitialized 65234 -#define uRORes_err_InvalidIndex 65235 -#define uRORes_err_InvalidType 65236 -#define uRORes_err_InvalidLibrary 65237 -#define uRORes_err_InvalidStream 65238 -#define uRORes_err_InvalidTargetEntity 65239 -#define uRORes_err_InvalidParamFlag 65240 -#define uRORes_err_InvalidStringLength 65241 -#define uRORes_str_InvalidClassTypeInStream 65242 -#define uRORes_err_UnexpectedEndOfStream 65243 -#define uRORes_err_RodlDuplicateName 65244 -#define uRORes_err_RodlNoDataTypeSpecified 65245 -#define uRORes_err_RodlNoEnumValues 65246 -#define uRORes_err_RodlNoStructElementsDefined 65247 -#define Consts_SANSIEncoding 65248 -#define Consts_SASCIIEncoding 65249 -#define Consts_SUnicodeEncoding 65250 -#define Consts_SBigEndianEncoding 65251 -#define Consts_SUTF8Encoding 65252 -#define Consts_SUTF7Encoding 65253 -#define Consts_SWindowsVistaRequired 65254 -#define uRODECConst_sProtectionCircular 65255 -#define uRODECConst_sStringFormatExists 65256 -#define uRODECConst_sInvalidStringFormat 65257 -#define uRODECConst_sInvalidFormatString 65258 -#define uRODECConst_sFMT_COPY 65259 -#define uRODECConst_sFMT_HEX 65260 -#define uRODECConst_sFMT_HEXL 65261 -#define uRODECConst_sFMT_MIME64 65262 -#define uRODECConst_sFMT_UU 65263 -#define Consts_SInvalidMemoSize 65264 -#define Consts_SInvalidPrinterOp 65265 -#define Consts_SNoDefaultPrinter 65266 -#define Consts_SDuplicateMenus 65267 -#define Consts_SPictureLabel 65268 -#define Consts_SPictureDesc 65269 -#define Consts_SPreviewLabel 65270 -#define Consts_SDockedCtlNeedsName 65271 -#define Consts_SDockTreeRemoveError 65272 -#define Consts_SDockZoneNotFound 65273 -#define Consts_SDockZoneHasNoCtl 65274 -#define Consts_SDockZoneVersionConflict 65275 -#define Consts_SMultiSelectRequired 65276 -#define Consts_SSeparator 65277 -#define Consts_SErrorSettingCount 65278 -#define Consts_SListBoxMustBeVirtual 65279 -#define Consts_SmkcCtrl 65280 -#define Consts_SmkcAlt 65281 -#define Consts_srNone 65282 -#define Consts_SOutOfRange 65283 -#define Consts_sAllFilter 65284 -#define Consts_SInsertLineError 65285 -#define Consts_SConfirmCreateDir 65286 -#define Consts_SSelectDirCap 65287 -#define Consts_SDirNameCap 65288 -#define Consts_SDrivesCap 65289 -#define Consts_SDirsCap 65290 -#define Consts_SFilesCap 65291 -#define Consts_SNetworkCap 65292 -#define Consts_SInvalidClipFmt 65293 -#define Consts_SIconToClipboard 65294 -#define Consts_SCannotOpenClipboard 65295 -#define Consts_SmkcBkSp 65296 -#define Consts_SmkcTab 65297 -#define Consts_SmkcEsc 65298 -#define Consts_SmkcEnter 65299 -#define Consts_SmkcSpace 65300 -#define Consts_SmkcPgUp 65301 -#define Consts_SmkcPgDn 65302 -#define Consts_SmkcEnd 65303 -#define Consts_SmkcHome 65304 -#define Consts_SmkcLeft 65305 -#define Consts_SmkcUp 65306 -#define Consts_SmkcRight 65307 -#define Consts_SmkcDown 65308 -#define Consts_SmkcIns 65309 -#define Consts_SmkcDel 65310 -#define Consts_SmkcShift 65311 -#define Consts_SMaskEditErr 65312 -#define Consts_SMsgDlgWarning 65313 -#define Consts_SMsgDlgError 65314 -#define Consts_SMsgDlgInformation 65315 -#define Consts_SMsgDlgConfirm 65316 -#define Consts_SMsgDlgYes 65317 -#define Consts_SMsgDlgNo 65318 -#define Consts_SMsgDlgOK 65319 -#define Consts_SMsgDlgCancel 65320 -#define Consts_SMsgDlgHelp 65321 -#define Consts_SMsgDlgAbort 65322 -#define Consts_SMsgDlgRetry 65323 -#define Consts_SMsgDlgIgnore 65324 -#define Consts_SMsgDlgAll 65325 -#define Consts_SMsgDlgNoToAll 65326 -#define Consts_SMsgDlgYesToAll 65327 -#define Consts_SOKButton 65328 -#define Consts_SCancelButton 65329 -#define Consts_SYesButton 65330 -#define Consts_SNoButton 65331 -#define Consts_SHelpButton 65332 -#define Consts_SCloseButton 65333 -#define Consts_SIgnoreButton 65334 -#define Consts_SRetryButton 65335 -#define Consts_SAbortButton 65336 -#define Consts_SAllButton 65337 -#define Consts_SCannotDragForm 65338 -#define Consts_SVMetafiles 65339 -#define Consts_SVEnhMetafiles 65340 -#define Consts_SVIcons 65341 -#define Consts_SVBitmaps 65342 -#define Consts_SMaskErr 65343 -#define Consts_SMDIChildNotVisible 65344 -#define Consts_SVisibleChanged 65345 -#define Consts_SCannotShowModal 65346 -#define Consts_SScrollBarRange 65347 -#define Consts_SPropertyOutOfRange 65348 -#define Consts_SMenuIndexError 65349 -#define Consts_SMenuReinserted 65350 -#define Consts_SMenuNotFound 65351 -#define Consts_SNoTimers 65352 -#define Consts_SNotPrinting 65353 -#define Consts_SPrinting 65354 -#define Consts_SInvalidPrinter 65355 -#define Consts_SDeviceOnPort 65356 -#define Consts_SGroupIndexTooLow 65357 -#define Consts_SNoMDIForm 65358 -#define Consts_SControlParentSetToSelf 65359 -#define Consts_SChangeIconSize 65360 -#define Consts_SUnknownExtension 65361 -#define Consts_SUnknownClipboardFormat 65362 -#define Consts_SOutOfResources 65363 -#define Consts_SNoCanvasHandle 65364 -#define Consts_SInvalidImageSize 65365 -#define Consts_SInvalidImageList 65366 -#define Consts_SReplaceImage 65367 -#define Consts_SImageIndexError 65368 -#define Consts_SImageReadFail 65369 -#define Consts_SImageWriteFail 65370 -#define Consts_SWindowDCError 65371 -#define Consts_SWindowClass 65372 -#define Consts_SCannotFocus 65373 -#define Consts_SParentRequired 65374 -#define Consts_SParentGivenNotAParent 65375 -#define RTLConsts_SUnknownGroup 65376 -#define RTLConsts_SUnknownProperty 65377 -#define RTLConsts_SWriteError 65378 -#define RTLConsts_SThreadCreateError 65379 -#define RTLConsts_SThreadError 65380 -#define HelpIntfs_hNoTableOfContents 65381 -#define HelpIntfs_hNothingFound 65382 -#define HelpIntfs_hNoContext 65383 -#define HelpIntfs_hNoContextFound 65384 -#define HelpIntfs_hNoTopics 65385 -#define Consts_SInvalidBitmap 65386 -#define Consts_SInvalidIcon 65387 -#define Consts_SInvalidMetafile 65388 -#define Consts_SInvalidPixelFormat 65389 -#define Consts_SInvalidImage 65390 -#define Consts_SScanLine 65391 -#define RTLConsts_SInvalidPropertyType 65392 -#define RTLConsts_SInvalidPropertyValue 65393 -#define RTLConsts_SInvalidRegType 65394 -#define RTLConsts_SListCapacityError 65395 -#define RTLConsts_SListCountError 65396 -#define RTLConsts_SListIndexError 65397 -#define RTLConsts_SMemoryStreamError 65398 -#define RTLConsts_SPropertyException 65399 -#define RTLConsts_SReadError 65400 -#define RTLConsts_SReadOnlyProperty 65401 -#define RTLConsts_SRegCreateFailed 65402 -#define RTLConsts_SRegGetDataFailed 65403 -#define RTLConsts_SRegSetDataFailed 65404 -#define RTLConsts_SResNotFound 65405 -#define RTLConsts_SSeekNotImplemented 65406 -#define RTLConsts_SSortedListError 65407 -#define RTLConsts_SCantWriteResourceStreamError 65408 -#define RTLConsts_SCheckSynchronizeError 65409 -#define RTLConsts_SClassNotFound 65410 -#define RTLConsts_SDuplicateClass 65411 -#define RTLConsts_SDuplicateItem 65412 -#define RTLConsts_SDuplicateName 65413 -#define RTLConsts_SDuplicateString 65414 -#define RTLConsts_SFCreateErrorEx 65415 -#define RTLConsts_SFOpenErrorEx 65416 -#define RTLConsts_SIniFileWriteError 65417 -#define RTLConsts_SInvalidFileName 65418 -#define RTLConsts_SInvalidImage 65419 -#define RTLConsts_SInvalidName 65420 -#define RTLConsts_SInvalidProperty 65421 -#define RTLConsts_SInvalidPropertyElement 65422 -#define RTLConsts_SInvalidPropertyPath 65423 -#define SysConst_SShortDayNameTue 65424 -#define SysConst_SShortDayNameWed 65425 -#define SysConst_SShortDayNameThu 65426 -#define SysConst_SShortDayNameFri 65427 -#define SysConst_SShortDayNameSat 65428 -#define SysConst_SLongDayNameSun 65429 -#define SysConst_SLongDayNameMon 65430 -#define SysConst_SLongDayNameTue 65431 -#define SysConst_SLongDayNameWed 65432 -#define SysConst_SLongDayNameThu 65433 -#define SysConst_SLongDayNameFri 65434 -#define SysConst_SLongDayNameSat 65435 -#define SysConst_SCannotCreateDir 65436 -#define RTLConsts_SAncestorNotFound 65437 -#define RTLConsts_SAssignError 65438 -#define RTLConsts_SBitsIndexError 65439 -#define SysConst_SShortMonthNameNov 65440 -#define SysConst_SShortMonthNameDec 65441 -#define SysConst_SLongMonthNameJan 65442 -#define SysConst_SLongMonthNameFeb 65443 -#define SysConst_SLongMonthNameMar 65444 -#define SysConst_SLongMonthNameApr 65445 -#define SysConst_SLongMonthNameMay 65446 -#define SysConst_SLongMonthNameJun 65447 -#define SysConst_SLongMonthNameJul 65448 -#define SysConst_SLongMonthNameAug 65449 -#define SysConst_SLongMonthNameSep 65450 -#define SysConst_SLongMonthNameOct 65451 -#define SysConst_SLongMonthNameNov 65452 -#define SysConst_SLongMonthNameDec 65453 -#define SysConst_SShortDayNameSun 65454 -#define SysConst_SShortDayNameMon 65455 -#define SysConst_SAssertError 65456 -#define SysConst_SAbstractError 65457 -#define SysConst_SModuleAccessViolation 65458 -#define SysConst_SOSError 65459 -#define SysConst_SUnkOSError 65460 -#define SysConst_SNL 65461 -#define SysConst_SShortMonthNameJan 65462 -#define SysConst_SShortMonthNameFeb 65463 -#define SysConst_SShortMonthNameMar 65464 -#define SysConst_SShortMonthNameApr 65465 -#define SysConst_SShortMonthNameMay 65466 -#define SysConst_SShortMonthNameJun 65467 -#define SysConst_SShortMonthNameJul 65468 -#define SysConst_SShortMonthNameAug 65469 -#define SysConst_SShortMonthNameSep 65470 -#define SysConst_SShortMonthNameOct 65471 -#define SysConst_SInvalidVarOpWithHResultWithPrefix 65472 -#define SysConst_SVarTypeOutOfRangeWithPrefix 65473 -#define SysConst_SVarTypeAlreadyUsedWithPrefix 65474 -#define SysConst_SVarTypeNotUsableWithPrefix 65475 -#define SysConst_SVarTypeTooManyCustom 65476 -#define SysConst_SVarTypeCouldNotConvert 65477 -#define SysConst_SVarTypeConvertOverflow 65478 -#define SysConst_SVarOverflow 65479 -#define SysConst_SVarInvalid 65480 -#define SysConst_SVarBadType 65481 -#define SysConst_SVarNotImplemented 65482 -#define SysConst_SVarUnexpected 65483 -#define SysConst_SExternalException 65484 -#define SysConst_SAssertionFailed 65485 -#define SysConst_SIntfCastError 65486 -#define SysConst_SSafecallException 65487 -#define SysConst_SOperationAborted 65488 -#define SysConst_SException 65489 -#define SysConst_SExceptTitle 65490 -#define SysConst_SInvalidFormat 65491 -#define SysConst_SArgumentMissing 65492 -#define SysConst_SDispatchError 65493 -#define SysConst_SReadAccess 65494 -#define SysConst_SWriteAccess 65495 -#define SysConst_SFormatTooLong 65496 -#define SysConst_SVarArrayCreate 65497 -#define SysConst_SVarArrayBounds 65498 -#define SysConst_SVarArrayLocked 65499 -#define SysConst_SVarArrayWithHResult 65500 -#define SysConst_SInvalidVarCast 65501 -#define SysConst_SInvalidVarOp 65502 -#define SysConst_SInvalidVarNullOp 65503 -#define SysConst_SDiskFull 65504 -#define SysConst_SInvalidInput 65505 -#define SysConst_SDivByZero 65506 -#define SysConst_SRangeError 65507 -#define SysConst_SIntOverflow 65508 -#define SysConst_SInvalidOp 65509 -#define SysConst_SZeroDivide 65510 -#define SysConst_SOverflow 65511 -#define SysConst_SUnderflow 65512 -#define SysConst_SInvalidPointer 65513 -#define SysConst_SInvalidCast 65514 -#define SysConst_SAccessViolationArg3 65515 -#define SysConst_SAccessViolationNoArg 65516 -#define SysConst_SStackOverflow 65517 -#define SysConst_SControlC 65518 -#define SysConst_SPrivilege 65519 +#define cxGridStrs_scxGridDeletingSelectedConfirmationText 64048 +#define cxGridStrs_scxGridNoDataInfoText 64049 +#define cxGridStrs_scxGridNewItemRowInfoText 64050 +#define cxGridStrs_scxGridFilterIsEmpty 64051 +#define cxGridStrs_scxGridCustomizationFormCaption 64052 +#define cxGridStrs_scxGridCustomizationFormColumnsPageCaption 64053 +#define cxGridStrs_scxGridGroupByBoxCaption 64054 +#define cxGridStrs_scxGridFilterCustomizeButtonCaption 64055 +#define cxGridStrs_scxGridColumnsQuickCustomizationHint 64056 +#define MidConst_SNoDeletesAllowed 64064 +#define MidConst_SNoInsertsAllowed 64065 +#define MidConst_SConnectionMissing 64066 +#define MidConst_SNoCircularConnection 64067 +#define cxPCConsts_scxPCImageListIndexError 64068 +#define cxPCConsts_scxPCNoBaseImages 64069 +#define cxPCConsts_scxPCNoRegisteredStyles 64070 +#define cxPCConsts_scxPCPageIndexError 64071 +#define cxPCConsts_scxPCPainterClassError 64072 +#define cxPCConsts_scxPCTabCountEqualsZero 64073 +#define cxPCConsts_scxPCTabIndexError 64074 +#define cxPCConsts_scxPCTabVisibleIndexOutsOfBounds 64075 +#define cxPCConsts_scxPCVisibleTabListEmpty 64076 +#define cxPCConsts_scxPCAllowRotateError 64077 +#define cxGridStrs_scxGridDeletingConfirmationCaption 64078 +#define cxGridStrs_scxGridDeletingFocusedConfirmationText 64079 +#define cxFilterControlStrs_cxSFilterControlDialogFileFilter 64080 +#define MidConst_SNoDataProvider 64081 +#define MidConst_SInvalidDataPacket 64082 +#define MidConst_SRefreshError 64083 +#define MidConst_SNoCircularReference 64084 +#define MidConst_SErrorLoadingMidas 64085 +#define MidConst_SCannotCreateDataSet 64086 +#define MidConst_SNoConnectToBroker 64087 +#define MidConst_SNoParentConnection 64088 +#define MidConst_SInvalidOptParamType 64089 +#define MidConst_SConstraintFailed 64090 +#define MidConst_SField 64091 +#define MidConst_SRecConstFail 64092 +#define MidConst_SFieldConstFail 64093 +#define MidConst_SDefExprFail 64094 +#define MidConst_SNoEditsAllowed 64095 +#define cxFilterControlStrs_cxSFilterDialogUse 64096 +#define cxFilterControlStrs_cxSFilterDialogSingleCharacter 64097 +#define cxFilterControlStrs_cxSFilterDialogCharactersSeries 64098 +#define cxFilterControlStrs_cxSFilterDialogOperationAnd 64099 +#define cxFilterControlStrs_cxSFilterDialogOperationOr 64100 +#define cxFilterControlStrs_cxSFilterDialogRows 64101 +#define cxFilterControlStrs_cxSFilterControlDialogCaption 64102 +#define cxFilterControlStrs_cxSFilterControlDialogNewFile 64103 +#define cxFilterControlStrs_cxSFilterControlDialogOpenDialogCaption 64104 +#define cxFilterControlStrs_cxSFilterControlDialogSaveDialogCaption 64105 +#define cxFilterControlStrs_cxSFilterControlDialogActionSaveCaption 64106 +#define cxFilterControlStrs_cxSFilterControlDialogActionOpenCaption 64107 +#define cxFilterControlStrs_cxSFilterControlDialogActionApplyCaption 64108 +#define cxFilterControlStrs_cxSFilterControlDialogActionOkCaption 64109 +#define cxFilterControlStrs_cxSFilterControlDialogActionCancelCaption 64110 +#define cxFilterControlStrs_cxSFilterControlDialogFileExt 64111 +#define cxFilterControlStrs_cxSFilterBoolOperatorAnd 64112 +#define cxFilterControlStrs_cxSFilterBoolOperatorOr 64113 +#define cxFilterControlStrs_cxSFilterBoolOperatorNotAnd 64114 +#define cxFilterControlStrs_cxSFilterBoolOperatorNotOr 64115 +#define cxFilterControlStrs_cxSFilterRootButtonCaption 64116 +#define cxFilterControlStrs_cxSFilterAddCondition 64117 +#define cxFilterControlStrs_cxSFilterAddGroup 64118 +#define cxFilterControlStrs_cxSFilterRemoveRow 64119 +#define cxFilterControlStrs_cxSFilterClearAll 64120 +#define cxFilterControlStrs_cxSFilterFooterAddCondition 64121 +#define cxFilterControlStrs_cxSFilterGroupCaption 64122 +#define cxFilterControlStrs_cxSFilterRootGroupCaption 64123 +#define cxFilterControlStrs_cxSFilterControlNullString 64124 +#define cxFilterControlStrs_cxSFilterErrorBuilding 64125 +#define cxFilterControlStrs_cxSFilterDialogCaption 64126 +#define cxFilterControlStrs_cxSFilterDialogInvalidValue 64127 +#define cxEditConsts_scxRegExprIllegalQuantifier 64128 +#define cxEditConsts_scxRegExprIllegalIntegerValue 64129 +#define cxEditConsts_scxRegExprTooBigReferenceNumber 64130 +#define cxEditConsts_scxRegExprCantCreateEmptyEnum 64131 +#define cxEditConsts_scxRegExprSubrangeOrder 64132 +#define cxEditConsts_scxRegExprHexNumberExpected0 64133 +#define cxEditConsts_scxRegExprHexNumberExpected 64134 +#define cxEditConsts_scxRegExprMissing 64135 +#define cxEditConsts_scxRegExprUnnecessary 64136 +#define cxEditConsts_scxRegExprIncorrectSpace 64137 +#define cxEditConsts_scxRegExprNotCompiled 64138 +#define cxEditConsts_scxRegExprIncorrectParameterQuantifier 64139 +#define cxEditConsts_scxRegExprCantUseParameterQuantifier 64140 +#define cxEditConsts_scxMaskEditRegExprError 64141 +#define cxEditConsts_scxMaskEditInvalidEditValue 64142 +#define cxEditConsts_cxSSpinEditInvalidNumericValue 64143 +#define cxEditConsts_scxSEditRepositoryMemoItem 64144 +#define cxEditConsts_scxSEditRepositoryMRUItem 64145 +#define cxEditConsts_scxSEditRepositoryPopupItem 64146 +#define cxEditConsts_scxSEditRepositorySpinItem 64147 +#define cxEditConsts_scxSEditRepositoryRadioGroupItem 64148 +#define cxEditConsts_scxSEditRepositoryTextItem 64149 +#define cxEditConsts_scxSEditRepositoryTimeItem 64150 +#define cxEditConsts_scxRegExprLine 64151 +#define cxEditConsts_scxRegExprChar 64152 +#define cxEditConsts_scxRegExprNotAssignedSourceStream 64153 +#define cxEditConsts_scxRegExprEmptySourceStream 64154 +#define cxEditConsts_scxRegExprCantUsePlusQuantifier 64155 +#define cxEditConsts_scxRegExprCantUseStarQuantifier 64156 +#define cxEditConsts_scxRegExprCantCreateEmptyAlt 64157 +#define cxEditConsts_scxRegExprCantCreateEmptyBlock 64158 +#define cxEditConsts_scxRegExprIllegalSymbol 64159 +#define cxEditConsts_cxNavigatorHint_Cancel 64160 +#define cxEditConsts_cxNavigatorHint_Refresh 64161 +#define cxEditConsts_cxNavigatorHint_SaveBookmark 64162 +#define cxEditConsts_cxNavigatorHint_GotoBookmark 64163 +#define cxEditConsts_cxNavigatorHint_Filter 64164 +#define cxEditConsts_scxSEditRepositoryBlobItem 64165 +#define cxEditConsts_scxSEditRepositoryButtonItem 64166 +#define cxEditConsts_scxSEditRepositoryCalcItem 64167 +#define cxEditConsts_scxSEditRepositoryCheckBoxItem 64168 +#define cxEditConsts_scxSEditRepositoryComboBoxItem 64169 +#define cxEditConsts_scxSEditRepositoryCurrencyItem 64170 +#define cxEditConsts_scxSEditRepositoryDateItem 64171 +#define cxEditConsts_scxSEditRepositoryHyperLinkItem 64172 +#define cxEditConsts_scxSEditRepositoryImageComboBoxItem 64173 +#define cxEditConsts_scxSEditRepositoryImageItem 64174 +#define cxEditConsts_scxSEditRepositoryMaskItem 64175 +#define cxEditConsts_cxSDateSeventh 64176 +#define cxEditConsts_cxSDateBOM 64177 +#define cxEditConsts_cxSDateEOM 64178 +#define cxEditConsts_cxSDateNow 64179 +#define cxEditConsts_scxSCalcError 64180 +#define cxEditConsts_scxSHyperLinkPrefix 64181 +#define cxEditConsts_cxNavigatorHint_First 64182 +#define cxEditConsts_cxNavigatorHint_Prior 64183 +#define cxEditConsts_cxNavigatorHint_PriorPage 64184 +#define cxEditConsts_cxNavigatorHint_Next 64185 +#define cxEditConsts_cxNavigatorHint_NextPage 64186 +#define cxEditConsts_cxNavigatorHint_Last 64187 +#define cxEditConsts_cxNavigatorHint_Insert 64188 +#define cxEditConsts_cxNavigatorHint_Delete 64189 +#define cxEditConsts_cxNavigatorHint_Edit 64190 +#define cxEditConsts_cxNavigatorHint_Post 64191 +#define cxEditConsts_cxSDateToday 64192 +#define cxEditConsts_cxSDateYesterday 64193 +#define cxEditConsts_cxSDateTomorrow 64194 +#define cxEditConsts_cxSDateSunday 64195 +#define cxEditConsts_cxSDateMonday 64196 +#define cxEditConsts_cxSDateTuesday 64197 +#define cxEditConsts_cxSDateWednesday 64198 +#define cxEditConsts_cxSDateThursday 64199 +#define cxEditConsts_cxSDateFriday 64200 +#define cxEditConsts_cxSDateSaturday 64201 +#define cxEditConsts_cxSDateFirst 64202 +#define cxEditConsts_cxSDateSecond 64203 +#define cxEditConsts_cxSDateThird 64204 +#define cxEditConsts_cxSDateFourth 64205 +#define cxEditConsts_cxSDateFifth 64206 +#define cxEditConsts_cxSDateSixth 64207 +#define cxEditConsts_cxSBlobButtonClose 64208 +#define cxEditConsts_cxSBlobMemo 64209 +#define cxEditConsts_cxSBlobMemoEmpty 64210 +#define cxEditConsts_cxSBlobPicture 64211 +#define cxEditConsts_cxSBlobPictureEmpty 64212 +#define cxEditConsts_cxSMenuItemCaptionCut 64213 +#define cxEditConsts_cxSMenuItemCaptionCopy 64214 +#define cxEditConsts_cxSMenuItemCaptionPaste 64215 +#define cxEditConsts_cxSMenuItemCaptionDelete 64216 +#define cxEditConsts_cxSMenuItemCaptionLoad 64217 +#define cxEditConsts_cxSMenuItemCaptionSave 64218 +#define cxEditConsts_cxSDatePopupClear 64219 +#define cxEditConsts_cxSDatePopupNow 64220 +#define cxEditConsts_cxSDatePopupOK 64221 +#define cxEditConsts_cxSDatePopupToday 64222 +#define cxEditConsts_cxSDateError 64223 +#define cxFilterConsts_cxSFilterBoxCustomCaption 64224 +#define cxFilterConsts_cxSFilterBoxBlanksCaption 64225 +#define cxFilterConsts_cxSFilterBoxNonBlanksCaption 64226 +#define cxEditConsts_cxSEditDateConvertError 64227 +#define cxEditConsts_cxSEditInvalidRepositoryItem 64228 +#define cxEditConsts_cxSEditNumericValueConvertError 64229 +#define cxEditConsts_cxSEditPopupCircularReferencingError 64230 +#define cxEditConsts_cxSEditTimeConvertError 64231 +#define cxEditConsts_cxSEditValidateErrorText 64232 +#define cxEditConsts_cxSEditValueOutOfBounds 64233 +#define cxEditConsts_cxSEditCheckBoxChecked 64234 +#define cxEditConsts_cxSEditCheckBoxGrayed 64235 +#define cxEditConsts_cxSEditCheckBoxUnchecked 64236 +#define cxEditConsts_cxSRadioGroupDefaultCaption 64237 +#define cxEditConsts_cxSBlobButtonOK 64238 +#define cxEditConsts_cxSBlobButtonCancel 64239 +#define cxFilterConsts_cxSFilterOperatorNextMonth 64240 +#define cxFilterConsts_cxSFilterOperatorNextYear 64241 +#define cxFilterConsts_cxSFilterOperatorFuture 64242 +#define cxFilterConsts_cxSFilterAndCaption 64243 +#define cxFilterConsts_cxSFilterOrCaption 64244 +#define cxFilterConsts_cxSFilterNotCaption 64245 +#define cxFilterConsts_cxSFilterBlankCaption 64246 +#define cxFilterConsts_cxSFilterOperatorIsNull 64247 +#define cxFilterConsts_cxSFilterOperatorIsNotNull 64248 +#define cxFilterConsts_cxSFilterOperatorBeginsWith 64249 +#define cxFilterConsts_cxSFilterOperatorDoesNotBeginWith 64250 +#define cxFilterConsts_cxSFilterOperatorEndsWith 64251 +#define cxFilterConsts_cxSFilterOperatorDoesNotEndWith 64252 +#define cxFilterConsts_cxSFilterOperatorContains 64253 +#define cxFilterConsts_cxSFilterOperatorDoesNotContain 64254 +#define cxFilterConsts_cxSFilterBoxAllCaption 64255 +#define cxFilterConsts_cxSFilterOperatorLast7Days 64256 +#define cxFilterConsts_cxSFilterOperatorLastWeek 64257 +#define cxFilterConsts_cxSFilterOperatorLast14Days 64258 +#define cxFilterConsts_cxSFilterOperatorLastTwoWeeks 64259 +#define cxFilterConsts_cxSFilterOperatorLast30Days 64260 +#define cxFilterConsts_cxSFilterOperatorLastMonth 64261 +#define cxFilterConsts_cxSFilterOperatorLastYear 64262 +#define cxFilterConsts_cxSFilterOperatorPast 64263 +#define cxFilterConsts_cxSFilterOperatorThisWeek 64264 +#define cxFilterConsts_cxSFilterOperatorThisMonth 64265 +#define cxFilterConsts_cxSFilterOperatorThisYear 64266 +#define cxFilterConsts_cxSFilterOperatorNext7Days 64267 +#define cxFilterConsts_cxSFilterOperatorNextWeek 64268 +#define cxFilterConsts_cxSFilterOperatorNext14Days 64269 +#define cxFilterConsts_cxSFilterOperatorNextTwoWeeks 64270 +#define cxFilterConsts_cxSFilterOperatorNext30Days 64271 +#define cxDataConsts_cxSDataRowIndexError 64272 +#define cxFilterConsts_cxSFilterOperatorEqual 64273 +#define cxFilterConsts_cxSFilterOperatorNotEqual 64274 +#define cxFilterConsts_cxSFilterOperatorLess 64275 +#define cxFilterConsts_cxSFilterOperatorLessEqual 64276 +#define cxFilterConsts_cxSFilterOperatorGreater 64277 +#define cxFilterConsts_cxSFilterOperatorGreaterEqual 64278 +#define cxFilterConsts_cxSFilterOperatorLike 64279 +#define cxFilterConsts_cxSFilterOperatorNotLike 64280 +#define cxFilterConsts_cxSFilterOperatorBetween 64281 +#define cxFilterConsts_cxSFilterOperatorNotBetween 64282 +#define cxFilterConsts_cxSFilterOperatorInList 64283 +#define cxFilterConsts_cxSFilterOperatorNotInList 64284 +#define cxFilterConsts_cxSFilterOperatorYesterday 64285 +#define cxFilterConsts_cxSFilterOperatorToday 64286 +#define cxFilterConsts_cxSFilterOperatorTomorrow 64287 +#define pnglang_EPNGUnknownInterlaceText 64288 +#define pnglang_EPNGCannotAssignChunkText 64289 +#define pnglang_EPNGUnexpectedEndText 64290 +#define pnglang_EPNGNoImageDataText 64291 +#define pnglang_EPNGCannotChangeSizeText 64292 +#define pnglang_EPNGCannotAddChunkText 64293 +#define pnglang_EPNGCannotAddInvalidImageText 64294 +#define pnglang_EPNGOutMemoryText 64295 +#define pnglang_EPNGHeaderNotPresentText 64296 +#define cxDataConsts_cxSDataReadError 64297 +#define cxDataConsts_cxSDataWriteError 64298 +#define cxDataConsts_cxSDataItemExistError 64299 +#define cxDataConsts_cxSDataRecordIndexError 64300 +#define cxDataConsts_cxSDataItemIndexError 64301 +#define cxDataConsts_cxSDataProviderModeError 64302 +#define cxDataConsts_cxSDataInvalidStreamFormat 64303 +#define MSConsts_SNumericOverflow 64304 +#define MSConsts_SDMandServerCursors 64305 +#define MSConsts_SSQLOLEDB 64306 +#define MSConsts_SSQLNativeClient 64307 +#define MSConsts_SSQLEverywhere 64308 +#define pnglang_EPngInvalidCRCText 64309 +#define pnglang_EPNGInvalidIHDRText 64310 +#define pnglang_EPNGMissingMultipleIDATText 64311 +#define pnglang_EPNGZLIBErrorText 64312 +#define pnglang_EPNGInvalidPaletteText 64313 +#define pnglang_EPNGInvalidFileHeaderText 64314 +#define pnglang_EPNGIHDRNotFirstText 64315 +#define pnglang_EPNGSizeExceedsText 64316 +#define pnglang_EPNGUnknownPalEntryText 64317 +#define pnglang_EPNGUnknownCriticalChunkText 64318 +#define pnglang_EPNGUnknownCompressionText 64319 +#define MSConsts_SCheckConnection 64320 +#define MSConsts_STimestampFieldRequired 64321 +#define MSConsts_SLocalSortingServerCursor 64322 +#define MSConsts_SRowMultipleChanges 64323 +#define MSConsts_SRowPendingChanges 64324 +#define MSConsts_SRowCanceled 64325 +#define MSConsts_SRowConcurrencyViolation 64326 +#define MSConsts_SRowDeleted 64327 +#define MSConsts_SRowIntegrityViolation 64328 +#define MSConsts_SRowPermissionDenied 64329 +#define MSConsts_SRowLimitReached 64330 +#define MSConsts_SRowSchemaViolation 64331 +#define MSConsts_SRowFail 64332 +#define MSConsts_SSQLNCLINeeds 64333 +#define MSConsts_SSQLNCLINeedsChangePwd 64334 +#define MSConsts_SAsynchExecuting 64335 +#define MSConsts_SInvalidValue 64336 +#define MSConsts_SSignMismatch 64337 +#define MSConsts_SDataOverflow 64338 +#define MSConsts_SDataTruncated 64339 +#define MSConsts_SOutOfMemory 64340 +#define MSConsts_SCantCreate 64341 +#define MSConsts_SPermissionDenied 64342 +#define MSConsts_SIntegrityViolation 64343 +#define MSConsts_SShemaViolation 64344 +#define MSConsts_SBadStatus 64345 +#define MSConsts_SUnknownStatus 64346 +#define MSConsts_SParamNameMissing 64347 +#define MSConsts_SParamValueMissing 64348 +#define MSConsts_SInvalidChar 64349 +#define MSConsts_SParamNameUnknown 64350 +#define MSConsts_SBadParamValue 64351 +#define MSConsts_SNoResultSet 64352 +#define MSConsts_SBadOutputParam 64353 +#define MSConsts_SBadFieldType 64354 +#define MSConsts_SBookmarksRequired 64355 +#define MSConsts_SCUandServerCursors 64356 +#define MSConsts_SCursorTypeChanged 64357 +#define MSConsts_SWrongMDACVer 64358 +#define MSConsts_SObjectOpen 64359 +#define MSConsts_SConnectionOpen 64360 +#define MSConsts_SBadProviderName 64361 +#define MSConsts_SBadDatabaseFile 64362 +#define MSConsts_SBadNetworkLibrary 64363 +#define MSConsts_SBadPacketSize 64364 +#define MSConsts_SBadEncrypt 64365 +#define MSConsts_SInvalidParamType 64366 +#define MSConsts_SBadAccessor 64367 +#define DAConsts_SStoredProcNotDefined 64368 +#define DAConsts_SConnectionIsClosed 64369 +#define DAConsts_SMaxConnectionsReached 64370 +#define DAConsts_SCannotChangeIsUnicode 64371 +#define DAConsts_SNoTimers 64372 +#define DAConsts_sBlobNotCompressed 64373 +#define DAConsts_SCompressorNotLinked 64374 +#define DAConsts_SUncompressorNotLinked 64375 +#define DAConsts_SUpdateComponentCircularReferences 64376 +#define DAConsts_SUpdateComponentInvalidType 64377 +#define DAConsts_SUpdateObjectEmptySQL 64378 +#define DAConsts_SDateEncodeError 64379 +#define DAConsts_SEmptySQLStatement 64380 +#define DAConsts_SInvalidBlobPosition 64381 +#define MSConsts_SOLEDBError 64382 +#define MSConsts_SMSSQLNotFound 64383 +#define DAConsts_SInvalidUnComprBlobSize 64384 +#define DAConsts_SInvalidComprBlobSize 64385 +#define DAConsts_SInvalidComprBlobHeader 64386 +#define DAConsts_SInvalidComprBlobData 64387 +#define DAConsts_SNotCachedUpdate 64388 +#define DAConsts_SUpdateWrongDB 64389 +#define DAConsts_SConnectionNotDefined 64390 +#define DAConsts_SCannotConnect 64391 +#define DAConsts_SMacroNotFound 64392 +#define DAConsts_STransactionInProgress 64393 +#define DAConsts_SUpdateFailed 64394 +#define DAConsts_SRefreshFailed 64395 +#define DAConsts_SInvalidFetchRows 64396 +#define DAConsts_SNoCorrespondParam 64397 +#define DAConsts_SUnknownParamDataType 64398 +#define DAConsts_SRecordChanged 64399 +#define SqlConst_SCannotCreateFile 64400 +#define ZLibConst_sTargetBufferTooSmall 64401 +#define ZLibConst_sError 64402 +#define DAConsts_SUnknownDataType 64403 +#define DAConsts_SDataTypeNotSupported 64404 +#define DAConsts_SFieldNotFound 64405 +#define DAConsts_SCannotConvertType 64406 +#define DAConsts_SIllegalFilter 64407 +#define DAConsts_SNeedBlobType 64408 +#define DAConsts_SInvalidBlob 64409 +#define DAConsts_SBlobMustBeCached 64410 +#define DAConsts_SKeyFieldsReq 64411 +#define DAConsts_SNoKeyFields 64412 +#define DAConsts_SBadTableInfoName 64413 +#define DAConsts_SBadStatementType 64414 +#define DAConsts_SBadUpdatingTable 64415 +#define SqlConst_SINVALIDXISOLEVEL 64416 +#define SqlConst_SINVALIDTXNID 64417 +#define SqlConst_SDUPLICATETXNID 64418 +#define SqlConst_SDRIVERRESTRICTED 64419 +#define SqlConst_SLOCALTRANSACTIVE 64420 +#define SqlConst_SMULTIPLETRANSNOTENABLED 64421 +#define SqlConst_SCONNECTIONFAILED 64422 +#define SqlConst_SDRIVERINITFAILED 64423 +#define SqlConst_SOPTLOCKFAILED 64424 +#define SqlConst_SINVALIDREF 64425 +#define SqlConst_SNOTABLE 64426 +#define SqlConst_SMISSINGPARAMINSQL 64427 +#define SqlConst_SNOTIMPLEMENTED 64428 +#define SqlConst_SDRIVERINCOMPATIBLE 64429 +#define SqlConst_SDriverNotInConfigFile 64430 +#define SqlConst_SObjectTypenameRequired 64431 +#define SqlConst_SPackagesNotSupported 64432 +#define SqlConst_SNOERROR 64433 +#define SqlConst_SWARNING 64434 +#define SqlConst_SNOMEMORY 64435 +#define SqlConst_SINVALIDFLDTYPE 64436 +#define SqlConst_SINVALIDHNDL 64437 +#define SqlConst_SNOTSUPPORTED 64438 +#define SqlConst_SINVALIDTIME 64439 +#define SqlConst_SINVALIDXLATION 64440 +#define SqlConst_SOUTOFRANGE 64441 +#define SqlConst_SINVALIDPARAM 64442 +#define SqlConst_SEOF 64443 +#define SqlConst_SSQLPARAMNOTSET 64444 +#define SqlConst_SINVALIDUSRPASS 64445 +#define SqlConst_SINVALIDPRECISION 64446 +#define SqlConst_SINVALIDLEN 64447 +#define SqlConst_SConnectionNameMissing 64448 +#define SqlConst_SEmptySQLStatement 64449 +#define SqlConst_SNoParameterValue 64450 +#define SqlConst_SNoSqlStatement 64451 +#define SqlConst_SMissingDataBaseName 64452 +#define SqlConst_SMissingDriverName 64453 +#define SqlConst_SPrepareError 64454 +#define SqlConst_SObjectNameError 64455 +#define SqlConst_SSQLDataSetOpen 64456 +#define SqlConst_SNoActiveTrans 64457 +#define SqlConst_SActiveTrans 64458 +#define SqlConst_SMissingDLLName 64459 +#define SqlConst_SMissingDriverRegFile 64460 +#define SqlConst_SNoCursor 64461 +#define SqlConst_SErrorMappingError 64462 +#define SqlConst_SStoredProcsNotSupported 64463 +#define DBXCommon_SReaderClosed 64464 +#define DBXCommon_SReadOnlyType 64465 +#define DBXCommon_SReadOnlyParameter 64466 +#define DBXCommon_SConnectionFactoryInitFailed 64467 +#define DBXCommon_SInvalidDelegationDepth 64468 +#define DBXCommon_SInvalidOrdinal 64469 +#define DBXCommon_SDefaultErrorMessage 64470 +#define DBXCommon_SAlreadyPrepared 64471 +#define DBXPool_SConnectTimeout 64472 +#define DBXPool_SInvalidCommand 64473 +#define DBXTrace_SINVALID_TRACE_FLAG 64474 +#define SqlConst_SLoginError 64475 +#define SqlConst_SMonitorActive 64476 +#define SqlConst_SDatabaseOpen 64477 +#define SqlConst_SDatabaseClosed 64478 +#define SqlConst_SMissingSQLConnection 64479 +#define bdeconst_SNoFieldAccess 64480 +#define bdeconst_SUntitled 64481 +#define bdeconst_SLocalTransDirty 64482 +#define ClassRegistry_SAlreadyRegistered 64483 +#define ClassRegistry_SNotRegistered 64484 +#define ClassRegistry_SInvalidClassRegister 64485 +#define ClassRegistry_SCannotFreeClassRegistry 64486 +#define DBXCommon_SDllLoadError 64487 +#define DBXCommon_SDllProcLoadError 64488 +#define DBXCommon_SUnknownDriver 64489 +#define DBXCommon_SInvalidArgument 64490 +#define DBXCommon_SInvalidTransaction 64491 +#define DBXCommon_SNotImplemented 64492 +#define DBXCommon_SRequiredProperty 64493 +#define DBXCommon_SDriverLoadError 64494 +#define DBXCommon_SReaderNew 64495 +#define bdeconst_SDatabaseHandleSet 64496 +#define bdeconst_SSessionActive 64497 +#define bdeconst_SHandleError 64498 +#define bdeconst_SNoReferenceTableName 64499 +#define bdeconst_SEmptySQLStatement 64500 +#define bdeconst_SNoParameterValue 64501 +#define bdeconst_SNoParameterType 64502 +#define bdeconst_SLoginError 64503 +#define bdeconst_SInitError 64504 +#define bdeconst_SIDAPILangID 64505 +#define bdeconst_SBDEError 64506 +#define bdeconst_STruncationError 64507 +#define bdeconst_SResultName 64508 +#define bdeconst_SNoDataSetField 64509 +#define bdeconst_SNoCachedUpdates 64510 +#define bdeconst_SInvalidAliasName 64511 +#define ADOConst_SConnectionRequired 64512 +#define ADOConst_SCantRequery 64513 +#define ADOConst_SNoFilterOptions 64514 +#define ADOConst_SRecordsetNotOpen 64515 +#define ADOConst_sNameAttr 64516 +#define ADOConst_sValueAttr 64517 +#define bdeconst_SAutoSessionExclusive 64518 +#define bdeconst_SAutoSessionExists 64519 +#define bdeconst_SAutoSessionActive 64520 +#define bdeconst_SDuplicateDatabaseName 64521 +#define bdeconst_SDuplicateSessionName 64522 +#define bdeconst_SInvalidSessionName 64523 +#define bdeconst_SDatabaseNameMissing 64524 +#define bdeconst_SSessionNameMissing 64525 +#define bdeconst_SDatabaseOpen 64526 +#define bdeconst_SDatabaseClosed 64527 +#define IBSQLMonitor_StrPlan 64528 +#define IBSQLMonitor_StrPlanCantRetrive 64529 +#define IBSQLMonitor_StrCommitHardComm 64530 +#define IBSQLMonitor_StrCommitRetaining 64531 +#define IBSQLMonitor_StrRollback 64532 +#define IBSQLMonitor_StrRollbackRetainin 64533 +#define IBSQLMonitor_StrStartTransaction 64534 +#define IBSQLMonitor_StrApplication 64535 +#define ADOConst_SMissingConnection 64536 +#define ADOConst_SNoDetailFilter 64537 +#define ADOConst_SBookmarksRequired 64538 +#define ADOConst_SMissingCommandText 64539 +#define ADOConst_SNoResultSet 64540 +#define ADOConst_SADOCreateError 64541 +#define ADOConst_SEventsNotSupported 64542 +#define ADOConst_SUsupportedFieldType 64543 +#define IBXConst_SIB70feature 64544 +#define IBXConst_SIB71feature 64545 +#define IBXConst_SIB80feature 64546 +#define IBSQLMonitor_StrConnect 64547 +#define IBSQLMonitor_StrDisconnect 64548 +#define IBSQLMonitor_StrMisc 64549 +#define IBSQLMonitor_StrError 64550 +#define IBSQLMonitor_StrAttach 64551 +#define IBSQLMonitor_StrDetach 64552 +#define IBSQLMonitor_StrQuery 64553 +#define IBSQLMonitor_StrStart 64554 +#define IBSQLMonitor_StrExecute 64555 +#define IBSQLMonitor_StrNULL 64556 +#define IBSQLMonitor_StrBLOB 64557 +#define IBSQLMonitor_StrFetch 64558 +#define IBSQLMonitor_StrPrepare 64559 +#define IBXConst_SNosourceDirectory 64560 +#define IBXConst_SNoUninstallFile 64561 +#define IBXConst_SOptionNeedsClient 64562 +#define IBXConst_SOptionNeedsServer 64563 +#define IBXConst_SInvalidOption 64564 +#define IBXConst_SInvalidOnErrorResult 64565 +#define IBXConst_SInvalidOnStatusResult 64566 +#define IBXConst_SDPBConstantUnknownEx 64567 +#define IBXConst_STPBConstantUnknownEx 64568 +#define IBXConst_SUnknownPlan 64569 +#define IBXConst_SFieldSizeMismatch 64570 +#define IBXConst_SEventAlreadyRegistered 64571 +#define IBXConst_SStringTooLarge 64572 +#define IBXConst_SNoTimers 64573 +#define IBXConst_SIB65feature 64574 +#define IBXConst_SLoginPromptFailure 64575 +#define IBXConst_SServiceInActive 64576 +#define IBXConst_SServerNameMissing 64577 +#define IBXConst_SQueryParamsError 64578 +#define IBXConst_SStartParamsError 64579 +#define IBXConst_SOutputParsingError 64580 +#define IBXConst_SUseSpecificProcedures 64581 +#define IBXConst_SSQLMonitorAlreadyPresent 64582 +#define IBXConst_SCantPrintValue 64583 +#define IBXConst_SEOFReached 64584 +#define IBXConst_SEOFInComment 64585 +#define IBXConst_SEOFInString 64586 +#define IBXConst_SParamNameExpected 64587 +#define IBXConst_SSuccess 64588 +#define IBXConst_SDelphiException 64589 +#define IBXConst_SNoOptionsSet 64590 +#define IBXConst_SNoDestinationDirectory 64591 +#define IBXConst_SNoTableName 64592 +#define IBXConst_SCannotCreatePrimaryIndex 64593 +#define IBXConst_SCannotDropSystemIndex 64594 +#define IBXConst_STableNameMismatch 64595 +#define IBXConst_SIndexFieldMissing 64596 +#define IBXConst_SInvalidCancellation 64597 +#define IBXConst_SInvalidEvent 64598 +#define IBXConst_SMaximumEvents 64599 +#define IBXConst_SNoEventsRegistered 64600 +#define IBXConst_SInvalidQueueing 64601 +#define IBXConst_SInvalidRegistration 64602 +#define IBXConst_SInvalidBatchMove 64603 +#define IBXConst_SSQLDialectInvalid 64604 +#define IBXConst_SSPBConstantNotSupported 64605 +#define IBXConst_SSPBConstantUnknown 64606 +#define IBXConst_SServiceActive 64607 +#define IBXConst_SWindowsAPIError 64608 +#define IBXConst_SColumnListsDontMatch 64609 +#define IBXConst_SColumnTypesDontMatch 64610 +#define IBXConst_SCantEndSharedTransaction 64611 +#define IBXConst_SFieldUnsupportedType 64612 +#define IBXConst_SCircularDataLink 64613 +#define IBXConst_SEmptySQLStatement 64614 +#define IBXConst_SIsASelectStatement 64615 +#define IBXConst_SRequiredParamNotSet 64616 +#define IBXConst_SNoStoredProcName 64617 +#define IBXConst_SIsAExecuteProcedure 64618 +#define IBXConst_SUpdateFailed 64619 +#define IBXConst_SNotCachedUpdates 64620 +#define IBXConst_SNotLiveRequest 64621 +#define IBXConst_SNoProvider 64622 +#define IBXConst_SNoRecordsAffected 64623 +#define IBXConst_SCannotOpenNonSQLSelect 64624 +#define IBXConst_SNoFieldAccess 64625 +#define IBXConst_SFieldReadOnly 64626 +#define IBXConst_SFieldNotFound 64627 +#define IBXConst_SNotEditing 64628 +#define IBXConst_SCannotInsert 64629 +#define IBXConst_SCannotPost 64630 +#define IBXConst_SCannotUpdate 64631 +#define IBXConst_SCannotDelete 64632 +#define IBXConst_SCannotRefresh 64633 +#define IBXConst_SBufferNotSet 64634 +#define IBXConst_SCircularReference 64635 +#define IBXConst_SSQLParseError 64636 +#define IBXConst_SUserAbort 64637 +#define IBXConst_SDataSetUniDirectional 64638 +#define IBXConst_SCannotCreateSharedResource 64639 +#define IBXConst_SXSQLDANameDoesNotExist 64640 +#define IBXConst_SEOF 64641 +#define IBXConst_SBOF 64642 +#define IBXConst_SInvalidStatementHandle 64643 +#define IBXConst_SSQLOpen 64644 +#define IBXConst_SSQLClosed 64645 +#define IBXConst_SDatasetOpen 64646 +#define IBXConst_SDatasetClosed 64647 +#define IBXConst_SUnknownSQLDataType 64648 +#define IBXConst_SInvalidColumnIndex 64649 +#define IBXConst_SInvalidParamColumnIndex 64650 +#define IBXConst_SInvalidDataConversion 64651 +#define IBXConst_SColumnIsNotNullable 64652 +#define IBXConst_SBlobCannotBeRead 64653 +#define IBXConst_SBlobCannotBeWritten 64654 +#define IBXConst_SEmptyQuery 64655 +#define IBXConst_SDPBConstantNotSupported 64656 +#define IBXConst_SDPBConstantUnknown 64657 +#define IBXConst_STPBConstantNotSupported 64658 +#define IBXConst_STPBConstantUnknown 64659 +#define IBXConst_SDatabaseClosed 64660 +#define IBXConst_SDatabaseOpen 64661 +#define IBXConst_SDatabaseNameMissing 64662 +#define IBXConst_SNotInTransaction 64663 +#define IBXConst_SInTransaction 64664 +#define IBXConst_STimeoutNegative 64665 +#define IBXConst_SNoDatabasesInTransaction 64666 +#define IBXConst_SUpdateWrongDB 64667 +#define IBXConst_SUpdateWrongTR 64668 +#define IBXConst_SDatabaseNotAssigned 64669 +#define IBXConst_STransactionNotAssigned 64670 +#define IBXConst_SXSQLDAIndexOutOfRange 64671 +#define VDBConsts_SEditRecord 64672 +#define VDBConsts_SPostEdit 64673 +#define VDBConsts_SCancelEdit 64674 +#define VDBConsts_SRefreshRecord 64675 +#define VDBConsts_SRemoteLogin 64676 +#define IBXConst_SUnknownError 64677 +#define IBXConst_SInterBaseMissing 64678 +#define IBXConst_SInterBaseInstallMissing 64679 +#define IBXConst_SIB60feature 64680 +#define IBXConst_SNotSupported 64681 +#define IBXConst_SNotPermitted 64682 +#define IBXConst_SFileAccessError 64683 +#define IBXConst_SConnectionTimeout 64684 +#define IBXConst_SCannotSetDatabase 64685 +#define IBXConst_SCannotSetTransaction 64686 +#define IBXConst_SOperationCancelled 64687 +#define uDARes_err_MaxPoolSizeReached 64688 +#define uDARes_err_LAMEDataset 64689 +#define uDARes_err_HETConnectionNotSupportedInV3 64690 +#define uDARes_err_DARDMInvalidSchema 64691 +#define uDARes_err_DARDMUnassignedAdapter 64692 +#define uDARes_err_DARDMConnectionIsNotAssigned 64693 +#define uDARes_err_DARDMCannotFindProxessorForDelta 64694 +#define uDARes_err_NeedShareMem 64695 +#define uDARes_err_ExecuteSQLCommandNotAllowed 64696 +#define uDARes_err_DatasetNotAccessible 64697 +#define VDBConsts_SFirstRecord 64698 +#define VDBConsts_SPriorRecord 64699 +#define VDBConsts_SNextRecord 64700 +#define VDBConsts_SLastRecord 64701 +#define VDBConsts_SInsertRecord 64702 +#define VDBConsts_SDeleteRecord 64703 +#define uDARes_err_DriverProcAlreadyRegistered 64704 +#define uDARes_err_DriverManagerAlreadyCreated 64705 +#define uDARes_err_DriverManagerNotAssigned 64706 +#define uDARes_err_FieldTypeNotSupported 64707 +#define uDARes_err_InvalidDataset 64708 +#define uDARes_err_CannotFindItem 64709 +#define uDARes_err_DriverAlreadyLoaded 64710 +#define uDARes_err_InvalidDLL 64711 +#define uDARes_err_UnknownDriver 64712 +#define uDARes_err_FieldIsNotBound 64713 +#define uDARes_err_CannotFindField 64714 +#define uDARes_err_LoadPackageFailed 64715 +#define uDARes_err_InvalidDriverReference 64716 +#define uDARes_err_CannotFindStatement 64717 +#define uDARes_err_CannotFindDefaultItem 64718 +#define uDARes_err_PoolIsNotEmpty 64719 +#define JvResources_RsClBtnShadow 64720 +#define JvResources_RsClGrayText 64721 +#define JvResources_RsClBtnText 64722 +#define JvResources_RsClInactiveCaptionText 64723 +#define JvResources_RsClBtnHighlight 64724 +#define JvResources_RsCl3DDkShadow 64725 +#define JvResources_RsCl3DLight 64726 +#define JvResources_RsClInfoText 64727 +#define JvResources_RsClInfoBk 64728 +#define JvResources_RsGradientActiveCaption 64729 +#define JvResources_RsGradientInactiveCaption 64730 +#define JvResources_RsHotLight 64731 +#define JvResources_RsMenuBar 64732 +#define JvResources_RsMenuHighlight 64733 +#define uDARes_err_ChangeLogAlreadyStarted 64734 +#define uDARes_err_NotAttachedToDataTable 64735 +#define JvResources_RsClScrollBar 64736 +#define JvResources_RsClBackground 64737 +#define JvResources_RsClActiveCaption 64738 +#define JvResources_RsClInactiveCaption 64739 +#define JvResources_RsClMenu 64740 +#define JvResources_RsClWindow 64741 +#define JvResources_RsClWindowFrame 64742 +#define JvResources_RsClMenuText 64743 +#define JvResources_RsClWindowText 64744 +#define JvResources_RsClCaptionText 64745 +#define JvResources_RsClActiveBorder 64746 +#define JvResources_RsClInactiveBorder 64747 +#define JvResources_RsClAppWorkSpace 64748 +#define JvResources_RsClHighlight 64749 +#define JvResources_RsClHighlightText 64750 +#define JvResources_RsClBtnFace 64751 +#define JvResources_RsClLightBlue 64752 +#define JvResources_RsClViolet 64753 +#define JvResources_RsClGray40 64754 +#define JvResources_RsClPink 64755 +#define JvResources_RsClGold 64756 +#define JvResources_RsClBrightGreen 64757 +#define JvResources_RsClTurquoise 64758 +#define JvResources_RsClPlum 64759 +#define JvResources_RsClGray25 64760 +#define JvResources_RsClRose 64761 +#define JvResources_RsClTan 64762 +#define JvResources_RsClLightYellow 64763 +#define JvResources_RsClLightGreen 64764 +#define JvResources_RsClLightTurquoise 64765 +#define JvResources_RsClPaleBlue 64766 +#define JvResources_RsClLavender 64767 +#define JvResources_RsClCream 64768 +#define JvResources_RsClMedGray 64769 +#define JvResources_RsClBrown 64770 +#define JvResources_RsClOliveGreen 64771 +#define JvResources_RsClDarkGreen 64772 +#define JvResources_RsClDarkTeal 64773 +#define JvResources_RsClDarkBlue 64774 +#define JvResources_RsClIndigo 64775 +#define JvResources_RsClGray80 64776 +#define JvResources_RsClDarkRed 64777 +#define JvResources_RsClOrange 64778 +#define JvResources_RsClDarkYellow 64779 +#define JvResources_RsClBlueGray 64780 +#define JvResources_RsClGray50 64781 +#define JvResources_RsClLightOrange 64782 +#define JvResources_RsClSeaGreen 64783 +#define JvResources_RsClGreen 64784 +#define JvResources_RsClOlive 64785 +#define JvResources_RsClNavy 64786 +#define JvResources_RsClPurple 64787 +#define JvResources_RsClTeal 64788 +#define JvResources_RsClGray 64789 +#define JvResources_RsClSilver 64790 +#define JvResources_RsClRed 64791 +#define JvResources_RsClLime 64792 +#define JvResources_RsClYellow 64793 +#define JvResources_RsClBlue 64794 +#define JvResources_RsClFuchsia 64795 +#define JvResources_RsClAqua 64796 +#define JvResources_RsClWhite 64797 +#define JvResources_RsClMoneyGreen 64798 +#define JvResources_RsClSkyBlue 64799 +#define JvResources_RsENotAUniqueRootPath 64800 +#define JvResources_RsECircularReferenceOfStorages 64801 +#define JvResources_RsEShellNotCompatible 64802 +#define JvResources_RsGIFImage 64803 +#define JvResources_RsEChangeGIFSize 64804 +#define JvResources_RsENoGIFData 64805 +#define JvResources_RsEUnrecognizedGIFExt 64806 +#define JvResources_RsEWrongGIFColors 64807 +#define JvResources_RsEBadGIFCodeSize 64808 +#define JvResources_RsEGIFDecodeError 64809 +#define JvResources_RsEGIFEncodeError 64810 +#define JvResources_RsEGIFVersion 64811 +#define JvResources_RsEPixelFormatNotImplemented 64812 +#define JvResources_RsEBitCountNotImplemented 64813 +#define JvResources_RsClBlack 64814 +#define JvResources_RsClMaroon 64815 +#define JclResources_RsIntelCacheDescr85 64816 +#define JclResources_RsIntelCacheDescr86 64817 +#define JclResources_RsIntelCacheDescr87 64818 +#define JclResources_RsIntelCacheDescrB0 64819 +#define JclResources_RsIntelCacheDescrB3 64820 +#define JclResources_RsIntelCacheDescrB4 64821 +#define JclResources_RsIntelCacheDescrF0 64822 +#define JclResources_RsIntelCacheDescrF1 64823 +#define JvResources_RsAniExtension 64824 +#define JvResources_RsAniFilterName 64825 +#define JvResources_RsRootValueReplaceFmt 64826 +#define JvResources_RsEUnableToCreateKey 64827 +#define JvResources_RsEEnumeratingRegistry 64828 +#define JvResources_RsEInvalidType 64829 +#define JvResources_RsEUnknownBaseType 64830 +#define JvResources_RsEInvalidPath 64831 +#define JclResources_RsIntelCacheDescr66 64832 +#define JclResources_RsIntelCacheDescr67 64833 +#define JclResources_RsIntelCacheDescr68 64834 +#define JclResources_RsIntelCacheDescr70 64835 +#define JclResources_RsIntelCacheDescr71 64836 +#define JclResources_RsIntelCacheDescr72 64837 +#define JclResources_RsIntelCacheDescr78 64838 +#define JclResources_RsIntelCacheDescr79 64839 +#define JclResources_RsIntelCacheDescr7A 64840 +#define JclResources_RsIntelCacheDescr7B 64841 +#define JclResources_RsIntelCacheDescr7C 64842 +#define JclResources_RsIntelCacheDescr7D 64843 +#define JclResources_RsIntelCacheDescr7F 64844 +#define JclResources_RsIntelCacheDescr82 64845 +#define JclResources_RsIntelCacheDescr83 64846 +#define JclResources_RsIntelCacheDescr84 64847 +#define JclResources_RsIntelCacheDescr42 64848 +#define JclResources_RsIntelCacheDescr43 64849 +#define JclResources_RsIntelCacheDescr44 64850 +#define JclResources_RsIntelCacheDescr45 64851 +#define JclResources_RsIntelCacheDescr46 64852 +#define JclResources_RsIntelCacheDescr47 64853 +#define JclResources_RsIntelCacheDescr49 64854 +#define JclResources_RsIntelCacheDescr50 64855 +#define JclResources_RsIntelCacheDescr51 64856 +#define JclResources_RsIntelCacheDescr52 64857 +#define JclResources_RsIntelCacheDescr56 64858 +#define JclResources_RsIntelCacheDescr57 64859 +#define JclResources_RsIntelCacheDescr5B 64860 +#define JclResources_RsIntelCacheDescr5C 64861 +#define JclResources_RsIntelCacheDescr5D 64862 +#define JclResources_RsIntelCacheDescr60 64863 +#define JclResources_RsIntelCacheDescr03 64864 +#define JclResources_RsIntelCacheDescr04 64865 +#define JclResources_RsIntelCacheDescr05 64866 +#define JclResources_RsIntelCacheDescr06 64867 +#define JclResources_RsIntelCacheDescr08 64868 +#define JclResources_RsIntelCacheDescr0A 64869 +#define JclResources_RsIntelCacheDescr0B 64870 +#define JclResources_RsIntelCacheDescr0C 64871 +#define JclResources_RsIntelCacheDescr22 64872 +#define JclResources_RsIntelCacheDescr23 64873 +#define JclResources_RsIntelCacheDescr25 64874 +#define JclResources_RsIntelCacheDescr29 64875 +#define JclResources_RsIntelCacheDescr2C 64876 +#define JclResources_RsIntelCacheDescr30 64877 +#define JclResources_RsIntelCacheDescr40 64878 +#define JclResources_RsIntelCacheDescr41 64879 +#define JclResources_RsRTTIPropCount 64880 +#define JclResources_RsRTTIUnitName 64881 +#define JclResources_RsRTTIBasedOn 64882 +#define JclResources_RsRTTIFloatType 64883 +#define JclResources_RsRTTIMethodKind 64884 +#define JclResources_RsRTTIParamCount 64885 +#define JclResources_RsRTTIReturnType 64886 +#define JclResources_RsRTTIMaxLen 64887 +#define JclResources_RsRTTIElSize 64888 +#define JclResources_RsRTTIElType 64889 +#define JclResources_RsRTTIElNeedCleanup 64890 +#define JclResources_RsRTTIVarType 64891 +#define JclResources_RsDeclarationFormat 64892 +#define JclResources_RsIntelCacheDescr00 64893 +#define JclResources_RsIntelCacheDescr01 64894 +#define JclResources_RsIntelCacheDescr02 64895 +#define JclResources_RsRTTIField 64896 +#define JclResources_RsRTTIStaticMethod 64897 +#define JclResources_RsRTTIVirtualMethod 64898 +#define JclResources_RsRTTIIndex 64899 +#define JclResources_RsRTTIDefault 64900 +#define JclResources_RsRTTIName 64901 +#define JclResources_RsRTTIType 64902 +#define JclResources_RsRTTIFlags 64903 +#define JclResources_RsRTTIGUID 64904 +#define JclResources_RsRTTITypeKind 64905 +#define JclResources_RsRTTIOrdinalType 64906 +#define JclResources_RsRTTIMinValue 64907 +#define JclResources_RsRTTIMaxValue 64908 +#define JclResources_RsRTTINameList 64909 +#define JclResources_RsRTTIClassName 64910 +#define JclResources_RsRTTIParent 64911 +#define JclResources_RsHKCCShort 64912 +#define JclResources_RsHKDDShort 64913 +#define JclResources_RsRTTIValueOutOfRange 64914 +#define JclResources_RsRTTIUnknownIdentifier 64915 +#define JclResources_RsRTTIVar 64916 +#define JclResources_RsRTTIConst 64917 +#define JclResources_RsRTTIArrayOf 64918 +#define JclResources_RsRTTIOut 64919 +#define JclResources_RsRTTIOrdinal 64920 +#define JclResources_RsRTTITrue 64921 +#define JclResources_RsRTTIFalse 64922 +#define JclResources_RsRTTITypeError 64923 +#define JclResources_RsRTTITypeInfoAt 64924 +#define JclResources_RsRTTIPropRead 64925 +#define JclResources_RsRTTIPropWrite 64926 +#define JclResources_RsRTTIPropStored 64927 +#define JclResources_RsUnableToOpenKeyWrite 64928 +#define JclResources_RsUnableToAccessValue 64929 +#define JclResources_RsWrongDataType 64930 +#define JclResources_RsInconsistentPath 64931 +#define JclResources_RsHKCRLong 64932 +#define JclResources_RsHKCULong 64933 +#define JclResources_RsHKLMLong 64934 +#define JclResources_RsHKUSLong 64935 +#define JclResources_RsHKPDLong 64936 +#define JclResources_RsHKCCLong 64937 +#define JclResources_RsHKDDLong 64938 +#define JclResources_RsHKCRShort 64939 +#define JclResources_RsHKCUShort 64940 +#define JclResources_RsHKLMShort 64941 +#define JclResources_RsHKUSShort 64942 +#define JclResources_RsHKPDShort 64943 +#define IdResourceStringsCore_RSTransparentProxyCannotBind 64944 +#define IdResourceStringsCore_RSTransparentProxyCanNotSupportUDP 64945 +#define IdResourceStringsCore_RSBufferMissingTerminator 64946 +#define IdResourceStringsCore_RSBufferInvalidStartPos 64947 +#define IdResourceStringsCore_RSReplyInvalidCode 64948 +#define IdResourceStringsCore_RSThreadSchedulerThreadRequired 64949 +#define IdResourceStringsCore_RSNoOnExecute 64950 +#define IdResourceStringsCore_RSTCPServerSchedulerAlreadyActive 64951 +#define ComStrs_sInvalidIndex 64952 +#define ComStrs_sInsertError 64953 +#define ComStrs_sUDAssociated 64954 +#define JConsts_sChangeJPGSize 64955 +#define JConsts_sJPEGError 64956 +#define JConsts_sJPEGImageFile 64957 +#define JclResources_RsFileUtilsNoVersionInfo 64958 +#define JclResources_RsUnableToOpenKeyRead 64959 +#define IdResourceStringsCore_RSSocksServerCommandError 64960 +#define IdResourceStringsCore_RSSocksServerAddressError 64961 +#define IdResourceStringsCore_RSInterceptCircularLink 64962 +#define IdResourceStringsCore_RSNotEnoughDataInBuffer 64963 +#define IdResourceStringsCore_RSTooMuchDataInBuffer 64964 +#define IdResourceStringsCore_RSFileNotFound 64965 +#define IdResourceStringsCore_RSNotConnected 64966 +#define IdResourceStringsCore_RSObjectTypeNotSupported 64967 +#define IdResourceStringsCore_RSIdNoDataToRead 64968 +#define IdResourceStringsCore_RSReadTimeout 64969 +#define IdResourceStringsCore_RSReadLnMaxLineLengthExceeded 64970 +#define IdResourceStringsCore_RSConnectTimeout 64971 +#define IdResourceStringsCore_RSThreadTerminateAndWaitFor 64972 +#define IdResourceStringsCore_RSAlreadyConnected 64973 +#define IdResourceStringsCore_RSMaximumNumberOfCaptureLineExceeded 64974 +#define IdResourceStringsCore_RSchedMaxThreadEx 64975 +#define IdResourceStringsProtocols_RSHTTPCannotSwitchSessionStateWhenActive 64976 +#define IdResourceStringsProtocols_RSHTTPAuthAlreadyRegistered 64977 +#define IdResourceStringsCore_RSSocksUDPNotSupported 64978 +#define IdResourceStringsCore_RSSocksRequestFailed 64979 +#define IdResourceStringsCore_RSSocksRequestServerFailed 64980 +#define IdResourceStringsCore_RSSocksRequestIdentFailed 64981 +#define IdResourceStringsCore_RSSocksUnknownError 64982 +#define IdResourceStringsCore_RSSocksServerRespondError 64983 +#define IdResourceStringsCore_RSSocksAuthMethodError 64984 +#define IdResourceStringsCore_RSSocksAuthError 64985 +#define IdResourceStringsCore_RSSocksServerGeneralError 64986 +#define IdResourceStringsCore_RSSocksServerPermissionError 64987 +#define IdResourceStringsCore_RSSocksServerNetUnreachableError 64988 +#define IdResourceStringsCore_RSSocksServerHostUnreachableError 64989 +#define IdResourceStringsCore_RSSocksServerConnectionRefusedError 64990 +#define IdResourceStringsCore_RSSocksServerTTLExpiredError 64991 +#define IdResourceStringsProtocols_RSHTTPGone 64992 +#define IdResourceStringsProtocols_RSHTTPLengthRequired 64993 +#define IdResourceStringsProtocols_RSHTTPPreconditionFailed 64994 +#define IdResourceStringsProtocols_RSHTTPRequestEntityToLong 64995 +#define IdResourceStringsProtocols_RSHTTPRequestURITooLong 64996 +#define IdResourceStringsProtocols_RSHTTPUnsupportedMediaType 64997 +#define IdResourceStringsProtocols_RSHTTPInternalServerError 64998 +#define IdResourceStringsProtocols_RSHTTPNotImplemented 64999 +#define IdResourceStringsProtocols_RSHTTPBadGateway 65000 +#define IdResourceStringsProtocols_RSHTTPServiceUnavailable 65001 +#define IdResourceStringsProtocols_RSHTTPGatewayTimeout 65002 +#define IdResourceStringsProtocols_RSHTTPHTTPVersionNotSupported 65003 +#define IdResourceStringsProtocols_RSHTTPUnknownResponseCode 65004 +#define IdResourceStringsProtocols_RSHTTPHeaderAlreadyWritten 65005 +#define IdResourceStringsProtocols_RSHTTPErrorParsingCommand 65006 +#define IdResourceStringsProtocols_RSHTTPUnsupportedAuthorisationScheme 65007 +#define IdResourceStringsProtocols_RSHTTPResetContent 65008 +#define IdResourceStringsProtocols_RSHTTPPartialContent 65009 +#define IdResourceStringsProtocols_RSHTTPMovedPermanently 65010 +#define IdResourceStringsProtocols_RSHTTPMovedTemporarily 65011 +#define IdResourceStringsProtocols_RSHTTPSeeOther 65012 +#define IdResourceStringsProtocols_RSHTTPNotModified 65013 +#define IdResourceStringsProtocols_RSHTTPUseProxy 65014 +#define IdResourceStringsProtocols_RSHTTPBadRequest 65015 +#define IdResourceStringsProtocols_RSHTTPUnauthorized 65016 +#define IdResourceStringsProtocols_RSHTTPForbidden 65017 +#define IdResourceStringsProtocols_RSHTTPNotFound 65018 +#define IdResourceStringsProtocols_RSHTTPMethodNotAllowed 65019 +#define IdResourceStringsProtocols_RSHTTPNotAcceptable 65020 +#define IdResourceStringsProtocols_RSHTTPProxyAuthenticationRequired 65021 +#define IdResourceStringsProtocols_RSHTTPRequestTimeout 65022 +#define IdResourceStringsProtocols_RSHTTPConflict 65023 +#define IdResourceStrings_RSInvalidServiceName 65024 +#define IdResourceStrings_RSIPv6Unavailable 65025 +#define IdResourceStrings_RSInvalidIPv6Address 65026 +#define IdResourceStrings_RSIPVersionUnsupported 65027 +#define IdResourceStrings_RSNotAllBytesSent 65028 +#define IdResourceStrings_RSPackageSizeTooBig 65029 +#define IdResourceStrings_RSSetSizeExceeded 65030 +#define IdResourceStringsProtocols_RSMIMEExtensionEmpty 65031 +#define IdResourceStringsProtocols_RSMIMEMIMETypeEmpty 65032 +#define IdResourceStringsProtocols_RSMIMEMIMEExtAlreadyExists 65033 +#define IdResourceStringsProtocols_RSHTTPContinue 65034 +#define IdResourceStringsProtocols_RSHTTPOK 65035 +#define IdResourceStringsProtocols_RSHTTPCreated 65036 +#define IdResourceStringsProtocols_RSHTTPAccepted 65037 +#define IdResourceStringsProtocols_RSHTTPNonAuthoritativeInformation 65038 +#define IdResourceStringsProtocols_RSHTTPNoContent 65039 +#define IdResourceStrings_RSStackETIMEDOUT 65040 +#define IdResourceStrings_RSStackECONNREFUSED 65041 +#define IdResourceStrings_RSStackELOOP 65042 +#define IdResourceStrings_RSStackENAMETOOLONG 65043 +#define IdResourceStrings_RSStackEHOSTDOWN 65044 +#define IdResourceStrings_RSStackEHOSTUNREACH 65045 +#define IdResourceStrings_RSStackENOTEMPTY 65046 +#define IdResourceStrings_RSStackHOST_NOT_FOUND 65047 +#define IdResourceStrings_RSStackClassUndefined 65048 +#define IdResourceStrings_RSStackAlreadyCreated 65049 +#define IdResourceStrings_RSAntiFreezeOnlyOne 65050 +#define IdResourceStrings_RSCannotSetIPVersionWhenConnected 65051 +#define IdResourceStrings_RSCannotBindRange 65052 +#define IdResourceStrings_RSConnectionClosedGracefully 65053 +#define IdResourceStrings_RSCouldNotBindSocket 65054 +#define IdResourceStrings_RSInvalidPortRange 65055 +#define IdResourceStrings_RSStackESOCKTNOSUPPORT 65056 +#define IdResourceStrings_RSStackEOPNOTSUPP 65057 +#define IdResourceStrings_RSStackEPFNOSUPPORT 65058 +#define IdResourceStrings_RSStackEAFNOSUPPORT 65059 +#define IdResourceStrings_RSStackEADDRINUSE 65060 +#define IdResourceStrings_RSStackEADDRNOTAVAIL 65061 +#define IdResourceStrings_RSStackENETDOWN 65062 +#define IdResourceStrings_RSStackENETUNREACH 65063 +#define IdResourceStrings_RSStackENETRESET 65064 +#define IdResourceStrings_RSStackECONNABORTED 65065 +#define IdResourceStrings_RSStackECONNRESET 65066 +#define IdResourceStrings_RSStackENOBUFS 65067 +#define IdResourceStrings_RSStackEISCONN 65068 +#define IdResourceStrings_RSStackENOTCONN 65069 +#define IdResourceStrings_RSStackESHUTDOWN 65070 +#define IdResourceStrings_RSStackETOOMANYREFS 65071 +#define IdResourceStrings_RSStackError 65072 +#define IdResourceStrings_RSStackEINTR 65073 +#define IdResourceStrings_RSStackEBADF 65074 +#define IdResourceStrings_RSStackEACCES 65075 +#define IdResourceStrings_RSStackEFAULT 65076 +#define IdResourceStrings_RSStackEINVAL 65077 +#define IdResourceStrings_RSStackEMFILE 65078 +#define IdResourceStrings_RSStackEWOULDBLOCK 65079 +#define IdResourceStrings_RSStackEINPROGRESS 65080 +#define IdResourceStrings_RSStackEALREADY 65081 +#define IdResourceStrings_RSStackENOTSOCK 65082 +#define IdResourceStrings_RSStackEDESTADDRREQ 65083 +#define IdResourceStrings_RSStackEMSGSIZE 65084 +#define IdResourceStrings_RSStackEPROTOTYPE 65085 +#define IdResourceStrings_RSStackENOPROTOOPT 65086 +#define IdResourceStrings_RSStackEPROTONOSUPPORT 65087 +#define DBConsts_SFileNameBlank 65088 +#define DBConsts_SBcdOverflow 65089 +#define DBConsts_SInvalidBcdValue 65090 +#define DBConsts_SInvalidFormatType 65091 +#define DBConsts_SCouldNotParseTimeStamp 65092 +#define DBConsts_SInvalidSqlTimeStamp 65093 +#define IdResourceStrings_RSFailedTimeZoneInfo 65094 +#define IdResourceStrings_RSWinsockCallError 65095 +#define IdResourceStrings_RSWinsockLoadError 65096 +#define IdResourceStrings_RSWinsockInitializationError 65097 +#define IdResourceStrings_RSStatusResolving 65098 +#define IdResourceStrings_RSStatusConnecting 65099 +#define IdResourceStrings_RSStatusConnected 65100 +#define IdResourceStrings_RSStatusDisconnecting 65101 +#define IdResourceStrings_RSStatusDisconnected 65102 +#define IdResourceStrings_RSStatusText 65103 +#define DBConsts_SExprBadConst 65104 +#define DBConsts_SExprNoAggFilter 65105 +#define DBConsts_SExprEmptyInList 65106 +#define DBConsts_SInvalidKeywordUse 65107 +#define DBConsts_STextFalse 65108 +#define DBConsts_STextTrue 65109 +#define DBConsts_SParameterNotFound 65110 +#define DBConsts_SInvalidVersion 65111 +#define DBConsts_SBadFieldType 65112 +#define DBConsts_SAggActive 65113 +#define DBConsts_SProviderSQLNotSupported 65114 +#define DBConsts_SProviderExecuteNotSupported 65115 +#define DBConsts_SExprNoAggOnCalcs 65116 +#define DBConsts_SDataSetUnidirectional 65117 +#define DBConsts_SUnassignedVar 65118 +#define DBConsts_SRecordNotFound 65119 +#define DBConsts_SExprNameError 65120 +#define DBConsts_SExprStringError 65121 +#define DBConsts_SExprInvalidChar 65122 +#define DBConsts_SExprNoLParen 65123 +#define DBConsts_SExprNoRParen 65124 +#define DBConsts_SExprNoRParenOrComma 65125 +#define DBConsts_SExprExpected 65126 +#define DBConsts_SExprBadField 65127 +#define DBConsts_SExprBadNullTest 65128 +#define DBConsts_SExprRangeError 65129 +#define DBConsts_SExprIncorrect 65130 +#define DBConsts_SExprNothing 65131 +#define DBConsts_SExprTypeMis 65132 +#define DBConsts_SExprBadScope 65133 +#define DBConsts_SExprNoArith 65134 +#define DBConsts_SExprNotAgg 65135 +#define DBConsts_SNotIndexField 65136 +#define DBConsts_SIndexFieldMissing 65137 +#define DBConsts_SDuplicateIndexName 65138 +#define DBConsts_SNoIndexForFields 65139 +#define DBConsts_SIndexNotFound 65140 +#define DBConsts_SCircularDataLink 65141 +#define DBConsts_SLookupInfoError 65142 +#define DBConsts_SDataSourceChange 65143 +#define DBConsts_SNoNestedMasterSource 65144 +#define DBConsts_SDataSetOpen 65145 +#define DBConsts_SNotEditing 65146 +#define DBConsts_SDataSetClosed 65147 +#define DBConsts_SDataSetEmpty 65148 +#define DBConsts_SDataSetReadOnly 65149 +#define DBConsts_SNestedDataSetClass 65150 +#define DBConsts_SExprTermination 65151 +#define DBConsts_SFieldValueError 65152 +#define DBConsts_SFieldRangeError 65153 +#define DBConsts_SBcdFieldRangeError 65154 +#define DBConsts_SInvalidIntegerValue 65155 +#define DBConsts_SInvalidBoolValue 65156 +#define DBConsts_SInvalidFloatValue 65157 +#define DBConsts_SFieldTypeMismatch 65158 +#define DBConsts_SFieldSizeMismatch 65159 +#define DBConsts_SInvalidVarByteArray 65160 +#define DBConsts_SFieldOutOfRange 65161 +#define DBConsts_SFieldRequired 65162 +#define DBConsts_SDataSetMissing 65163 +#define DBConsts_SInvalidCalcType 65164 +#define DBConsts_SFieldReadOnly 65165 +#define DBConsts_SFieldIndexError 65166 +#define DBConsts_SNoFieldIndexes 65167 +#define uRORes_err_UnsupportedVariantType 65168 +#define uRORes_err_VariantIsNotArray 65169 +#define uRORes_err_InvalidVarArrayDimCount 65170 +#define uRORes_err_CannotFindParameter 65171 +#define uRORes_err_MessageNotAssigned 65172 +#define ComConst_SOleError 65173 +#define ComConst_SNoMethod 65174 +#define ComConst_SVarNotObject 65175 +#define ComConst_STooManyParams 65176 +#define DBConsts_SInvalidFieldSize 65177 +#define DBConsts_SInvalidFieldKind 65178 +#define DBConsts_SUnknownFieldType 65179 +#define DBConsts_SFieldNameMissing 65180 +#define DBConsts_SDuplicateFieldName 65181 +#define DBConsts_SFieldNotFound 65182 +#define DBConsts_SFieldAccessError 65183 +#define uRORes_err_ServerOnlySupportsOneDispatcher 65184 +#define uRORes_err_UnhandledException 65185 +#define uRORes_err_ChannelBusy 65186 +#define uRORes_err_ArrayIndexOutOfBounds 65187 +#define uRORes_err_InvalidHeader 65188 +#define uRORes_err_InvalidHeaderEncrypted 65189 +#define uRORes_err_UnknownClassInStream 65190 +#define uRORes_err_UnexpectedClassInStream 65191 +#define uRORes_err_SessionNotFound 65192 +#define uRORes_err_ChannelDoesntSupportIROMetadataReader 65193 +#define uRORes_err_TooManySessions 65194 +#define uRORes_err_DOMElementIsNIL 65195 +#define uRORes_err_CannotLoadXMLDocument 65196 +#define uRORes_err_ErrorCreatingMsXmlDoc 65197 +#define uRORes_err_NoXMLParsersAvailable 65198 +#define uRORes_err_IDispatchMarshalingNotSupported 65199 +#define uRORes_err_AssignError 65200 +#define uRORes_err_InvalidRequestStream 65201 +#define uRORes_err_NILMessage 65202 +#define uRORes_err_UnspecifiedInterface 65203 +#define uRORes_err_UnspecifiedMessage 65204 +#define uRORes_err_UnknownMethod 65205 +#define uRORes_err_ClassFactoryDidNotReturnInstance 65206 +#define uRORes_err_ParameterNotFound 65207 +#define uRORes_err_TypeNotSupported 65208 +#define uRORes_err_ClassFactoryNotFound 65209 +#define uRORes_err_IROMessageNotSupported 65210 +#define uRORes_err_ClassAlreadyRegistered 65211 +#define uRORes_err_UnknownClass 65212 +#define uRORes_err_UnknownProxyInterface 65213 +#define uRORes_err_DispatcherAlreadyAssigned 65214 +#define uRORes_err_CannotFindMessageDispatcher 65215 +#define uRORes_err_InvalidTargetEntity 65216 +#define uRORes_err_InvalidParamFlag 65217 +#define uRORes_err_InvalidStringLength 65218 +#define uRORes_str_InvalidClassTypeInStream 65219 +#define uRORes_err_UnexpectedEndOfStream 65220 +#define uRORes_err_RodlDuplicateName 65221 +#define uRORes_err_RodlNoDataTypeSpecified 65222 +#define uRORes_err_RodlNoEnumValues 65223 +#define uRORes_err_RodlNoStructElementsDefined 65224 +#define uRORes_err_RodlNoOperationsDefined 65225 +#define uRORes_err_RodlUsedFileDoesNotExist 65226 +#define uRORes_err_RodlInvalidDataType 65227 +#define uRORes_err_RodlStructCannotBeNested 65228 +#define uRORes_err_RodlInvalidAncestorType 65229 +#define uRORes_str_ExceptionOnServer 65230 +#define uRORes_str_ExceptionReraisedFromServer 65231 +#define uRODECConst_sProtectionCircular 65232 +#define uRODECConst_sStringFormatExists 65233 +#define uRODECConst_sInvalidStringFormat 65234 +#define uRODECConst_sInvalidFormatString 65235 +#define uRODECConst_sFMT_COPY 65236 +#define uRODECConst_sFMT_HEX 65237 +#define uRODECConst_sFMT_HEXL 65238 +#define uRODECConst_sFMT_MIME64 65239 +#define uRODECConst_sFMT_UU 65240 +#define uRODECConst_sFMT_XX 65241 +#define uRODECConst_sInvalidKeySize 65242 +#define uRODECConst_sNotInitialized 65243 +#define uRORes_err_InvalidIndex 65244 +#define uRORes_err_InvalidType 65245 +#define uRORes_err_InvalidLibrary 65246 +#define uRORes_err_InvalidStream 65247 +#define Consts_SDockZoneNotFound 65248 +#define Consts_SDockZoneHasNoCtl 65249 +#define Consts_SDockZoneVersionConflict 65250 +#define Consts_SMultiSelectRequired 65251 +#define Consts_SSeparator 65252 +#define Consts_SErrorSettingCount 65253 +#define Consts_SListBoxMustBeVirtual 65254 +#define Consts_SANSIEncoding 65255 +#define Consts_SASCIIEncoding 65256 +#define Consts_SUnicodeEncoding 65257 +#define Consts_SBigEndianEncoding 65258 +#define Consts_SUTF8Encoding 65259 +#define Consts_SUTF7Encoding 65260 +#define Consts_STrayIconRemoveError 65261 +#define Consts_STrayIconCreateError 65262 +#define Consts_SWindowsVistaRequired 65263 +#define Consts_SDrivesCap 65264 +#define Consts_SDirsCap 65265 +#define Consts_SFilesCap 65266 +#define Consts_SNetworkCap 65267 +#define Consts_SInvalidClipFmt 65268 +#define Consts_SIconToClipboard 65269 +#define Consts_SCannotOpenClipboard 65270 +#define Consts_SInvalidMemoSize 65271 +#define Consts_SInvalidPrinterOp 65272 +#define Consts_SNoDefaultPrinter 65273 +#define Consts_SDuplicateMenus 65274 +#define Consts_SPictureLabel 65275 +#define Consts_SPictureDesc 65276 +#define Consts_SPreviewLabel 65277 +#define Consts_SDockedCtlNeedsName 65278 +#define Consts_SDockTreeRemoveError 65279 +#define Consts_SmkcLeft 65280 +#define Consts_SmkcUp 65281 +#define Consts_SmkcRight 65282 +#define Consts_SmkcDown 65283 +#define Consts_SmkcIns 65284 +#define Consts_SmkcDel 65285 +#define Consts_SmkcShift 65286 +#define Consts_SmkcCtrl 65287 +#define Consts_SmkcAlt 65288 +#define Consts_srNone 65289 +#define Consts_SOutOfRange 65290 +#define Consts_sAllFilter 65291 +#define Consts_SInsertLineError 65292 +#define Consts_SConfirmCreateDir 65293 +#define Consts_SSelectDirCap 65294 +#define Consts_SDirNameCap 65295 +#define Consts_SMsgDlgHelp 65296 +#define Consts_SMsgDlgAbort 65297 +#define Consts_SMsgDlgRetry 65298 +#define Consts_SMsgDlgIgnore 65299 +#define Consts_SMsgDlgAll 65300 +#define Consts_SMsgDlgNoToAll 65301 +#define Consts_SMsgDlgYesToAll 65302 +#define Consts_SmkcBkSp 65303 +#define Consts_SmkcTab 65304 +#define Consts_SmkcEsc 65305 +#define Consts_SmkcEnter 65306 +#define Consts_SmkcSpace 65307 +#define Consts_SmkcPgUp 65308 +#define Consts_SmkcPgDn 65309 +#define Consts_SmkcEnd 65310 +#define Consts_SmkcHome 65311 +#define Consts_SAllButton 65312 +#define Consts_SCannotDragForm 65313 +#define Consts_SVMetafiles 65314 +#define Consts_SVEnhMetafiles 65315 +#define Consts_SVIcons 65316 +#define Consts_SVBitmaps 65317 +#define Consts_SMaskErr 65318 +#define Consts_SMaskEditErr 65319 +#define Consts_SMsgDlgWarning 65320 +#define Consts_SMsgDlgError 65321 +#define Consts_SMsgDlgInformation 65322 +#define Consts_SMsgDlgConfirm 65323 +#define Consts_SMsgDlgYes 65324 +#define Consts_SMsgDlgNo 65325 +#define Consts_SMsgDlgOK 65326 +#define Consts_SMsgDlgCancel 65327 +#define Consts_SNotPrinting 65328 +#define Consts_SPrinting 65329 +#define Consts_SInvalidPrinter 65330 +#define Consts_SDeviceOnPort 65331 +#define Consts_SGroupIndexTooLow 65332 +#define Consts_SNoMDIForm 65333 +#define Consts_SControlParentSetToSelf 65334 +#define Consts_SOKButton 65335 +#define Consts_SCancelButton 65336 +#define Consts_SYesButton 65337 +#define Consts_SNoButton 65338 +#define Consts_SHelpButton 65339 +#define Consts_SCloseButton 65340 +#define Consts_SIgnoreButton 65341 +#define Consts_SRetryButton 65342 +#define Consts_SAbortButton 65343 +#define Consts_SImageReadFail 65344 +#define Consts_SImageWriteFail 65345 +#define Consts_SWindowDCError 65346 +#define Consts_SWindowClass 65347 +#define Consts_SCannotFocus 65348 +#define Consts_SParentRequired 65349 +#define Consts_SParentGivenNotAParent 65350 +#define Consts_SMDIChildNotVisible 65351 +#define Consts_SVisibleChanged 65352 +#define Consts_SCannotShowModal 65353 +#define Consts_SScrollBarRange 65354 +#define Consts_SPropertyOutOfRange 65355 +#define Consts_SMenuIndexError 65356 +#define Consts_SMenuReinserted 65357 +#define Consts_SMenuNotFound 65358 +#define Consts_SNoTimers 65359 +#define HelpIntfs_hNoTopics 65360 +#define Consts_SInvalidBitmap 65361 +#define Consts_SInvalidIcon 65362 +#define Consts_SInvalidMetafile 65363 +#define Consts_SInvalidPixelFormat 65364 +#define Consts_SInvalidImage 65365 +#define Consts_SScanLine 65366 +#define Consts_SChangeIconSize 65367 +#define Consts_SUnknownExtension 65368 +#define Consts_SUnknownClipboardFormat 65369 +#define Consts_SOutOfResources 65370 +#define Consts_SNoCanvasHandle 65371 +#define Consts_SInvalidImageSize 65372 +#define Consts_SInvalidImageList 65373 +#define Consts_SReplaceImage 65374 +#define Consts_SImageIndexError 65375 +#define RTLConsts_SRegGetDataFailed 65376 +#define RTLConsts_SRegSetDataFailed 65377 +#define RTLConsts_SResNotFound 65378 +#define RTLConsts_SSeekNotImplemented 65379 +#define RTLConsts_SSortedListError 65380 +#define RTLConsts_SUnknownGroup 65381 +#define RTLConsts_SUnknownProperty 65382 +#define RTLConsts_SWriteError 65383 +#define RTLConsts_SThreadCreateError 65384 +#define RTLConsts_SThreadError 65385 +#define RTLConsts_SMissingDateTimeField 65386 +#define RTLConsts_SInvalidDateTime 65387 +#define HelpIntfs_hNoTableOfContents 65388 +#define HelpIntfs_hNothingFound 65389 +#define HelpIntfs_hNoContext 65390 +#define HelpIntfs_hNoContextFound 65391 +#define RTLConsts_SInvalidImage 65392 +#define RTLConsts_SInvalidName 65393 +#define RTLConsts_SInvalidProperty 65394 +#define RTLConsts_SInvalidPropertyElement 65395 +#define RTLConsts_SInvalidPropertyPath 65396 +#define RTLConsts_SInvalidPropertyType 65397 +#define RTLConsts_SInvalidPropertyValue 65398 +#define RTLConsts_SInvalidRegType 65399 +#define RTLConsts_SListCapacityError 65400 +#define RTLConsts_SListCountError 65401 +#define RTLConsts_SListIndexError 65402 +#define RTLConsts_SMemoryStreamError 65403 +#define RTLConsts_SPropertyException 65404 +#define RTLConsts_SReadError 65405 +#define RTLConsts_SReadOnlyProperty 65406 +#define RTLConsts_SRegCreateFailed 65407 +#define SysConst_SLongDayNameSat 65408 +#define SysConst_SCannotCreateDir 65409 +#define RTLConsts_SAncestorNotFound 65410 +#define RTLConsts_SAssignError 65411 +#define RTLConsts_SBitsIndexError 65412 +#define RTLConsts_SCantWriteResourceStreamError 65413 +#define RTLConsts_SCheckSynchronizeError 65414 +#define RTLConsts_SClassNotFound 65415 +#define RTLConsts_SDuplicateClass 65416 +#define RTLConsts_SDuplicateItem 65417 +#define RTLConsts_SDuplicateName 65418 +#define RTLConsts_SDuplicateString 65419 +#define RTLConsts_SFCreateErrorEx 65420 +#define RTLConsts_SFOpenErrorEx 65421 +#define RTLConsts_SIniFileWriteError 65422 +#define RTLConsts_SInvalidFileName 65423 +#define SysConst_SLongMonthNameOct 65424 +#define SysConst_SLongMonthNameNov 65425 +#define SysConst_SLongMonthNameDec 65426 +#define SysConst_SShortDayNameSun 65427 +#define SysConst_SShortDayNameMon 65428 +#define SysConst_SShortDayNameTue 65429 +#define SysConst_SShortDayNameWed 65430 +#define SysConst_SShortDayNameThu 65431 +#define SysConst_SShortDayNameFri 65432 +#define SysConst_SShortDayNameSat 65433 +#define SysConst_SLongDayNameSun 65434 +#define SysConst_SLongDayNameMon 65435 +#define SysConst_SLongDayNameTue 65436 +#define SysConst_SLongDayNameWed 65437 +#define SysConst_SLongDayNameThu 65438 +#define SysConst_SLongDayNameFri 65439 +#define SysConst_SShortMonthNameJun 65440 +#define SysConst_SShortMonthNameJul 65441 +#define SysConst_SShortMonthNameAug 65442 +#define SysConst_SShortMonthNameSep 65443 +#define SysConst_SShortMonthNameOct 65444 +#define SysConst_SShortMonthNameNov 65445 +#define SysConst_SShortMonthNameDec 65446 +#define SysConst_SLongMonthNameJan 65447 +#define SysConst_SLongMonthNameFeb 65448 +#define SysConst_SLongMonthNameMar 65449 +#define SysConst_SLongMonthNameApr 65450 +#define SysConst_SLongMonthNameMay 65451 +#define SysConst_SLongMonthNameJun 65452 +#define SysConst_SLongMonthNameJul 65453 +#define SysConst_SLongMonthNameAug 65454 +#define SysConst_SLongMonthNameSep 65455 +#define SysConst_SSafecallException 65456 +#define SysConst_SAssertError 65457 +#define SysConst_SAbstractError 65458 +#define SysConst_SModuleAccessViolation 65459 +#define SysConst_sErrorLoadingPackage 65460 +#define SysConst_SInvalidPackageFile 65461 +#define SysConst_SInvalidPackageHandle 65462 +#define SysConst_SDuplicatePackageUnit 65463 +#define SysConst_SOSError 65464 +#define SysConst_SUnkOSError 65465 +#define SysConst_SNL 65466 +#define SysConst_SShortMonthNameJan 65467 +#define SysConst_SShortMonthNameFeb 65468 +#define SysConst_SShortMonthNameMar 65469 +#define SysConst_SShortMonthNameApr 65470 +#define SysConst_SShortMonthNameMay 65471 +#define SysConst_SInvalidVarNullOp 65472 +#define SysConst_SInvalidVarOpWithHResultWithPrefix 65473 +#define SysConst_SVarTypeOutOfRangeWithPrefix 65474 +#define SysConst_SVarTypeAlreadyUsedWithPrefix 65475 +#define SysConst_SVarTypeNotUsableWithPrefix 65476 +#define SysConst_SVarTypeTooManyCustom 65477 +#define SysConst_SVarTypeCouldNotConvert 65478 +#define SysConst_SVarTypeConvertOverflow 65479 +#define SysConst_SVarOverflow 65480 +#define SysConst_SVarInvalid 65481 +#define SysConst_SVarBadType 65482 +#define SysConst_SVarNotImplemented 65483 +#define SysConst_SVarUnexpected 65484 +#define SysConst_SExternalException 65485 +#define SysConst_SAssertionFailed 65486 +#define SysConst_SIntfCastError 65487 +#define SysConst_SPrivilege 65488 +#define SysConst_SOperationAborted 65489 +#define SysConst_SException 65490 +#define SysConst_SExceptTitle 65491 +#define SysConst_SInvalidFormat 65492 +#define SysConst_SArgumentMissing 65493 +#define SysConst_SDispatchError 65494 +#define SysConst_SReadAccess 65495 +#define SysConst_SWriteAccess 65496 +#define SysConst_SFormatTooLong 65497 +#define SysConst_SVarArrayCreate 65498 +#define SysConst_SVarArrayBounds 65499 +#define SysConst_SVarArrayLocked 65500 +#define SysConst_SVarArrayWithHResult 65501 +#define SysConst_SInvalidVarCast 65502 +#define SysConst_SInvalidVarOp 65503 +#define SysConst_SEndOfFile 65504 +#define SysConst_SDiskFull 65505 +#define SysConst_SInvalidInput 65506 +#define SysConst_SDivByZero 65507 +#define SysConst_SRangeError 65508 +#define SysConst_SIntOverflow 65509 +#define SysConst_SInvalidOp 65510 +#define SysConst_SZeroDivide 65511 +#define SysConst_SOverflow 65512 +#define SysConst_SUnderflow 65513 +#define SysConst_SInvalidPointer 65514 +#define SysConst_SInvalidCast 65515 +#define SysConst_SAccessViolationArg3 65516 +#define SysConst_SAccessViolationNoArg 65517 +#define SysConst_SStackOverflow 65518 +#define SysConst_SControlC 65519 #define SysConst_SInvalidInteger 65520 #define SysConst_SInvalidFloat 65521 #define SysConst_SInvalidDate 65522 @@ -1262,23 +1480,17 @@ #define SysConst_SInvalidDateTime 65524 #define SysConst_SInvalidTimeStamp 65525 #define SysConst_SInvalidGUID 65526 -#define SysConst_STimeEncodeError 65527 -#define SysConst_SDateEncodeError 65528 -#define SysConst_SOutOfMemory 65529 -#define SysConst_SInOutError 65530 -#define SysConst_SFileNotFound 65531 -#define SysConst_SInvalidFilename 65532 -#define SysConst_STooManyOpenFiles 65533 -#define SysConst_SAccessDenied 65534 -#define SysConst_SEndOfFile 65535 +#define SysConst_SInvalidBoolean 65527 +#define SysConst_STimeEncodeError 65528 +#define SysConst_SDateEncodeError 65529 +#define SysConst_SOutOfMemory 65530 +#define SysConst_SInOutError 65531 +#define SysConst_SFileNotFound 65532 +#define SysConst_SInvalidFilename 65533 +#define SysConst_STooManyOpenFiles 65534 +#define SysConst_SAccessDenied 65535 STRINGTABLE BEGIN - cxPCConsts_scxPCTabIndexError, "Tab's index (%d) out of bounds" - cxPCConsts_scxPCTabVisibleIndexOutsOfBounds, "TabVisibleIndex (%d) must be between 0 and %d" - cxPCConsts_scxPCVisibleTabListEmpty, "There are no visible tabs" - cxPCConsts_scxPCAllowRotateError, "%s style does not support rotation of tabs" - cxGridStrs_scxGridDeletingConfirmationCaption, "Confirm" - cxGridStrs_scxGridDeletingFocusedConfirmationText, "Delete record?" cxGridStrs_scxGridDeletingSelectedConfirmationText, "Delete all selected records?" cxGridStrs_scxGridNoDataInfoText, "" cxGridStrs_scxGridNewItemRowInfoText, "Click here to add a new row" @@ -1288,12 +1500,6 @@ BEGIN cxGridStrs_scxGridGroupByBoxCaption, "Drag a column header here to group by that column" cxGridStrs_scxGridFilterCustomizeButtonCaption, "Customize..." cxGridStrs_scxGridColumnsQuickCustomizationHint, "Click here to select visible columns" - MidConst_SConstraintFailed, "Record or field constraint failed." - MidConst_SField, "Field" - MidConst_SRecConstFail, "Preparation of record constraint failed with error \"%s\"" - MidConst_SFieldConstFail, "Preparation of field constraint failed with error \"%s\"" - MidConst_SDefExprFail, "Preparation of default expression failed with error \"%s\"" - MidConst_SNoEditsAllowed, "Modifications are not allowed" MidConst_SNoDeletesAllowed, "Deletes are not allowed" MidConst_SNoInsertsAllowed, "Inserts are not allowed" MidConst_SConnectionMissing, "Requires Connection before opening" @@ -1304,12 +1510,12 @@ BEGIN cxPCConsts_scxPCPageIndexError, "%d is an invalid PageIndex value. PageIndex must be between 0 and %d" cxPCConsts_scxPCPainterClassError, "PCPainterClass is nil" cxPCConsts_scxPCTabCountEqualsZero, "Tabs.Count = 0" - cxFilterControlStrs_cxSFilterControlDialogActionSaveCaption, "&Save As..." - cxFilterControlStrs_cxSFilterControlDialogActionOpenCaption, "&Open..." - cxFilterControlStrs_cxSFilterControlDialogActionApplyCaption, "&Apply" - cxFilterControlStrs_cxSFilterControlDialogActionOkCaption, "OK" - cxFilterControlStrs_cxSFilterControlDialogActionCancelCaption, "Cancel" - cxFilterControlStrs_cxSFilterControlDialogFileExt, "flt" + cxPCConsts_scxPCTabIndexError, "Tab's index (%d) out of bounds" + cxPCConsts_scxPCTabVisibleIndexOutsOfBounds, "TabVisibleIndex (%d) must be between 0 and %d" + cxPCConsts_scxPCVisibleTabListEmpty, "There are no visible tabs" + cxPCConsts_scxPCAllowRotateError, "%s style does not support rotation of tabs" + cxGridStrs_scxGridDeletingConfirmationCaption, "Confirm" + cxGridStrs_scxGridDeletingFocusedConfirmationText, "Delete record?" cxFilterControlStrs_cxSFilterControlDialogFileFilter, "Filters (*.flt)|*.flt" MidConst_SNoDataProvider, "Missing data provider or data packet" MidConst_SInvalidDataPacket, "Invalid data packet" @@ -1320,12 +1526,12 @@ BEGIN MidConst_SNoConnectToBroker, "Connection not allowed to TConnectionBroker" MidConst_SNoParentConnection, "ParentConnection is not assigned" MidConst_SInvalidOptParamType, "Value cannot be stored in an optional parameter" - cxFilterControlStrs_cxSFilterGroupCaption, "applies to the following conditions" - cxFilterControlStrs_cxSFilterRootGroupCaption, "" - cxFilterControlStrs_cxSFilterControlNullString, "" - cxFilterControlStrs_cxSFilterErrorBuilding, "Can't build filter from source" - cxFilterControlStrs_cxSFilterDialogCaption, "Custom Filter" - cxFilterControlStrs_cxSFilterDialogInvalidValue, "Invalid value" + MidConst_SConstraintFailed, "Record or field constraint failed." + MidConst_SField, "Field" + MidConst_SRecConstFail, "Preparation of record constraint failed with error \"%s\"" + MidConst_SFieldConstFail, "Preparation of field constraint failed with error \"%s\"" + MidConst_SDefExprFail, "Preparation of default expression failed with error \"%s\"" + MidConst_SNoEditsAllowed, "Modifications are not allowed" cxFilterControlStrs_cxSFilterDialogUse, "Use" cxFilterControlStrs_cxSFilterDialogSingleCharacter, "to represent any single character" cxFilterControlStrs_cxSFilterDialogCharactersSeries, "to represent any series of characters" @@ -1336,12 +1542,12 @@ BEGIN cxFilterControlStrs_cxSFilterControlDialogNewFile, "untitled.flt" cxFilterControlStrs_cxSFilterControlDialogOpenDialogCaption, "Open an existing filter" cxFilterControlStrs_cxSFilterControlDialogSaveDialogCaption, "Save the active filter to file" - cxEditConsts_scxRegExprNotCompiled, "Regular expression is not compiled" - cxEditConsts_scxRegExprIncorrectParameterQuantifier, "Incorrect parameter quantifier" - cxEditConsts_scxRegExprCantUseParameterQuantifier, "The parameter quantifier cannot be applied here" - cxEditConsts_scxMaskEditRegExprError, "Regular expression errors:" - cxEditConsts_scxMaskEditInvalidEditValue, "The edit value is invalid" - cxEditConsts_cxSSpinEditInvalidNumericValue, "Invalid numeric value" + cxFilterControlStrs_cxSFilterControlDialogActionSaveCaption, "&Save As..." + cxFilterControlStrs_cxSFilterControlDialogActionOpenCaption, "&Open..." + cxFilterControlStrs_cxSFilterControlDialogActionApplyCaption, "&Apply" + cxFilterControlStrs_cxSFilterControlDialogActionOkCaption, "OK" + cxFilterControlStrs_cxSFilterControlDialogActionCancelCaption, "Cancel" + cxFilterControlStrs_cxSFilterControlDialogFileExt, "flt" cxFilterControlStrs_cxSFilterBoolOperatorAnd, "AND" cxFilterControlStrs_cxSFilterBoolOperatorOr, "OR" cxFilterControlStrs_cxSFilterBoolOperatorNotAnd, "NOT AND" @@ -1352,12 +1558,12 @@ BEGIN cxFilterControlStrs_cxSFilterRemoveRow, "&Remove Row" cxFilterControlStrs_cxSFilterClearAll, "Clear &All" cxFilterControlStrs_cxSFilterFooterAddCondition, "press the button to add a new condition" - cxEditConsts_scxRegExprEmptySourceStream, "The source stream is empty" - cxEditConsts_scxRegExprCantUsePlusQuantifier, "The '+' quantifier cannot be applied here" - cxEditConsts_scxRegExprCantUseStarQuantifier, "The '*' quantifier cannot be applied here" - cxEditConsts_scxRegExprCantCreateEmptyAlt, "The alternative should not be empty" - cxEditConsts_scxRegExprCantCreateEmptyBlock, "The block should not be empty" - cxEditConsts_scxRegExprIllegalSymbol, "Illegal '%s'" + cxFilterControlStrs_cxSFilterGroupCaption, "applies to the following conditions" + cxFilterControlStrs_cxSFilterRootGroupCaption, "" + cxFilterControlStrs_cxSFilterControlNullString, "" + cxFilterControlStrs_cxSFilterErrorBuilding, "Can't build filter from source" + cxFilterControlStrs_cxSFilterDialogCaption, "Custom Filter" + cxFilterControlStrs_cxSFilterDialogInvalidValue, "Invalid value" cxEditConsts_scxRegExprIllegalQuantifier, "Illegal quantifier '%s'" cxEditConsts_scxRegExprIllegalIntegerValue, "Illegal integer value" cxEditConsts_scxRegExprTooBigReferenceNumber, "Too big reference number" @@ -1368,12 +1574,12 @@ BEGIN cxEditConsts_scxRegExprMissing, "Missing '%s'" cxEditConsts_scxRegExprUnnecessary, "Unnecessary '%s'" cxEditConsts_scxRegExprIncorrectSpace, "The space character is not allowed after '\\'" - cxEditConsts_scxSEditRepositoryCurrencyItem, "CurrencyEdit|Represents an editor enabling editing currency data" - cxEditConsts_scxSEditRepositoryDateItem, "DateEdit|Represents an edit control with a dropdown calendar" - cxEditConsts_scxSEditRepositoryHyperLinkItem, "HyperLink|Represents a text editor with hyperlink functionality" - cxEditConsts_scxSEditRepositoryImageComboBoxItem, "ImageComboBox|Represents an editor displaying the list of images and text strings within the dropdown window" - cxEditConsts_scxSEditRepositoryImageItem, "Image|Represents an image editor" - cxEditConsts_scxSEditRepositoryMaskItem, "MaskEdit|Represents a generic masked edit control." + cxEditConsts_scxRegExprNotCompiled, "Regular expression is not compiled" + cxEditConsts_scxRegExprIncorrectParameterQuantifier, "Incorrect parameter quantifier" + cxEditConsts_scxRegExprCantUseParameterQuantifier, "The parameter quantifier cannot be applied here" + cxEditConsts_scxMaskEditRegExprError, "Regular expression errors:" + cxEditConsts_scxMaskEditInvalidEditValue, "The edit value is invalid" + cxEditConsts_cxSSpinEditInvalidNumericValue, "Invalid numeric value" cxEditConsts_scxSEditRepositoryMemoItem, "Memo|Represents an edit control that allows editing memo data" cxEditConsts_scxSEditRepositoryMRUItem, "MRUEdit|Represents a text editor displaying the list of most recently used items (MRU) within a dropdown window" cxEditConsts_scxSEditRepositoryPopupItem, "PopupEdit|Represents an edit control with a dropdown list" @@ -1384,12 +1590,12 @@ BEGIN cxEditConsts_scxRegExprLine, "Line" cxEditConsts_scxRegExprChar, "Char" cxEditConsts_scxRegExprNotAssignedSourceStream, "The source stream is not assigned" - cxEditConsts_cxNavigatorHint_NextPage, "Next page" - cxEditConsts_cxNavigatorHint_Last, "Last record" - cxEditConsts_cxNavigatorHint_Insert, "Insert record" - cxEditConsts_cxNavigatorHint_Delete, "Delete record" - cxEditConsts_cxNavigatorHint_Edit, "Edit record" - cxEditConsts_cxNavigatorHint_Post, "Post edit" + cxEditConsts_scxRegExprEmptySourceStream, "The source stream is empty" + cxEditConsts_scxRegExprCantUsePlusQuantifier, "The '+' quantifier cannot be applied here" + cxEditConsts_scxRegExprCantUseStarQuantifier, "The '*' quantifier cannot be applied here" + cxEditConsts_scxRegExprCantCreateEmptyAlt, "The alternative should not be empty" + cxEditConsts_scxRegExprCantCreateEmptyBlock, "The block should not be empty" + cxEditConsts_scxRegExprIllegalSymbol, "Illegal '%s'" cxEditConsts_cxNavigatorHint_Cancel, "Cancel edit" cxEditConsts_cxNavigatorHint_Refresh, "Refresh data" cxEditConsts_cxNavigatorHint_SaveBookmark, "Save Bookmark" @@ -1400,12 +1606,12 @@ BEGIN cxEditConsts_scxSEditRepositoryCalcItem, "CalcEdit|Represents an edit control with a dropdown calculator window" cxEditConsts_scxSEditRepositoryCheckBoxItem, "CheckBox|Represents a check box control that allows selecting an option" cxEditConsts_scxSEditRepositoryComboBoxItem, "ComboBox|Represents the combo box editor" - cxEditConsts_cxSDateFirst, "first" - cxEditConsts_cxSDateSecond, "second" - cxEditConsts_cxSDateThird, "third" - cxEditConsts_cxSDateFourth, "fourth" - cxEditConsts_cxSDateFifth, "fifth" - cxEditConsts_cxSDateSixth, "sixth" + cxEditConsts_scxSEditRepositoryCurrencyItem, "CurrencyEdit|Represents an editor enabling editing currency data" + cxEditConsts_scxSEditRepositoryDateItem, "DateEdit|Represents an edit control with a dropdown calendar" + cxEditConsts_scxSEditRepositoryHyperLinkItem, "HyperLink|Represents a text editor with hyperlink functionality" + cxEditConsts_scxSEditRepositoryImageComboBoxItem, "ImageComboBox|Represents an editor displaying the list of images and text strings within the dropdown window" + cxEditConsts_scxSEditRepositoryImageItem, "Image|Represents an image editor" + cxEditConsts_scxSEditRepositoryMaskItem, "MaskEdit|Represents a generic masked edit control." cxEditConsts_cxSDateSeventh, "seventh" cxEditConsts_cxSDateBOM, "bom" cxEditConsts_cxSDateEOM, "eom" @@ -1416,12 +1622,12 @@ BEGIN cxEditConsts_cxNavigatorHint_Prior, "Prior record" cxEditConsts_cxNavigatorHint_PriorPage, "Prior page" cxEditConsts_cxNavigatorHint_Next, "Next record" - cxEditConsts_cxSMenuItemCaptionSave, "Save &As..." - cxEditConsts_cxSDatePopupClear, "Clear" - cxEditConsts_cxSDatePopupNow, "Now" - cxEditConsts_cxSDatePopupOK, "OK" - cxEditConsts_cxSDatePopupToday, "Today" - cxEditConsts_cxSDateError, "Invalid Date" + cxEditConsts_cxNavigatorHint_NextPage, "Next page" + cxEditConsts_cxNavigatorHint_Last, "Last record" + cxEditConsts_cxNavigatorHint_Insert, "Insert record" + cxEditConsts_cxNavigatorHint_Delete, "Delete record" + cxEditConsts_cxNavigatorHint_Edit, "Edit record" + cxEditConsts_cxNavigatorHint_Post, "Post edit" cxEditConsts_cxSDateToday, "today" cxEditConsts_cxSDateYesterday, "yesterday" cxEditConsts_cxSDateTomorrow, "tomorrow" @@ -1432,12 +1638,12 @@ BEGIN cxEditConsts_cxSDateThursday, "Thursday" cxEditConsts_cxSDateFriday, "Friday" cxEditConsts_cxSDateSaturday, "Saturday" - cxEditConsts_cxSEditCheckBoxChecked, "True" - cxEditConsts_cxSEditCheckBoxGrayed, "" - cxEditConsts_cxSEditCheckBoxUnchecked, "False" - cxEditConsts_cxSRadioGroupDefaultCaption, "" - cxEditConsts_cxSBlobButtonOK, "&OK" - cxEditConsts_cxSBlobButtonCancel, "&Cancel" + cxEditConsts_cxSDateFirst, "first" + cxEditConsts_cxSDateSecond, "second" + cxEditConsts_cxSDateThird, "third" + cxEditConsts_cxSDateFourth, "fourth" + cxEditConsts_cxSDateFifth, "fifth" + cxEditConsts_cxSDateSixth, "sixth" cxEditConsts_cxSBlobButtonClose, "&Close" cxEditConsts_cxSBlobMemo, "(MEMO)" cxEditConsts_cxSBlobMemoEmpty, "(memo)" @@ -1448,12 +1654,12 @@ BEGIN cxEditConsts_cxSMenuItemCaptionPaste, "&Paste" cxEditConsts_cxSMenuItemCaptionDelete, "&Delete" cxEditConsts_cxSMenuItemCaptionLoad, "&Load..." - cxFilterConsts_cxSFilterOperatorDoesNotBeginWith, "does not begin with" - cxFilterConsts_cxSFilterOperatorEndsWith, "ends with" - cxFilterConsts_cxSFilterOperatorDoesNotEndWith, "does not end with" - cxFilterConsts_cxSFilterOperatorContains, "contains" - cxFilterConsts_cxSFilterOperatorDoesNotContain, "does not contain" - cxFilterConsts_cxSFilterBoxAllCaption, "(All)" + cxEditConsts_cxSMenuItemCaptionSave, "Save &As..." + cxEditConsts_cxSDatePopupClear, "Clear" + cxEditConsts_cxSDatePopupNow, "Now" + cxEditConsts_cxSDatePopupOK, "OK" + cxEditConsts_cxSDatePopupToday, "Today" + cxEditConsts_cxSDateError, "Invalid Date" cxFilterConsts_cxSFilterBoxCustomCaption, "(Custom...)" cxFilterConsts_cxSFilterBoxBlanksCaption, "(Blanks)" cxFilterConsts_cxSFilterBoxNonBlanksCaption, "(NonBlanks)" @@ -1464,12 +1670,12 @@ BEGIN cxEditConsts_cxSEditTimeConvertError, "Could not convert to time" cxEditConsts_cxSEditValidateErrorText, "Invalid input value. Use escape key to abandon changes" cxEditConsts_cxSEditValueOutOfBounds, "Value out of bounds" - cxFilterConsts_cxSFilterOperatorThisYear, "is this year" - cxFilterConsts_cxSFilterOperatorNext7Days, "is next 7 days" - cxFilterConsts_cxSFilterOperatorNextWeek, "is next week" - cxFilterConsts_cxSFilterOperatorNext14Days, "is next 14 days" - cxFilterConsts_cxSFilterOperatorNextTwoWeeks, "is next two weeks" - cxFilterConsts_cxSFilterOperatorNext30Days, "is next 30 days" + cxEditConsts_cxSEditCheckBoxChecked, "True" + cxEditConsts_cxSEditCheckBoxGrayed, "" + cxEditConsts_cxSEditCheckBoxUnchecked, "False" + cxEditConsts_cxSRadioGroupDefaultCaption, "" + cxEditConsts_cxSBlobButtonOK, "&OK" + cxEditConsts_cxSBlobButtonCancel, "&Cancel" cxFilterConsts_cxSFilterOperatorNextMonth, "is next month" cxFilterConsts_cxSFilterOperatorNextYear, "is next year" cxFilterConsts_cxSFilterOperatorFuture, "is future" @@ -1480,12 +1686,12 @@ BEGIN cxFilterConsts_cxSFilterOperatorIsNull, "is blank" cxFilterConsts_cxSFilterOperatorIsNotNull, "is not blank" cxFilterConsts_cxSFilterOperatorBeginsWith, "begins with" - cxFilterConsts_cxSFilterOperatorNotBetween, "not between" - cxFilterConsts_cxSFilterOperatorInList, "in" - cxFilterConsts_cxSFilterOperatorNotInList, "not in" - cxFilterConsts_cxSFilterOperatorYesterday, "is yesterday" - cxFilterConsts_cxSFilterOperatorToday, "is today" - cxFilterConsts_cxSFilterOperatorTomorrow, "is tomorrow" + cxFilterConsts_cxSFilterOperatorDoesNotBeginWith, "does not begin with" + cxFilterConsts_cxSFilterOperatorEndsWith, "ends with" + cxFilterConsts_cxSFilterOperatorDoesNotEndWith, "does not end with" + cxFilterConsts_cxSFilterOperatorContains, "contains" + cxFilterConsts_cxSFilterOperatorDoesNotContain, "does not contain" + cxFilterConsts_cxSFilterBoxAllCaption, "(All)" cxFilterConsts_cxSFilterOperatorLast7Days, "is last 7 days" cxFilterConsts_cxSFilterOperatorLastWeek, "is last week" cxFilterConsts_cxSFilterOperatorLast14Days, "is last 14 days" @@ -1496,12 +1702,12 @@ BEGIN cxFilterConsts_cxSFilterOperatorPast, "is past" cxFilterConsts_cxSFilterOperatorThisWeek, "is this week" cxFilterConsts_cxSFilterOperatorThisMonth, "is this month" - cxDataConsts_cxSDataWriteError, "Stream write error" - cxDataConsts_cxSDataItemExistError, "Item already exists" - cxDataConsts_cxSDataRecordIndexError, "RecordIndex out of range" - cxDataConsts_cxSDataItemIndexError, "ItemIndex out of range" - cxDataConsts_cxSDataProviderModeError, "This operation is not supported in provider mode" - cxDataConsts_cxSDataInvalidStreamFormat, "Invalid stream format" + cxFilterConsts_cxSFilterOperatorThisYear, "is this year" + cxFilterConsts_cxSFilterOperatorNext7Days, "is next 7 days" + cxFilterConsts_cxSFilterOperatorNextWeek, "is next week" + cxFilterConsts_cxSFilterOperatorNext14Days, "is next 14 days" + cxFilterConsts_cxSFilterOperatorNextTwoWeeks, "is next two weeks" + cxFilterConsts_cxSFilterOperatorNext30Days, "is next 30 days" cxDataConsts_cxSDataRowIndexError, "RowIndex out of range" cxFilterConsts_cxSFilterOperatorEqual, "equals" cxFilterConsts_cxSFilterOperatorNotEqual, "does not equal" @@ -1512,12 +1718,12 @@ BEGIN cxFilterConsts_cxSFilterOperatorLike, "like" cxFilterConsts_cxSFilterOperatorNotLike, "not like" cxFilterConsts_cxSFilterOperatorBetween, "between" - pnglang_EPNGInvalidFileHeaderText, "The file being readed is not a valid \"Portable Network Graphics\" image because it contains an invalid header. This file may be corruped, try obtaining it again." - pnglang_EPNGIHDRNotFirstText, "This \"Portable Network Graphics\" image is not supported or it might be invalid.\r\n(IHDR chunk is not the first)" - pnglang_EPNGSizeExceedsText, "This \"Portable Network Graphics\" image is not supported because either it's width or height exceeds the maximum size, which is 65535 pixels length." - pnglang_EPNGUnknownPalEntryText, "There is no such palette entry." - pnglang_EPNGUnknownCriticalChunkText, "This \"Portable Network Graphics\" image contains an unknown critical part which could not be decoded." - pnglang_EPNGUnknownCompressionText, "This \"Portable Network Graphics\" image is encoded with an unknown compression scheme which could not be decoded." + cxFilterConsts_cxSFilterOperatorNotBetween, "not between" + cxFilterConsts_cxSFilterOperatorInList, "in" + cxFilterConsts_cxSFilterOperatorNotInList, "not in" + cxFilterConsts_cxSFilterOperatorYesterday, "is yesterday" + cxFilterConsts_cxSFilterOperatorToday, "is today" + cxFilterConsts_cxSFilterOperatorTomorrow, "is tomorrow" pnglang_EPNGUnknownInterlaceText, "This \"Portable Network Graphics\" image uses an unknown interlace scheme which could not be decoded." pnglang_EPNGCannotAssignChunkText, "The chunks must be compatible to be assigned." pnglang_EPNGUnexpectedEndText, "This \"Portable Network Graphics\" image is invalid because the decoder found an unexpected end of the file." @@ -1528,27 +1734,236 @@ BEGIN pnglang_EPNGOutMemoryText, "Some operation could not be performed because the system is out of resources. Close some windows and try again." pnglang_EPNGHeaderNotPresentText, "This operation is not valid because the current image contains no valid header." cxDataConsts_cxSDataReadError, "Stream read error" - ADOConst_SMissingCommandText, "Missing %s property" - ADOConst_SNoResultSet, "CommandText does not return a result set" - ADOConst_SADOCreateError, "Error creating object. Please verify that the Microsoft Data Access Components 2.1 (or later) have been properly installed" - ADOConst_SEventsNotSupported, "Events are not supported with server side TableDirect cursors" - ADOConst_SUsupportedFieldType, "Unsupported field type (%s) in field %s" + cxDataConsts_cxSDataWriteError, "Stream write error" + cxDataConsts_cxSDataItemExistError, "Item already exists" + cxDataConsts_cxSDataRecordIndexError, "RecordIndex out of range" + cxDataConsts_cxSDataItemIndexError, "ItemIndex out of range" + cxDataConsts_cxSDataProviderModeError, "This operation is not supported in provider mode" + cxDataConsts_cxSDataInvalidStreamFormat, "Invalid stream format" + MSConsts_SNumericOverflow, "Numeric overflow" + MSConsts_SDMandServerCursors, "DisconnectedMode not allowed for server cursors" + MSConsts_SSQLOLEDB, "SQLOLEDB.1" + MSConsts_SSQLNativeClient, "SQLNCLI.1" + MSConsts_SSQLEverywhere, "MICROSOFT.SQLSERVER.MOBILE.OLEDB.3.0" + pnglang_EPngInvalidCRCText, "This \"Portable Network Graphics\" image is not valid because it contains invalid pieces of data (crc error)" + pnglang_EPNGInvalidIHDRText, "The \"Portable Network Graphics\" image could not be loaded because one of its main piece of data (ihdr) might be corrupted" + pnglang_EPNGMissingMultipleIDATText, "This \"Portable Network Graphics\" image is invalid because it has missing image parts." + pnglang_EPNGZLIBErrorText, "Could not decompress the image because it contains invalid compressed data.\r\n Description: " + pnglang_EPNGInvalidPaletteText, "The \"Portable Network Graphics\" image contains an invalid palette." + pnglang_EPNGInvalidFileHeaderText, "The file being readed is not a valid \"Portable Network Graphics\" image because it contains an invalid header. This file may be corruped, try obtaining it again." + pnglang_EPNGIHDRNotFirstText, "This \"Portable Network Graphics\" image is not supported or it might be invalid.\r\n(IHDR chunk is not the first)" + pnglang_EPNGSizeExceedsText, "This \"Portable Network Graphics\" image is not supported because either it's width or height exceeds the maximum size, which is 65535 pixels length." + pnglang_EPNGUnknownPalEntryText, "There is no such palette entry." + pnglang_EPNGUnknownCriticalChunkText, "This \"Portable Network Graphics\" image contains an unknown critical part which could not be decoded." + pnglang_EPNGUnknownCompressionText, "This \"Portable Network Graphics\" image is encoded with an unknown compression scheme which could not be decoded." + MSConsts_SCheckConnection, "/* Check connection */" + MSConsts_STimestampFieldRequired, "Timestamp field required" + MSConsts_SLocalSortingServerCursor, "Local sorting is not compatible with server cursor types" + MSConsts_SRowMultipleChanges, "Updating or deleting a single row caused more than one row to be updated or deleted in the data store" + MSConsts_SRowPendingChanges, "A row had a pending change" + MSConsts_SRowCanceled, "Updating a row was canceled during notification" + MSConsts_SRowConcurrencyViolation, "A row was being updated or deleted, and the value of a column in that row has been changed since it was last fetched" + MSConsts_SRowDeleted, "A row was deleted" + MSConsts_SRowIntegrityViolation, "A row was being inserted, updated or deleted, and doing so violated the integrity constraints for the column or table" + MSConsts_SRowPermissionDenied, "The consumer did not have sufficient permission to update, delete, or insert a row" + MSConsts_SRowLimitReached, "The update, delete, or insert failed due to reaching a limit on the server, such as a query execution timing out" + MSConsts_SRowSchemaViolation, "A row was being inserted, no value was specified for a column, the column does not have a default, and the column is non-nullable" + MSConsts_SRowFail, "The consumer encountered a recoverable, provider-specific error, such as an RPC failure when transmitting the change to a remote server" + MSConsts_SSQLNCLINeeds, "Provider must be SQL Native Client for nonblocking execute" + MSConsts_SSQLNCLINeedsChangePwd, "Provider must be SQL Native Client for changing password" + MSConsts_SAsynchExecuting, "Operation cannot be performed while executing asynchronously" + MSConsts_SInvalidValue, "invalid Value" + MSConsts_SSignMismatch, "sign mismatch" + MSConsts_SDataOverflow, "data overflow" + MSConsts_SDataTruncated, "data truncated" + MSConsts_SOutOfMemory, "could not allocate memory for return data" + MSConsts_SCantCreate, "the provider could not allocate memory in which to return data or a storage object was already open on the rowset. " + MSConsts_SPermissionDenied, "user did not have permission to write to the column" + MSConsts_SIntegrityViolation, "the data value violates the integrity constraints for the column" + MSConsts_SShemaViolation, "the data value violates the schema's constraint for the column" + MSConsts_SBadStatus, "bad status" + MSConsts_SUnknownStatus, "unknown status" + MSConsts_SParamNameMissing, "Parameter name missing" + MSConsts_SParamValueMissing, "Parameter value missing" + MSConsts_SInvalidChar, "Invalid character in non-quoted parameter value" + MSConsts_SParamNameUnknown, "Parameter name is unknown - %s" + MSConsts_SBadParamValue, "Bad parameter value - %s=%s" + MSConsts_SNoResultSet, "Query must return exactly one result set - use Execute" + MSConsts_SBadOutputParam, "Bad parameter %s. Output parameters \"text\", \"ntext\" or \"image\" are not acceptable" + MSConsts_SBadFieldType, "Unknown field type \"%s\" (OLE DB code = %Xh)" + MSConsts_SBookmarksRequired, "Dataset does not support bookmarks, which are required for multi-record data controls" + MSConsts_SCUandServerCursors, "CachedUpdates not allowed for server cursors" + MSConsts_SCursorTypeChanged, "Cursor type changed for statement" + MSConsts_SWrongMDACVer, "Wrong MDAC version. Download latest MDAC version" + MSConsts_SObjectOpen, "Cannot execute command in current transaction context until previous opened DataSet (CursorType is ctDefaultResultSet) is fetched to end" + MSConsts_SConnectionOpen, "Cannot perform this operation on an open connection" + MSConsts_SBadProviderName, "Wrong provider name" + MSConsts_SBadDatabaseFile, "Wrong Database file" + MSConsts_SBadNetworkLibrary, "Wrong NetworkLibrary value" + MSConsts_SBadPacketSize, "Wrong PacketSize value" + MSConsts_SBadEncrypt, "Wrong Encrypt value" + MSConsts_SInvalidParamType, "invalid ParamType" + MSConsts_SBadAccessor, "bad accessor" + DAConsts_SStoredProcNotDefined, "StoredProcName must be defined" + DAConsts_SConnectionIsClosed, "Operation is not allowed when the connection is closed" + DAConsts_SMaxConnectionsReached, "Maximum connections reached in pool" + DAConsts_SCannotChangeIsUnicode, "Cannot change IsUnicode if Size > 0" + DAConsts_SNoTimers, "Not enough timers available" + DAConsts_sBlobNotCompressed, "Blob is not compressed" + DAConsts_SCompressorNotLinked, "Compressor function is not linked" + DAConsts_SUncompressorNotLinked, "Uncompressor function is not linked" + DAConsts_SUpdateComponentCircularReferences, "Circular references are not allowed between TCustomDADataset and TCustomDAUpdateSQL objects" + DAConsts_SUpdateComponentInvalidType, "Only %s and %s objects are allowed in update properties" + DAConsts_SUpdateObjectEmptySQL, "SQL property of InsertObject, ModifyObject, DeleteObject or RefreshObject cannot be empty" + DAConsts_SDateEncodeError, "Invalid argument to date encode" + DAConsts_SEmptySQLStatement, "No SQL statement provided" + DAConsts_SInvalidBlobPosition, "Invalid BLOB position" + MSConsts_SOLEDBError, "OLE DB error occured. Code %Xh" + MSConsts_SMSSQLNotFound, "Required provider is not installed" + DAConsts_SInvalidUnComprBlobSize, "Invalid uncompressed blob size" + DAConsts_SInvalidComprBlobSize, "Invalid compressed blob size" + DAConsts_SInvalidComprBlobHeader, "Invalid compressed blob header" + DAConsts_SInvalidComprBlobData, "Invalid compressed blob data" + DAConsts_SNotCachedUpdate, "Not in cached update mode" + DAConsts_SUpdateWrongDB, "Cannot update, %s is not owned by %s" + DAConsts_SConnectionNotDefined, "Connection is not defined" + DAConsts_SCannotConnect, "Cannot connect to database" + DAConsts_SMacroNotFound, "Macro %s not found" + DAConsts_STransactionInProgress, "User transaction is already in progress" + DAConsts_SUpdateFailed, "Update failed. Found %d records" + DAConsts_SRefreshFailed, "Refresh failed. Found %d records" + DAConsts_SInvalidFetchRows, "FetchRows must be 1..10000" + DAConsts_SNoCorrespondParam, "Not found field corresponding parameter %s" + DAConsts_SUnknownParamDataType, "Unknown type of parameter %s" + DAConsts_SRecordChanged, "Record was changed by another user" + SqlConst_SCannotCreateFile, "Cannot create file %s" + ZLibConst_sTargetBufferTooSmall, "ZLib error: target buffer may be too small" + ZLibConst_sError, "Error" + DAConsts_SUnknownDataType, "Unknown data type" + DAConsts_SDataTypeNotSupported, "Data type is not supported" + DAConsts_SFieldNotFound, "Field %s not found" + DAConsts_SCannotConvertType, "Cannot convert type" + DAConsts_SIllegalFilter, "Illegal filter expression" + DAConsts_SNeedBlobType, "Field is not BLOB" + DAConsts_SInvalidBlob, "Invalid BLOB" + DAConsts_SBlobMustBeCached, "Blob must be in cached mode" + DAConsts_SKeyFieldsReq, "Unique keyfields required" + DAConsts_SNoKeyFields, "Key fields not found" + DAConsts_SBadTableInfoName, "TableInfo name must be provided" + DAConsts_SBadStatementType, "Bad statement type" + DAConsts_SBadUpdatingTable, "Wrong UpdatingTable value - table %s is unknown" + SqlConst_SINVALIDXISOLEVEL, "[0x000F]: Invalid Transaction Isolation Level" + SqlConst_SINVALIDTXNID, "[0x0010]: Invalid Transaction ID" + SqlConst_SDUPLICATETXNID, "[0x0011]: Duplicate Transaction ID" + SqlConst_SDRIVERRESTRICTED, "[0x0012]: Application is not licensed to use this feature" + SqlConst_SLOCALTRANSACTIVE, "[0x0013]: Local Transaction already active" + SqlConst_SMULTIPLETRANSNOTENABLED, "[0x0014]: Multiple Transactions not Enabled" + SqlConst_SCONNECTIONFAILED, "[0x0015]: Connection failed" + SqlConst_SDRIVERINITFAILED, "[0x0016]: Driver initialization failed" + SqlConst_SOPTLOCKFAILED, "[0x0017]: Optimistic Locking failed" + SqlConst_SINVALIDREF, "[0x0018]: Invalid REF" + SqlConst_SNOTABLE, "[0x0019]: No table found" + SqlConst_SMISSINGPARAMINSQL, "[0x001A] Missing parameter marker in SQL" + SqlConst_SNOTIMPLEMENTED, "[0x001B] Not implemented" + SqlConst_SDRIVERINCOMPATIBLE, "[0x001C] Incompatible driver" + SqlConst_SDriverNotInConfigFile, "Driver (%s) not found in Cfg file (%s)" + SqlConst_SObjectTypenameRequired, "Object type name required as parameter value" + SqlConst_SPackagesNotSupported, "Packages are not supported by '%s' Server" + SqlConst_SNOERROR, "" + SqlConst_SWARNING, "[0x0001]: Warning" + SqlConst_SNOMEMORY, "[0x0002]: Insufficient Memory for Operation" + SqlConst_SINVALIDFLDTYPE, "[0x0003]: Invalid Field Type" + SqlConst_SINVALIDHNDL, "[0x0004]: Invalid Handle" + SqlConst_SNOTSUPPORTED, "[0x0005]: Operation Not Supported" + SqlConst_SINVALIDTIME, "[0x0006]: Invalid Time" + SqlConst_SINVALIDXLATION, "[0x0007]: Invalid Data Translation" + SqlConst_SOUTOFRANGE, "[0x0008]: Parameter/Column out of Range" + SqlConst_SINVALIDPARAM, "[0x0009]: Invalid Parameter" + SqlConst_SEOF, "[0x000A]: Result set at EOF" + SqlConst_SSQLPARAMNOTSET, "dbExpress Error [0x000B]: Parameter Not Set" + SqlConst_SINVALIDUSRPASS, "[0x000C] Invalid Username/Password" + SqlConst_SINVALIDPRECISION, "[0x000D]: Invalid Precision" + SqlConst_SINVALIDLEN, "[0x000E]: Invalid Length" + SqlConst_SConnectionNameMissing, "Connection name missing" + SqlConst_SEmptySQLStatement, "No SQL statement available" + SqlConst_SNoParameterValue, "No value for parameter '%s'" + SqlConst_SNoSqlStatement, "Missing query, table name or procedure name" + SqlConst_SMissingDataBaseName, "Missing Database property" + SqlConst_SMissingDriverName, "Missing DriverName property" + SqlConst_SPrepareError, "Unable to execute Query" + SqlConst_SObjectNameError, "Table/Procedure not found" + SqlConst_SSQLDataSetOpen, "Unable to determine field names for %s" + SqlConst_SNoActiveTrans, "There is no active transaction" + SqlConst_SActiveTrans, "A transaction is already active" + SqlConst_SMissingDLLName, "DLL/Shared Library Name not Set" + SqlConst_SMissingDriverRegFile, "Driver/Connection Registry File '%s' not found" + SqlConst_SNoCursor, "Cursor not returned from Query" + SqlConst_SErrorMappingError, "SQL Error: Error mapping failed" + SqlConst_SStoredProcsNotSupported, "Stored Procedures not supported by '%s' Server" + DBXCommon_SReaderClosed, "Reader has no more rows" + DBXCommon_SReadOnlyType, "%s type cannot be modified" + DBXCommon_SReadOnlyParameter, "%s parameter cannot be modified" + DBXCommon_SConnectionFactoryInitFailed, "Cannot find connection files from application directory (%s) or the system registry (%s)." + DBXCommon_SInvalidDelegationDepth, "Cannot delegate a connection more than 16 times: %s" + DBXCommon_SInvalidOrdinal, "Invalid Ordinal: %d" + DBXCommon_SDefaultErrorMessage, "DBX Error: %s" + DBXCommon_SAlreadyPrepared, "Command can only be prepared once" + DBXPool_SConnectTimeout, "Connect request timed out after %s milliseconds" + DBXPool_SInvalidCommand, "Unrecognized command: %s" + DBXTrace_SINVALID_TRACE_FLAG, "%s is an invalid setting for the %s property.\r\nUse '%s' or a semicolon separated list of one or more of the following:\r\n%s %s %s %s %s %s %s %s %s %s %s %s" + SqlConst_SLoginError, "Cannot connect to database '%s'" + SqlConst_SMonitorActive, "Cannot change connection on Active Monitor" + SqlConst_SDatabaseOpen, "Cannot perform this operation on an open connection" + SqlConst_SDatabaseClosed, "Cannot perform this operation on a closed connection" + SqlConst_SMissingSQLConnection, "SQLConnection property required for this operation" + bdeconst_SNoFieldAccess, "Cannot access field '%s' in a filter" + bdeconst_SUntitled, "Untitled Application" + bdeconst_SLocalTransDirty, "The transaction isolation level must be dirty read for local databases" + ClassRegistry_SAlreadyRegistered, "%s class already registered" + ClassRegistry_SNotRegistered, "%s class is not registered" + ClassRegistry_SInvalidClassRegister, "%s class registered with a nil class reference" + ClassRegistry_SCannotFreeClassRegistry, "Cannot free TClassRegistry.ClassRegistry" + DBXCommon_SDllLoadError, "Unable to load %s (ErrorCode %d). It may be missing from the system path." + DBXCommon_SDllProcLoadError, "Unable to find procedure %s" + DBXCommon_SUnknownDriver, "Unknown driver: %s" + DBXCommon_SInvalidArgument, "Invalid argument: %s" + DBXCommon_SInvalidTransaction, "Invalid transaction Object" + DBXCommon_SNotImplemented, "Feature not implemented" + DBXCommon_SRequiredProperty, "%s driver property not set" + DBXCommon_SDriverLoadError, "%s driver cannot be loaded. Make sure your project either uses the %s unit or uses packages so the %s package can be loaded dynamically" + DBXCommon_SReaderNew, "Reader Next method has not been called" + bdeconst_SDatabaseHandleSet, "Database handle owned by a different session" + bdeconst_SSessionActive, "Cannot perform this operation on an active session" + bdeconst_SHandleError, "Error creating cursor handle" + bdeconst_SNoReferenceTableName, "ReferenceTableName not specified for field '%s'" + bdeconst_SEmptySQLStatement, "No SQL statement available" + bdeconst_SNoParameterValue, "No value for parameter '%s'" + bdeconst_SNoParameterType, "No parameter type for parameter '%s'" + bdeconst_SLoginError, "Cannot connect to database '%s'" + bdeconst_SInitError, "An error occurred while attempting to initialize the Borland Database Engine (error $%.4x)" + bdeconst_SIDAPILangID, "0009" + bdeconst_SBDEError, "BDE error $%.4x" + bdeconst_STruncationError, "Parameter '%s' truncated on output" + bdeconst_SResultName, "Result" + bdeconst_SNoDataSetField, "Missing DataSetField property" + bdeconst_SNoCachedUpdates, "Not in cached update mode" + bdeconst_SInvalidAliasName, "Invalid alias name %s" ADOConst_SConnectionRequired, "A connection component is required for async ExecuteOptions" ADOConst_SCantRequery, "Cannot perform a requery after connection has changed" ADOConst_SNoFilterOptions, "FilterOptions are not supported" ADOConst_SRecordsetNotOpen, "Recordset is not open" ADOConst_sNameAttr, "Name" ADOConst_sValueAttr, "Value" - pnglang_EPngInvalidCRCText, "This \"Portable Network Graphics\" image is not valid because it contains invalid pieces of data (crc error)" - pnglang_EPNGInvalidIHDRText, "The \"Portable Network Graphics\" image could not be loaded because one of its main piece of data (ihdr) might be corrupted" - pnglang_EPNGMissingMultipleIDATText, "This \"Portable Network Graphics\" image is invalid because it has missing image parts." - pnglang_EPNGZLIBErrorText, "Could not decompress the image because it contains invalid compressed data.\r\n Description: " - pnglang_EPNGInvalidPaletteText, "The \"Portable Network Graphics\" image contains an invalid palette." - IBSQLMonitor_StrExecute, ": [Execute] " - IBSQLMonitor_StrNULL, "" - IBSQLMonitor_StrBLOB, "" - IBSQLMonitor_StrFetch, ": [Fetch] " - IBSQLMonitor_StrPrepare, ": [Prepare] " + bdeconst_SAutoSessionExclusive, "Cannot enable AutoSessionName property with more than one session on a form or data-module" + bdeconst_SAutoSessionExists, "Cannot add a session to the form or data-module while session '%s' has AutoSessionName enabled" + bdeconst_SAutoSessionActive, "Cannot modify SessionName while AutoSessionName is enabled" + bdeconst_SDuplicateDatabaseName, "Duplicate database name '%s'" + bdeconst_SDuplicateSessionName, "Duplicate session name '%s'" + bdeconst_SInvalidSessionName, "Invalid session name %s" + bdeconst_SDatabaseNameMissing, "Database name missing" + bdeconst_SSessionNameMissing, "Session name missing" + bdeconst_SDatabaseOpen, "Cannot perform this operation on an open database" + bdeconst_SDatabaseClosed, "Cannot perform this operation on a closed database" IBSQLMonitor_StrPlan, " Plan: " IBSQLMonitor_StrPlanCantRetrive, " Plan: Can't retrieve plan - too large" IBSQLMonitor_StrCommitHardComm, ": [Commit (Hard commit)]" @@ -1560,11 +1975,11 @@ BEGIN ADOConst_SMissingConnection, "Missing Connection or ConnectionString" ADOConst_SNoDetailFilter, "Filter property cannot be used for detail tables" ADOConst_SBookmarksRequired, "Dataset does not support bookmarks, which are required for multi-record data controls" - IBXConst_SEventAlreadyRegistered, "Events already registered" - IBXConst_SStringTooLarge, "Trying to store a string of length %d into a field that can only contain %d" - IBXConst_SNoTimers, "Not enough timers available" - IBXConst_SIB65feature, "%s is an InterBase 6.5 function. Please upgrade to InterBase 6.5 to use this functonality" - IBXConst_SLoginPromptFailure, "Can not find default login prompt dialog. Please add DBLogDlg to the uses section of your main file." + ADOConst_SMissingCommandText, "Missing %s property" + ADOConst_SNoResultSet, "CommandText does not return a result set" + ADOConst_SADOCreateError, "Error creating object. Please verify that the Microsoft Data Access Components 2.1 (or later) have been properly installed" + ADOConst_SEventsNotSupported, "Events are not supported with server side TableDirect cursors" + ADOConst_SUsupportedFieldType, "Unsupported field type (%s) in field %s" IBXConst_SIB70feature, "%s is an InterBase 7.0 function. Please upgrade to InterBase 7.0 to use this functonality" IBXConst_SIB71feature, "%s is an InterBase 7.1 function. Please upgrade to InterBase 7.1 to use this functonality" IBXConst_SIB80feature, "%s is an InterBase 2007 function. Please upgrade to InterBase 2007 to use this functonality" @@ -1576,11 +1991,11 @@ BEGIN IBSQLMonitor_StrDetach, ": [Detach]" IBSQLMonitor_StrQuery, ": [Query]" IBSQLMonitor_StrStart, ": [Start]" - IBXConst_SParamNameExpected, "Parameter name expected" - IBXConst_SSuccess, "Successful execution" - IBXConst_SDelphiException, "DelphiException %s" - IBXConst_SNoOptionsSet, "No Install Options selected" - IBXConst_SNoDestinationDirectory, "DestinationDirectory is not set" + IBSQLMonitor_StrExecute, ": [Execute] " + IBSQLMonitor_StrNULL, "" + IBSQLMonitor_StrBLOB, "" + IBSQLMonitor_StrFetch, ": [Fetch] " + IBSQLMonitor_StrPrepare, ": [Prepare] " IBXConst_SNosourceDirectory, "SourceDirectory is not set" IBXConst_SNoUninstallFile, "Uninstall File Name is not set" IBXConst_SOptionNeedsClient, "%s component requires Client to function properly" @@ -1592,11 +2007,11 @@ BEGIN IBXConst_STPBConstantUnknownEx, "TPB Constant (%s) is unknown" IBXConst_SUnknownPlan, "Unknown Error - Can't retrieve plan" IBXConst_SFieldSizeMismatch, "Size Mismatch - Field %s size is too small for data" - IBXConst_SInvalidBatchMove, "Invalid Batch Move" - IBXConst_SSQLDialectInvalid, "SQL Dialect Invalid" - IBXConst_SSPBConstantNotSupported, "SPB Constant Not supported" - IBXConst_SSPBConstantUnknown, "SPB Constant Unknown" - IBXConst_SServiceActive, "Cannot perform operation -- service is not attached" + IBXConst_SEventAlreadyRegistered, "Events already registered" + IBXConst_SStringTooLarge, "Trying to store a string of length %d into a field that can only contain %d" + IBXConst_SNoTimers, "Not enough timers available" + IBXConst_SIB65feature, "%s is an InterBase 6.5 function. Please upgrade to InterBase 6.5 to use this functonality" + IBXConst_SLoginPromptFailure, "Can not find default login prompt dialog. Please add DBLogDlg to the uses section of your main file." IBXConst_SServiceInActive, "Cannot perform operation -- service is attached" IBXConst_SServerNameMissing, "Server Name Missing" IBXConst_SQueryParamsError, "Query Parameters missing or incorrect" @@ -1608,11 +2023,11 @@ BEGIN IBXConst_SEOFReached, "SEOFReached" IBXConst_SEOFInComment, "EOF in comment detected" IBXConst_SEOFInString, "EOF in string detected" - IBXConst_SUpdateFailed, "Update Failed" - IBXConst_SNotCachedUpdates, "CachedUpdates not enabled" - IBXConst_SNotLiveRequest, "Request is not live - cannot modify" - IBXConst_SNoProvider, "No Provider" - IBXConst_SNoRecordsAffected, "No Records Affected" + IBXConst_SParamNameExpected, "Parameter name expected" + IBXConst_SSuccess, "Successful execution" + IBXConst_SDelphiException, "DelphiException %s" + IBXConst_SNoOptionsSet, "No Install Options selected" + IBXConst_SNoDestinationDirectory, "DestinationDirectory is not set" IBXConst_SNoTableName, "No Table Name assigned" IBXConst_SCannotCreatePrimaryIndex, "Cannot Create Primary Index; are created automatically" IBXConst_SCannotDropSystemIndex, "Cannot Drop System Index" @@ -1624,11 +2039,11 @@ BEGIN IBXConst_SNoEventsRegistered, "No Events Registered" IBXConst_SInvalidQueueing, "Invalid Queueing" IBXConst_SInvalidRegistration, "Invalid Registration" - IBXConst_SCircularReference, "Circular references not permitted" - IBXConst_SSQLParseError, "SQL Parse Error:\r\n\r\n%s" - IBXConst_SUserAbort, "User abort" - IBXConst_SDataSetUniDirectional, "Data set is uni-directional" - IBXConst_SCannotCreateSharedResource, "Cannot create shared resource. (Windows error %d)" + IBXConst_SInvalidBatchMove, "Invalid Batch Move" + IBXConst_SSQLDialectInvalid, "SQL Dialect Invalid" + IBXConst_SSPBConstantNotSupported, "SPB Constant Not supported" + IBXConst_SSPBConstantUnknown, "SPB Constant Unknown" + IBXConst_SServiceActive, "Cannot perform operation -- service is not attached" IBXConst_SWindowsAPIError, "Windows API error. (Windows error %d [$%.8x])" IBXConst_SColumnListsDontMatch, "Column lists do not match" IBXConst_SColumnTypesDontMatch, "Column types don't match. (From index: %d; To index: %d)" @@ -1640,11 +2055,11 @@ BEGIN IBXConst_SRequiredParamNotSet, "Required Param value not set" IBXConst_SNoStoredProcName, "No Stored Procedure Name assigned" IBXConst_SIsAExecuteProcedure, "use ExecProc for Procedure; use TQuery for Select procedures" - IBXConst_SInvalidDataConversion, "Invalid data conversion" - IBXConst_SColumnIsNotNullable, "Column cannot be set to null (%s)" - IBXConst_SBlobCannotBeRead, "Blob stream cannot be read" - IBXConst_SBlobCannotBeWritten, "Blob stream cannot be written" - IBXConst_SEmptyQuery, "Empty query" + IBXConst_SUpdateFailed, "Update Failed" + IBXConst_SNotCachedUpdates, "CachedUpdates not enabled" + IBXConst_SNotLiveRequest, "Request is not live - cannot modify" + IBXConst_SNoProvider, "No Provider" + IBXConst_SNoRecordsAffected, "No Records Affected" IBXConst_SCannotOpenNonSQLSelect, "Cannot \"open\" a non-select statement. Use ExecQuery" IBXConst_SNoFieldAccess, "No access to field \"%s\"" IBXConst_SFieldReadOnly, "Field \"%s\" is read-only" @@ -1656,11 +2071,11 @@ BEGIN IBXConst_SCannotDelete, "Cannot delete from dataset. (No delete query)" IBXConst_SCannotRefresh, "Cannot refresh row. (No refresh query)" IBXConst_SBufferNotSet, "Buffer not set" - IBXConst_SUpdateWrongDB, "Updating wrong database" - IBXConst_SUpdateWrongTR, "Updating wrong transaction. Unique transaction expected in set" - IBXConst_SDatabaseNotAssigned, "Database not assigned" - IBXConst_STransactionNotAssigned, "Transaction not assigned" - IBXConst_SXSQLDAIndexOutOfRange, "XSQLDA index out of range" + IBXConst_SCircularReference, "Circular references not permitted" + IBXConst_SSQLParseError, "SQL Parse Error:\r\n\r\n%s" + IBXConst_SUserAbort, "User abort" + IBXConst_SDataSetUniDirectional, "Data set is uni-directional" + IBXConst_SCannotCreateSharedResource, "Cannot create shared resource. (Windows error %d)" IBXConst_SXSQLDANameDoesNotExist, "XSQLDA name does not exist (%s)" IBXConst_SEOF, "End of file" IBXConst_SBOF, "Beginning of file" @@ -1672,11 +2087,11 @@ BEGIN IBXConst_SUnknownSQLDataType, "Unknown SQL Data type (%d)" IBXConst_SInvalidColumnIndex, "Invalid column index (index exceeds permitted range)" IBXConst_SInvalidParamColumnIndex, "Invalid parameter index (index exceeds permitted range)" - IBXConst_SFileAccessError, "Temporary file access error" - IBXConst_SConnectionTimeout, "Database connection timed out" - IBXConst_SCannotSetDatabase, "Cannot set database" - IBXConst_SCannotSetTransaction, "Cannot set transaction" - IBXConst_SOperationCancelled, "Operation cancelled at user's request" + IBXConst_SInvalidDataConversion, "Invalid data conversion" + IBXConst_SColumnIsNotNullable, "Column cannot be set to null (%s)" + IBXConst_SBlobCannotBeRead, "Blob stream cannot be read" + IBXConst_SBlobCannotBeWritten, "Blob stream cannot be written" + IBXConst_SEmptyQuery, "Empty query" IBXConst_SDPBConstantNotSupported, "DPB Constant (isc_dpb_%s) is unsupported" IBXConst_SDPBConstantUnknown, "DPB Constant (%d) is unknown" IBXConst_STPBConstantNotSupported, "TPB Constant (isc_tpb_%s) is unsupported" @@ -1688,11 +2103,11 @@ BEGIN IBXConst_SInTransaction, "Transaction is active" IBXConst_STimeoutNegative, "Timeout values cannot be negative" IBXConst_SNoDatabasesInTransaction, "No databases are listed in transaction component" - VDBConsts_SPriorRecord, "Prior record" - VDBConsts_SNextRecord, "Next record" - VDBConsts_SLastRecord, "Last record" - VDBConsts_SInsertRecord, "Insert record" - VDBConsts_SDeleteRecord, "Delete record" + IBXConst_SUpdateWrongDB, "Updating wrong database" + IBXConst_SUpdateWrongTR, "Updating wrong transaction. Unique transaction expected in set" + IBXConst_SDatabaseNotAssigned, "Database not assigned" + IBXConst_STransactionNotAssigned, "Transaction not assigned" + IBXConst_SXSQLDAIndexOutOfRange, "XSQLDA index out of range" VDBConsts_SEditRecord, "Edit record" VDBConsts_SPostEdit, "Post edit" VDBConsts_SCancelEdit, "Cancel edit" @@ -1704,11 +2119,11 @@ BEGIN IBXConst_SIB60feature, "%s is an InterBase 6 function. Please upgrade to InterBase 6 to use this functonality" IBXConst_SNotSupported, "Unsupported feature" IBXConst_SNotPermitted, "Not permitted" - uDARes_err_LoadPackageFailed, "LoadPackage failed for file %s" - uDARes_err_InvalidDriverReference, "The driver in %s could not be loaded" - uDARes_err_CannotFindStatement, "Cannot find statement %s for connection %s" - uDARes_err_CannotFindDefaultItem, "Cannot find default %s" - uDARes_err_PoolIsNotEmpty, "Cannot perform this operation when connections are pooled" + IBXConst_SFileAccessError, "Temporary file access error" + IBXConst_SConnectionTimeout, "Database connection timed out" + IBXConst_SCannotSetDatabase, "Cannot set database" + IBXConst_SCannotSetTransaction, "Cannot set transaction" + IBXConst_SOperationCancelled, "Operation cancelled at user's request" uDARes_err_MaxPoolSizeReached, "Maximum pool size reached. Cannot create a new connection" uDARes_err_LAMEDataset, "%s does not implement IProviderSupport or implements it incorrectly" uDARes_err_HETConnectionNotSupportedInV3, "HET Connections are not supported by te legacy v3 DARemoteService" @@ -1720,11 +2135,11 @@ BEGIN uDARes_err_ExecuteSQLCommandNotAllowed, "ExecuteSQLCommand is not enabled for this server." uDARes_err_DatasetNotAccessible, "Access to dataset %s has not been permitted." VDBConsts_SFirstRecord, "First record" - JvResources_RsHotLight, "Hot Light" - JvResources_RsMenuBar, "Menu Bar" - JvResources_RsMenuHighlight, "Menu Highlight" - uDARes_err_ChangeLogAlreadyStarted, "StartChange has already been called; cannot log more than one change at a time." - uDARes_err_NotAttachedToDataTable, "Delta is not attached to a DataTable" + VDBConsts_SPriorRecord, "Prior record" + VDBConsts_SNextRecord, "Next record" + VDBConsts_SLastRecord, "Last record" + VDBConsts_SInsertRecord, "Insert record" + VDBConsts_SDeleteRecord, "Delete record" uDARes_err_DriverProcAlreadyRegistered, "DriverProc 0x%0.8x is already registered" uDARes_err_DriverManagerAlreadyCreated, "An instance of a TDADriverManager was already initialized. Only one driver manager per module is allowed" uDARes_err_DriverManagerNotAssigned, "Driver Manager is not assigned" @@ -1736,11 +2151,11 @@ BEGIN uDARes_err_UnknownDriver, "Unknown driver %s" uDARes_err_FieldIsNotBound, "Field is not bound" uDARes_err_CannotFindField, "Cannot find field %s" - JvResources_RsClInactiveBorder, "Inactive window border" - JvResources_RsClAppWorkSpace, "Application workspace" - JvResources_RsClHighlight, "Selection background" - JvResources_RsClHighlightText, "Selection text" - JvResources_RsClBtnFace, "Button face" + uDARes_err_LoadPackageFailed, "LoadPackage failed for file %s" + uDARes_err_InvalidDriverReference, "The driver in %s could not be loaded" + uDARes_err_CannotFindStatement, "Cannot find statement %s for connection %s" + uDARes_err_CannotFindDefaultItem, "Cannot find default %s" + uDARes_err_PoolIsNotEmpty, "Cannot perform this operation when connections are pooled" JvResources_RsClBtnShadow, "Button shadow" JvResources_RsClGrayText, "Dimmed text" JvResources_RsClBtnText, "Button text" @@ -1752,11 +2167,11 @@ BEGIN JvResources_RsClInfoBk, "Tooltip background" JvResources_RsGradientActiveCaption, "Gradient Active Caption" JvResources_RsGradientInactiveCaption, "Gradient Inactive Caption" - JvResources_RsClLightYellow, "Light Yellow" - JvResources_RsClLightGreen, "Light Green" - JvResources_RsClLightTurquoise, "Light Turquoise" - JvResources_RsClPaleBlue, "Pale Blue" - JvResources_RsClLavender, "Lavender" + JvResources_RsHotLight, "Hot Light" + JvResources_RsMenuBar, "Menu Bar" + JvResources_RsMenuHighlight, "Menu Highlight" + uDARes_err_ChangeLogAlreadyStarted, "StartChange has already been called; cannot log more than one change at a time." + uDARes_err_NotAttachedToDataTable, "Delta is not attached to a DataTable" JvResources_RsClScrollBar, "Scrollbar" JvResources_RsClBackground, "Desktop background" JvResources_RsClActiveCaption, "Active window title bar" @@ -1768,11 +2183,11 @@ BEGIN JvResources_RsClWindowText, "Window text" JvResources_RsClCaptionText, "Active window title bar text" JvResources_RsClActiveBorder, "Active window border" - JvResources_RsClDarkYellow, "Dark Yellow" - JvResources_RsClBlueGray, "Blue Gray" - JvResources_RsClGray50, "Gray 50%" - JvResources_RsClLightOrange, "Light Orange" - JvResources_RsClSeaGreen, "Sea Green" + JvResources_RsClInactiveBorder, "Inactive window border" + JvResources_RsClAppWorkSpace, "Application workspace" + JvResources_RsClHighlight, "Selection background" + JvResources_RsClHighlightText, "Selection text" + JvResources_RsClBtnFace, "Button face" JvResources_RsClLightBlue, "Light Blue" JvResources_RsClViolet, "Violet" JvResources_RsClGray40, "Gray 40%" @@ -1784,11 +2199,11 @@ BEGIN JvResources_RsClGray25, "Gray 25%" JvResources_RsClRose, "Rose" JvResources_RsClTan, "Tan" - JvResources_RsClFuchsia, "Fuchsia" - JvResources_RsClAqua, "Aqua" - JvResources_RsClWhite, "White" - JvResources_RsClMoneyGreen, "Money green" - JvResources_RsClSkyBlue, "Sky blue" + JvResources_RsClLightYellow, "Light Yellow" + JvResources_RsClLightGreen, "Light Green" + JvResources_RsClLightTurquoise, "Light Turquoise" + JvResources_RsClPaleBlue, "Pale Blue" + JvResources_RsClLavender, "Lavender" JvResources_RsClCream, "Cream" JvResources_RsClMedGray, "Medium gray" JvResources_RsClBrown, "Brown" @@ -1800,11 +2215,11 @@ BEGIN JvResources_RsClGray80, "Gray 80%" JvResources_RsClDarkRed, "Dark Red" JvResources_RsClOrange, "Orange" - JvResources_RsEGIFVersion, "Unknown GIF version" - JvResources_RsEPixelFormatNotImplemented, "BitmapToMemoryStream: pixel format not implemented" - JvResources_RsEBitCountNotImplemented, "BitmapToMemoryStream: bit count not implemented" - JvResources_RsClBlack, "Black" - JvResources_RsClMaroon, "Maroon" + JvResources_RsClDarkYellow, "Dark Yellow" + JvResources_RsClBlueGray, "Blue Gray" + JvResources_RsClGray50, "Gray 50%" + JvResources_RsClLightOrange, "Light Orange" + JvResources_RsClSeaGreen, "Sea Green" JvResources_RsClGreen, "Green" JvResources_RsClOlive, "Olive green" JvResources_RsClNavy, "Navy blue" @@ -1816,11 +2231,11 @@ BEGIN JvResources_RsClLime, "Lime" JvResources_RsClYellow, "Yellow" JvResources_RsClBlue, "Blue" - JvResources_RsEUnableToCreateKey, "Unable to create key '%s'" - JvResources_RsEEnumeratingRegistry, "Error enumerating registry" - JvResources_RsEInvalidType, "Invalid type" - JvResources_RsEUnknownBaseType, "Unknown base type for given set" - JvResources_RsEInvalidPath, "Invalid path" + JvResources_RsClFuchsia, "Fuchsia" + JvResources_RsClAqua, "Aqua" + JvResources_RsClWhite, "White" + JvResources_RsClMoneyGreen, "Money green" + JvResources_RsClSkyBlue, "Sky blue" JvResources_RsENotAUniqueRootPath, "'%s' is not a unique root path" JvResources_RsECircularReferenceOfStorages, "Circular reference of storages" JvResources_RsEShellNotCompatible, "Shell not compatible with BrowseForFolder" @@ -1832,11 +2247,11 @@ BEGIN JvResources_RsEBadGIFCodeSize, "GIF code size not in range 2 to 9" JvResources_RsEGIFDecodeError, "GIF encoded data is corrupt" JvResources_RsEGIFEncodeError, "GIF image encoding error" - JclResources_RsIntelCacheDescr7D, "2nd-level cache: 2 MBytes, 8-way set associative, 64 byte line size" - JclResources_RsIntelCacheDescr7F, "2nd-level cache: 512 KBytes, 2-way set associative, 64 byte line size" - JclResources_RsIntelCacheDescr82, "2nd-level cache: 256 KBytes, 8-way associative, 32 byte line size" - JclResources_RsIntelCacheDescr83, "2nd-level cache: 512 KBytes, 8-way associative, 32 byte line size" - JclResources_RsIntelCacheDescr84, "2nd-level cache: 1 MBytes, 8-way associative, 32 byte line size" + JvResources_RsEGIFVersion, "Unknown GIF version" + JvResources_RsEPixelFormatNotImplemented, "BitmapToMemoryStream: pixel format not implemented" + JvResources_RsEBitCountNotImplemented, "BitmapToMemoryStream: bit count not implemented" + JvResources_RsClBlack, "Black" + JvResources_RsClMaroon, "Maroon" JclResources_RsIntelCacheDescr85, "2nd-level cache: 2 MBytes, 8-way associative, 32 byte line size" JclResources_RsIntelCacheDescr86, "2nd-level cache: 512 KByte, 4-way set associative, 64 byte line size" JclResources_RsIntelCacheDescr87, "2nd-level cache: 1 MByte, 8-way set associative, 64 byte line size" @@ -1848,11 +2263,11 @@ BEGIN JvResources_RsAniExtension, "ani" JvResources_RsAniFilterName, "ANI Image" JvResources_RsRootValueReplaceFmt, "The Default Root Value \"%0:s\" has been replaced with \"%1:s\".\r\nPlease change the value in the FileVersionInfo Project Properties." - JclResources_RsIntelCacheDescr57, "Data TLB0: 4 KByte pages, 4-way associative, 16 entries" - JclResources_RsIntelCacheDescr5B, "Data TLB: 4 KByte and 4 MByte pages, 64 Entries" - JclResources_RsIntelCacheDescr5C, "Data TLB: 4 KByte and 4 MByte pages, 128 Entries" - JclResources_RsIntelCacheDescr5D, "Data TLB: 4 KByte and 4 MByte pages, 256 Entries" - JclResources_RsIntelCacheDescr60, "1st-level data cache: 16 KByte, 8-way set associative, 64 byte line size" + JvResources_RsEUnableToCreateKey, "Unable to create key '%s'" + JvResources_RsEEnumeratingRegistry, "Error enumerating registry" + JvResources_RsEInvalidType, "Invalid type" + JvResources_RsEUnknownBaseType, "Unknown base type for given set" + JvResources_RsEInvalidPath, "Invalid path" JclResources_RsIntelCacheDescr66, "1st-level data cache: 8 KBytes, 4-way set associative, 64 byte line size" JclResources_RsIntelCacheDescr67, "1st-level data cache: 16 KBytes, 4-way set associative, 64 byte line size" JclResources_RsIntelCacheDescr68, "1st-level data cache: 32 KBytes, 4-way set associative, 64 byte line size" @@ -1864,11 +2279,11 @@ BEGIN JclResources_RsIntelCacheDescr7A, "2nd-level cache: 256 KBytes, 8-way set associative, 64 bytes line size, 2 lines per sector" JclResources_RsIntelCacheDescr7B, "2nd-level cache: 512 KBytes, 8-way set associative, 64 bytes line size, 2 lines per sector" JclResources_RsIntelCacheDescr7C, "2nd-level cache: 1 MBytes, 8-way set associative, 64 bytes line size, 2 lines per sector" - JclResources_RsIntelCacheDescr29, "3rd level cache: 4 MBytes, 8-way set associative, 64 byte line size, 2 lines per sector" - JclResources_RsIntelCacheDescr2C, "1st level data cache: 32 KBytes, 8-way set associative, 64 byte line size" - JclResources_RsIntelCacheDescr30, "1st level instruction cache: 32 KBytes, 8-way set associative, 64 byte line size" - JclResources_RsIntelCacheDescr40, "No 2nd-level cache or, if processor contains a valid 2nd-level cache, no 3rd-level cache" - JclResources_RsIntelCacheDescr41, "2nd-level cache: 128 KBytes, 4-way set associative, 32 byte line size" + JclResources_RsIntelCacheDescr7D, "2nd-level cache: 2 MBytes, 8-way set associative, 64 byte line size" + JclResources_RsIntelCacheDescr7F, "2nd-level cache: 512 KBytes, 2-way set associative, 64 byte line size" + JclResources_RsIntelCacheDescr82, "2nd-level cache: 256 KBytes, 8-way associative, 32 byte line size" + JclResources_RsIntelCacheDescr83, "2nd-level cache: 512 KBytes, 8-way associative, 32 byte line size" + JclResources_RsIntelCacheDescr84, "2nd-level cache: 1 MBytes, 8-way associative, 32 byte line size" JclResources_RsIntelCacheDescr42, "2nd-level cache: 256 KBytes, 4-way set associative, 32 byte line size" JclResources_RsIntelCacheDescr43, "2nd-level cache: 512 KBytes, 4-way set associative, 32 byte line size" JclResources_RsIntelCacheDescr44, "2nd-level cache: 1 MBytes, 4-way set associative, 32 byte line size" @@ -1880,11 +2295,11 @@ BEGIN JclResources_RsIntelCacheDescr51, "Instruction TLB: 4 KByte and 2 MByte or 4 MByte pages, 128 Entries" JclResources_RsIntelCacheDescr52, "Instruction TLB: 4 KByte and 2 MByte or 4 MByte pages, 256 Entries" JclResources_RsIntelCacheDescr56, "Data TLB0: 4 MByte pages, 4-way set associative, 16 entries" - JclResources_RsRTTIVarType, "Variant type: " - JclResources_RsDeclarationFormat, "// Declaration for '%s' not supported." - JclResources_RsIntelCacheDescr00, "Null descriptor" - JclResources_RsIntelCacheDescr01, "Instruction TLB: 4 KByte pages, 4-way set associative, 32 entries" - JclResources_RsIntelCacheDescr02, "Instruction TLB: 4 MByte pages, 4-way set associative, 2 entries" + JclResources_RsIntelCacheDescr57, "Data TLB0: 4 KByte pages, 4-way associative, 16 entries" + JclResources_RsIntelCacheDescr5B, "Data TLB: 4 KByte and 4 MByte pages, 64 Entries" + JclResources_RsIntelCacheDescr5C, "Data TLB: 4 KByte and 4 MByte pages, 128 Entries" + JclResources_RsIntelCacheDescr5D, "Data TLB: 4 KByte and 4 MByte pages, 256 Entries" + JclResources_RsIntelCacheDescr60, "1st-level data cache: 16 KByte, 8-way set associative, 64 byte line size" JclResources_RsIntelCacheDescr03, "Data TLB: 4 KByte pages, 4-way set associative, 64 entries" JclResources_RsIntelCacheDescr04, "Data TLB: 4 MByte pages, 4-way set associative, 8 entries" JclResources_RsIntelCacheDescr05, "Data TLB1: 4 MByte pages, 4-way set associative, 32 entries" @@ -1896,11 +2311,11 @@ BEGIN JclResources_RsIntelCacheDescr22, "3rd level cache: 512 KBytes, 4-way set associative, 64 byte line size, 2 lines per sector" JclResources_RsIntelCacheDescr23, "3rd level cache: 1 MBytes, 8-way set associative, 64 byte line size, 2 lines per sector" JclResources_RsIntelCacheDescr25, "3rd level cache: 2 MBytes, 8-way set associative, 64 byte line size, 2 lines per sector" - JclResources_RsRTTIMinValue, "Min value: " - JclResources_RsRTTIMaxValue, "Max value: " - JclResources_RsRTTINameList, "Names: " - JclResources_RsRTTIClassName, "Class name: " - JclResources_RsRTTIParent, "Parent: " + JclResources_RsIntelCacheDescr29, "3rd level cache: 4 MBytes, 8-way set associative, 64 byte line size, 2 lines per sector" + JclResources_RsIntelCacheDescr2C, "1st level data cache: 32 KBytes, 8-way set associative, 64 byte line size" + JclResources_RsIntelCacheDescr30, "1st level instruction cache: 32 KBytes, 8-way set associative, 64 byte line size" + JclResources_RsIntelCacheDescr40, "No 2nd-level cache or, if processor contains a valid 2nd-level cache, no 3rd-level cache" + JclResources_RsIntelCacheDescr41, "2nd-level cache: 128 KBytes, 4-way set associative, 32 byte line size" JclResources_RsRTTIPropCount, "Property count: " JclResources_RsRTTIUnitName, "Unit name: " JclResources_RsRTTIBasedOn, "Based on: " @@ -1912,11 +2327,11 @@ BEGIN JclResources_RsRTTIElSize, "Element size: " JclResources_RsRTTIElType, "Element type: " JclResources_RsRTTIElNeedCleanup, "Elements need clean up: " - JclResources_RsRTTITypeError, "???" - JclResources_RsRTTITypeInfoAt, "Type info: %p" - JclResources_RsRTTIPropRead, "read" - JclResources_RsRTTIPropWrite, "write" - JclResources_RsRTTIPropStored, "stored" + JclResources_RsRTTIVarType, "Variant type: " + JclResources_RsDeclarationFormat, "// Declaration for '%s' not supported." + JclResources_RsIntelCacheDescr00, "Null descriptor" + JclResources_RsIntelCacheDescr01, "Instruction TLB: 4 KByte pages, 4-way set associative, 32 entries" + JclResources_RsIntelCacheDescr02, "Instruction TLB: 4 MByte pages, 4-way set associative, 2 entries" JclResources_RsRTTIField, "field" JclResources_RsRTTIStaticMethod, "static method" JclResources_RsRTTIVirtualMethod, "virtual method" @@ -1928,11 +2343,11 @@ BEGIN JclResources_RsRTTIGUID, "GUID: " JclResources_RsRTTITypeKind, "Type kind: " JclResources_RsRTTIOrdinalType, "Ordinal type: " - JclResources_RsHKCRShort, "HKCR" - JclResources_RsHKCUShort, "HKCU" - JclResources_RsHKLMShort, "HKLM" - JclResources_RsHKUSShort, "HKUS" - JclResources_RsHKPDShort, "HKPD" + JclResources_RsRTTIMinValue, "Min value: " + JclResources_RsRTTIMaxValue, "Max value: " + JclResources_RsRTTINameList, "Names: " + JclResources_RsRTTIClassName, "Class name: " + JclResources_RsRTTIParent, "Parent: " JclResources_RsHKCCShort, "HKCC" JclResources_RsHKDDShort, "HKDD" JclResources_RsRTTIValueOutOfRange, "Value out of range (%s)." @@ -1944,11 +2359,11 @@ BEGIN JclResources_RsRTTIOrdinal, "ordinal=" JclResources_RsRTTITrue, "True" JclResources_RsRTTIFalse, "False" - JConsts_sChangeJPGSize, "Cannot change the size of a JPEG image" - JConsts_sJPEGError, "JPEG error #%d" - JConsts_sJPEGImageFile, "JPEG Image File" - JclResources_RsFileUtilsNoVersionInfo, "File contains no version information" - JclResources_RsUnableToOpenKeyRead, "Unable to open key \"%s\\%s\" for read" + JclResources_RsRTTITypeError, "???" + JclResources_RsRTTITypeInfoAt, "Type info: %p" + JclResources_RsRTTIPropRead, "read" + JclResources_RsRTTIPropWrite, "write" + JclResources_RsRTTIPropStored, "stored" JclResources_RsUnableToOpenKeyWrite, "Unable to open key \"%s\\%s\" for write" JclResources_RsUnableToAccessValue, "Unable to open key \"%s\\%s\" and access value \"%s\"" JclResources_RsWrongDataType, "\"%s\\%s\\%s\" is of wrong kind or size" @@ -1960,11 +2375,11 @@ BEGIN JclResources_RsHKPDLong, "HKEY_PERFORMANCE_DATA" JclResources_RsHKCCLong, "HKEY_CURRENT_CONFIG" JclResources_RsHKDDLong, "HKEY_DYN_DATA" - IdResourceStringsCore_RSConnectTimeout, "Connect timed out." - IdResourceStringsCore_RSThreadTerminateAndWaitFor, "Cannot call TerminateAndWaitFor on FreeAndTerminate threads" - IdResourceStringsCore_RSAlreadyConnected, "Already connected." - IdResourceStringsCore_RSMaximumNumberOfCaptureLineExceeded, "Maximum number of line allowed exceeded" - IdResourceStringsCore_RSchedMaxThreadEx, "The maximum number of threads for this scheduler is exceeded." + JclResources_RsHKCRShort, "HKCR" + JclResources_RsHKCUShort, "HKCU" + JclResources_RsHKLMShort, "HKLM" + JclResources_RsHKUSShort, "HKUS" + JclResources_RsHKPDShort, "HKPD" IdResourceStringsCore_RSTransparentProxyCannotBind, "Transparent proxy cannot bind." IdResourceStringsCore_RSTransparentProxyCanNotSupportUDP, "UDP Not supported by this proxy." IdResourceStringsCore_RSBufferMissingTerminator, "Buffer terminator must be specified." @@ -1976,11 +2391,11 @@ BEGIN ComStrs_sInvalidIndex, "Invalid index" ComStrs_sInsertError, "Unable to insert an item" ComStrs_sUDAssociated, "%s is already associated with %s" - IdResourceStringsCore_RSSocksServerPermissionError, "Connection not allowed by ruleset." - IdResourceStringsCore_RSSocksServerNetUnreachableError, "Network unreachable." - IdResourceStringsCore_RSSocksServerHostUnreachableError, "Host unreachable." - IdResourceStringsCore_RSSocksServerConnectionRefusedError, "Connection refused." - IdResourceStringsCore_RSSocksServerTTLExpiredError, "TTL expired." + JConsts_sChangeJPGSize, "Cannot change the size of a JPEG image" + JConsts_sJPEGError, "JPEG error #%d" + JConsts_sJPEGImageFile, "JPEG Image File" + JclResources_RsFileUtilsNoVersionInfo, "File contains no version information" + JclResources_RsUnableToOpenKeyRead, "Unable to open key \"%s\\%s\" for read" IdResourceStringsCore_RSSocksServerCommandError, "Command not supported." IdResourceStringsCore_RSSocksServerAddressError, "Address type not supported." IdResourceStringsCore_RSInterceptCircularLink, "%d: Circular links are not allowed" @@ -1992,11 +2407,11 @@ BEGIN IdResourceStringsCore_RSIdNoDataToRead, "No data to read." IdResourceStringsCore_RSReadTimeout, "Read Timeout" IdResourceStringsCore_RSReadLnMaxLineLengthExceeded, "Max line length exceeded." - IdResourceStringsProtocols_RSHTTPHTTPVersionNotSupported, "HTTP version not supported" - IdResourceStringsProtocols_RSHTTPUnknownResponseCode, "Unknown Response Code" - IdResourceStringsProtocols_RSHTTPHeaderAlreadyWritten, "Header has already been written." - IdResourceStringsProtocols_RSHTTPErrorParsingCommand, "Error in parsing command." - IdResourceStringsProtocols_RSHTTPUnsupportedAuthorisationScheme, "Unsupported authorization scheme." + IdResourceStringsCore_RSConnectTimeout, "Connect timed out." + IdResourceStringsCore_RSThreadTerminateAndWaitFor, "Cannot call TerminateAndWaitFor on FreeAndTerminate threads" + IdResourceStringsCore_RSAlreadyConnected, "Already connected." + IdResourceStringsCore_RSMaximumNumberOfCaptureLineExceeded, "Maximum number of line allowed exceeded" + IdResourceStringsCore_RSchedMaxThreadEx, "The maximum number of threads for this scheduler is exceeded." IdResourceStringsProtocols_RSHTTPCannotSwitchSessionStateWhenActive, "Cannot change session state when the server is active." IdResourceStringsProtocols_RSHTTPAuthAlreadyRegistered, "This authentication method is already registered with class name %s." IdResourceStringsCore_RSSocksUDPNotSupported, "UDP is not support in this SOCKS version." @@ -2008,11 +2423,11 @@ BEGIN IdResourceStringsCore_RSSocksAuthMethodError, "Invalid socks authentication method." IdResourceStringsCore_RSSocksAuthError, "Authentication error to socks server." IdResourceStringsCore_RSSocksServerGeneralError, "General SOCKS server failure." - IdResourceStringsProtocols_RSHTTPMethodNotAllowed, "Method not allowed" - IdResourceStringsProtocols_RSHTTPNotAcceptable, "Not Acceptable" - IdResourceStringsProtocols_RSHTTPProxyAuthenticationRequired, "Proxy Authentication Required" - IdResourceStringsProtocols_RSHTTPRequestTimeout, "Request Timeout" - IdResourceStringsProtocols_RSHTTPConflict, "Conflict" + IdResourceStringsCore_RSSocksServerPermissionError, "Connection not allowed by ruleset." + IdResourceStringsCore_RSSocksServerNetUnreachableError, "Network unreachable." + IdResourceStringsCore_RSSocksServerHostUnreachableError, "Host unreachable." + IdResourceStringsCore_RSSocksServerConnectionRefusedError, "Connection refused." + IdResourceStringsCore_RSSocksServerTTLExpiredError, "TTL expired." IdResourceStringsProtocols_RSHTTPGone, "Gone" IdResourceStringsProtocols_RSHTTPLengthRequired, "Length Required" IdResourceStringsProtocols_RSHTTPPreconditionFailed, "Precondition Failed" @@ -2024,11 +2439,11 @@ BEGIN IdResourceStringsProtocols_RSHTTPBadGateway, "Bad Gateway" IdResourceStringsProtocols_RSHTTPServiceUnavailable, "Service Unavailable" IdResourceStringsProtocols_RSHTTPGatewayTimeout, "Gateway timeout" - IdResourceStringsProtocols_RSHTTPOK, "OK" - IdResourceStringsProtocols_RSHTTPCreated, "Created" - IdResourceStringsProtocols_RSHTTPAccepted, "Accepted" - IdResourceStringsProtocols_RSHTTPNonAuthoritativeInformation, "Non-authoritative Information" - IdResourceStringsProtocols_RSHTTPNoContent, "No Content" + IdResourceStringsProtocols_RSHTTPHTTPVersionNotSupported, "HTTP version not supported" + IdResourceStringsProtocols_RSHTTPUnknownResponseCode, "Unknown Response Code" + IdResourceStringsProtocols_RSHTTPHeaderAlreadyWritten, "Header has already been written." + IdResourceStringsProtocols_RSHTTPErrorParsingCommand, "Error in parsing command." + IdResourceStringsProtocols_RSHTTPUnsupportedAuthorisationScheme, "Unsupported authorization scheme." IdResourceStringsProtocols_RSHTTPResetContent, "Reset Content" IdResourceStringsProtocols_RSHTTPPartialContent, "Partial Content" IdResourceStringsProtocols_RSHTTPMovedPermanently, "Moved Permanently" @@ -2040,11 +2455,11 @@ BEGIN IdResourceStringsProtocols_RSHTTPUnauthorized, "Unauthorized" IdResourceStringsProtocols_RSHTTPForbidden, "Forbidden" IdResourceStringsProtocols_RSHTTPNotFound, "Not Found" - IdResourceStrings_RSCannotSetIPVersionWhenConnected, "Cannot change IPVersion when connected" - IdResourceStrings_RSCannotBindRange, "Can not bind in port range (%d - %d)" - IdResourceStrings_RSConnectionClosedGracefully, "Connection Closed Gracefully." - IdResourceStrings_RSCouldNotBindSocket, "Could not bind socket. Address and port are already in use." - IdResourceStrings_RSInvalidPortRange, "Invalid Port Range (%d - %d)" + IdResourceStringsProtocols_RSHTTPMethodNotAllowed, "Method not allowed" + IdResourceStringsProtocols_RSHTTPNotAcceptable, "Not Acceptable" + IdResourceStringsProtocols_RSHTTPProxyAuthenticationRequired, "Proxy Authentication Required" + IdResourceStringsProtocols_RSHTTPRequestTimeout, "Request Timeout" + IdResourceStringsProtocols_RSHTTPConflict, "Conflict" IdResourceStrings_RSInvalidServiceName, "%s is not a valid service." IdResourceStrings_RSIPv6Unavailable, "IPv6 unavailable" IdResourceStrings_RSInvalidIPv6Address, "%s is not a valid IPv6 address" @@ -2056,11 +2471,11 @@ BEGIN IdResourceStringsProtocols_RSMIMEMIMETypeEmpty, "Mimetype is empty" IdResourceStringsProtocols_RSMIMEMIMEExtAlreadyExists, "Extension already exits" IdResourceStringsProtocols_RSHTTPContinue, "Continue" - IdResourceStrings_RSStackENOBUFS, "No buffer space available." - IdResourceStrings_RSStackEISCONN, "Socket is already connected." - IdResourceStrings_RSStackENOTCONN, "Socket is not connected." - IdResourceStrings_RSStackESHUTDOWN, "Cannot send or receive after socket is closed." - IdResourceStrings_RSStackETOOMANYREFS, "Too many references, cannot splice." + IdResourceStringsProtocols_RSHTTPOK, "OK" + IdResourceStringsProtocols_RSHTTPCreated, "Created" + IdResourceStringsProtocols_RSHTTPAccepted, "Accepted" + IdResourceStringsProtocols_RSHTTPNonAuthoritativeInformation, "Non-authoritative Information" + IdResourceStringsProtocols_RSHTTPNoContent, "No Content" IdResourceStrings_RSStackETIMEDOUT, "Connection timed out." IdResourceStrings_RSStackECONNREFUSED, "Connection refused." IdResourceStrings_RSStackELOOP, "Too many levels of symbolic links." @@ -2072,11 +2487,11 @@ BEGIN IdResourceStrings_RSStackClassUndefined, "Stack Class is undefined." IdResourceStrings_RSStackAlreadyCreated, "Stack already created." IdResourceStrings_RSAntiFreezeOnlyOne, "Only one TIdAntiFreeze can exist per application." - IdResourceStrings_RSStackEDESTADDRREQ, "Destination address required." - IdResourceStrings_RSStackEMSGSIZE, "Message too long." - IdResourceStrings_RSStackEPROTOTYPE, "Protocol wrong type for socket." - IdResourceStrings_RSStackENOPROTOOPT, "Bad protocol option." - IdResourceStrings_RSStackEPROTONOSUPPORT, "Protocol not supported." + IdResourceStrings_RSCannotSetIPVersionWhenConnected, "Cannot change IPVersion when connected" + IdResourceStrings_RSCannotBindRange, "Can not bind in port range (%d - %d)" + IdResourceStrings_RSConnectionClosedGracefully, "Connection Closed Gracefully." + IdResourceStrings_RSCouldNotBindSocket, "Could not bind socket. Address and port are already in use." + IdResourceStrings_RSInvalidPortRange, "Invalid Port Range (%d - %d)" IdResourceStrings_RSStackESOCKTNOSUPPORT, "Socket type not supported." IdResourceStrings_RSStackEOPNOTSUPP, "Operation not supported on socket." IdResourceStrings_RSStackEPFNOSUPPORT, "Protocol family not supported." @@ -2088,11 +2503,11 @@ BEGIN IdResourceStrings_RSStackENETRESET, "Net dropped connection or reset." IdResourceStrings_RSStackECONNABORTED, "Software caused connection abort." IdResourceStrings_RSStackECONNRESET, "Connection reset by peer." - IdResourceStrings_RSStatusConnecting, "Connecting to %s." - IdResourceStrings_RSStatusConnected, "Connected." - IdResourceStrings_RSStatusDisconnecting, "Disconnecting." - IdResourceStrings_RSStatusDisconnected, "Disconnected." - IdResourceStrings_RSStatusText, "%s" + IdResourceStrings_RSStackENOBUFS, "No buffer space available." + IdResourceStrings_RSStackEISCONN, "Socket is already connected." + IdResourceStrings_RSStackENOTCONN, "Socket is not connected." + IdResourceStrings_RSStackESHUTDOWN, "Cannot send or receive after socket is closed." + IdResourceStrings_RSStackETOOMANYREFS, "Too many references, cannot splice." IdResourceStrings_RSStackError, "Socket Error # %d\r\n%s" IdResourceStrings_RSStackEINTR, "Interrupted system call." IdResourceStrings_RSStackEBADF, "Bad file number." @@ -2104,12 +2519,12 @@ BEGIN IdResourceStrings_RSStackEINPROGRESS, "Operation now in progress." IdResourceStrings_RSStackEALREADY, "Operation already in progress." IdResourceStrings_RSStackENOTSOCK, "Socket operation on non-socket." - DBConsts_SProviderSQLNotSupported, "SQL not supported: %s" - DBConsts_SProviderExecuteNotSupported, "Execute not supported: %s" - DBConsts_SExprNoAggOnCalcs, "Field '%s' is not the correct type of calculated field to be used in an aggregate, use an internalcalc" - DBConsts_SDataSetUnidirectional, "Operation not allowed on a unidirectional dataset" - DBConsts_SUnassignedVar, "Unassigned variant value" - DBConsts_SRecordNotFound, "Record not found" + IdResourceStrings_RSStackEDESTADDRREQ, "Destination address required." + IdResourceStrings_RSStackEMSGSIZE, "Message too long." + IdResourceStrings_RSStackEPROTOTYPE, "Protocol wrong type for socket." + IdResourceStrings_RSStackENOPROTOOPT, "Bad protocol option." + IdResourceStrings_RSStackEPROTONOSUPPORT, "Protocol not supported." + DBConsts_SFileNameBlank, "FileName property cannot be blank" DBConsts_SBcdOverflow, "BCD overflow" DBConsts_SInvalidBcdValue, "%s is not a valid BCD value" DBConsts_SInvalidFormatType, "Invalid format type for BCD" @@ -2120,12 +2535,11 @@ BEGIN IdResourceStrings_RSWinsockLoadError, "Error on loading Winsock2 library (%s)" IdResourceStrings_RSWinsockInitializationError, "Winsock Initialization Error." IdResourceStrings_RSStatusResolving, "Resolving hostname %s." - DBConsts_SExprIncorrect, "Incorrectly formed filter expression" - DBConsts_SExprNothing, "nothing" - DBConsts_SExprTypeMis, "Type mismatch in expression" - DBConsts_SExprBadScope, "Operation cannot mix aggregate value with record-varying value" - DBConsts_SExprNoArith, "Arithmetic in filter expressions not supported" - DBConsts_SExprNotAgg, "Expression is not an aggregate expression" + IdResourceStrings_RSStatusConnecting, "Connecting to %s." + IdResourceStrings_RSStatusConnected, "Connected." + IdResourceStrings_RSStatusDisconnecting, "Disconnecting." + IdResourceStrings_RSStatusDisconnected, "Disconnected." + IdResourceStrings_RSStatusText, "%s" DBConsts_SExprBadConst, "Constant is not correct type %s" DBConsts_SExprNoAggFilter, "Aggregate expressions not allowed in filters" DBConsts_SExprEmptyInList, "IN predicate list may not be empty" @@ -2136,12 +2550,12 @@ BEGIN DBConsts_SInvalidVersion, "Unable to load bind parameters" DBConsts_SBadFieldType, "Field '%s' is of an unsupported type" DBConsts_SAggActive, "Property may not be modified while aggregate is active" - DBConsts_SNotEditing, "Dataset not in edit or insert mode" - DBConsts_SDataSetClosed, "Cannot perform this operation on a closed dataset" - DBConsts_SDataSetEmpty, "Cannot perform this operation on an empty dataset" - DBConsts_SDataSetReadOnly, "Cannot modify a read-only dataset" - DBConsts_SNestedDataSetClass, "Nested dataset must inherit from %s" - DBConsts_SExprTermination, "Filter expression incorrectly terminated" + DBConsts_SProviderSQLNotSupported, "SQL not supported: %s" + DBConsts_SProviderExecuteNotSupported, "Execute not supported: %s" + DBConsts_SExprNoAggOnCalcs, "Field '%s' is not the correct type of calculated field to be used in an aggregate, use an internalcalc" + DBConsts_SDataSetUnidirectional, "Operation not allowed on a unidirectional dataset" + DBConsts_SUnassignedVar, "Unassigned variant value" + DBConsts_SRecordNotFound, "Record not found" DBConsts_SExprNameError, "Unterminated field name" DBConsts_SExprStringError, "Unterminated string constant" DBConsts_SExprInvalidChar, "Invalid filter expression character: '%s'" @@ -2152,15 +2566,15 @@ BEGIN DBConsts_SExprBadField, "Field '%s' cannot be used in a filter expression" DBConsts_SExprBadNullTest, "NULL only allowed with '=' and '<>'" DBConsts_SExprRangeError, "Constant out of range" - DBConsts_SFieldOutOfRange, "Value of field '%s' is out of range" - DBConsts_SFieldRequired, "Field '%s' must have a value" - DBConsts_SDataSetMissing, "Field '%s' has no dataset" - DBConsts_SInvalidCalcType, "Field '%s' cannot be a calculated or lookup field" - DBConsts_SFieldReadOnly, "Field '%s' cannot be modified" - DBConsts_SFieldIndexError, "Field index out of range" - DBConsts_SNoFieldIndexes, "No index currently active" + DBConsts_SExprIncorrect, "Incorrectly formed filter expression" + DBConsts_SExprNothing, "nothing" + DBConsts_SExprTypeMis, "Type mismatch in expression" + DBConsts_SExprBadScope, "Operation cannot mix aggregate value with record-varying value" + DBConsts_SExprNoArith, "Arithmetic in filter expressions not supported" + DBConsts_SExprNotAgg, "Expression is not an aggregate expression" DBConsts_SNotIndexField, "Field '%s' is not indexed and cannot be modified" DBConsts_SIndexFieldMissing, "Cannot access index field '%s'" + DBConsts_SDuplicateIndexName, "Duplicate index name '%s'" DBConsts_SNoIndexForFields, "No index for fields '%s'" DBConsts_SIndexNotFound, "Index '%s' not found" DBConsts_SCircularDataLink, "Circular datalinks are not allowed" @@ -2168,13 +2582,12 @@ BEGIN DBConsts_SDataSourceChange, "DataSource cannot be changed" DBConsts_SNoNestedMasterSource, "Nested datasets cannot have a MasterSource" DBConsts_SDataSetOpen, "Cannot perform this operation on an open dataset" - DBConsts_SInvalidFieldSize, "Invalid field size" - DBConsts_SInvalidFieldKind, "Invalid FieldKind" - DBConsts_SUnknownFieldType, "Field '%s' is of an unknown type" - DBConsts_SFieldNameMissing, "Field name missing" - DBConsts_SDuplicateFieldName, "Duplicate field name '%s'" - DBConsts_SFieldNotFound, "Field '%s' not found" - DBConsts_SFieldAccessError, "Cannot access field '%s' as type %s" + DBConsts_SNotEditing, "Dataset not in edit or insert mode" + DBConsts_SDataSetClosed, "Cannot perform this operation on a closed dataset" + DBConsts_SDataSetEmpty, "Cannot perform this operation on an empty dataset" + DBConsts_SDataSetReadOnly, "Cannot modify a read-only dataset" + DBConsts_SNestedDataSetClass, "Nested dataset must inherit from %s" + DBConsts_SExprTermination, "Filter expression incorrectly terminated" DBConsts_SFieldValueError, "Invalid value for field '%s'" DBConsts_SFieldRangeError, "%g is not a valid value for field '%s'. The allowed range is %g to %g" DBConsts_SBcdFieldRangeError, "%s is not a valid value for field '%s'. The allowed range is %s to %s" @@ -2184,13 +2597,13 @@ BEGIN DBConsts_SFieldTypeMismatch, "Type mismatch for field '%s', expecting: %s actual: %s" DBConsts_SFieldSizeMismatch, "Size mismatch for field '%s', expecting: %d actual: %d" DBConsts_SInvalidVarByteArray, "Invalid variant type or size for field '%s'" - uRORes_err_ChannelDoesntSupportIROMetadataReader, "Channel does not support IROMetadataReader" - uRORes_err_TooManySessions, "Too many sessions. Try again in %d minute(s)" - uRORes_err_DOMElementIsNIL, "DOMElement is NIL" - uRORes_err_CannotLoadXMLDocument, "Cannot load XML document.\rReason: %s\rLine: %d\rPosition: %d" - uRORes_err_ErrorCreatingMsXmlDoc, "Error creating MSXML Document class\r\r%s: %s" - uRORes_err_NoXMLParsersAvailable, "MSXML is not installed" - uRORes_err_IDispatchMarshalingNotSupported, "Marshaling of IDispatch (%d) type variants is not supported." + DBConsts_SFieldOutOfRange, "Value of field '%s' is out of range" + DBConsts_SFieldRequired, "Field '%s' must have a value" + DBConsts_SDataSetMissing, "Field '%s' has no dataset" + DBConsts_SInvalidCalcType, "Field '%s' cannot be a calculated or lookup field" + DBConsts_SFieldReadOnly, "Field '%s' cannot be modified" + DBConsts_SFieldIndexError, "Field index out of range" + DBConsts_SNoFieldIndexes, "No index currently active" uRORes_err_UnsupportedVariantType, "Unsupported variant type \"%d\"" uRORes_err_VariantIsNotArray, "Variant must be Array, but is %d" uRORes_err_InvalidVarArrayDimCount, "Variant Array DimCount must be 1 but is %d" @@ -2200,13 +2613,13 @@ BEGIN ComConst_SNoMethod, "Method '%s' not supported by automation object" ComConst_SVarNotObject, "Variant does not reference an automation object" ComConst_STooManyParams, "Dispatch methods do not support more than 64 parameters" - uRORes_err_ClassFactoryNotFound, "Class factory for interface %s not found" - uRORes_err_IROMessageNotSupported, "Class \"%s\" does not support IROMessage" - uRORes_err_ClassAlreadyRegistered, "Class \"%s\" is already registered" - uRORes_err_UnknownClass, "Unknown class \"%s\"" - uRORes_err_UnknownProxyInterface, "Unknown proxy interface \"%s\"" - uRORes_err_DispatcherAlreadyAssigned, "Dispatcher for %s already assigned" - uRORes_err_CannotFindMessageDispatcher, "Cannot find message dispatcher. Maybe there is no message component configured for the requested path?" + DBConsts_SInvalidFieldSize, "Invalid field size" + DBConsts_SInvalidFieldKind, "Invalid FieldKind" + DBConsts_SUnknownFieldType, "Field '%s' is of an unknown type" + DBConsts_SFieldNameMissing, "Field name missing" + DBConsts_SDuplicateFieldName, "Duplicate field name '%s'" + DBConsts_SFieldNotFound, "Field '%s' not found" + DBConsts_SFieldAccessError, "Cannot access field '%s' as type %s" uRORes_err_ServerOnlySupportsOneDispatcher, "%s servers only support one dispatcher" uRORes_err_UnhandledException, "Unhandled exception" uRORes_err_ChannelBusy, "Channel is busy. Try again later." @@ -2216,13 +2629,13 @@ BEGIN uRORes_err_UnknownClassInStream, "Unknown class \"%s\" found in stream." uRORes_err_UnexpectedClassInStream, "Unexpected class found in stream; class \"%s\" does not descend from \"%s\"." uRORes_err_SessionNotFound, "Session %s could not be found" - uRORes_err_RodlNoOperationsDefined, "Service interface does not contain any elements." - uRORes_err_RodlUsedFileDoesNotExist, "The referenced RODL file \"%s\" could not be found." - uRORes_err_RodlInvalidDataType, "Invalid or undefined data type \"%s\"." - uRORes_err_RodlStructCannotBeNested, "Structs cannot recursively contain themselves." - uRORes_err_RodlInvalidAncestorType, "Invalid or undefined ancestor type \"%s\"." - uRORes_str_ExceptionOnServer, "An exception of type %s was raised on the server: %s" - uRORes_str_ExceptionReraisedFromServer, "An exception was raised on the server: %s" + uRORes_err_ChannelDoesntSupportIROMetadataReader, "Channel does not support IROMetadataReader" + uRORes_err_TooManySessions, "Too many sessions. Try again in %d minute(s)" + uRORes_err_DOMElementIsNIL, "DOMElement is NIL" + uRORes_err_CannotLoadXMLDocument, "Cannot load XML document.\rReason: %s\rLine: %d\rPosition: %d" + uRORes_err_ErrorCreatingMsXmlDoc, "Error creating MSXML Document class\r\r%s: %s" + uRORes_err_NoXMLParsersAvailable, "MSXML is not installed" + uRORes_err_IDispatchMarshalingNotSupported, "Marshaling of IDispatch (%d) type variants is not supported." uRORes_err_AssignError, "Cannot assign a \"%s\" to a \"%s\"." uRORes_err_InvalidRequestStream, "Invalid request stream (%d bytes)" uRORes_err_NILMessage, "Message is NIL" @@ -2232,13 +2645,13 @@ BEGIN uRORes_err_ClassFactoryDidNotReturnInstance, "Class factory did not return an instance of \"%s\"" uRORes_err_ParameterNotFound, "Parameter \"%s\" was not found" uRORes_err_TypeNotSupported, "Type \"%s\" not supported" - uRODECConst_sFMT_XX, "XX Coding" - uRODECConst_sInvalidKeySize, "Length from Encryptionkey is invalid.\r\nKeysize for %s must be within %d-%d bytes" - uRODECConst_sNotInitialized, "%s is not initialized, call Init() or InitKey() first." - uRORes_err_InvalidIndex, "Invalid index %d" - uRORes_err_InvalidType, "Invalid type \"%s. Expected \"%s\"\"" - uRORes_err_InvalidLibrary, "Invalid library" - uRORes_err_InvalidStream, "Invalid stream" + uRORes_err_ClassFactoryNotFound, "Class factory for interface %s not found" + uRORes_err_IROMessageNotSupported, "Class \"%s\" does not support IROMessage" + uRORes_err_ClassAlreadyRegistered, "Class \"%s\" is already registered" + uRORes_err_UnknownClass, "Unknown class \"%s\"" + uRORes_err_UnknownProxyInterface, "Unknown proxy interface \"%s\"" + uRORes_err_DispatcherAlreadyAssigned, "Dispatcher for %s already assigned" + uRORes_err_CannotFindMessageDispatcher, "Cannot find message dispatcher. Maybe there is no message component configured for the requested path?" uRORes_err_InvalidTargetEntity, "Invalid TargetEntity \"%s\"" uRORes_err_InvalidParamFlag, "Invalid Parameter Flag \"%s\"" uRORes_err_InvalidStringLength, "Stream read error: Invalid string length \"%d\"" @@ -2248,13 +2661,13 @@ BEGIN uRORes_err_RodlNoDataTypeSpecified, "No data type specified." uRORes_err_RodlNoEnumValues, "Enum does not contain any values." uRORes_err_RodlNoStructElementsDefined, "Struct does not contain any elements." - Consts_SANSIEncoding, "ANSI" - Consts_SASCIIEncoding, "ASCII" - Consts_SUnicodeEncoding, "Unicode" - Consts_SBigEndianEncoding, "Big Endian Unicode" - Consts_SUTF8Encoding, "UTF-8" - Consts_SUTF7Encoding, "UTF-7" - Consts_SWindowsVistaRequired, "%s requires Windows Vista or later" + uRORes_err_RodlNoOperationsDefined, "Service interface does not contain any elements." + uRORes_err_RodlUsedFileDoesNotExist, "The referenced RODL file \"%s\" could not be found." + uRORes_err_RodlInvalidDataType, "Invalid or undefined data type \"%s\"." + uRORes_err_RodlStructCannotBeNested, "Structs cannot recursively contain themselves." + uRORes_err_RodlInvalidAncestorType, "Invalid or undefined ancestor type \"%s\"." + uRORes_str_ExceptionOnServer, "An exception of type %s was raised on the server: %s" + uRORes_str_ExceptionReraisedFromServer, "An exception was raised on the server: %s" uRODECConst_sProtectionCircular, "Circular Protection detected, Protection Object is invalid." uRODECConst_sStringFormatExists, "String Format \"%d\" does not exist." uRODECConst_sInvalidStringFormat, "Input is not a valid %s Format." @@ -2264,6 +2677,36 @@ BEGIN uRODECConst_sFMT_HEXL, "Hexadecimal lowercase" uRODECConst_sFMT_MIME64, "MIME Base 64" uRODECConst_sFMT_UU, "UU Coding" + uRODECConst_sFMT_XX, "XX Coding" + uRODECConst_sInvalidKeySize, "Length from Encryptionkey is invalid.\r\nKeysize for %s must be within %d-%d bytes" + uRODECConst_sNotInitialized, "%s is not initialized, call Init() or InitKey() first." + uRORes_err_InvalidIndex, "Invalid index %d" + uRORes_err_InvalidType, "Invalid type \"%s. Expected \"%s\"\"" + uRORes_err_InvalidLibrary, "Invalid library" + uRORes_err_InvalidStream, "Invalid stream" + Consts_SDockZoneNotFound, " - Dock zone not found" + Consts_SDockZoneHasNoCtl, " - Dock zone has no control" + Consts_SDockZoneVersionConflict, "Error loading dock zone from the stream. Expecting version %d, but found %d." + Consts_SMultiSelectRequired, "Multiselect mode must be on for this feature" + Consts_SSeparator, "Separator" + Consts_SErrorSettingCount, "Error setting %s.Count" + Consts_SListBoxMustBeVirtual, "Listbox (%s) style must be virtual in order to set Count" + Consts_SANSIEncoding, "ANSI" + Consts_SASCIIEncoding, "ASCII" + Consts_SUnicodeEncoding, "Unicode" + Consts_SBigEndianEncoding, "Big Endian Unicode" + Consts_SUTF8Encoding, "UTF-8" + Consts_SUTF7Encoding, "UTF-7" + Consts_STrayIconRemoveError, "Cannot remove shell notification icon" + Consts_STrayIconCreateError, "Cannot create shell notification icon" + Consts_SWindowsVistaRequired, "%s requires Windows Vista or later" + Consts_SDrivesCap, "D&rives:" + Consts_SDirsCap, "&Directories:" + Consts_SFilesCap, "&Files: (*.*)" + Consts_SNetworkCap, "Ne&twork..." + Consts_SInvalidClipFmt, "Invalid clipboard format" + Consts_SIconToClipboard, "Clipboard does not support Icons" + Consts_SCannotOpenClipboard, "Cannot open clipboard" Consts_SInvalidMemoSize, "Text exceeds memo capacity" Consts_SInvalidPrinterOp, "Operation not supported on selected printer" Consts_SNoDefaultPrinter, "There is no default printer currently selected" @@ -2273,13 +2716,13 @@ BEGIN Consts_SPreviewLabel, "Preview" Consts_SDockedCtlNeedsName, "Docked control must have a name" Consts_SDockTreeRemoveError, "Error removing control from dock tree" - Consts_SDockZoneNotFound, " - Dock zone not found" - Consts_SDockZoneHasNoCtl, " - Dock zone has no control" - Consts_SDockZoneVersionConflict, "Error loading dock zone from the stream. Expecting version %d, but found %d." - Consts_SMultiSelectRequired, "Multiselect mode must be on for this feature" - Consts_SSeparator, "Separator" - Consts_SErrorSettingCount, "Error setting %s.Count" - Consts_SListBoxMustBeVirtual, "Listbox (%s) style must be virtual in order to set Count" + Consts_SmkcLeft, "Left" + Consts_SmkcUp, "Up" + Consts_SmkcRight, "Right" + Consts_SmkcDown, "Down" + Consts_SmkcIns, "Ins" + Consts_SmkcDel, "Del" + Consts_SmkcShift, "Shift+" Consts_SmkcCtrl, "Ctrl+" Consts_SmkcAlt, "Alt+" Consts_srNone, "(None)" @@ -2289,13 +2732,13 @@ BEGIN Consts_SConfirmCreateDir, "The specified directory does not exist. Create it?" Consts_SSelectDirCap, "Select Directory" Consts_SDirNameCap, "Directory &Name:" - Consts_SDrivesCap, "D&rives:" - Consts_SDirsCap, "&Directories:" - Consts_SFilesCap, "&Files: (*.*)" - Consts_SNetworkCap, "Ne&twork..." - Consts_SInvalidClipFmt, "Invalid clipboard format" - Consts_SIconToClipboard, "Clipboard does not support Icons" - Consts_SCannotOpenClipboard, "Cannot open clipboard" + Consts_SMsgDlgHelp, "&Help" + Consts_SMsgDlgAbort, "&Abort" + Consts_SMsgDlgRetry, "&Retry" + Consts_SMsgDlgIgnore, "&Ignore" + Consts_SMsgDlgAll, "&All" + Consts_SMsgDlgNoToAll, "N&o to All" + Consts_SMsgDlgYesToAll, "Yes to &All" Consts_SmkcBkSp, "BkSp" Consts_SmkcTab, "Tab" Consts_SmkcEsc, "Esc" @@ -2305,13 +2748,13 @@ BEGIN Consts_SmkcPgDn, "PgDn" Consts_SmkcEnd, "End" Consts_SmkcHome, "Home" - Consts_SmkcLeft, "Left" - Consts_SmkcUp, "Up" - Consts_SmkcRight, "Right" - Consts_SmkcDown, "Down" - Consts_SmkcIns, "Ins" - Consts_SmkcDel, "Del" - Consts_SmkcShift, "Shift+" + Consts_SAllButton, "&All" + Consts_SCannotDragForm, "Cannot drag a form" + Consts_SVMetafiles, "Metafiles" + Consts_SVEnhMetafiles, "Enhanced Metafiles" + Consts_SVIcons, "Icons" + Consts_SVBitmaps, "Bitmaps" + Consts_SMaskErr, "Invalid input value" Consts_SMaskEditErr, "Invalid input value. Use escape key to abandon changes" Consts_SMsgDlgWarning, "Warning" Consts_SMsgDlgError, "Error" @@ -2321,13 +2764,13 @@ BEGIN Consts_SMsgDlgNo, "&No" Consts_SMsgDlgOK, "OK" Consts_SMsgDlgCancel, "Cancel" - Consts_SMsgDlgHelp, "&Help" - Consts_SMsgDlgAbort, "&Abort" - Consts_SMsgDlgRetry, "&Retry" - Consts_SMsgDlgIgnore, "&Ignore" - Consts_SMsgDlgAll, "&All" - Consts_SMsgDlgNoToAll, "N&o to All" - Consts_SMsgDlgYesToAll, "Yes to &All" + Consts_SNotPrinting, "Printer is not currently printing" + Consts_SPrinting, "Printing in progress" + Consts_SInvalidPrinter, "Printer selected is not valid" + Consts_SDeviceOnPort, "%s on %s" + Consts_SGroupIndexTooLow, "GroupIndex cannot be less than a previous menu item's GroupIndex" + Consts_SNoMDIForm, "Cannot create form. No MDI forms are currently active" + Consts_SControlParentSetToSelf, "A control cannot have itself as its parent" Consts_SOKButton, "OK" Consts_SCancelButton, "Cancel" Consts_SYesButton, "&Yes" @@ -2337,13 +2780,13 @@ BEGIN Consts_SIgnoreButton, "&Ignore" Consts_SRetryButton, "&Retry" Consts_SAbortButton, "Abort" - Consts_SAllButton, "&All" - Consts_SCannotDragForm, "Cannot drag a form" - Consts_SVMetafiles, "Metafiles" - Consts_SVEnhMetafiles, "Enhanced Metafiles" - Consts_SVIcons, "Icons" - Consts_SVBitmaps, "Bitmaps" - Consts_SMaskErr, "Invalid input value" + Consts_SImageReadFail, "Failed to read ImageList data from stream" + Consts_SImageWriteFail, "Failed to write ImageList data to stream" + Consts_SWindowDCError, "Error creating window device context" + Consts_SWindowClass, "Error creating window class" + Consts_SCannotFocus, "Cannot focus a disabled or invisible window" + Consts_SParentRequired, "Control '%s' has no parent window" + Consts_SParentGivenNotAParent, "Parent given is not a parent of '%s'" Consts_SMDIChildNotVisible, "Cannot hide an MDI Child Form" Consts_SVisibleChanged, "Cannot change Visible in OnShow or OnHide" Consts_SCannotShowModal, "Cannot make a visible window modal" @@ -2353,13 +2796,13 @@ BEGIN Consts_SMenuReinserted, "Menu inserted twice" Consts_SMenuNotFound, "Sub-menu is not in menu" Consts_SNoTimers, "Not enough timers available" - Consts_SNotPrinting, "Printer is not currently printing" - Consts_SPrinting, "Printing in progress" - Consts_SInvalidPrinter, "Printer selected is not valid" - Consts_SDeviceOnPort, "%s on %s" - Consts_SGroupIndexTooLow, "GroupIndex cannot be less than a previous menu item's GroupIndex" - Consts_SNoMDIForm, "Cannot create form. No MDI forms are currently active" - Consts_SControlParentSetToSelf, "A control cannot have itself as its parent" + HelpIntfs_hNoTopics, "No topic-based help system installed" + Consts_SInvalidBitmap, "Bitmap image is not valid" + Consts_SInvalidIcon, "Icon image is not valid" + Consts_SInvalidMetafile, "Metafile is not valid" + Consts_SInvalidPixelFormat, "Invalid pixel format" + Consts_SInvalidImage, "Invalid image" + Consts_SScanLine, "Scan line index out of range" Consts_SChangeIconSize, "Cannot change the size of an icon" Consts_SUnknownExtension, "Unknown picture file extension (.%s)" Consts_SUnknownClipboardFormat, "Unsupported clipboard format" @@ -2369,29 +2812,27 @@ BEGIN Consts_SInvalidImageList, "Invalid ImageList" Consts_SReplaceImage, "Unable to Replace Image" Consts_SImageIndexError, "Invalid ImageList Index" - Consts_SImageReadFail, "Failed to read ImageList data from stream" - Consts_SImageWriteFail, "Failed to write ImageList data to stream" - Consts_SWindowDCError, "Error creating window device context" - Consts_SWindowClass, "Error creating window class" - Consts_SCannotFocus, "Cannot focus a disabled or invisible window" - Consts_SParentRequired, "Control '%s' has no parent window" - Consts_SParentGivenNotAParent, "Parent given is not a parent of '%s'" + RTLConsts_SRegGetDataFailed, "Failed to get data for '%s'" + RTLConsts_SRegSetDataFailed, "Failed to set data for '%s'" + RTLConsts_SResNotFound, "Resource %s not found" + RTLConsts_SSeekNotImplemented, "%s.Seek not implemented" + RTLConsts_SSortedListError, "Operation not allowed on sorted list" RTLConsts_SUnknownGroup, "%s not in a class registration group" RTLConsts_SUnknownProperty, "Property %s does not exist" RTLConsts_SWriteError, "Stream write error" RTLConsts_SThreadCreateError, "Thread creation error: %s" RTLConsts_SThreadError, "Thread Error: %s (%d)" + RTLConsts_SMissingDateTimeField, "?" + RTLConsts_SInvalidDateTime, "''%s'' is not a valid date and time" HelpIntfs_hNoTableOfContents, "Unable to find a Table of Contents" HelpIntfs_hNothingFound, "No help found for %s" HelpIntfs_hNoContext, "No context-sensitive help installed" HelpIntfs_hNoContextFound, "No help found for context" - HelpIntfs_hNoTopics, "No topic-based help system installed" - Consts_SInvalidBitmap, "Bitmap image is not valid" - Consts_SInvalidIcon, "Icon image is not valid" - Consts_SInvalidMetafile, "Metafile is not valid" - Consts_SInvalidPixelFormat, "Invalid pixel format" - Consts_SInvalidImage, "Invalid image" - Consts_SScanLine, "Scan line index out of range" + RTLConsts_SInvalidImage, "Invalid stream format" + RTLConsts_SInvalidName, "''%s'' is not a valid component name" + RTLConsts_SInvalidProperty, "Invalid property value" + RTLConsts_SInvalidPropertyElement, "Invalid property element: %s" + RTLConsts_SInvalidPropertyPath, "Invalid property path" RTLConsts_SInvalidPropertyType, "Invalid property type: %s" RTLConsts_SInvalidPropertyValue, "Invalid property value" RTLConsts_SInvalidRegType, "Invalid data type for '%s'" @@ -2403,11 +2844,11 @@ BEGIN RTLConsts_SReadError, "Stream read error" RTLConsts_SReadOnlyProperty, "Property is read-only" RTLConsts_SRegCreateFailed, "Failed to create key %s" - RTLConsts_SRegGetDataFailed, "Failed to get data for '%s'" - RTLConsts_SRegSetDataFailed, "Failed to set data for '%s'" - RTLConsts_SResNotFound, "Resource %s not found" - RTLConsts_SSeekNotImplemented, "%s.Seek not implemented" - RTLConsts_SSortedListError, "Operation not allowed on sorted list" + SysConst_SLongDayNameSat, "Saturday" + SysConst_SCannotCreateDir, "Unable to create directory" + RTLConsts_SAncestorNotFound, "Ancestor for '%s' not found" + RTLConsts_SAssignError, "Cannot assign a %s to a %s" + RTLConsts_SBitsIndexError, "Bits index out of range" RTLConsts_SCantWriteResourceStreamError, "Can't write to a read-only resource stream" RTLConsts_SCheckSynchronizeError, "CheckSynchronize called from thread $%x, which is NOT the main thread" RTLConsts_SClassNotFound, "Class %s not found" @@ -2419,11 +2860,11 @@ BEGIN RTLConsts_SFOpenErrorEx, "Cannot open file \"%s\". %s" RTLConsts_SIniFileWriteError, "Unable to write to %s" RTLConsts_SInvalidFileName, "Invalid file name - %s" - RTLConsts_SInvalidImage, "Invalid stream format" - RTLConsts_SInvalidName, "''%s'' is not a valid component name" - RTLConsts_SInvalidProperty, "Invalid property value" - RTLConsts_SInvalidPropertyElement, "Invalid property element: %s" - RTLConsts_SInvalidPropertyPath, "Invalid property path" + SysConst_SLongMonthNameOct, "October" + SysConst_SLongMonthNameNov, "November" + SysConst_SLongMonthNameDec, "December" + SysConst_SShortDayNameSun, "Sun" + SysConst_SShortDayNameMon, "Mon" SysConst_SShortDayNameTue, "Tue" SysConst_SShortDayNameWed, "Wed" SysConst_SShortDayNameThu, "Thu" @@ -2435,11 +2876,11 @@ BEGIN SysConst_SLongDayNameWed, "Wednesday" SysConst_SLongDayNameThu, "Thursday" SysConst_SLongDayNameFri, "Friday" - SysConst_SLongDayNameSat, "Saturday" - SysConst_SCannotCreateDir, "Unable to create directory" - RTLConsts_SAncestorNotFound, "Ancestor for '%s' not found" - RTLConsts_SAssignError, "Cannot assign a %s to a %s" - RTLConsts_SBitsIndexError, "Bits index out of range" + SysConst_SShortMonthNameJun, "Jun" + SysConst_SShortMonthNameJul, "Jul" + SysConst_SShortMonthNameAug, "Aug" + SysConst_SShortMonthNameSep, "Sep" + SysConst_SShortMonthNameOct, "Oct" SysConst_SShortMonthNameNov, "Nov" SysConst_SShortMonthNameDec, "Dec" SysConst_SLongMonthNameJan, "January" @@ -2451,14 +2892,14 @@ BEGIN SysConst_SLongMonthNameJul, "July" SysConst_SLongMonthNameAug, "August" SysConst_SLongMonthNameSep, "September" - SysConst_SLongMonthNameOct, "October" - SysConst_SLongMonthNameNov, "November" - SysConst_SLongMonthNameDec, "December" - SysConst_SShortDayNameSun, "Sun" - SysConst_SShortDayNameMon, "Mon" + SysConst_SSafecallException, "Exception in safecall method" SysConst_SAssertError, "%s (%s, line %d)" SysConst_SAbstractError, "Abstract Error" SysConst_SModuleAccessViolation, "Access violation at address %p in module '%s'. %s of address %p" + SysConst_sErrorLoadingPackage, "Can't load package %s.\r\n%s" + SysConst_SInvalidPackageFile, "Invalid package file '%s'" + SysConst_SInvalidPackageHandle, "Invalid package handle" + SysConst_SDuplicatePackageUnit, "Cannot load package '%s.' It contains unit '%s,'which is also contained in package '%s'" SysConst_SOSError, "System Error. Code: %d.\r\n%s" SysConst_SUnkOSError, "A call to an OS function failed" SysConst_SNL, "Application is not licensed to use this feature" @@ -2467,11 +2908,7 @@ BEGIN SysConst_SShortMonthNameMar, "Mar" SysConst_SShortMonthNameApr, "Apr" SysConst_SShortMonthNameMay, "May" - SysConst_SShortMonthNameJun, "Jun" - SysConst_SShortMonthNameJul, "Jul" - SysConst_SShortMonthNameAug, "Aug" - SysConst_SShortMonthNameSep, "Sep" - SysConst_SShortMonthNameOct, "Oct" + SysConst_SInvalidVarNullOp, "Invalid NULL variant operation" SysConst_SInvalidVarOpWithHResultWithPrefix, "Invalid variant operation (%s%.8x)\n%s" SysConst_SVarTypeOutOfRangeWithPrefix, "Custom variant type (%s%.4x) is out of range" SysConst_SVarTypeAlreadyUsedWithPrefix, "Custom variant type (%s%.4x) already used by %s" @@ -2487,7 +2924,7 @@ BEGIN SysConst_SExternalException, "External exception %x" SysConst_SAssertionFailed, "Assertion failed" SysConst_SIntfCastError, "Interface not supported" - SysConst_SSafecallException, "Exception in safecall method" + SysConst_SPrivilege, "Privileged instruction" SysConst_SOperationAborted, "Operation aborted" SysConst_SException, "Exception %s in module %s at %p.\r\n%s%s\r\n" SysConst_SExceptTitle, "Application Error" @@ -2503,7 +2940,7 @@ BEGIN SysConst_SVarArrayWithHResult, "Unexpected variant or safe array error: %s%.8x" SysConst_SInvalidVarCast, "Invalid variant type conversion" SysConst_SInvalidVarOp, "Invalid variant operation" - SysConst_SInvalidVarNullOp, "Invalid NULL variant operation" + SysConst_SEndOfFile, "Read beyond end of file" SysConst_SDiskFull, "Disk full" SysConst_SInvalidInput, "Invalid numeric input" SysConst_SDivByZero, "Division by zero" @@ -2519,7 +2956,6 @@ BEGIN SysConst_SAccessViolationNoArg, "Access violation" SysConst_SStackOverflow, "Stack overflow" SysConst_SControlC, "Control-C hit" - SysConst_SPrivilege, "Privileged instruction" SysConst_SInvalidInteger, "'%s' is not a valid integer value" SysConst_SInvalidFloat, "'%s' is not a valid floating point value" SysConst_SInvalidDate, "'%s' is not a valid date" @@ -2527,6 +2963,7 @@ BEGIN SysConst_SInvalidDateTime, "'%s' is not a valid date and time" SysConst_SInvalidTimeStamp, "'%d.%d' is not a valid timestamp" SysConst_SInvalidGUID, "'%s' is not a valid GUID value" + SysConst_SInvalidBoolean, "'%s' is not a valid boolean value" SysConst_STimeEncodeError, "Invalid argument to time encode" SysConst_SDateEncodeError, "Invalid argument to date encode" SysConst_SOutOfMemory, "Out of memory" @@ -2535,9 +2972,9 @@ BEGIN SysConst_SInvalidFilename, "Invalid filename" SysConst_STooManyOpenFiles, "Too many open files" SysConst_SAccessDenied, "File access denied" - SysConst_SEndOfFile, "Read beyond end of file" END +/* C:\Archivos de programa\EurekaLog 6\Delphi11\DIALOG.RES */ /* c:\archivos de programa\codegear\rad studio\5.0\lib\Controls.res */ /* C:\Archivos de programa\RemObjects Software\RemObjects SDK for Delphi\Source\uROPoweredByRemObjectsButton.res */ /* C:\Archivos de programa\RemObjects Software\RemObjects SDK for Delphi\Source\uROHtmlServerInfo.res */ @@ -2564,6 +3001,11 @@ END /* C:\Archivos de programa\RemObjects Software\Data Abstract for Delphi\Source\Drivers\DataAbstract_IBXDriver_Glyphs.res */ /* C:\Archivos de programa\RemObjects Software\Data Abstract for Delphi\Source\Drivers\DataAbstract_ADODriver_Glyphs.res */ /* c:\varela_d2007\lib\jvcl\JvLogForm.dfm */ +/* C:\Archivos de programa\RemObjects Software\Data Abstract for Delphi\Source\Drivers\DataAbstract_SQLiteDriver_Glyphs.res */ +/* C:\Archivos de programa\RemObjects Software\Data Abstract for Delphi\Source\Drivers\DataAbstract_BDEDriver_Glyphs.res */ +/* C:\Archivos de programa\RemObjects Software\Data Abstract for Delphi\Source\Drivers\DataAbstract_DBXDriver_Glyphs.res */ +/* C:\Varela_D2007\Lib\DBAccess.res */ +/* C:\Archivos de programa\RemObjects Software\Data Abstract for Delphi\Source\Drivers\DataAbstract_SDACDriver_Glyphs.res */ /* C:\Varela_D2007\Source\Servidor\uDataModuleServer.dfm */ /* C:\Varela_D2007\Source\Servidor\Configuracion\uFrameConfiguracion.dfm */ /* c:\archivos de programa\codegear\rad studio\5.0\lib\FileCtrl.res */ diff --git a/Source/Servidor/AdminPV_Server.res b/Source/Servidor/AdminPV_Server.res index d0878d6..c101eab 100644 Binary files a/Source/Servidor/AdminPV_Server.res and b/Source/Servidor/AdminPV_Server.res differ diff --git a/Source/Servidor/Services/Login/srvLogin_Impl.dfm b/Source/Servidor/Services/Login/srvLogin_Impl.dfm index a3e035b..83f2fdf 100644 --- a/Source/Servidor/Services/Login/srvLogin_Impl.dfm +++ b/Source/Servidor/Services/Login/srvLogin_Impl.dfm @@ -19,14 +19,12 @@ object srvLogin: TsrvLogin item Name = 'USERID' DataType = datString - BlobType = dabtUnknown Value = 'zeus' ParamType = daptInput end item Name = 'PASSWORD' DataType = datString - BlobType = dabtUnknown Value = 'zvg' ParamType = daptInput end> @@ -56,30 +54,13 @@ object srvLogin: TsrvLogin Name = 'ID' DataType = datString Size = 12 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify InPrimaryKey = True - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end item Name = 'PASS' DataType = datString Size = 12 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - ServerCalculated = False - Lookup = False - LookupCache = False end> - BusinessRulesClient.ScriptLanguage = rslPascalScript - BusinessRulesServer.ScriptLanguage = rslPascalScript end> JoinDataTables = <> UnionDataTables = <> @@ -91,8 +72,6 @@ object srvLogin: TsrvLogin Top = 24 end object DABINAdapter: TDABINAdapter - BufferSize = 262144 - IsCompatibleV4 = True Left = 56 Top = 96 end diff --git a/Source/Servidor/fServerForm.dfm b/Source/Servidor/fServerForm.dfm index af1bd52..feca18c 100644 --- a/Source/Servidor/fServerForm.dfm +++ b/Source/Servidor/fServerForm.dfm @@ -1056,6 +1056,12 @@ object ServerForm: TServerForm Left = 40 Top = 16 end + object TrayIcon1: TTrayIcon + PopupMenu = PopupMenu1 + Visible = True + Left = 144 + Top = 16 + end object JvTrayIcon: TJvTrayIcon IconIndex = 0 DropDownMenu = PopupMenu1 diff --git a/Source/Servidor/fServerForm.pas b/Source/Servidor/fServerForm.pas index 5872ec9..02fdcf7 100644 --- a/Source/Servidor/fServerForm.pas +++ b/Source/Servidor/fServerForm.pas @@ -23,7 +23,6 @@ type Refrescarconexin1: TMenuItem; N2: TMenuItem; XPManifest1: TXPManifest; - JvTrayIcon: TJvTrayIcon; Panel1: TPanel; Image1: TImage; JvGradient1: TJvGradient; @@ -31,6 +30,8 @@ type actAcerca: TAction; Acercade1: TMenuItem; N1: TMenuItem; + TrayIcon1: TTrayIcon; + JvTrayIcon: TJvTrayIcon; procedure actCerrarExecute(Sender: TObject); procedure actRestartExecute(Sender: TObject); procedure actOpcionesExecute(Sender: TObject); @@ -79,10 +80,16 @@ end; procedure TServerForm.FormCreate(Sender: TObject); begin - JvTrayIcon.HideApplication; +{ JvTrayIcon.HideApplication; JvTrayIcon.Hint := 'Administración de puntos de venta (Servidor)' + #10#13 + dmServer.ConnectionName; JvTrayIcon.Active := True; +} + +{ JvTrayIcon.Hint := 'Administración de puntos de venta (Servidor)' + + #10#13 + dmServer.ConnectionName; + JvTrayIcon.Active := True; +} end; procedure TServerForm.FormClose(Sender: TObject; var Action: TCloseAction); diff --git a/Source/Servidor/uDataModuleServer.dfm b/Source/Servidor/uDataModuleServer.dfm index 6a5f4cd..b1f2b6b 100644 --- a/Source/Servidor/uDataModuleServer.dfm +++ b/Source/Servidor/uDataModuleServer.dfm @@ -37,9 +37,16 @@ object dmServer: TdmServer item Name = 'GFT_VARELA' ConnectionString = - 'ADO?AuxDriver=SQLOLEDB.1;Server=david;Database=GFT_VARELA;UserID' + - '=sa;Password=123456;Integrated Security=SSPI;' + 'SDAC?Server=roberto;Database=GFT_VARELA_NUEVA_QUE_FALLA;UserID=s' + + 'a;Password=123456;Schemas=1;' + ConnectionType = 'MSSQL' Default = True + end + item + Name = 'GFT_VARELA_ADO' + ConnectionString = + 'ADO?AuxDriver=SQLOLEDB.1;Server=ROBERTO;Database=GFT_VARELA_NUEV' + + 'A_QUE_FALLA;UserID=sa;Password=123456;' end> DriverManager = DriverManager PoolingEnabled = True @@ -93,4 +100,8 @@ object dmServer: TdmServer Left = 224 Top = 144 end + object DASDACDriver: TDASDACDriver + Left = 304 + Top = 80 + end end diff --git a/Source/Servidor/uDataModuleServer.pas b/Source/Servidor/uDataModuleServer.pas index 72cdbd4..da84a7e 100644 --- a/Source/Servidor/uDataModuleServer.pas +++ b/Source/Servidor/uDataModuleServer.pas @@ -8,7 +8,8 @@ uses uROSessions, uDADataTable, uDABINAdapter, IBSQLMonitor, JvComponent, JvAppStorage, JvAppRegistryStorage, uDAInterfaces, JvComponentBase, uDAADODriver, uROEventRepository, uDAServerLog, - JvLogFile, SyncObjs; + JvLogFile, SyncObjs, uDASQLiteDriver, uDABDEDriver, uDADBXDriver, + uDASDACDriver; const SERVER_PORT = '8099'; @@ -25,6 +26,7 @@ type ConnectionManager: TDAConnectionManager; DAServerLog1: TDAServerLog; JvLogFile1: TJvLogFile; + DASDACDriver: TDASDACDriver; DataDictionary: TDADataDictionary; procedure DataModuleCreate(Sender: TObject); procedure DataModuleDestroy(Sender: TObject); @@ -292,7 +294,7 @@ begin ConnectionName := ConnectionManager.GetDefaultConnectionName; ConnectionManager.Connections.GetDefaultConnection.ConnectionString := GetConnectionString; - CoInitialize(nil); + HTTPServer.Active := TRUE; end;