diff --git a/Build/Build.fbl6 b/Build/Build.fbl6 index c917caf..eec535b 100644 Binary files a/Build/Build.fbl6 and b/Build/Build.fbl6 differ diff --git a/Build/Installer.fbl6 b/Build/Installer.fbl6 index d6eb99a..82feceb 100644 Binary files a/Build/Installer.fbl6 and b/Build/Installer.fbl6 differ diff --git a/Build/Installer.fbpInf b/Build/Installer.fbpInf index 29abb68..edc8839 100644 --- a/Build/Installer.fbpInf +++ b/Build/Installer.fbpInf @@ -6,7 +6,7 @@ - + diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql index 4d05ff7..e67f7ac 100644 --- a/Database/scripts/factuges.sql +++ b/Database/scripts/factuges.sql @@ -710,7 +710,9 @@ CREATE TABLE FACTURAS_CLIENTE ( RETENCION TIPO_PORCENTAJE, IMPORTE_RETENCION TIPO_IMPORTE, DESCUENTO2 TIPO_PORCENTAJE, - IMPORTE_DESCUENTO2 TIPO_IMPORTE + IMPORTE_DESCUENTO2 TIPO_IMPORTE, + COMISION TIPO_PORCENTAJE, + IMPORTE_COMISION TIPO_IMPORTE ); CREATE TABLE FACTURAS_CLIENTE_DETALLES ( @@ -1875,6 +1877,7 @@ CREATE VIEW V_CLIENTES( REFERENCIA, PAIS, ID_AGENTE, + COMISION, GRUPO_CLIENTE, NOMBRE_COMERCIAL, VENCIMIENTO_FACTURAS_1, @@ -1888,7 +1891,7 @@ CREATE VIEW V_CLIENTES( ID_FORMA_PAGO, TIENDA_WEB, DESCUENTO, - DESCUENTO2, + DESCUENTO2, FELICITACION) AS SELECT @@ -1917,6 +1920,7 @@ SELECT V_CONTACTOS.REFERENCIA, V_CONTACTOS.PAIS, CLIENTES_DATOS.ID_AGENTE, + VENDEDORES_DATOS.COMISION, CLIENTES_DATOS.GRUPO_CLIENTE, CLIENTES_DATOS.NOMBRE_COMERCIAL, CLIENTES_DATOS.VENCIMIENTO_FACTURAS_1, @@ -1935,9 +1939,9 @@ SELECT FROM V_CONTACTOS LEFT OUTER JOIN CLIENTES_DATOS ON (V_CONTACTOS.ID = CLIENTES_DATOS.ID_CLIENTE) + LEFT OUTER JOIN VENDEDORES_DATOS ON (CLIENTES_DATOS.ID_AGENTE = VENDEDORES_DATOS.ID_VENDEDOR) WHERE - V_CONTACTOS.ID_CATEGORIA = 1 -; + V_CONTACTOS.ID_CATEGORIA = 1; @@ -2224,49 +2228,52 @@ GROUP BY ID_FACTURA /* View: V_FACTURAS_CLIENTE */ CREATE VIEW V_FACTURAS_CLIENTE( - ID, - ID_EMPRESA, - REFERENCIA, - TIPO, - ID_COMISION_LIQUIDADA, - FECHA_FACTURA, - FECHA_VENCIMIENTO, - FECHA_RETENCION, - SITUACION, - BASE_IMPONIBLE, - DESCUENTO, - IMPORTE_DESCUENTO, - IVA, - IMPORTE_IVA, - RE, - IMPORTE_RE, - IMPORTE_TOTAL, - OBSERVACIONES, - ID_CLIENTE, - NIF_CIF, - NOMBRE, - ID_DIRECCION, - CALLE, - POBLACION, - PROVINCIA, - CODIGO_POSTAL, - DATOS_BANCARIOS, - PERSONA_CONTACTO, - FECHA_ALTA, - FECHA_MODIFICACION, - USUARIO, - ID_FORMA_PAGO, - RECARGO_EQUIVALENCIA, - ID_TIPO_IVA, - IMPORTE_NETO, - IMPORTE_PORTE, - ID_AGENTE, - REFERENCIA_COMISION, - RETENCION, - IMPORTE_RETENCION, - DESCUENTO2, - IMPORTE_DESCUENTO2) - AS + ID, + ID_EMPRESA, + REFERENCIA, + TIPO, + ID_COMISION_LIQUIDADA, + FECHA_FACTURA, + FECHA_VENCIMIENTO, + FECHA_RETENCION, + SITUACION, + BASE_IMPONIBLE, + DESCUENTO, + IMPORTE_DESCUENTO, + IVA, + IMPORTE_IVA, + RE, + IMPORTE_RE, + IMPORTE_TOTAL, + OBSERVACIONES, + ID_CLIENTE, + NIF_CIF, + NOMBRE, + ID_DIRECCION, + CALLE, + POBLACION, + PROVINCIA, + CODIGO_POSTAL, + DATOS_BANCARIOS, + PERSONA_CONTACTO, + FECHA_ALTA, + FECHA_MODIFICACION, + USUARIO, + ID_FORMA_PAGO, + RECARGO_EQUIVALENCIA, + ID_TIPO_IVA, + IMPORTE_NETO, + IMPORTE_PORTE, + ID_AGENTE, + REFERENCIA_COMISION, + RETENCION, + IMPORTE_RETENCION, + DESCUENTO2, + IMPORTE_DESCUENTO2, + COMISION, + IMPORTE_COMISION) + +AS SELECT FACTURAS_CLIENTE.ID, FACTURAS_CLIENTE.ID_EMPRESA, FACTURAS_CLIENTE.REFERENCIA, @@ -2308,15 +2315,17 @@ SELECT FACTURAS_CLIENTE.ID, FACTURAS_CLIENTE.RETENCION, FACTURAS_CLIENTE.IMPORTE_RETENCION, FACTURAS_CLIENTE.DESCUENTO2, - FACTURAS_CLIENTE.IMPORTE_DESCUENTO2 - + FACTURAS_CLIENTE.IMPORTE_DESCUENTO2, + FACTURAS_CLIENTE.COMISION, + FACTURAS_CLIENTE.IMPORTE_COMISION + FROM V_FAC_CLI_SITUACION LEFT JOIN FACTURAS_CLIENTE ON (FACTURAS_CLIENTE.ID = V_FAC_CLI_SITUACION.ID_FACTURA) LEFT JOIN COMISIONES_LIQUIDADAS ON (COMISIONES_LIQUIDADAS.ID = FACTURAS_CLIENTE.ID_COMISION_LIQUIDADA) LEFT JOIN CLIENTES_DATOS - ON (CLIENTES_DATOS.ID_CLIENTE = FACTURAS_CLIENTE.ID_CLIENTE); + ON (CLIENTES_DATOS.ID_CLIENTE = FACTURAS_CLIENTE.ID_CLIENTE) ; @@ -4721,7 +4730,7 @@ CREATE INDEX IDX_REMESAS_CLIENTE ON REMESAS_CLIENTE (ID_DATOS_BANCO); CREATE INDEX REMESAS_CLIENTE_IDX1 ON REMESAS_CLIENTE (FECHA_REMESA); CREATE INDEX IDX_REMESAS_PROVEEDOR ON REMESAS_PROVEEDOR (ID_DATOS_BANCO); CREATE INDEX REMESAS_PROVEEDOR_IDX1 ON REMESAS_PROVEEDOR (FECHA_REMESA); - +CREATE UNIQUE INDEX ARTICULOS_IDX1 ON ARTICULOS (REFERENCIA); /******************************************************************************/ /**** Stored Procedures ****/ diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj index aff1b06..74c08cb 100644 --- a/Source/Cliente/FactuGES.dproj +++ b/Source/Cliente/FactuGES.dproj @@ -54,7 +54,7 @@ Delphi.Personality VCLApplication -FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse1030FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.0.3.0FactuGESFactuGES1.0.3.0FactuGES.dprFalse +FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse1040FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.0.4.0FactuGESFactuGES1.0.4.0FactuGES.dprFalse diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc index 6685da3..eb15980 100644 --- a/Source/Cliente/FactuGES.rc +++ b/Source/Cliente/FactuGES.rc @@ -1,7 +1,7 @@ MAINICON ICON "C:\Codigo noviseda\Resources\Iconos\Factuges.ico" 1 VERSIONINFO -FILEVERSION 1,0,3,0 -PRODUCTVERSION 1,0,3,0 +FILEVERSION 1,0,4,0 +PRODUCTVERSION 1,0,4,0 FILEFLAGSMASK 0x3FL FILEFLAGS 0x00L FILEOS 0x40004L @@ -13,10 +13,10 @@ BEGIN BLOCK "0C0A04E4" BEGIN VALUE "CompanyName", "Rodax Software S.L.\0" - VALUE "FileVersion", "1.0.3.0\0" + VALUE "FileVersion", "1.0.4.0\0" VALUE "InternalName", "FactuGES\0" VALUE "ProductName", "FactuGES\0" - VALUE "ProductVersion", "1.0.3.0\0" + VALUE "ProductVersion", "1.0.4.0\0" END END BLOCK "VarFileInfo" diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index 97541b8..b93898c 100644 Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ diff --git a/Source/GUIBase/GUIBase.dproj b/Source/GUIBase/GUIBase.dproj index c7a9050..b1b331c 100644 --- a/Source/GUIBase/GUIBase.dproj +++ b/Source/GUIBase/GUIBase.dproj @@ -59,32 +59,32 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + +
fDialogBase
 diff --git a/Source/GUIBase/uEditorBase.dfm b/Source/GUIBase/uEditorBase.dfm index 746cbba..e82feae 100644 --- a/Source/GUIBase/uEditorBase.dfm +++ b/Source/GUIBase/uEditorBase.dfm @@ -94,6 +94,9 @@ object fEditorBase: TfEditorBase Action = actGuardarCerrar DisplayMode = nbdmImageAndText end + object SpTBXItem1: TSpTBXItem + Action = actGuardarYNuevo + end object TBXItem27: TSpTBXItem Action = actGuardar end @@ -395,6 +398,14 @@ object fEditorBase: TfEditorBase ImageIndex = 20 OnExecute = actDuplicarExecute end + object actGuardarYNuevo: TAction + Category = 'Archivo' + Caption = 'Guardar y nuevo' + Enabled = False + ImageIndex = 17 + ShortCut = 112 + Visible = False + end end object SmallImages: TPngImageList ShareImages = True diff --git a/Source/GUIBase/uEditorBase.pas b/Source/GUIBase/uEditorBase.pas index 65a6440..b1112ff 100644 --- a/Source/GUIBase/uEditorBase.pas +++ b/Source/GUIBase/uEditorBase.pas @@ -109,6 +109,8 @@ type TBXSeparatorItem15: TSpTBXSeparatorItem; StatusBarImages: TPngImageList; StatusBar: TJvStatusBar; + actGuardarYNuevo: TAction; + SpTBXItem1: TSpTBXItem; procedure actCerrarExecute(Sender: TObject); procedure actGuardarCerrarExecute(Sender: TObject); procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); diff --git a/Source/GUIBase/uEditorColores.dfm b/Source/GUIBase/uEditorColores.dfm index b4afa15..84c469b 100644 --- a/Source/GUIBase/uEditorColores.dfm +++ b/Source/GUIBase/uEditorColores.dfm @@ -20,8 +20,15 @@ inherited fEditorColores: TfEditorColores inherited pnlBotones: TPanel Top = 179 Width = 767 - ExplicitTop = 179 + ExplicitTop = 183 ExplicitWidth = 767 + object Label14: TLabel [0] + Left = 8 + Top = 6 + Width = 137 + Height = 13 + Caption = 'F1 - Aceptar Esc - Cancelar' + end inherited btnAceptar: TButton Left = 595 Top = 6 @@ -638,6 +645,7 @@ inherited fEditorColores: TfEditorColores inherited ActionList1: TActionList Top = 0 inherited actAceptar: TAction + ShortCut = 112 OnExecute = actAceptarExecute end inherited actCancelar: TAction diff --git a/Source/GUIBase/uEditorColores.pas b/Source/GUIBase/uEditorColores.pas index a51d7d7..4d0774c 100644 --- a/Source/GUIBase/uEditorColores.pas +++ b/Source/GUIBase/uEditorColores.pas @@ -49,6 +49,7 @@ type lColor10: TLabel; lColor11: TLabel; lColor12: TLabel; + Label14: TLabel; procedure actAceptarExecute(Sender: TObject); procedure actCancelarExecute(Sender: TObject); procedure FormShow(Sender: TObject); diff --git a/Source/GUIBase/uEditorDBItem.dfm b/Source/GUIBase/uEditorDBItem.dfm index 48bbe6f..9a816ca 100644 --- a/Source/GUIBase/uEditorDBItem.dfm +++ b/Source/GUIBase/uEditorDBItem.dfm @@ -8,6 +8,12 @@ inherited fEditorDBItem: TfEditorDBItem ExplicitHeight = 495 PixelsPerInch = 96 TextHeight = 13 + object JvEnterAsTab1: TJvEnterAsTab [0] + Left = 10 + Top = 6 + Width = 28 + Height = 28 + end inherited JvNavPanelHeader: TJvNavPanelHeader Width = 901 ExplicitWidth = 901 @@ -66,7 +72,7 @@ inherited fEditorDBItem: TfEditorDBItem end end end - object pgPaginas: TPageControl [2] + object pgPaginas: TPageControl [3] AlignWithMargins = True Left = 3 Top = 79 @@ -77,10 +83,6 @@ inherited fEditorDBItem: TfEditorDBItem TabOrder = 2 object pagGeneral: TTabSheet Caption = 'General' - ExplicitLeft = 0 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 end end inherited StatusBar: TJvStatusBar diff --git a/Source/GUIBase/uEditorDBItem.pas b/Source/GUIBase/uEditorDBItem.pas index 96309ec..963b551 100644 --- a/Source/GUIBase/uEditorDBItem.pas +++ b/Source/GUIBase/uEditorDBItem.pas @@ -11,7 +11,7 @@ uses uViewBase, JvAppStorage, JvAppRegistryStorage, JvFormPlacement, pngimage, ExtCtrls, JvComponentBase, dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, uDAInterfaces, cxControls, cxContainer, cxEdit, - cxLabel, cxGraphics, cxLookAndFeels, cxLookAndFeelPainters; + cxLabel, cxGraphics, cxLookAndFeels, cxLookAndFeelPainters, JvEnterTab; type IEditorDBItem = interface(IEditorDBBase) @@ -23,6 +23,7 @@ type pagGeneral: TTabSheet; imgStatus: TImage; lblDesbloquear: TcxLabel; + JvEnterAsTab1: TJvEnterAsTab; procedure lblDesbloquearClick(Sender: TObject); protected procedure EliminarInterno; override; diff --git a/Source/GUIBase/uEditorGridBase.dfm b/Source/GUIBase/uEditorGridBase.dfm index ada4dd4..cc40c8f 100644 --- a/Source/GUIBase/uEditorGridBase.dfm +++ b/Source/GUIBase/uEditorGridBase.dfm @@ -30,7 +30,7 @@ inherited fEditorGridBase: TfEditorGridBase DockPos = 0 DragHandleStyle = dhDouble TabOrder = 1 - ExplicitWidth = 600 + ExplicitWidth = 457 inherited TBXItem29: TSpTBXItem Visible = False end @@ -59,10 +59,9 @@ inherited fEditorGridBase: TfEditorGridBase inherited TBXSeparatorItem2: TSpTBXSeparatorItem [15] Visible = True end - inherited TBXItem25: TSpTBXItem - Visible = False + inherited TBXItem23: TSpTBXItem [16] end - inherited TBXSeparatorItem11: TSpTBXSeparatorItem + inherited TBXItem25: TSpTBXItem Visible = False end object TBXItem36: TSpTBXItem [19] @@ -75,6 +74,9 @@ inherited fEditorGridBase: TfEditorGridBase object TBXItem938: TSpTBXItem [21] Action = actExpandir end + inherited TBXSeparatorItem11: TSpTBXSeparatorItem + Visible = False + end inherited TBXItem28: TSpTBXItem Visible = False end @@ -256,6 +258,8 @@ inherited fEditorGridBase: TfEditorGridBase object actExportarExcel: TAction Category = 'Archivo' Caption = 'Exportar a fichero Excel...' + Enabled = False + Visible = False OnExecute = actExportarExcelExecute OnUpdate = actExportarExcelUpdate end diff --git a/Source/GUIBase/uViewFiltroBase.dfm b/Source/GUIBase/uViewFiltroBase.dfm index 68996f0..cee7b78 100644 --- a/Source/GUIBase/uViewFiltroBase.dfm +++ b/Source/GUIBase/uViewFiltroBase.dfm @@ -1,26 +1,25 @@ inherited frViewFiltroBase: TfrViewFiltroBase - Width = 549 - Height = 109 + Width = 629 + Height = 136 Visible = False - ExplicitWidth = 549 - ExplicitHeight = 109 + ExplicitWidth = 629 + ExplicitHeight = 136 object TBXDockablePanel1: TSpTBXDockablePanel Left = 0 Top = 0 - Width = 549 - Height = 109 + Width = 629 + Height = 136 Caption = 'TBXDockablePanel1' Align = alClient DockMode = dmCannotFloatOrChangeDocks TabOrder = 0 ShowCaption = False ShowCaptionWhenDocked = False - ExplicitHeight = 105 object dxLayoutControl1: TdxLayoutControl Left = 0 Top = 0 - Width = 549 - Height = 73 + Width = 629 + Height = 97 Align = alTop ParentBackground = True TabOrder = 0 @@ -67,7 +66,7 @@ inherited frViewFiltroBase: TfrViewFiltroBase Width = 100 end object edtFechaFinFiltro: TcxDateEdit - Left = 198 + Left = 225 Top = 37 Properties.OnChange = OnCamposFiltroChange Style.HotTrack = False @@ -87,7 +86,7 @@ inherited frViewFiltroBase: TfrViewFiltroBase Width = 100 end object eLista: TcxComboBox - Left = 332 + Left = 375 Top = 37 Properties.DropDownListStyle = lsEditFixedList Properties.OnChange = OnCamposFiltroChange @@ -99,6 +98,27 @@ inherited frViewFiltroBase: TfrViewFiltroBase TabOrder = 3 Width = 215 end + object edtNumFinFiltro: TcxSpinEdit + Left = 225 + Top = 64 + Properties.ImmediatePost = True + Properties.SpinButtons.Visible = False + Properties.ValueType = vtInt + Properties.OnChange = OnCamposFiltroChange + Style.HotTrack = False + TabOrder = 5 + Width = 113 + end + object edtNumIniFiltro: TcxSpinEdit + Left = 87 + Top = 64 + Properties.ImmediatePost = True + Properties.SpinButtons.Visible = False + Properties.OnChange = OnCamposFiltroChange + Style.HotTrack = False + TabOrder = 4 + Width = 121 + end object dxLayoutControl1Group_Root: TdxLayoutGroup AlignHorz = ahParentManaged AlignVert = avParentManaged @@ -137,13 +157,30 @@ inherited frViewFiltroBase: TfrViewFiltroBase ControlOptions.ShowBorder = False end end + object lgroupnum: TdxLayoutGroup + CaptionOptions.Text = 'New Group' + Visible = False + ButtonOptions.Buttons = <> + LayoutDirection = ldHorizontal + ShowBorder = False + object dxLayoutControl1Item6: TdxLayoutItem + CaptionOptions.Text = 'Entre el:' + Control = edtNumIniFiltro + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item5: TdxLayoutItem + CaptionOptions.Text = 'y' + Control = edtNumFinFiltro + ControlOptions.ShowBorder = False + end + end end end object TBXAlignmentPanel1: TSpTBXDockablePanel AlignWithMargins = True Left = 10 - Top = 73 - Width = 539 + Top = 97 + Width = 619 Height = 30 Margins.Left = 10 Margins.Top = 0 @@ -156,7 +193,7 @@ inherited frViewFiltroBase: TfrViewFiltroBase object tbxBotones: TSpTBXToolbar Left = 0 Top = 0 - Width = 539 + Width = 619 Height = 30 Align = alTop AutoResize = False diff --git a/Source/GUIBase/uViewFiltroBase.pas b/Source/GUIBase/uViewFiltroBase.pas index d6cec00..4de451b 100644 --- a/Source/GUIBase/uViewFiltroBase.pas +++ b/Source/GUIBase/uViewFiltroBase.pas @@ -8,7 +8,7 @@ uses SpTBXItem, TB2Item, TB2Dock, TB2Toolbar, ActnList, ImgList, PngImageList, cxGraphics, dxLayoutLookAndFeels, dxLayoutControl, cxDropDownEdit, cxMaskEdit, cxCalendar, cxContainer, cxEdit, cxTextEdit, cxControls, uViewBase, uDMBase, - cxLookAndFeels, cxLookAndFeelPainters, dxLayoutcxEditAdapters; + cxLookAndFeels, cxLookAndFeelPainters, dxLayoutcxEditAdapters, cxSpinEdit; type IViewFiltroBase = interface(IViewBase) @@ -45,6 +45,11 @@ type TBXAlignmentPanel1: TSpTBXDockablePanel; dxLayoutControl1Item4: TdxLayoutItem; eLista: TcxComboBox; + edtNumFinFiltro: TcxSpinEdit; + dxLayoutControl1Item5: TdxLayoutItem; + edtNumIniFiltro: TcxSpinEdit; + dxLayoutControl1Item6: TdxLayoutItem; + lgroupnum: TdxLayoutGroup; procedure OnCamposFiltroChange(Sender: TObject); procedure actQuitarFiltroExecute(Sender: TObject); @@ -59,10 +64,10 @@ type procedure SetTexto(const Value: String); protected - procedure LimpiarCampos; virtual; function ValidarCampos: Boolean; virtual; public + procedure LimpiarCampos; virtual; function GetModified: Boolean; property OnFiltrosChange: TNotifyEvent read GetFiltrosChange write SetFiltrosChange; property VerFiltros: Boolean read GetVerFiltros write SetVerFiltros; @@ -108,6 +113,9 @@ begin txtFiltroTodo.Clear; edtFechaIniFiltro.Clear; edtFechaFinFiltro.Clear; + eLista.Clear; + edtNumIniFiltro.Clear; + edtNumFinFiltro.Clear; end; procedure TfrViewFiltroBase.OnCamposFiltroChange(Sender: TObject); @@ -129,7 +137,18 @@ begin edtFechaIniFiltro.SetFocus; Result := False; end - end; + end; + + if (lgroupnum.Visible) then + if (VarIsNull(edtNumIniFiltro.Value <> 0) and (edtNumFinFiltro.Value <> 0)) then + begin + if (edtNumIniFiltro.Value > edtNumFinFiltro.Value) then + begin + ShowWarningMessage('La cantidad de inicio debe ser inferior a la cantidad final'); + edtNumIniFiltro.SetFocus; + Result := False; + end + end; end; procedure TfrViewFiltroBase.actQuitarFiltroExecute(Sender: TObject); diff --git a/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj b/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj index 2bb092d..753774b 100644 --- a/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj +++ b/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj @@ -54,34 +54,34 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fEditorAlbaranCliente
diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm index 1558a2c..bc3f6f5 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm @@ -4,8 +4,9 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente ExplicitWidth = 802 ExplicitHeight = 490 inherited cxGrid: TcxGrid + Top = 65 Width = 802 - Height = 362 + Height = 399 RootLevelOptions.DetailTabsPosition = dtpTop OnActiveTabChanged = cxGridActiveTabChanged ExplicitWidth = 802 @@ -193,9 +194,12 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente end inherited frViewFiltroBase1: TfrViewFiltroBase Width = 802 + Height = 65 ExplicitWidth = 802 + ExplicitHeight = 65 inherited TBXDockablePanel1: TSpTBXDockablePanel Width = 802 + Height = 65 ExplicitWidth = 802 inherited dxLayoutControl1: TdxLayoutControl Width = 802 diff --git a/Source/Modulos/Articulos/Articulos_Group.groupproj b/Source/Modulos/Articulos/Articulos_Group.groupproj index 063cf2d..4c8373d 100644 --- a/Source/Modulos/Articulos/Articulos_Group.groupproj +++ b/Source/Modulos/Articulos/Articulos_Group.groupproj @@ -13,6 +13,7 @@ + @@ -161,14 +162,23 @@ + + + + + + + + + - + - + - + \ No newline at end of file diff --git a/Source/Modulos/Articulos/Controller/uArticulosController.pas b/Source/Modulos/Articulos/Controller/uArticulosController.pas index c073c84..c84633c 100644 --- a/Source/Modulos/Articulos/Controller/uArticulosController.pas +++ b/Source/Modulos/Articulos/Controller/uArticulosController.pas @@ -103,8 +103,8 @@ type implementation uses - cxControls, DB, uEditorRegistryUtils, schArticulosClient_Intf, uFactuGES_App, - uIEditorArticulos, uIEditorArticulo, uIEditorElegirArticulos, + cxControls, DB, uEditorRegistryUtils, schArticulosClient_Intf, + uFactuGES_App, uIEditorArticulos, uIEditorArticulo, uIEditorElegirArticulos, uDataModuleArticulos, uDataModuleUsuarios, uDAInterfaces, Dialogs, uDataTableUtils, uDateUtils, uROTypes, DateUtils, Controls, Windows; @@ -652,6 +652,7 @@ begin AArticulo.DataTable.ApplyUpdates; Result := True; + finally //Para que no salten los eventos de calculo de PVP que daría un pete importante AArticulo.DataTable.EnableControls; diff --git a/Source/Modulos/Articulos/Views/Articulos_view.dproj b/Source/Modulos/Articulos/Views/Articulos_view.dproj index 0bad335..465d5bc 100644 --- a/Source/Modulos/Articulos/Views/Articulos_view.dproj +++ b/Source/Modulos/Articulos/Views/Articulos_view.dproj @@ -55,14 +55,14 @@ MainSource - - - - - - - - + + + + + + + +
fEditorArticulo
diff --git a/Source/Modulos/Articulos/Views/uEditorArticulo.dfm b/Source/Modulos/Articulos/Views/uEditorArticulo.dfm index aca5e73..41982af 100644 --- a/Source/Modulos/Articulos/Views/uEditorArticulo.dfm +++ b/Source/Modulos/Articulos/Views/uEditorArticulo.dfm @@ -45,25 +45,28 @@ inherited fEditorArticulo: TfEditorArticulo Width = 905 ExplicitWidth = 905 inherited tbxMain: TSpTBXToolbar - ExplicitWidth = 330 + ExplicitWidth = 331 inherited TBXItem2: TSpTBXItem Visible = False end + inherited SpTBXItem1: TSpTBXItem + DisplayMode = nbdmImageAndText + end inherited TBXItem5: TSpTBXItem Visible = False end inherited TBXItem23: TSpTBXItem Visible = False end - inherited TBXItem3: TSpTBXItem - Visible = False - end object TBXSeparatorItem6: TSpTBXSeparatorItem [11] end object TBXItem33: TSpTBXItem [12] Action = actFamilias DisplayMode = nbdmImageAndText end + inherited TBXItem3: TSpTBXItem + Visible = False + end end inherited tbxMenu: TSpTBXToolbar DockPos = 0 @@ -111,6 +114,146 @@ inherited fEditorArticulo: TfEditorArticulo ExplicitTop = 24 ExplicitWidth = 891 ExplicitHeight = 376 + inline frViewArticulo1: TfrViewArticulo + Left = 0 + Top = 0 + Width = 891 + Height = 376 + Align = alClient + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + TabOrder = 0 + ReadOnly = False + ExplicitTop = 76 + ExplicitWidth = 905 + ExplicitHeight = 410 + inherited dxLayoutControlArticulo: TdxLayoutControl + Width = 891 + Height = 376 + ExplicitWidth = 905 + ExplicitHeight = 410 + inherited PngSpeedButton2: TPngSpeedButton + Left = 829 + ExplicitLeft = 829 + end + inherited PngSpeedButton1: TPngSpeedButton + Left = 829 + ExplicitLeft = 829 + end + inherited eReferencia: TcxDBTextEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 290 + Width = 290 + end + inherited eDescripcion: TcxDBTextEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 290 + Width = 290 + end + inherited eNoComisionable: TcxDBCheckBox + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 290 + Width = 290 + end + inherited eImagen: TcxImage + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 355 + ExplicitHeight = 98 + Height = 98 + Width = 355 + end + inherited cbFamilia: TcxDBComboBox + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 290 + Width = 290 + end + inherited cbNoInventariable: TcxDBCheckBox + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 290 + Width = 290 + end + inherited cbUnidadMedida: TcxDBComboBox + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 290 + Width = 290 + end + inherited cbFabricante: TcxDBComboBox + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 290 + Width = 290 + end + inherited eReferenciaFabr: TcxDBTextEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + end + inherited eCodigo: TcxDBTextEdit + Left = 506 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 506 + ExplicitWidth = 300 + Width = 300 + end + inherited eCampoTecnico: TcxDBTextEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 727 + Width = 727 + end + inherited ePrecio: TcxDBCurrencyEdit + Left = 653 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 653 + ExplicitWidth = 300 + Width = 300 + end + inherited eDiseno: TcxDBTextEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 744 + Width = 744 + end + end + end end end inherited StatusBar: TJvStatusBar @@ -119,6 +262,12 @@ inherited fEditorArticulo: TfEditorArticulo Panels = < item Width = 200 + end + item + Text = + 'F1 - Guardar y nuevo Ctrl + F1 - Guardar Ctrl + Del - El' + + 'iminar Esc - Cerrar' + Width = 50 end> ExplicitTop = 486 ExplicitWidth = 905 @@ -126,6 +275,55 @@ inherited fEditorArticulo: TfEditorArticulo inherited EditorActionList: TActionList Left = 40 Top = 128 + inherited actGuardarCerrar: TAction + Enabled = False + Visible = False + end + inherited actGuardarYNuevo: TAction [3] + Enabled = True + Visible = True + OnExecute = actGuardarYNuevoExecute + end + inherited actGuardar: TAction [4] + ShortCut = 16496 + end + inherited actEliminar: TAction [5] + ShortCut = 16430 + end + inherited actConfPagina: TAction [6] + end + inherited actPrevisualizar: TAction [7] + end + inherited actImprimir: TAction [8] + end + inherited actDeshacer: TEditUndo [9] + end + inherited actCortar: TEditCut [10] + end + inherited actCerrar: TAction [11] + end + inherited actCopiar: TEditCopy [12] + end + inherited actPegar: TEditPaste [13] + end + inherited actSeleccionarTodo: TEditSelectAll [14] + end + inherited actLimpiar: TEditDelete [15] + end + inherited actRefrescar: TAction [16] + end + inherited actAcercaDe: TAction [17] + end + inherited actBuscar: TAction [18] + end + inherited actAnterior: TAction [19] + end + inherited actSiguiente: TAction [20] + end + inherited actCancelarCambios: TAction [21] + end + inherited actDuplicar: TAction [22] + end object actFamilias: TAction Category = 'Acciones' Caption = 'Familias' @@ -136,7 +334,18 @@ inherited fEditorArticulo: TfEditorArticulo OnExecute = actFamiliasExecute end end - inherited SmallImages: TPngImageList + inherited dsDataTable: TDADataSource [6] + Left = 8 + Top = 128 + end + inherited LargeImages: TPngImageList + Top = 112 + end + inherited JvFormStorage: TJvFormStorage + Left = 400 + Top = 152 + end + inherited SmallImages: TPngImageList [9] PngImages = < item PngImage.Data = { @@ -642,17 +851,6 @@ inherited fEditorArticulo: TfEditorArticulo Top = 112 Bitmap = {} end - inherited dsDataTable: TDADataSource [6] - Left = 8 - Top = 128 - end - inherited LargeImages: TPngImageList [7] - Top = 112 - end - inherited JvFormStorage: TJvFormStorage [8] - Left = 400 - Top = 152 - end inherited JvAppRegistryStorage: TJvAppRegistryStorage Left = 432 Top = 152 diff --git a/Source/Modulos/Articulos/Views/uEditorArticulo.pas b/Source/Modulos/Articulos/Views/uEditorArticulo.pas index 1cf53cc..7d2e4ae 100644 --- a/Source/Modulos/Articulos/Views/uEditorArticulo.pas +++ b/Source/Modulos/Articulos/Views/uEditorArticulo.pas @@ -19,17 +19,19 @@ uses cxClasses, cxControls, cxGridCustomView, cxGrid, uViewDetallesGenerico, uViewArticulosProveedores, dxLayoutControl, cxContainer, cxTextEdit, cxMaskEdit, cxSpinEdit, cxDBEdit, cxCurrencyEdit, cxLabel, - cxLookAndFeels, cxLookAndFeelPainters; + cxLookAndFeels, cxLookAndFeelPainters, JvEnterTab; type TfEditorArticulo = class(TfEditorDBItem, IEditorArticulo) TBXItem33: TSpTBXItem; actFamilias: TAction; TBXSeparatorItem6: TSpTBXSeparatorItem; + frViewArticulo1: TfrViewArticulo; procedure FormShow(Sender: TObject); procedure dsDataTableDataChange(Sender: TObject; Field: TField); procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction); procedure actFamiliasExecute(Sender: TObject); + procedure actGuardarYNuevoExecute(Sender: TObject); protected FController : IArticulosController; FArticulo: IBizArticulo; @@ -86,7 +88,19 @@ end; procedure TfEditorArticulo.GuardarInterno; begin inherited; - FController.Guardar(FArticulo); + try + FController.Guardar(FArticulo); + except + on E: Exception do + begin + if (Pos('ARTICULOS_IDX1', E.Message) > 0) then + begin + frViewArticulo1.eReferencia.SetFocus; + raise Exception.Create ('No se puede guardar este artículo porque, ya existe un artículo con esa referencia'); + end; + end; + end; + Modified := False; end; @@ -172,11 +186,22 @@ begin end; end; +procedure TfEditorArticulo.actGuardarYNuevoExecute(Sender: TObject); +begin + ShowHourglassCursor; + try + if actGuardar.Execute then + FController.Anadir(Articulo); + finally + HideHourglassCursor; + end; +end; + procedure TfEditorArticulo.AsignarVista; var AViewArticulo: TfrViewArticulo; begin - AViewArticulo := TfrViewArticulo.create(Self); + AViewArticulo := frViewArticulo1; with AViewArticulo do begin Parent := pagGeneral; diff --git a/Source/Modulos/Articulos/Views/uEditorArticulos.dfm b/Source/Modulos/Articulos/Views/uEditorArticulos.dfm index a26494d..e8e16b4 100644 --- a/Source/Modulos/Articulos/Views/uEditorArticulos.dfm +++ b/Source/Modulos/Articulos/Views/uEditorArticulos.dfm @@ -9,7 +9,7 @@ inherited fEditorArticulos: TfEditorArticulos inherited JvNavPanelHeader: TJvNavPanelHeader Width = 822 Caption = 'Lista de articulos' - ExplicitWidth = 657 + ExplicitWidth = 822 inherited Image1: TImage Left = 795 Picture.Data = { @@ -31,33 +31,20 @@ inherited fEditorArticulos: TfEditorArticulos end inherited TBXDock: TSpTBXDock Width = 822 - ExplicitWidth = 657 + ExplicitWidth = 822 inherited tbxMain: TSpTBXToolbar ExplicitWidth = 632 end - inherited tbxFiltro: TSpTBXToolbar - ExplicitWidth = 287 - inherited TBXItem37: TSpTBXItem - Enabled = False - Visible = False - end - inherited cbxListaAnos: TSpTBXComboBox - Left = 129 - ExplicitLeft = 129 - end - end inherited tbxMenu: TSpTBXToolbar ExplicitWidth = 822 end inherited TBXTMain2: TSpTBXToolbar - Left = 287 DockPos = 267 - ExplicitLeft = 287 end end inherited StatusBar: TJvStatusBar Width = 822 - ExplicitWidth = 657 + ExplicitWidth = 822 end object pgPaginas: TPageControl [3] AlignWithMargins = True @@ -69,17 +56,14 @@ inherited fEditorArticulos: TfEditorArticulos Align = alClient TabOrder = 3 OnChange = pgPaginasChange - ExplicitWidth = 651 object pagArticulos: TTabSheet Caption = 'Todos los art'#237'culos' - ExplicitWidth = 643 end object pagArticulosPorProveedor: TTabSheet Caption = 'Art'#237'culos por proveedor' Enabled = False ImageIndex = 1 TabVisible = False - ExplicitWidth = 643 inline frViewArticulosPorProveedor1: TfrViewArticulosPorProveedor Left = 0 Top = 0 @@ -94,13 +78,13 @@ inherited fEditorArticulos: TfEditorArticulos ParentFont = False TabOrder = 0 ReadOnly = False - ExplicitWidth = 643 + ExplicitWidth = 808 ExplicitHeight = 349 inherited cxGrid: TcxGrid Width = 808 - Height = 119 + Height = 221 ExplicitWidth = 808 - ExplicitHeight = 119 + ExplicitHeight = 221 inherited cxGridView: TcxGridDBTableView DataController.Summary.FooterSummaryItems = < item @@ -112,13 +96,13 @@ inherited fEditorArticulos: TfEditorArticulos end inherited frViewFiltroBase1: TfrViewFiltroBase Width = 808 - ExplicitWidth = 643 + ExplicitWidth = 808 inherited TBXDockablePanel1: TSpTBXDockablePanel Width = 808 - ExplicitWidth = 643 + ExplicitWidth = 808 inherited dxLayoutControl1: TdxLayoutControl Width = 808 - ExplicitWidth = 643 + ExplicitWidth = 808 inherited txtFiltroTodo: TcxTextEdit Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' @@ -132,48 +116,51 @@ inherited fEditorArticulos: TfEditorArticulos StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 157 + Width = 157 end inherited edtFechaFinFiltro: TcxDateEdit - Left = 456 + Left = 439 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 456 + ExplicitLeft = 439 + ExplicitWidth = 145 + Width = 145 end inherited eLista: TcxComboBox - Left = 766 + Left = 739 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 766 + ExplicitLeft = 739 ExplicitWidth = 20 Width = 20 end end inherited TBXAlignmentPanel1: TSpTBXDockablePanel Width = 798 - ExplicitWidth = 633 + ExplicitWidth = 798 inherited tbxBotones: TSpTBXToolbar Width = 798 - ExplicitWidth = 633 + ExplicitWidth = 798 end end end end inherited pnlAgrupaciones: TSpTBXDockablePanel - Top = 221 + Top = 323 Width = 808 ExplicitTop = 323 - ExplicitWidth = 643 + ExplicitWidth = 808 inherited TBXAlignmentPanel1: TSpTBXDockablePanel Width = 808 - ExplicitTop = 0 - ExplicitWidth = 643 + ExplicitWidth = 808 inherited TBXToolbar1: TSpTBXToolbar Width = 808 - ExplicitWidth = 643 + ExplicitWidth = 808 end end end @@ -209,13 +196,13 @@ inherited fEditorArticulos: TfEditorArticulos TabOrder = 4 ReadOnly = False ExplicitTop = 102 - ExplicitWidth = 657 + ExplicitWidth = 822 ExplicitHeight = 383 inherited cxGrid: TcxGrid Width = 822 Height = 256 - ExplicitWidth = 657 - ExplicitHeight = 153 + ExplicitWidth = 822 + ExplicitHeight = 256 inherited cxGridView: TcxGridDBTableView DataController.Summary.FooterSummaryItems = < item @@ -227,13 +214,13 @@ inherited fEditorArticulos: TfEditorArticulos end inherited frViewFiltroBase1: TfrViewFiltroBase Width = 822 - ExplicitWidth = 657 + ExplicitWidth = 822 inherited TBXDockablePanel1: TSpTBXDockablePanel Width = 822 - ExplicitWidth = 657 + ExplicitWidth = 822 inherited dxLayoutControl1: TdxLayoutControl Width = 822 - ExplicitWidth = 657 + ExplicitWidth = 822 inherited txtFiltroTodo: TcxTextEdit Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' @@ -247,32 +234,36 @@ inherited fEditorArticulos: TfEditorArticulos StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 157 + Width = 157 end inherited edtFechaFinFiltro: TcxDateEdit - Left = 463 + Left = 446 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 463 + ExplicitLeft = 446 + ExplicitWidth = 145 + Width = 145 end inherited eLista: TcxComboBox - Left = 779 + Left = 752 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 779 + ExplicitLeft = 752 ExplicitWidth = 20 Width = 20 end end inherited TBXAlignmentPanel1: TSpTBXDockablePanel Width = 812 - ExplicitWidth = 647 + ExplicitWidth = 812 inherited tbxBotones: TSpTBXToolbar Width = 812 - ExplicitWidth = 647 + ExplicitWidth = 812 end end end @@ -284,10 +275,10 @@ inherited fEditorArticulos: TfEditorArticulos ExplicitWidth = 822 inherited TBXAlignmentPanel1: TSpTBXDockablePanel Width = 822 - ExplicitWidth = 657 + ExplicitWidth = 822 inherited TBXToolbar1: TSpTBXToolbar Width = 822 - ExplicitWidth = 657 + ExplicitWidth = 822 end end end diff --git a/Source/Modulos/Articulos/Views/uEditorArticulos.pas b/Source/Modulos/Articulos/Views/uEditorArticulos.pas index 9a4e650..dd0c129 100644 --- a/Source/Modulos/Articulos/Views/uEditorArticulos.pas +++ b/Source/Modulos/Articulos/Views/uEditorArticulos.pas @@ -26,6 +26,7 @@ type procedure FormShow(Sender: TObject); procedure actFamiliasExecute(Sender: TObject); procedure pgPaginasChange(Sender: TObject); + procedure actQuitarFiltroExecute(Sender: TObject); private FArticulos: IBizArticulo; FArticulosPorProveedor: IBizArticulo; @@ -332,6 +333,12 @@ begin end; end; +procedure TfEditorArticulos.actQuitarFiltroExecute(Sender: TObject); +begin + inherited; + frViewArticulos1.frViewFiltroBase1actQuitarFiltroExecute(Sender); +end; + constructor TfEditorArticulos.Create(AOwner: TComponent); begin inherited; diff --git a/Source/Modulos/Articulos/Views/uViewArticulo.dfm b/Source/Modulos/Articulos/Views/uViewArticulo.dfm index 1ad71d3..46af1ce 100644 --- a/Source/Modulos/Articulos/Views/uViewArticulo.dfm +++ b/Source/Modulos/Articulos/Views/uViewArticulo.dfm @@ -1,27 +1,26 @@ inherited frViewArticulo: TfrViewArticulo - Width = 658 - Height = 504 + Width = 451 + Height = 304 Align = alClient OnCreate = CustomViewCreate OnDestroy = CustomViewDestroy + OnShow = CustomViewShow ExplicitWidth = 451 ExplicitHeight = 304 object dxLayoutControlArticulo: TdxLayoutControl Left = 0 Top = 0 - Width = 658 - Height = 504 + Width = 451 + Height = 304 Align = alClient ParentBackground = True TabOrder = 0 TabStop = False - ExplicitWidth = 451 - ExplicitHeight = 304 DesignSize = ( - 658 - 504) + 451 + 304) object PngSpeedButton2: TPngSpeedButton - Left = 613 + Left = 389 Top = 358 Width = 23 Height = 22 @@ -48,7 +47,7 @@ inherited frViewArticulo: TfrViewArticulo PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] end object PngSpeedButton1: TPngSpeedButton - Left = 613 + Left = 389 Top = 386 Width = 23 Height = 22 @@ -63,7 +62,7 @@ inherited frViewArticulo: TfrViewArticulo DataBinding.DataSource = dsViewArticulo Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D - Style.Color = clWindow + Style.Color = 14745599 Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True @@ -297,13 +296,13 @@ inherited frViewArticulo: TfrViewArticulo Width = 171 end object eCodigo: TcxDBTextEdit - Left = 392 + Left = 273 Top = 28 DataBinding.DataField = 'CODIGOTECNICO' DataBinding.DataSource = dsViewArticulo Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D - Style.Color = 14745599 + Style.Color = clWindow Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True @@ -345,13 +344,14 @@ inherited frViewArticulo: TfrViewArticulo Width = 727 end object ePrecio: TcxDBCurrencyEdit - Left = 499 + Left = 340 Top = 109 DataBinding.DataField = 'PRECIO' DataBinding.DataSource = dsViewArticulo Properties.Alignment.Horz = taRightJustify Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D + Style.Color = 14745599 Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True diff --git a/Source/Modulos/Articulos/Views/uViewArticulo.pas b/Source/Modulos/Articulos/Views/uViewArticulo.pas index ae342d1..024416e 100644 --- a/Source/Modulos/Articulos/Views/uViewArticulo.pas +++ b/Source/Modulos/Articulos/Views/uViewArticulo.pas @@ -11,7 +11,8 @@ uses ImgList, PngImageList, cxGraphics, cxMaskEdit, cxDropDownEdit, uFamiliasController, uViewDatosYSeleccionProveedor, cxSpinEdit, cxCurrencyEdit, uArticulosController, uUnidadesMedidaController, uFabricantesController, uDAInterfaces, - cxLookAndFeels, cxLookAndFeelPainters, dxLayoutcxEditAdapters; + cxLookAndFeels, cxLookAndFeelPainters, dxLayoutcxEditAdapters, JvExControls, + JvEnterTab; type IViewArticulo = interface(IViewBase) @@ -87,6 +88,7 @@ type procedure cbFabricantePropertiesInitPopup(Sender: TObject); procedure cbFabricantePropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); + procedure CustomViewShow(Sender: TObject); private procedure CargarImagen; procedure SalvarImagen; @@ -321,6 +323,12 @@ begin inherited; end; +procedure TfrViewArticulo.CustomViewShow(Sender: TObject); +begin + inherited; + eReferencia.SetFocus; +end; + function TfrViewArticulo.GetArticulo: IBizArticulo; begin Result := FArticulo; diff --git a/Source/Modulos/Articulos/Views/uViewArticulos.dfm b/Source/Modulos/Articulos/Views/uViewArticulos.dfm index 989f98c..1660af0 100644 --- a/Source/Modulos/Articulos/Views/uViewArticulos.dfm +++ b/Source/Modulos/Articulos/Views/uViewArticulos.dfm @@ -8,7 +8,7 @@ inherited frViewArticulos: TfrViewArticulos Width = 715 Height = 330 ExplicitWidth = 715 - ExplicitHeight = 232 + ExplicitHeight = 330 inherited cxGridView: TcxGridDBTableView DataController.KeyFieldNames = 'RecID' DataController.Summary.FooterSummaryItems = < @@ -79,6 +79,10 @@ inherited frViewArticulos: TfrViewArticulos object cxGridViewPRECIO: TcxGridDBColumn Caption = 'Precio' DataBinding.FieldName = 'PRECIO' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.Alignment.Horz = taRightJustify + FooterAlignmentHorz = taRightJustify + HeaderAlignmentHorz = taRightJustify end end inherited cxGridLevel: TcxGridLevel @@ -107,28 +111,23 @@ inherited frViewArticulos: TfrViewArticulos StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 272 - Width = 272 end inherited edtFechaFinFiltro: TcxDateEdit - Left = 376 + Left = 355 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 376 - ExplicitWidth = 221 - Width = 221 + ExplicitLeft = 355 end inherited eLista: TcxComboBox - Left = 634 + Left = 598 Properties.DropDownRows = 20 - Properties.OnChange = frViewFiltroBase1eListaPropertiesChange Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 634 + ExplicitLeft = 598 ExplicitWidth = 71 Width = 71 end @@ -141,6 +140,9 @@ inherited frViewArticulos: TfrViewArticulos Visible = False end end + inherited lgroupnum: TdxLayoutGroup + Visible = True + end end end inherited TBXAlignmentPanel1: TSpTBXDockablePanel @@ -167,11 +169,9 @@ inherited frViewArticulos: TfrViewArticulos ExplicitHeight = 25 inherited TBXAlignmentPanel1: TSpTBXDockablePanel Width = 715 - ExplicitTop = 0 ExplicitWidth = 715 inherited TBXToolbar1: TSpTBXToolbar Width = 715 - ExplicitTop = 0 ExplicitWidth = 715 object TBXSeparatorItem1: TSpTBXSeparatorItem end @@ -192,9 +192,6 @@ inherited frViewArticulos: TfrViewArticulos BuiltInReportLink = True end end - inherited dxPSEngineController1: TdxPSEngineController - Active = True - end inherited ActionList1: TActionList Left = 360 Top = 280 diff --git a/Source/Modulos/Articulos/Views/uViewArticulos.pas b/Source/Modulos/Articulos/Views/uViewArticulos.pas index 96b9792..4dde5ca 100644 --- a/Source/Modulos/Articulos/Views/uViewArticulos.pas +++ b/Source/Modulos/Articulos/Views/uViewArticulos.pas @@ -58,13 +58,15 @@ type procedure actFabricanteUpdate(Sender: TObject); procedure cxGridView2DataControllerCompare(ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2, AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer); - procedure frViewFiltroBase1eListaPropertiesChange(Sender: TObject); procedure frViewFiltroBase1actQuitarFiltroExecute(Sender: TObject); procedure CustomViewShow(Sender: TObject); procedure cxGridViewDataControllerCompare( ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2, AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer); + private + procedure AnadirFiltroReferencias; + protected FArticulos: IBizArticulo; FController: IArticulosController; @@ -154,10 +156,31 @@ begin (Sender as TAction).Checked := not (cxGridViewFAMILIA.GroupIndex < 0); end; +procedure TfrViewArticulos.AnadirFiltroReferencias; +var + Columna: TcxGridDBColumn; + Referencia1, Referencia2: Variant; + FFiltro : TcxFilterCriteriaItemList; +begin + Referencia1 := frViewFiltroBase1.edtNumIniFiltro.Value; + Referencia2 := frViewFiltroBase1.edtNumFinFiltro.Value; + + if (Referencia1 <> 0) and (Referencia2 <> 0) then + begin + cxGridView.DataController.Filter.Options := [fcoCaseInsensitive, fcoSoftCompare]; + FFiltro := AddFilterGrid(fboAnd); + + Columna := (cxGridView as TcxGridDBTableView).GetColumnByFieldName('REFERENCIA'); + FFiltro.AddItem(Columna, foBetween, varArrayOf([Referencia1, Referencia2]), VarToStr(Referencia1) + ' and ' + VarToStr(Referencia2)); + end; +end; + procedure TfrViewArticulos.AnadirOtrosFiltros; begin inherited; + AnadirFiltroReferencias; + //Finalmente activamos el filtro si tenemos algo if cxGridView.DataController.Filter.IsEmpty then cxGridView.DataController.Filter.Active := False @@ -197,14 +220,7 @@ end; procedure TfrViewArticulos.frViewFiltroBase1actQuitarFiltroExecute(Sender: TObject); begin - frViewFiltroBase1.txtFiltroTodo.Clear; - frViewFiltroBase1.eLista.Clear; -end; - -procedure TfrViewArticulos.frViewFiltroBase1eListaPropertiesChange(Sender: TObject); -begin - inherited; - RefrescarFiltro; + frViewFiltroBase1.LimpiarCampos; end; end. diff --git a/Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm b/Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm index c260bc8..7f07f6b 100644 --- a/Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm +++ b/Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm @@ -2,52 +2,99 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos ParentBiDiMode = False OnShow = CustomViewShow inherited ToolBar1: TToolBar + Height = 73 + ExplicitHeight = 73 + inherited ToolButton3: TToolButton + Wrap = False + end + inherited ToolButton4: TToolButton + Left = 278 + Top = 0 + ExplicitLeft = 278 + ExplicitTop = 0 + end + inherited ToolButton14: TToolButton + Left = 334 + Top = 0 + ExplicitLeft = 334 + ExplicitTop = 0 + end + inherited FontName: TJvFontComboBox + Top = 22 + ExplicitTop = 22 + end inherited FontSize: TEdit + Top = 22 Width = 42 + ExplicitTop = 22 ExplicitWidth = 42 end inherited UpDown1: TUpDown Left = 187 + Top = 22 Width = 17 ExplicitLeft = 187 + ExplicitTop = 22 ExplicitWidth = 17 end inherited ToolButton13: TToolButton Left = 204 + Top = 22 ExplicitLeft = 204 + ExplicitTop = 22 end inherited ToolButton6: TToolButton Left = 212 + Top = 22 ExplicitLeft = 212 + ExplicitTop = 22 end inherited ToolButton7: TToolButton Left = 278 + Top = 22 ExplicitLeft = 278 + ExplicitTop = 22 end inherited ToolButton8: TToolButton Left = 345 + Top = 22 ExplicitLeft = 345 + ExplicitTop = 22 end inherited ToolButton12: TToolButton - Left = 428 - ExplicitLeft = 428 + Left = 0 + Top = 22 + Wrap = True + ExplicitLeft = 0 + ExplicitTop = 22 + ExplicitHeight = 27 end inherited ToolButton9: TToolButton - Left = 436 - ExplicitLeft = 436 + Left = 0 + Top = 49 + ExplicitLeft = 0 + ExplicitTop = 49 end inherited ToolButton10: TToolButton - Left = 581 - ExplicitLeft = 581 + Left = 145 + Top = 49 + ExplicitLeft = 145 + ExplicitTop = 49 end inherited ToolButton11: TToolButton - Left = 706 - ExplicitLeft = 706 + Left = 270 + Top = 49 + ExplicitLeft = 270 + ExplicitTop = 49 end end inherited cxGrid: TcxGrid - ExplicitTop = 121 + Top = 99 + Height = 205 + ExplicitTop = 99 + ExplicitHeight = 205 inherited cxGridView: TcxGridDBTableView + OptionsSelection.CellMultiSelect = True inherited cxGridViewTIPO: TcxGridDBColumn MinWidth = 69 Width = 69 @@ -135,7 +182,7 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos end end inherited TBXDock1: TSpTBXDock - ExplicitTop = 100 + Top = 73 inherited TBXToolbar1: TSpTBXToolbar inherited TBXSubmenuItem1: TSpTBXSubmenuItem object TBXSeparatorItem8: TSpTBXSeparatorItem [4] diff --git a/Source/Modulos/Comisiones/Comisiones_Group.groupproj b/Source/Modulos/Comisiones/Comisiones_Group.groupproj new file mode 100644 index 0000000..d50fc24 --- /dev/null +++ b/Source/Modulos/Comisiones/Comisiones_Group.groupproj @@ -0,0 +1,134 @@ + + + {4fc2fdb5-faa5-4b92-afc6-33a803d10c02} + + + + + + + + + + + + + + + + + Default.Personality + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Source/Modulos/Comisiones/Data/Comisiones_data.dpk b/Source/Modulos/Comisiones/Data/Comisiones_data.dpk new file mode 100644 index 0000000..76b9f6b Binary files /dev/null and b/Source/Modulos/Comisiones/Data/Comisiones_data.dpk differ diff --git a/Source/Modulos/Comisiones/Data/Comisiones_data.dproj b/Source/Modulos/Comisiones/Data/Comisiones_data.dproj new file mode 100644 index 0000000..b7eebea --- /dev/null +++ b/Source/Modulos/Comisiones/Data/Comisiones_data.dproj @@ -0,0 +1,584 @@ + + + + {26de542f-970f-4e56-aaf6-401887defb78} + Comisiones_data.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\Comisiones_data.bpl + + + 7.0 + False + False + 0 + RELEASE + + + 7.0 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + + + Delphi.Personality + Package + + + False + True + False + + + False + False + False + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 3082 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + Comisiones_data.dpk + + + + + + + MainSource + + + + + + + + + + + + + +
DataModuleVendedores
+ TDAClientDataModule + + + + + + + + diff --git a/Source/Modulos/Comisiones/Data/Comisiones_data.res b/Source/Modulos/Comisiones/Data/Comisiones_data.res new file mode 100644 index 0000000..86c94e6 Binary files /dev/null and b/Source/Modulos/Comisiones/Data/Comisiones_data.res differ diff --git a/Source/Modulos/Comisiones/Data/uDataModuleComisiones.dfm b/Source/Modulos/Comisiones/Data/uDataModuleComisiones.dfm new file mode 100644 index 0000000..726bd89 --- /dev/null +++ b/Source/Modulos/Comisiones/Data/uDataModuleComisiones.dfm @@ -0,0 +1,174 @@ +inherited DataModuleComisiones: TDataModuleComisiones + OnCreate = DAClientDataModuleCreate + Height = 269 + Width = 387 + object RORemoteService: TRORemoteService + Message = dmConexion.ROMessage + Channel = dmConexion.ROChannel + ServiceName = 'srvComisiones' + Left = 48 + Top = 24 + end + object rda_Comisiones: TDARemoteDataAdapter + GetSchemaCall.RemoteService = RORemoteService + GetDataCall.RemoteService = RORemoteService + UpdateDataCall.RemoteService = RORemoteService + GetScriptsCall.RemoteService = RORemoteService + RemoteService = RORemoteService + DataStreamer = Bin2DataStreamer + Left = 51 + Top = 143 + end + object Bin2DataStreamer: TDABin2DataStreamer + Left = 48 + Top = 80 + end + object tbl_Comisiones: TDAMemDataTable + RemoteUpdatesOptions = [] + Fields = < + item + Name = 'ID' + DataType = datInteger + InPrimaryKey = True + end + item + Name = 'ID_EMPRESA' + DataType = datInteger + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + end + item + Name = 'ID_AGENTE' + DataType = datInteger + end + item + Name = 'DESCRIPCION' + DataType = datString + Size = 255 + end + item + Name = 'FECHA' + DataType = datDateTime + end + item + Name = 'IMPORTE_TOTAL' + DataType = datCurrency + end + item + Name = 'USUARIO' + DataType = datString + Size = 30 + end + item + Name = 'NOMBRE' + DataType = datString + Size = 255 + end> + Params = <> + StreamingOptions = [soDisableEventsWhileStreaming, soDisableFiltering] + RemoteDataAdapter = rda_Comisiones + LogicalName = 'Comisiones' + IndexDefs = <> + Left = 168 + Top = 192 + end + object ds_Comisiones: TDADataSource + DataSet = tbl_Comisiones.Dataset + DataTable = tbl_Comisiones + Left = 168 + Top = 136 + end + object tbl_FacturasComision: TDAMemDataTable + RemoteUpdatesOptions = [] + Fields = < + item + Name = 'ID' + DataType = datInteger + InPrimaryKey = True + end + item + Name = 'ID_EMPRESA' + DataType = datInteger + end + item + Name = 'FECHA_FACTURA' + DataType = datDateTime + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + end + item + Name = 'SITUACION' + DataType = datString + Size = 19 + end + item + Name = 'ID_COMISION_LIQUIDADA' + DataType = datInteger + end + item + Name = 'ID_CLIENTE' + DataType = datInteger + end + item + Name = 'ID_AGENTE' + DataType = datInteger + end + item + Name = 'BASE_IMPONIBLE' + DataType = datCurrency + end + item + Name = 'COMISION' + DataType = datCurrency + end + item + Name = 'IMPORTE_COMISION' + DataType = datCurrency + end> + Params = <> + MasterMappingMode = mmWhere + StreamingOptions = [soDisableEventsWhileStreaming, soDisableFiltering] + RemoteDataAdapter = rda_Comisiones + MasterSource = ds_Comisiones + MasterFields = 'ID' + DetailFields = 'ID_COMISION_LIQUIDADA' + LogicalName = 'FacturasComision' + IndexDefs = <> + Left = 264 + Top = 192 + end + object ds_FacturasComision: TDADataSource + DataSet = tbl_FacturasComision.Dataset + DataTable = tbl_FacturasComision + Left = 264 + Top = 136 + end + object tbl_ListaAnosComisiones: TDAMemDataTable + RemoteUpdatesOptions = [] + Fields = < + item + Name = 'ANO' + DataType = datString + Size = 254 + end> + Params = <> + StreamingOptions = [soDisableEventsWhileStreaming, soDisableFiltering] + RemoteDataAdapter = rda_Comisiones + LogicalName = 'ListaAnosComisiones' + IndexDefs = <> + Left = 168 + Top = 72 + end + object ds_ListaAnosComisiones: TDADataSource + DataSet = tbl_ListaAnosComisiones.Dataset + DataTable = tbl_ListaAnosComisiones + Left = 168 + Top = 16 + end +end diff --git a/Source/Modulos/Comisiones/Data/uDataModuleComisiones.pas b/Source/Modulos/Comisiones/Data/uDataModuleComisiones.pas new file mode 100644 index 0000000..2bd6f99 --- /dev/null +++ b/Source/Modulos/Comisiones/Data/uDataModuleComisiones.pas @@ -0,0 +1,165 @@ +unit uDataModuleComisiones; + +interface + +uses + SysUtils, Classes, DB, uDADataTable, uDABINAdapter, + uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes, + uRORemoteService, uROClient, uROBinMessage, + + uIDataModuleComisiones, uBizComisiones, //uIDataModuleComisionesReport, + uDADesigntimeCall, uDataModuleBase, + uDAInterfaces, uDAMemDataTable, uDADataStreamer, uDABin2DataStreamer, + uDARemoteDataAdapter, uIntegerListUtils, uDADataAdapter; + +type + TDataModuleComisiones = class(TDataModuleBase, IDataModuleComisiones) //, IDataModuleComisionesReport) + RORemoteService: TRORemoteService; + rda_Comisiones: TDARemoteDataAdapter; + Bin2DataStreamer: TDABin2DataStreamer; + tbl_Comisiones: TDAMemDataTable; + ds_Comisiones: TDADataSource; + tbl_FacturasComision: TDAMemDataTable; + ds_FacturasComision: TDADataSource; + tbl_ListaAnosComisiones: TDAMemDataTable; + ds_ListaAnosComisiones: TDADataSource; + procedure DAClientDataModuleCreate(Sender: TObject); + private + function _GetFacturasComision : IBizFacturasComision; + public + function GetAnosItems : TStringList; + function GetItems : IBizComision; + function GetItem(const ID : Integer) : IBizComision; + function NewItem : IBizComision; + + // Report +// function GetRptFacturas(const AListaID: TIntegerList; const AOriginal, ACopia, AContabilidad: Integer): Binary; + end; + +implementation + +{$R *.DFM} + +uses + FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, + schComisionesClient_Intf, uBizContactos, Dialogs; + +{ TdmComisiones } + +procedure TDataModuleComisiones.DAClientDataModuleCreate(Sender: TObject); +begin + RORemoteService.Channel := dmConexion.Channel; + RORemoteService.Message := dmConexion.Message; +end; + +{ +function TDataModuleComisiones.GetRptFacturas(const AListaID: TIntegerList; const AOriginal, ACopia, AContabilidad: Integer): Binary; +var + AParam : TIntegerArray; +begin + AParam := AListaID.ToIntegerArray; + try + Result := (RORemoteService as IsrvComisiones).GenerarInforme(AParam, AOriginal, ACopia, AContabilidad); + finally +// FreeANDNIL(AParam); + end; +end; +} + +function TDataModuleComisiones.NewItem: IBizComision; +begin + Result := GetItem(ID_NULO) +end; + +function TDataModuleComisiones._GetFacturasComision: IBizFacturasComision; +var + AFacturasComision : TDAMemDataTable; +begin + ShowHourglassCursor; + try + AFacturasComision := CloneDataTable(tbl_FacturasComision); + with AFacturasComision do + begin + BusinessRulesID := BIZ_CLIENT_FACTURASCOMISION; + DetailOptions := DetailOptions - [dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates]; + end; + Result := (AFacturasComision as IBizFacturasComision); + finally + HideHourglassCursor; + end; +end; + +function TDataModuleComisiones.GetItem(const ID: Integer): IBizComision; +var + Condicion: TDAWhereExpression; +begin + ShowHourglassCursor; + try + Result := Self.GetItems; + + with Result.DataTable.DynamicWhere do + begin + // (ID = :ID) + Condicion := NewBinaryExpression(NewField('', fld_ComisionesID), NewConstant(ID, datInteger), dboEqual); + + if IsEmpty then + Expression := Condicion + else + Expression := NewBinaryExpression(Expression, Condicion, dboAnd); + end; + + finally + HideHourglassCursor; + end; +end; + +function TDataModuleComisiones.GetAnosItems: TStringList; +var + AListaAnos: TStringList; +begin + AListaAnos := TStringList.Create; + ShowHourglassCursor; + try + with tbl_ListaAnosComisiones do + begin + Open; + First; + while not eof do + begin + AListaAnos.Add(Format('%s=%s', [Fields[0].AsString, Fields[0].AsString])); + Next; + end; + Close; + end; + Result := AListaAnos; + finally + HideHourglassCursor; + end; +end; + +function TDataModuleComisiones.GetItems: IBizComision; +var + AComision : TDAMemDataTable; +begin + ShowHourglassCursor; + try + AComision := CloneDataTable(tbl_Comisiones); + + // EL CAMPO REFERENCIA TIENE QUE SER AUTOREFRESH!!!!! + AComision.FieldByName(fld_ComisionesREFERENCIA).ServerAutoRefresh := TRUE; + + AComision.BusinessRulesID := BIZ_CLIENT_COMISIONES; + + with TBizComision(AComision.BusinessEventsObj) do + begin + FacturasComision := _GetFacturasComision; + end; + + Result := (AComision as IBizComision); + finally + HideHourglassCursor; + end; +end; + + +end. diff --git a/Source/Modulos/Comisiones/Model/Comisiones_model.dpk b/Source/Modulos/Comisiones/Model/Comisiones_model.dpk new file mode 100644 index 0000000..529a826 Binary files /dev/null and b/Source/Modulos/Comisiones/Model/Comisiones_model.dpk differ diff --git a/Source/Modulos/Comisiones/Model/Comisiones_model.dproj b/Source/Modulos/Comisiones/Model/Comisiones_model.dproj new file mode 100644 index 0000000..ba4cc97 --- /dev/null +++ b/Source/Modulos/Comisiones/Model/Comisiones_model.dproj @@ -0,0 +1,544 @@ + + + + {ed454295-ce74-4b0c-9303-cdc58434faae} + Comisiones_model.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\Comisiones_model.bpl + + + 7.0 + False + False + 0 + RELEASE + + + 7.0 + ..\..\..\..\Output\Debug\Cliente + .\ + .\ + .\ + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + + + Delphi.Personality + Package + +FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Comisiones_model.dpk + + + + + MainSource + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Source/Modulos/Comisiones/Model/Comisiones_model.res b/Source/Modulos/Comisiones/Model/Comisiones_model.res new file mode 100644 index 0000000..86c94e6 Binary files /dev/null and b/Source/Modulos/Comisiones/Model/Comisiones_model.res differ diff --git a/Source/Modulos/Comisiones/Model/Data/uIDataModuleComisiones.pas b/Source/Modulos/Comisiones/Model/Data/uIDataModuleComisiones.pas new file mode 100644 index 0000000..979404f --- /dev/null +++ b/Source/Modulos/Comisiones/Model/Data/uIDataModuleComisiones.pas @@ -0,0 +1,19 @@ +unit uIDataModuleComisiones; + +interface + +uses + SysUtils, Classes, uROTypes, uBizComisiones; + +type + IDataModuleComisiones = interface + ['{ECECAA67-E784-414F-80D1-83A14382F658}'] + function GetAnosItems : TStringList; + function GetItems: IBizComision; + function GetItem(const ID : Integer) : IBizComision; + function NewItem : IBizComision; + end; + +implementation + +end. diff --git a/Source/Modulos/Comisiones/Model/schComisionesClient_Intf.pas b/Source/Modulos/Comisiones/Model/schComisionesClient_Intf.pas new file mode 100644 index 0000000..f04b86a --- /dev/null +++ b/Source/Modulos/Comisiones/Model/schComisionesClient_Intf.pas @@ -0,0 +1,884 @@ +unit schComisionesClient_Intf; + +{$D-} +interface + +uses + Classes, DB, SysUtils, uROClasses, uDAInterfaces, 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_ListaAnosComisiones = '{36B55BAB-0D52-40C8-A4E5-3D76C5740A22}'; + RID_FacturasComision = '{2DF3EB7B-CEE1-4E31-9DC1-DC439FBC6B81}'; + RID_Comisiones = '{B3E36561-2AC0-4DCB-9EF2-74B111E3DD43}'; + + { Data table names } + nme_ListaAnosComisiones = 'ListaAnosComisiones'; + nme_FacturasComision = 'FacturasComision'; + nme_Comisiones = 'Comisiones'; + + { ListaAnosComisiones fields } + fld_ListaAnosComisionesANO = 'ANO'; + + { ListaAnosComisiones field indexes } + idx_ListaAnosComisionesANO = 0; + + { FacturasComision fields } + fld_FacturasComisionID = 'ID'; + fld_FacturasComisionID_EMPRESA = 'ID_EMPRESA'; + fld_FacturasComisionFECHA_FACTURA = 'FECHA_FACTURA'; + fld_FacturasComisionREFERENCIA = 'REFERENCIA'; + fld_FacturasComisionSITUACION = 'SITUACION'; + fld_FacturasComisionID_COMISION_LIQUIDADA = 'ID_COMISION_LIQUIDADA'; + fld_FacturasComisionID_CLIENTE = 'ID_CLIENTE'; + fld_FacturasComisionID_AGENTE = 'ID_AGENTE'; + fld_FacturasComisionBASE_IMPONIBLE = 'BASE_IMPONIBLE'; + fld_FacturasComisionCOMISION = 'COMISION'; + fld_FacturasComisionIMPORTE_COMISION = 'IMPORTE_COMISION'; + + { FacturasComision field indexes } + idx_FacturasComisionID = 0; + idx_FacturasComisionID_EMPRESA = 1; + idx_FacturasComisionFECHA_FACTURA = 2; + idx_FacturasComisionREFERENCIA = 3; + idx_FacturasComisionSITUACION = 4; + idx_FacturasComisionID_COMISION_LIQUIDADA = 5; + idx_FacturasComisionID_CLIENTE = 6; + idx_FacturasComisionID_AGENTE = 7; + idx_FacturasComisionBASE_IMPONIBLE = 8; + idx_FacturasComisionCOMISION = 9; + idx_FacturasComisionIMPORTE_COMISION = 10; + + { Comisiones fields } + fld_ComisionesID = 'ID'; + fld_ComisionesID_EMPRESA = 'ID_EMPRESA'; + fld_ComisionesREFERENCIA = 'REFERENCIA'; + fld_ComisionesID_AGENTE = 'ID_AGENTE'; + fld_ComisionesDESCRIPCION = 'DESCRIPCION'; + fld_ComisionesFECHA = 'FECHA'; + fld_ComisionesIMPORTE_TOTAL = 'IMPORTE_TOTAL'; + fld_ComisionesUSUARIO = 'USUARIO'; + fld_ComisionesNOMBRE = 'NOMBRE'; + + { Comisiones field indexes } + idx_ComisionesID = 0; + idx_ComisionesID_EMPRESA = 1; + idx_ComisionesREFERENCIA = 2; + idx_ComisionesID_AGENTE = 3; + idx_ComisionesDESCRIPCION = 4; + idx_ComisionesFECHA = 5; + idx_ComisionesIMPORTE_TOTAL = 6; + idx_ComisionesUSUARIO = 7; + idx_ComisionesNOMBRE = 8; + +type + { IListaAnosComisiones } + IListaAnosComisiones = interface(IDAStronglyTypedDataTable) + ['{A9B950E0-243A-4140-BCAE-792DCD6C7253}'] + { Property getters and setters } + function GetANOValue: String; + procedure SetANOValue(const aValue: String); + function GetANOIsNull: Boolean; + procedure SetANOIsNull(const aValue: Boolean); + + + { Properties } + property ANO: String read GetANOValue write SetANOValue; + property ANOIsNull: Boolean read GetANOIsNull write SetANOIsNull; + end; + + { TListaAnosComisionesDataTableRules } + TListaAnosComisionesDataTableRules = class(TDADataTableRules, IListaAnosComisiones) + private + protected + { Property getters and setters } + function GetANOValue: String; virtual; + procedure SetANOValue(const aValue: String); virtual; + function GetANOIsNull: Boolean; virtual; + procedure SetANOIsNull(const aValue: Boolean); virtual; + + { Properties } + property ANO: String read GetANOValue write SetANOValue; + property ANOIsNull: Boolean read GetANOIsNull write SetANOIsNull; + + public + constructor Create(aDataTable: TDADataTable); override; + destructor Destroy; override; + + end; + + { IFacturasComision } + IFacturasComision = interface(IDAStronglyTypedDataTable) + ['{B5C6086F-24B6-4F12-A909-551F57DDC893}'] + { Property getters and setters } + function GetIDValue: Integer; + procedure SetIDValue(const aValue: Integer); + function GetIDIsNull: Boolean; + procedure SetIDIsNull(const aValue: Boolean); + function GetID_EMPRESAValue: Integer; + procedure SetID_EMPRESAValue(const aValue: Integer); + function GetID_EMPRESAIsNull: Boolean; + procedure SetID_EMPRESAIsNull(const aValue: Boolean); + function GetFECHA_FACTURAValue: DateTime; + procedure SetFECHA_FACTURAValue(const aValue: DateTime); + function GetFECHA_FACTURAIsNull: Boolean; + procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); + function GetREFERENCIAValue: String; + procedure SetREFERENCIAValue(const aValue: String); + function GetREFERENCIAIsNull: Boolean; + procedure SetREFERENCIAIsNull(const aValue: Boolean); + function GetSITUACIONValue: String; + procedure SetSITUACIONValue(const aValue: String); + function GetSITUACIONIsNull: Boolean; + procedure SetSITUACIONIsNull(const aValue: Boolean); + function GetID_COMISION_LIQUIDADAValue: Integer; + procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer); + function GetID_COMISION_LIQUIDADAIsNull: Boolean; + procedure SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean); + function GetID_CLIENTEValue: Integer; + procedure SetID_CLIENTEValue(const aValue: Integer); + function GetID_CLIENTEIsNull: Boolean; + procedure SetID_CLIENTEIsNull(const aValue: Boolean); + function GetID_AGENTEValue: Integer; + procedure SetID_AGENTEValue(const aValue: Integer); + function GetID_AGENTEIsNull: Boolean; + procedure SetID_AGENTEIsNull(const aValue: Boolean); + function GetBASE_IMPONIBLEValue: Currency; + procedure SetBASE_IMPONIBLEValue(const aValue: Currency); + function GetBASE_IMPONIBLEIsNull: Boolean; + procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean); + function GetCOMISIONValue: Currency; + procedure SetCOMISIONValue(const aValue: Currency); + function GetCOMISIONIsNull: Boolean; + procedure SetCOMISIONIsNull(const aValue: Boolean); + function GetIMPORTE_COMISIONValue: Currency; + procedure SetIMPORTE_COMISIONValue(const aValue: Currency); + function GetIMPORTE_COMISIONIsNull: Boolean; + procedure SetIMPORTE_COMISIONIsNull(const aValue: Boolean); + + + { Properties } + property ID: Integer read GetIDValue write SetIDValue; + property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; + property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; + property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue; + property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull; + property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; + property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull; + property ID_COMISION_LIQUIDADA: Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue; + property ID_COMISION_LIQUIDADAIsNull: Boolean read GetID_COMISION_LIQUIDADAIsNull write SetID_COMISION_LIQUIDADAIsNull; + property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue; + property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; + property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue; + property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull; + property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue; + property BASE_IMPONIBLEIsNull: Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull; + property COMISION: Currency read GetCOMISIONValue write SetCOMISIONValue; + property COMISIONIsNull: Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull; + property IMPORTE_COMISION: Currency read GetIMPORTE_COMISIONValue write SetIMPORTE_COMISIONValue; + property IMPORTE_COMISIONIsNull: Boolean read GetIMPORTE_COMISIONIsNull write SetIMPORTE_COMISIONIsNull; + end; + + { TFacturasComisionDataTableRules } + TFacturasComisionDataTableRules = class(TDADataTableRules, IFacturasComision) + private + protected + { Property getters and setters } + function GetIDValue: Integer; virtual; + procedure SetIDValue(const aValue: Integer); virtual; + function GetIDIsNull: Boolean; virtual; + procedure SetIDIsNull(const aValue: Boolean); virtual; + function GetID_EMPRESAValue: Integer; virtual; + procedure SetID_EMPRESAValue(const aValue: Integer); virtual; + function GetID_EMPRESAIsNull: Boolean; virtual; + procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; + function GetFECHA_FACTURAValue: DateTime; virtual; + procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual; + function GetFECHA_FACTURAIsNull: Boolean; virtual; + procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); virtual; + function GetREFERENCIAValue: String; virtual; + procedure SetREFERENCIAValue(const aValue: String); virtual; + function GetREFERENCIAIsNull: Boolean; virtual; + procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; + function GetSITUACIONValue: String; virtual; + procedure SetSITUACIONValue(const aValue: String); virtual; + function GetSITUACIONIsNull: Boolean; virtual; + procedure SetSITUACIONIsNull(const aValue: Boolean); virtual; + function GetID_COMISION_LIQUIDADAValue: Integer; virtual; + procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer); virtual; + function GetID_COMISION_LIQUIDADAIsNull: Boolean; virtual; + procedure SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean); virtual; + function GetID_CLIENTEValue: Integer; virtual; + procedure SetID_CLIENTEValue(const aValue: Integer); virtual; + function GetID_CLIENTEIsNull: Boolean; virtual; + procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual; + function GetID_AGENTEValue: Integer; virtual; + procedure SetID_AGENTEValue(const aValue: Integer); virtual; + function GetID_AGENTEIsNull: Boolean; virtual; + procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual; + function GetBASE_IMPONIBLEValue: Currency; virtual; + procedure SetBASE_IMPONIBLEValue(const aValue: Currency); virtual; + function GetBASE_IMPONIBLEIsNull: Boolean; virtual; + procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean); virtual; + function GetCOMISIONValue: Currency; virtual; + procedure SetCOMISIONValue(const aValue: Currency); virtual; + function GetCOMISIONIsNull: Boolean; virtual; + procedure SetCOMISIONIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_COMISIONValue: Currency; virtual; + procedure SetIMPORTE_COMISIONValue(const aValue: Currency); virtual; + function GetIMPORTE_COMISIONIsNull: Boolean; virtual; + procedure SetIMPORTE_COMISIONIsNull(const aValue: Boolean); virtual; + + { Properties } + property ID: Integer read GetIDValue write SetIDValue; + property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; + property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; + property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue; + property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull; + property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property SITUACION: String read GetSITUACIONValue write SetSITUACIONValue; + property SITUACIONIsNull: Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull; + property ID_COMISION_LIQUIDADA: Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue; + property ID_COMISION_LIQUIDADAIsNull: Boolean read GetID_COMISION_LIQUIDADAIsNull write SetID_COMISION_LIQUIDADAIsNull; + property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue; + property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; + property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue; + property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull; + property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue; + property BASE_IMPONIBLEIsNull: Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull; + property COMISION: Currency read GetCOMISIONValue write SetCOMISIONValue; + property COMISIONIsNull: Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull; + property IMPORTE_COMISION: Currency read GetIMPORTE_COMISIONValue write SetIMPORTE_COMISIONValue; + property IMPORTE_COMISIONIsNull: Boolean read GetIMPORTE_COMISIONIsNull write SetIMPORTE_COMISIONIsNull; + + public + constructor Create(aDataTable: TDADataTable); override; + destructor Destroy; override; + + end; + + { IComisiones } + IComisiones = interface(IDAStronglyTypedDataTable) + ['{E1D40C9F-BB33-4236-B551-232CCD3EBD9E}'] + { Property getters and setters } + function GetIDValue: Integer; + procedure SetIDValue(const aValue: Integer); + function GetIDIsNull: Boolean; + procedure SetIDIsNull(const aValue: Boolean); + function GetID_EMPRESAValue: Integer; + procedure SetID_EMPRESAValue(const aValue: Integer); + function GetID_EMPRESAIsNull: Boolean; + procedure SetID_EMPRESAIsNull(const aValue: Boolean); + function GetREFERENCIAValue: String; + procedure SetREFERENCIAValue(const aValue: String); + function GetREFERENCIAIsNull: Boolean; + procedure SetREFERENCIAIsNull(const aValue: Boolean); + function GetID_AGENTEValue: Integer; + procedure SetID_AGENTEValue(const aValue: Integer); + function GetID_AGENTEIsNull: Boolean; + procedure SetID_AGENTEIsNull(const aValue: Boolean); + function GetDESCRIPCIONValue: String; + procedure SetDESCRIPCIONValue(const aValue: String); + function GetDESCRIPCIONIsNull: Boolean; + procedure SetDESCRIPCIONIsNull(const aValue: Boolean); + function GetFECHAValue: DateTime; + procedure SetFECHAValue(const aValue: DateTime); + function GetFECHAIsNull: Boolean; + procedure SetFECHAIsNull(const aValue: Boolean); + function GetIMPORTE_TOTALValue: Currency; + procedure SetIMPORTE_TOTALValue(const aValue: Currency); + function GetIMPORTE_TOTALIsNull: Boolean; + procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); + function GetUSUARIOValue: String; + procedure SetUSUARIOValue(const aValue: String); + function GetUSUARIOIsNull: Boolean; + procedure SetUSUARIOIsNull(const aValue: Boolean); + function GetNOMBREValue: String; + procedure SetNOMBREValue(const aValue: String); + function GetNOMBREIsNull: Boolean; + procedure SetNOMBREIsNull(const aValue: Boolean); + + + { Properties } + property ID: Integer read GetIDValue write SetIDValue; + property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; + property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; + property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue; + property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull; + property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; + property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; + property FECHA: DateTime read GetFECHAValue write SetFECHAValue; + property FECHAIsNull: Boolean read GetFECHAIsNull write SetFECHAIsNull; + property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; + property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; + property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; + property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; + property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; + property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; + end; + + { TComisionesDataTableRules } + TComisionesDataTableRules = class(TDADataTableRules, IComisiones) + private + protected + { Property getters and setters } + function GetIDValue: Integer; virtual; + procedure SetIDValue(const aValue: Integer); virtual; + function GetIDIsNull: Boolean; virtual; + procedure SetIDIsNull(const aValue: Boolean); virtual; + function GetID_EMPRESAValue: Integer; virtual; + procedure SetID_EMPRESAValue(const aValue: Integer); virtual; + function GetID_EMPRESAIsNull: Boolean; virtual; + procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; + function GetREFERENCIAValue: String; virtual; + procedure SetREFERENCIAValue(const aValue: String); virtual; + function GetREFERENCIAIsNull: Boolean; virtual; + procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; + function GetID_AGENTEValue: Integer; virtual; + procedure SetID_AGENTEValue(const aValue: Integer); virtual; + function GetID_AGENTEIsNull: Boolean; virtual; + procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual; + function GetDESCRIPCIONValue: String; virtual; + procedure SetDESCRIPCIONValue(const aValue: String); virtual; + function GetDESCRIPCIONIsNull: Boolean; virtual; + procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual; + function GetFECHAValue: DateTime; virtual; + procedure SetFECHAValue(const aValue: DateTime); virtual; + function GetFECHAIsNull: Boolean; virtual; + procedure SetFECHAIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_TOTALValue: Currency; virtual; + procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; + function GetIMPORTE_TOTALIsNull: Boolean; virtual; + procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; + function GetUSUARIOValue: String; virtual; + procedure SetUSUARIOValue(const aValue: String); virtual; + function GetUSUARIOIsNull: Boolean; virtual; + procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; + function GetNOMBREValue: String; virtual; + procedure SetNOMBREValue(const aValue: String); virtual; + function GetNOMBREIsNull: Boolean; virtual; + procedure SetNOMBREIsNull(const aValue: Boolean); virtual; + + { Properties } + property ID: Integer read GetIDValue write SetIDValue; + property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; + property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; + property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue; + property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull; + property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; + property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; + property FECHA: DateTime read GetFECHAValue write SetFECHAValue; + property FECHAIsNull: Boolean read GetFECHAIsNull write SetFECHAIsNull; + property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; + property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; + property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; + property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; + property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; + property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; + + public + constructor Create(aDataTable: TDADataTable); override; + destructor Destroy; override; + + end; + +implementation + +uses Variants, uROBinaryHelpers; + +{ TListaAnosComisionesDataTableRules } +constructor TListaAnosComisionesDataTableRules.Create(aDataTable: TDADataTable); +begin + inherited; +end; + +destructor TListaAnosComisionesDataTableRules.Destroy; +begin + inherited; +end; + +function TListaAnosComisionesDataTableRules.GetANOValue: String; +begin + result := DataTable.Fields[idx_ListaAnosComisionesANO].AsString; +end; + +procedure TListaAnosComisionesDataTableRules.SetANOValue(const aValue: String); +begin + DataTable.Fields[idx_ListaAnosComisionesANO].AsString := aValue; +end; + +function TListaAnosComisionesDataTableRules.GetANOIsNull: boolean; +begin + result := DataTable.Fields[idx_ListaAnosComisionesANO].IsNull; +end; + +procedure TListaAnosComisionesDataTableRules.SetANOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ListaAnosComisionesANO].AsVariant := Null; +end; + + +{ TFacturasComisionDataTableRules } +constructor TFacturasComisionDataTableRules.Create(aDataTable: TDADataTable); +begin + inherited; +end; + +destructor TFacturasComisionDataTableRules.Destroy; +begin + inherited; +end; + +function TFacturasComisionDataTableRules.GetIDValue: Integer; +begin + result := DataTable.Fields[idx_FacturasComisionID].AsInteger; +end; + +procedure TFacturasComisionDataTableRules.SetIDValue(const aValue: Integer); +begin + DataTable.Fields[idx_FacturasComisionID].AsInteger := aValue; +end; + +function TFacturasComisionDataTableRules.GetIDIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasComisionID].IsNull; +end; + +procedure TFacturasComisionDataTableRules.SetIDIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasComisionID].AsVariant := Null; +end; + +function TFacturasComisionDataTableRules.GetID_EMPRESAValue: Integer; +begin + result := DataTable.Fields[idx_FacturasComisionID_EMPRESA].AsInteger; +end; + +procedure TFacturasComisionDataTableRules.SetID_EMPRESAValue(const aValue: Integer); +begin + DataTable.Fields[idx_FacturasComisionID_EMPRESA].AsInteger := aValue; +end; + +function TFacturasComisionDataTableRules.GetID_EMPRESAIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasComisionID_EMPRESA].IsNull; +end; + +procedure TFacturasComisionDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasComisionID_EMPRESA].AsVariant := Null; +end; + +function TFacturasComisionDataTableRules.GetFECHA_FACTURAValue: DateTime; +begin + result := DataTable.Fields[idx_FacturasComisionFECHA_FACTURA].AsDateTime; +end; + +procedure TFacturasComisionDataTableRules.SetFECHA_FACTURAValue(const aValue: DateTime); +begin + DataTable.Fields[idx_FacturasComisionFECHA_FACTURA].AsDateTime := aValue; +end; + +function TFacturasComisionDataTableRules.GetFECHA_FACTURAIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasComisionFECHA_FACTURA].IsNull; +end; + +procedure TFacturasComisionDataTableRules.SetFECHA_FACTURAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasComisionFECHA_FACTURA].AsVariant := Null; +end; + +function TFacturasComisionDataTableRules.GetREFERENCIAValue: String; +begin + result := DataTable.Fields[idx_FacturasComisionREFERENCIA].AsString; +end; + +procedure TFacturasComisionDataTableRules.SetREFERENCIAValue(const aValue: String); +begin + DataTable.Fields[idx_FacturasComisionREFERENCIA].AsString := aValue; +end; + +function TFacturasComisionDataTableRules.GetREFERENCIAIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasComisionREFERENCIA].IsNull; +end; + +procedure TFacturasComisionDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasComisionREFERENCIA].AsVariant := Null; +end; + +function TFacturasComisionDataTableRules.GetSITUACIONValue: String; +begin + result := DataTable.Fields[idx_FacturasComisionSITUACION].AsString; +end; + +procedure TFacturasComisionDataTableRules.SetSITUACIONValue(const aValue: String); +begin + DataTable.Fields[idx_FacturasComisionSITUACION].AsString := aValue; +end; + +function TFacturasComisionDataTableRules.GetSITUACIONIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasComisionSITUACION].IsNull; +end; + +procedure TFacturasComisionDataTableRules.SetSITUACIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasComisionSITUACION].AsVariant := Null; +end; + +function TFacturasComisionDataTableRules.GetID_COMISION_LIQUIDADAValue: Integer; +begin + result := DataTable.Fields[idx_FacturasComisionID_COMISION_LIQUIDADA].AsInteger; +end; + +procedure TFacturasComisionDataTableRules.SetID_COMISION_LIQUIDADAValue(const aValue: Integer); +begin + DataTable.Fields[idx_FacturasComisionID_COMISION_LIQUIDADA].AsInteger := aValue; +end; + +function TFacturasComisionDataTableRules.GetID_COMISION_LIQUIDADAIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasComisionID_COMISION_LIQUIDADA].IsNull; +end; + +procedure TFacturasComisionDataTableRules.SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasComisionID_COMISION_LIQUIDADA].AsVariant := Null; +end; + +function TFacturasComisionDataTableRules.GetID_CLIENTEValue: Integer; +begin + result := DataTable.Fields[idx_FacturasComisionID_CLIENTE].AsInteger; +end; + +procedure TFacturasComisionDataTableRules.SetID_CLIENTEValue(const aValue: Integer); +begin + DataTable.Fields[idx_FacturasComisionID_CLIENTE].AsInteger := aValue; +end; + +function TFacturasComisionDataTableRules.GetID_CLIENTEIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasComisionID_CLIENTE].IsNull; +end; + +procedure TFacturasComisionDataTableRules.SetID_CLIENTEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasComisionID_CLIENTE].AsVariant := Null; +end; + +function TFacturasComisionDataTableRules.GetID_AGENTEValue: Integer; +begin + result := DataTable.Fields[idx_FacturasComisionID_AGENTE].AsInteger; +end; + +procedure TFacturasComisionDataTableRules.SetID_AGENTEValue(const aValue: Integer); +begin + DataTable.Fields[idx_FacturasComisionID_AGENTE].AsInteger := aValue; +end; + +function TFacturasComisionDataTableRules.GetID_AGENTEIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasComisionID_AGENTE].IsNull; +end; + +procedure TFacturasComisionDataTableRules.SetID_AGENTEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasComisionID_AGENTE].AsVariant := Null; +end; + +function TFacturasComisionDataTableRules.GetBASE_IMPONIBLEValue: Currency; +begin + result := DataTable.Fields[idx_FacturasComisionBASE_IMPONIBLE].AsCurrency; +end; + +procedure TFacturasComisionDataTableRules.SetBASE_IMPONIBLEValue(const aValue: Currency); +begin + DataTable.Fields[idx_FacturasComisionBASE_IMPONIBLE].AsCurrency := aValue; +end; + +function TFacturasComisionDataTableRules.GetBASE_IMPONIBLEIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasComisionBASE_IMPONIBLE].IsNull; +end; + +procedure TFacturasComisionDataTableRules.SetBASE_IMPONIBLEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasComisionBASE_IMPONIBLE].AsVariant := Null; +end; + +function TFacturasComisionDataTableRules.GetCOMISIONValue: Currency; +begin + result := DataTable.Fields[idx_FacturasComisionCOMISION].AsCurrency; +end; + +procedure TFacturasComisionDataTableRules.SetCOMISIONValue(const aValue: Currency); +begin + DataTable.Fields[idx_FacturasComisionCOMISION].AsCurrency := aValue; +end; + +function TFacturasComisionDataTableRules.GetCOMISIONIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasComisionCOMISION].IsNull; +end; + +procedure TFacturasComisionDataTableRules.SetCOMISIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasComisionCOMISION].AsVariant := Null; +end; + +function TFacturasComisionDataTableRules.GetIMPORTE_COMISIONValue: Currency; +begin + result := DataTable.Fields[idx_FacturasComisionIMPORTE_COMISION].AsCurrency; +end; + +procedure TFacturasComisionDataTableRules.SetIMPORTE_COMISIONValue(const aValue: Currency); +begin + DataTable.Fields[idx_FacturasComisionIMPORTE_COMISION].AsCurrency := aValue; +end; + +function TFacturasComisionDataTableRules.GetIMPORTE_COMISIONIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasComisionIMPORTE_COMISION].IsNull; +end; + +procedure TFacturasComisionDataTableRules.SetIMPORTE_COMISIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasComisionIMPORTE_COMISION].AsVariant := Null; +end; + + +{ TComisionesDataTableRules } +constructor TComisionesDataTableRules.Create(aDataTable: TDADataTable); +begin + inherited; +end; + +destructor TComisionesDataTableRules.Destroy; +begin + inherited; +end; + +function TComisionesDataTableRules.GetIDValue: Integer; +begin + result := DataTable.Fields[idx_ComisionesID].AsInteger; +end; + +procedure TComisionesDataTableRules.SetIDValue(const aValue: Integer); +begin + DataTable.Fields[idx_ComisionesID].AsInteger := aValue; +end; + +function TComisionesDataTableRules.GetIDIsNull: boolean; +begin + result := DataTable.Fields[idx_ComisionesID].IsNull; +end; + +procedure TComisionesDataTableRules.SetIDIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ComisionesID].AsVariant := Null; +end; + +function TComisionesDataTableRules.GetID_EMPRESAValue: Integer; +begin + result := DataTable.Fields[idx_ComisionesID_EMPRESA].AsInteger; +end; + +procedure TComisionesDataTableRules.SetID_EMPRESAValue(const aValue: Integer); +begin + DataTable.Fields[idx_ComisionesID_EMPRESA].AsInteger := aValue; +end; + +function TComisionesDataTableRules.GetID_EMPRESAIsNull: boolean; +begin + result := DataTable.Fields[idx_ComisionesID_EMPRESA].IsNull; +end; + +procedure TComisionesDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ComisionesID_EMPRESA].AsVariant := Null; +end; + +function TComisionesDataTableRules.GetREFERENCIAValue: String; +begin + result := DataTable.Fields[idx_ComisionesREFERENCIA].AsString; +end; + +procedure TComisionesDataTableRules.SetREFERENCIAValue(const aValue: String); +begin + DataTable.Fields[idx_ComisionesREFERENCIA].AsString := aValue; +end; + +function TComisionesDataTableRules.GetREFERENCIAIsNull: boolean; +begin + result := DataTable.Fields[idx_ComisionesREFERENCIA].IsNull; +end; + +procedure TComisionesDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ComisionesREFERENCIA].AsVariant := Null; +end; + +function TComisionesDataTableRules.GetID_AGENTEValue: Integer; +begin + result := DataTable.Fields[idx_ComisionesID_AGENTE].AsInteger; +end; + +procedure TComisionesDataTableRules.SetID_AGENTEValue(const aValue: Integer); +begin + DataTable.Fields[idx_ComisionesID_AGENTE].AsInteger := aValue; +end; + +function TComisionesDataTableRules.GetID_AGENTEIsNull: boolean; +begin + result := DataTable.Fields[idx_ComisionesID_AGENTE].IsNull; +end; + +procedure TComisionesDataTableRules.SetID_AGENTEIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ComisionesID_AGENTE].AsVariant := Null; +end; + +function TComisionesDataTableRules.GetDESCRIPCIONValue: String; +begin + result := DataTable.Fields[idx_ComisionesDESCRIPCION].AsString; +end; + +procedure TComisionesDataTableRules.SetDESCRIPCIONValue(const aValue: String); +begin + DataTable.Fields[idx_ComisionesDESCRIPCION].AsString := aValue; +end; + +function TComisionesDataTableRules.GetDESCRIPCIONIsNull: boolean; +begin + result := DataTable.Fields[idx_ComisionesDESCRIPCION].IsNull; +end; + +procedure TComisionesDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ComisionesDESCRIPCION].AsVariant := Null; +end; + +function TComisionesDataTableRules.GetFECHAValue: DateTime; +begin + result := DataTable.Fields[idx_ComisionesFECHA].AsDateTime; +end; + +procedure TComisionesDataTableRules.SetFECHAValue(const aValue: DateTime); +begin + DataTable.Fields[idx_ComisionesFECHA].AsDateTime := aValue; +end; + +function TComisionesDataTableRules.GetFECHAIsNull: boolean; +begin + result := DataTable.Fields[idx_ComisionesFECHA].IsNull; +end; + +procedure TComisionesDataTableRules.SetFECHAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ComisionesFECHA].AsVariant := Null; +end; + +function TComisionesDataTableRules.GetIMPORTE_TOTALValue: Currency; +begin + result := DataTable.Fields[idx_ComisionesIMPORTE_TOTAL].AsCurrency; +end; + +procedure TComisionesDataTableRules.SetIMPORTE_TOTALValue(const aValue: Currency); +begin + DataTable.Fields[idx_ComisionesIMPORTE_TOTAL].AsCurrency := aValue; +end; + +function TComisionesDataTableRules.GetIMPORTE_TOTALIsNull: boolean; +begin + result := DataTable.Fields[idx_ComisionesIMPORTE_TOTAL].IsNull; +end; + +procedure TComisionesDataTableRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ComisionesIMPORTE_TOTAL].AsVariant := Null; +end; + +function TComisionesDataTableRules.GetUSUARIOValue: String; +begin + result := DataTable.Fields[idx_ComisionesUSUARIO].AsString; +end; + +procedure TComisionesDataTableRules.SetUSUARIOValue(const aValue: String); +begin + DataTable.Fields[idx_ComisionesUSUARIO].AsString := aValue; +end; + +function TComisionesDataTableRules.GetUSUARIOIsNull: boolean; +begin + result := DataTable.Fields[idx_ComisionesUSUARIO].IsNull; +end; + +procedure TComisionesDataTableRules.SetUSUARIOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ComisionesUSUARIO].AsVariant := Null; +end; + +function TComisionesDataTableRules.GetNOMBREValue: String; +begin + result := DataTable.Fields[idx_ComisionesNOMBRE].AsString; +end; + +procedure TComisionesDataTableRules.SetNOMBREValue(const aValue: String); +begin + DataTable.Fields[idx_ComisionesNOMBRE].AsString := aValue; +end; + +function TComisionesDataTableRules.GetNOMBREIsNull: boolean; +begin + result := DataTable.Fields[idx_ComisionesNOMBRE].IsNull; +end; + +procedure TComisionesDataTableRules.SetNOMBREIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ComisionesNOMBRE].AsVariant := Null; +end; + + +initialization + RegisterDataTableRules(RID_ListaAnosComisiones, TListaAnosComisionesDataTableRules); + RegisterDataTableRules(RID_FacturasComision, TFacturasComisionDataTableRules); + RegisterDataTableRules(RID_Comisiones, TComisionesDataTableRules); + +end. diff --git a/Source/Modulos/Comisiones/Model/schComisionesServer_Intf.pas b/Source/Modulos/Comisiones/Model/schComisionesServer_Intf.pas new file mode 100644 index 0000000..be7645c --- /dev/null +++ b/Source/Modulos/Comisiones/Model/schComisionesServer_Intf.pas @@ -0,0 +1,1117 @@ +unit schComisionesServer_Intf; + +{$D-} +interface + +uses + Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schComisionesClient_Intf; + +const + { Delta rules ids + Feel free to change them to something more human readable + but make sure they are unique in the context of your application } + RID_ListaAnosComisionesDelta = '{CE13EF26-8BE9-4AE5-B359-29664CBAD961}'; + RID_FacturasComisionDelta = '{DB808A33-1CFD-48C0-AA7F-2939B4282080}'; + RID_ComisionesDelta = '{4CFC6E2C-3E40-472D-B31B-C722026DAFB7}'; + +type + { IListaAnosComisionesDelta } + IListaAnosComisionesDelta = interface(IListaAnosComisiones) + ['{CE13EF26-8BE9-4AE5-B359-29664CBAD961}'] + { Property getters and setters } + function GetOldANOValue : String; + + { Properties } + property OldANO : String read GetOldANOValue; + end; + + { TListaAnosComisionesBusinessProcessorRules } + TListaAnosComisionesBusinessProcessorRules = class(TDABusinessProcessorRules, IListaAnosComisiones, IListaAnosComisionesDelta) + private + protected + { Property getters and setters } + function GetANOValue: String; virtual; + function GetANOIsNull: Boolean; virtual; + function GetOldANOValue: String; virtual; + function GetOldANOIsNull: Boolean; virtual; + procedure SetANOValue(const aValue: String); virtual; + procedure SetANOIsNull(const aValue: Boolean); virtual; + + { Properties } + property ANO : String read GetANOValue write SetANOValue; + property ANOIsNull : Boolean read GetANOIsNull write SetANOIsNull; + property OldANO : String read GetOldANOValue; + property OldANOIsNull : Boolean read GetOldANOIsNull; + + public + constructor Create(aBusinessProcessor: TDABusinessProcessor); override; + destructor Destroy; override; + + end; + + { IFacturasComisionDelta } + IFacturasComisionDelta = interface(IFacturasComision) + ['{DB808A33-1CFD-48C0-AA7F-2939B4282080}'] + { Property getters and setters } + function GetOldIDValue : Integer; + function GetOldID_EMPRESAValue : Integer; + function GetOldFECHA_FACTURAValue : DateTime; + function GetOldREFERENCIAValue : String; + function GetOldSITUACIONValue : String; + function GetOldID_COMISION_LIQUIDADAValue : Integer; + function GetOldID_CLIENTEValue : Integer; + function GetOldID_AGENTEValue : Integer; + function GetOldBASE_IMPONIBLEValue : Currency; + function GetOldCOMISIONValue : Currency; + function GetOldIMPORTE_COMISIONValue : Currency; + + { Properties } + property OldID : Integer read GetOldIDValue; + property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; + property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue; + property OldREFERENCIA : String read GetOldREFERENCIAValue; + property OldSITUACION : String read GetOldSITUACIONValue; + property OldID_COMISION_LIQUIDADA : Integer read GetOldID_COMISION_LIQUIDADAValue; + property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue; + property OldID_AGENTE : Integer read GetOldID_AGENTEValue; + property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue; + property OldCOMISION : Currency read GetOldCOMISIONValue; + property OldIMPORTE_COMISION : Currency read GetOldIMPORTE_COMISIONValue; + end; + + { TFacturasComisionBusinessProcessorRules } + TFacturasComisionBusinessProcessorRules = class(TDABusinessProcessorRules, IFacturasComision, IFacturasComisionDelta) + private + protected + { Property getters and setters } + function GetIDValue: Integer; virtual; + function GetIDIsNull: Boolean; virtual; + function GetOldIDValue: Integer; virtual; + function GetOldIDIsNull: Boolean; virtual; + procedure SetIDValue(const aValue: Integer); virtual; + procedure SetIDIsNull(const aValue: Boolean); virtual; + function GetID_EMPRESAValue: Integer; virtual; + function GetID_EMPRESAIsNull: Boolean; virtual; + function GetOldID_EMPRESAValue: Integer; virtual; + function GetOldID_EMPRESAIsNull: Boolean; virtual; + procedure SetID_EMPRESAValue(const aValue: Integer); virtual; + procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; + function GetFECHA_FACTURAValue: DateTime; virtual; + function GetFECHA_FACTURAIsNull: Boolean; virtual; + function GetOldFECHA_FACTURAValue: DateTime; virtual; + function GetOldFECHA_FACTURAIsNull: Boolean; virtual; + procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual; + procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); virtual; + function GetREFERENCIAValue: String; virtual; + function GetREFERENCIAIsNull: Boolean; virtual; + function GetOldREFERENCIAValue: String; virtual; + function GetOldREFERENCIAIsNull: Boolean; virtual; + procedure SetREFERENCIAValue(const aValue: String); virtual; + procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; + function GetSITUACIONValue: String; virtual; + function GetSITUACIONIsNull: Boolean; virtual; + function GetOldSITUACIONValue: String; virtual; + function GetOldSITUACIONIsNull: Boolean; virtual; + procedure SetSITUACIONValue(const aValue: String); virtual; + procedure SetSITUACIONIsNull(const aValue: Boolean); virtual; + function GetID_COMISION_LIQUIDADAValue: Integer; virtual; + function GetID_COMISION_LIQUIDADAIsNull: Boolean; virtual; + function GetOldID_COMISION_LIQUIDADAValue: Integer; virtual; + function GetOldID_COMISION_LIQUIDADAIsNull: Boolean; virtual; + procedure SetID_COMISION_LIQUIDADAValue(const aValue: Integer); virtual; + procedure SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean); virtual; + function GetID_CLIENTEValue: Integer; virtual; + function GetID_CLIENTEIsNull: Boolean; virtual; + function GetOldID_CLIENTEValue: Integer; virtual; + function GetOldID_CLIENTEIsNull: Boolean; virtual; + procedure SetID_CLIENTEValue(const aValue: Integer); virtual; + procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual; + function GetID_AGENTEValue: Integer; virtual; + function GetID_AGENTEIsNull: Boolean; virtual; + function GetOldID_AGENTEValue: Integer; virtual; + function GetOldID_AGENTEIsNull: Boolean; virtual; + procedure SetID_AGENTEValue(const aValue: Integer); virtual; + procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual; + function GetBASE_IMPONIBLEValue: Currency; virtual; + function GetBASE_IMPONIBLEIsNull: Boolean; virtual; + function GetOldBASE_IMPONIBLEValue: Currency; virtual; + function GetOldBASE_IMPONIBLEIsNull: Boolean; virtual; + procedure SetBASE_IMPONIBLEValue(const aValue: Currency); virtual; + procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean); virtual; + function GetCOMISIONValue: Currency; virtual; + function GetCOMISIONIsNull: Boolean; virtual; + function GetOldCOMISIONValue: Currency; virtual; + function GetOldCOMISIONIsNull: Boolean; virtual; + procedure SetCOMISIONValue(const aValue: Currency); virtual; + procedure SetCOMISIONIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_COMISIONValue: Currency; virtual; + function GetIMPORTE_COMISIONIsNull: Boolean; virtual; + function GetOldIMPORTE_COMISIONValue: Currency; virtual; + function GetOldIMPORTE_COMISIONIsNull: Boolean; virtual; + procedure SetIMPORTE_COMISIONValue(const aValue: Currency); virtual; + procedure SetIMPORTE_COMISIONIsNull(const aValue: Boolean); virtual; + + { Properties } + property ID : Integer read GetIDValue write SetIDValue; + property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; + property OldID : Integer read GetOldIDValue; + property OldIDIsNull : Boolean read GetOldIDIsNull; + property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; + property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; + property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull; + property FECHA_FACTURA : DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue; + property FECHA_FACTURAIsNull : Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull; + property OldFECHA_FACTURA : DateTime read GetOldFECHA_FACTURAValue; + property OldFECHA_FACTURAIsNull : Boolean read GetOldFECHA_FACTURAIsNull; + property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property OldREFERENCIA : String read GetOldREFERENCIAValue; + property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull; + property SITUACION : String read GetSITUACIONValue write SetSITUACIONValue; + property SITUACIONIsNull : Boolean read GetSITUACIONIsNull write SetSITUACIONIsNull; + property OldSITUACION : String read GetOldSITUACIONValue; + property OldSITUACIONIsNull : Boolean read GetOldSITUACIONIsNull; + property ID_COMISION_LIQUIDADA : Integer read GetID_COMISION_LIQUIDADAValue write SetID_COMISION_LIQUIDADAValue; + property ID_COMISION_LIQUIDADAIsNull : Boolean read GetID_COMISION_LIQUIDADAIsNull write SetID_COMISION_LIQUIDADAIsNull; + property OldID_COMISION_LIQUIDADA : Integer read GetOldID_COMISION_LIQUIDADAValue; + property OldID_COMISION_LIQUIDADAIsNull : Boolean read GetOldID_COMISION_LIQUIDADAIsNull; + property ID_CLIENTE : Integer read GetID_CLIENTEValue write SetID_CLIENTEValue; + property ID_CLIENTEIsNull : Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; + property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue; + property OldID_CLIENTEIsNull : Boolean read GetOldID_CLIENTEIsNull; + property ID_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue; + property ID_AGENTEIsNull : Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull; + property OldID_AGENTE : Integer read GetOldID_AGENTEValue; + property OldID_AGENTEIsNull : Boolean read GetOldID_AGENTEIsNull; + property BASE_IMPONIBLE : Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue; + property BASE_IMPONIBLEIsNull : Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull; + property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue; + property OldBASE_IMPONIBLEIsNull : Boolean read GetOldBASE_IMPONIBLEIsNull; + property COMISION : Currency read GetCOMISIONValue write SetCOMISIONValue; + property COMISIONIsNull : Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull; + property OldCOMISION : Currency read GetOldCOMISIONValue; + property OldCOMISIONIsNull : Boolean read GetOldCOMISIONIsNull; + property IMPORTE_COMISION : Currency read GetIMPORTE_COMISIONValue write SetIMPORTE_COMISIONValue; + property IMPORTE_COMISIONIsNull : Boolean read GetIMPORTE_COMISIONIsNull write SetIMPORTE_COMISIONIsNull; + property OldIMPORTE_COMISION : Currency read GetOldIMPORTE_COMISIONValue; + property OldIMPORTE_COMISIONIsNull : Boolean read GetOldIMPORTE_COMISIONIsNull; + + public + constructor Create(aBusinessProcessor: TDABusinessProcessor); override; + destructor Destroy; override; + + end; + + { IComisionesDelta } + IComisionesDelta = interface(IComisiones) + ['{4CFC6E2C-3E40-472D-B31B-C722026DAFB7}'] + { Property getters and setters } + function GetOldIDValue : Integer; + function GetOldID_EMPRESAValue : Integer; + function GetOldREFERENCIAValue : String; + function GetOldID_AGENTEValue : Integer; + function GetOldDESCRIPCIONValue : String; + function GetOldFECHAValue : DateTime; + function GetOldIMPORTE_TOTALValue : Currency; + function GetOldUSUARIOValue : String; + function GetOldNOMBREValue : String; + + { Properties } + property OldID : Integer read GetOldIDValue; + property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; + property OldREFERENCIA : String read GetOldREFERENCIAValue; + property OldID_AGENTE : Integer read GetOldID_AGENTEValue; + property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; + property OldFECHA : DateTime read GetOldFECHAValue; + property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; + property OldUSUARIO : String read GetOldUSUARIOValue; + property OldNOMBRE : String read GetOldNOMBREValue; + end; + + { TComisionesBusinessProcessorRules } + TComisionesBusinessProcessorRules = class(TDABusinessProcessorRules, IComisiones, IComisionesDelta) + private + protected + { Property getters and setters } + function GetIDValue: Integer; virtual; + function GetIDIsNull: Boolean; virtual; + function GetOldIDValue: Integer; virtual; + function GetOldIDIsNull: Boolean; virtual; + procedure SetIDValue(const aValue: Integer); virtual; + procedure SetIDIsNull(const aValue: Boolean); virtual; + function GetID_EMPRESAValue: Integer; virtual; + function GetID_EMPRESAIsNull: Boolean; virtual; + function GetOldID_EMPRESAValue: Integer; virtual; + function GetOldID_EMPRESAIsNull: Boolean; virtual; + procedure SetID_EMPRESAValue(const aValue: Integer); virtual; + procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual; + function GetREFERENCIAValue: String; virtual; + function GetREFERENCIAIsNull: Boolean; virtual; + function GetOldREFERENCIAValue: String; virtual; + function GetOldREFERENCIAIsNull: Boolean; virtual; + procedure SetREFERENCIAValue(const aValue: String); virtual; + procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; + function GetID_AGENTEValue: Integer; virtual; + function GetID_AGENTEIsNull: Boolean; virtual; + function GetOldID_AGENTEValue: Integer; virtual; + function GetOldID_AGENTEIsNull: Boolean; virtual; + procedure SetID_AGENTEValue(const aValue: Integer); virtual; + procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual; + function GetDESCRIPCIONValue: String; virtual; + function GetDESCRIPCIONIsNull: Boolean; virtual; + function GetOldDESCRIPCIONValue: String; virtual; + function GetOldDESCRIPCIONIsNull: Boolean; virtual; + procedure SetDESCRIPCIONValue(const aValue: String); virtual; + procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual; + function GetFECHAValue: DateTime; virtual; + function GetFECHAIsNull: Boolean; virtual; + function GetOldFECHAValue: DateTime; virtual; + function GetOldFECHAIsNull: Boolean; virtual; + procedure SetFECHAValue(const aValue: DateTime); virtual; + procedure SetFECHAIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_TOTALValue: Currency; virtual; + function GetIMPORTE_TOTALIsNull: Boolean; virtual; + function GetOldIMPORTE_TOTALValue: Currency; virtual; + function GetOldIMPORTE_TOTALIsNull: Boolean; virtual; + procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; + procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual; + function GetUSUARIOValue: String; virtual; + function GetUSUARIOIsNull: Boolean; virtual; + function GetOldUSUARIOValue: String; virtual; + function GetOldUSUARIOIsNull: Boolean; virtual; + procedure SetUSUARIOValue(const aValue: String); virtual; + procedure SetUSUARIOIsNull(const aValue: Boolean); virtual; + function GetNOMBREValue: String; virtual; + function GetNOMBREIsNull: Boolean; virtual; + function GetOldNOMBREValue: String; virtual; + function GetOldNOMBREIsNull: Boolean; virtual; + procedure SetNOMBREValue(const aValue: String); virtual; + procedure SetNOMBREIsNull(const aValue: Boolean); virtual; + + { Properties } + property ID : Integer read GetIDValue write SetIDValue; + property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; + property OldID : Integer read GetOldIDValue; + property OldIDIsNull : Boolean read GetOldIDIsNull; + property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; + property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; + property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; + property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull; + property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; + property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property OldREFERENCIA : String read GetOldREFERENCIAValue; + property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull; + property ID_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue; + property ID_AGENTEIsNull : Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull; + property OldID_AGENTE : Integer read GetOldID_AGENTEValue; + property OldID_AGENTEIsNull : Boolean read GetOldID_AGENTEIsNull; + property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; + property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; + property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; + property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull; + property FECHA : DateTime read GetFECHAValue write SetFECHAValue; + property FECHAIsNull : Boolean read GetFECHAIsNull write SetFECHAIsNull; + property OldFECHA : DateTime read GetOldFECHAValue; + property OldFECHAIsNull : Boolean read GetOldFECHAIsNull; + property IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; + property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; + property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; + property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull; + property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue; + property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; + property OldUSUARIO : String read GetOldUSUARIOValue; + property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull; + property NOMBRE : String read GetNOMBREValue write SetNOMBREValue; + property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull; + property OldNOMBRE : String read GetOldNOMBREValue; + property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull; + + public + constructor Create(aBusinessProcessor: TDABusinessProcessor); override; + destructor Destroy; override; + + end; + +implementation + +uses + Variants, uROBinaryHelpers, uDAInterfaces; + +{ TListaAnosComisionesBusinessProcessorRules } +constructor TListaAnosComisionesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); +begin + inherited; +end; + +destructor TListaAnosComisionesBusinessProcessorRules.Destroy; +begin + inherited; +end; + +function TListaAnosComisionesBusinessProcessorRules.GetANOValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosComisionesANO]; +end; + +function TListaAnosComisionesBusinessProcessorRules.GetANOIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosComisionesANO]; + result := VarIsNull(v) or VarIsClear(v); +end; + +function TListaAnosComisionesBusinessProcessorRules.GetOldANOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ListaAnosComisionesANO]; +end; + +function TListaAnosComisionesBusinessProcessorRules.GetOldANOIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ListaAnosComisionesANO]; + result := VarIsNull(v) or VarIsClear(v); +end; + +procedure TListaAnosComisionesBusinessProcessorRules.SetANOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosComisionesANO] := aValue; +end; + +procedure TListaAnosComisionesBusinessProcessorRules.SetANOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosComisionesANO] := Null; +end; + + +{ TFacturasComisionBusinessProcessorRules } +constructor TFacturasComisionBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); +begin + inherited; +end; + +destructor TFacturasComisionBusinessProcessorRules.Destroy; +begin + inherited; +end; + +function TFacturasComisionBusinessProcessorRules.GetIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasComisionID]; +end; + +function TFacturasComisionBusinessProcessorRules.GetIDIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasComisionID]; + result := VarIsNull(v) or VarIsClear(v); +end; + +function TFacturasComisionBusinessProcessorRules.GetOldIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasComisionID]; +end; + +function TFacturasComisionBusinessProcessorRules.GetOldIDIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasComisionID]; + result := VarIsNull(v) or VarIsClear(v); +end; + +procedure TFacturasComisionBusinessProcessorRules.SetIDValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasComisionID] := aValue; +end; + +procedure TFacturasComisionBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasComisionID] := Null; +end; + +function TFacturasComisionBusinessProcessorRules.GetID_EMPRESAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasComisionID_EMPRESA]; +end; + +function TFacturasComisionBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasComisionID_EMPRESA]; + result := VarIsNull(v) or VarIsClear(v); +end; + +function TFacturasComisionBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasComisionID_EMPRESA]; +end; + +function TFacturasComisionBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasComisionID_EMPRESA]; + result := VarIsNull(v) or VarIsClear(v); +end; + +procedure TFacturasComisionBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasComisionID_EMPRESA] := aValue; +end; + +procedure TFacturasComisionBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasComisionID_EMPRESA] := Null; +end; + +function TFacturasComisionBusinessProcessorRules.GetFECHA_FACTURAValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasComisionFECHA_FACTURA]; +end; + +function TFacturasComisionBusinessProcessorRules.GetFECHA_FACTURAIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasComisionFECHA_FACTURA]; + result := VarIsNull(v) or VarIsClear(v); +end; + +function TFacturasComisionBusinessProcessorRules.GetOldFECHA_FACTURAValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasComisionFECHA_FACTURA]; +end; + +function TFacturasComisionBusinessProcessorRules.GetOldFECHA_FACTURAIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasComisionFECHA_FACTURA]; + result := VarIsNull(v) or VarIsClear(v); +end; + +procedure TFacturasComisionBusinessProcessorRules.SetFECHA_FACTURAValue(const aValue: DateTime); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasComisionFECHA_FACTURA] := aValue; +end; + +procedure TFacturasComisionBusinessProcessorRules.SetFECHA_FACTURAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasComisionFECHA_FACTURA] := Null; +end; + +function TFacturasComisionBusinessProcessorRules.GetREFERENCIAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasComisionREFERENCIA]; +end; + +function TFacturasComisionBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasComisionREFERENCIA]; + result := VarIsNull(v) or VarIsClear(v); +end; + +function TFacturasComisionBusinessProcessorRules.GetOldREFERENCIAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasComisionREFERENCIA]; +end; + +function TFacturasComisionBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasComisionREFERENCIA]; + result := VarIsNull(v) or VarIsClear(v); +end; + +procedure TFacturasComisionBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasComisionREFERENCIA] := aValue; +end; + +procedure TFacturasComisionBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasComisionREFERENCIA] := Null; +end; + +function TFacturasComisionBusinessProcessorRules.GetSITUACIONValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasComisionSITUACION]; +end; + +function TFacturasComisionBusinessProcessorRules.GetSITUACIONIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasComisionSITUACION]; + result := VarIsNull(v) or VarIsClear(v); +end; + +function TFacturasComisionBusinessProcessorRules.GetOldSITUACIONValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasComisionSITUACION]; +end; + +function TFacturasComisionBusinessProcessorRules.GetOldSITUACIONIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasComisionSITUACION]; + result := VarIsNull(v) or VarIsClear(v); +end; + +procedure TFacturasComisionBusinessProcessorRules.SetSITUACIONValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasComisionSITUACION] := aValue; +end; + +procedure TFacturasComisionBusinessProcessorRules.SetSITUACIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasComisionSITUACION] := Null; +end; + +function TFacturasComisionBusinessProcessorRules.GetID_COMISION_LIQUIDADAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasComisionID_COMISION_LIQUIDADA]; +end; + +function TFacturasComisionBusinessProcessorRules.GetID_COMISION_LIQUIDADAIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasComisionID_COMISION_LIQUIDADA]; + result := VarIsNull(v) or VarIsClear(v); +end; + +function TFacturasComisionBusinessProcessorRules.GetOldID_COMISION_LIQUIDADAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasComisionID_COMISION_LIQUIDADA]; +end; + +function TFacturasComisionBusinessProcessorRules.GetOldID_COMISION_LIQUIDADAIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasComisionID_COMISION_LIQUIDADA]; + result := VarIsNull(v) or VarIsClear(v); +end; + +procedure TFacturasComisionBusinessProcessorRules.SetID_COMISION_LIQUIDADAValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasComisionID_COMISION_LIQUIDADA] := aValue; +end; + +procedure TFacturasComisionBusinessProcessorRules.SetID_COMISION_LIQUIDADAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasComisionID_COMISION_LIQUIDADA] := Null; +end; + +function TFacturasComisionBusinessProcessorRules.GetID_CLIENTEValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasComisionID_CLIENTE]; +end; + +function TFacturasComisionBusinessProcessorRules.GetID_CLIENTEIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasComisionID_CLIENTE]; + result := VarIsNull(v) or VarIsClear(v); +end; + +function TFacturasComisionBusinessProcessorRules.GetOldID_CLIENTEValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasComisionID_CLIENTE]; +end; + +function TFacturasComisionBusinessProcessorRules.GetOldID_CLIENTEIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasComisionID_CLIENTE]; + result := VarIsNull(v) or VarIsClear(v); +end; + +procedure TFacturasComisionBusinessProcessorRules.SetID_CLIENTEValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasComisionID_CLIENTE] := aValue; +end; + +procedure TFacturasComisionBusinessProcessorRules.SetID_CLIENTEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasComisionID_CLIENTE] := Null; +end; + +function TFacturasComisionBusinessProcessorRules.GetID_AGENTEValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasComisionID_AGENTE]; +end; + +function TFacturasComisionBusinessProcessorRules.GetID_AGENTEIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasComisionID_AGENTE]; + result := VarIsNull(v) or VarIsClear(v); +end; + +function TFacturasComisionBusinessProcessorRules.GetOldID_AGENTEValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasComisionID_AGENTE]; +end; + +function TFacturasComisionBusinessProcessorRules.GetOldID_AGENTEIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasComisionID_AGENTE]; + result := VarIsNull(v) or VarIsClear(v); +end; + +procedure TFacturasComisionBusinessProcessorRules.SetID_AGENTEValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasComisionID_AGENTE] := aValue; +end; + +procedure TFacturasComisionBusinessProcessorRules.SetID_AGENTEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasComisionID_AGENTE] := Null; +end; + +function TFacturasComisionBusinessProcessorRules.GetBASE_IMPONIBLEValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasComisionBASE_IMPONIBLE]; +end; + +function TFacturasComisionBusinessProcessorRules.GetBASE_IMPONIBLEIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasComisionBASE_IMPONIBLE]; + result := VarIsNull(v) or VarIsClear(v); +end; + +function TFacturasComisionBusinessProcessorRules.GetOldBASE_IMPONIBLEValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasComisionBASE_IMPONIBLE]; +end; + +function TFacturasComisionBusinessProcessorRules.GetOldBASE_IMPONIBLEIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasComisionBASE_IMPONIBLE]; + result := VarIsNull(v) or VarIsClear(v); +end; + +procedure TFacturasComisionBusinessProcessorRules.SetBASE_IMPONIBLEValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasComisionBASE_IMPONIBLE] := aValue; +end; + +procedure TFacturasComisionBusinessProcessorRules.SetBASE_IMPONIBLEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasComisionBASE_IMPONIBLE] := Null; +end; + +function TFacturasComisionBusinessProcessorRules.GetCOMISIONValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasComisionCOMISION]; +end; + +function TFacturasComisionBusinessProcessorRules.GetCOMISIONIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasComisionCOMISION]; + result := VarIsNull(v) or VarIsClear(v); +end; + +function TFacturasComisionBusinessProcessorRules.GetOldCOMISIONValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasComisionCOMISION]; +end; + +function TFacturasComisionBusinessProcessorRules.GetOldCOMISIONIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasComisionCOMISION]; + result := VarIsNull(v) or VarIsClear(v); +end; + +procedure TFacturasComisionBusinessProcessorRules.SetCOMISIONValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasComisionCOMISION] := aValue; +end; + +procedure TFacturasComisionBusinessProcessorRules.SetCOMISIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasComisionCOMISION] := Null; +end; + +function TFacturasComisionBusinessProcessorRules.GetIMPORTE_COMISIONValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasComisionIMPORTE_COMISION]; +end; + +function TFacturasComisionBusinessProcessorRules.GetIMPORTE_COMISIONIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasComisionIMPORTE_COMISION]; + result := VarIsNull(v) or VarIsClear(v); +end; + +function TFacturasComisionBusinessProcessorRules.GetOldIMPORTE_COMISIONValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasComisionIMPORTE_COMISION]; +end; + +function TFacturasComisionBusinessProcessorRules.GetOldIMPORTE_COMISIONIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasComisionIMPORTE_COMISION]; + result := VarIsNull(v) or VarIsClear(v); +end; + +procedure TFacturasComisionBusinessProcessorRules.SetIMPORTE_COMISIONValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasComisionIMPORTE_COMISION] := aValue; +end; + +procedure TFacturasComisionBusinessProcessorRules.SetIMPORTE_COMISIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasComisionIMPORTE_COMISION] := Null; +end; + + +{ TComisionesBusinessProcessorRules } +constructor TComisionesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); +begin + inherited; +end; + +destructor TComisionesBusinessProcessorRules.Destroy; +begin + inherited; +end; + +function TComisionesBusinessProcessorRules.GetIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesID]; +end; + +function TComisionesBusinessProcessorRules.GetIDIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesID]; + result := VarIsNull(v) or VarIsClear(v); +end; + +function TComisionesBusinessProcessorRules.GetOldIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesID]; +end; + +function TComisionesBusinessProcessorRules.GetOldIDIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesID]; + result := VarIsNull(v) or VarIsClear(v); +end; + +procedure TComisionesBusinessProcessorRules.SetIDValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesID] := aValue; +end; + +procedure TComisionesBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesID] := Null; +end; + +function TComisionesBusinessProcessorRules.GetID_EMPRESAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesID_EMPRESA]; +end; + +function TComisionesBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesID_EMPRESA]; + result := VarIsNull(v) or VarIsClear(v); +end; + +function TComisionesBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesID_EMPRESA]; +end; + +function TComisionesBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesID_EMPRESA]; + result := VarIsNull(v) or VarIsClear(v); +end; + +procedure TComisionesBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesID_EMPRESA] := aValue; +end; + +procedure TComisionesBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesID_EMPRESA] := Null; +end; + +function TComisionesBusinessProcessorRules.GetREFERENCIAValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesREFERENCIA]; +end; + +function TComisionesBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesREFERENCIA]; + result := VarIsNull(v) or VarIsClear(v); +end; + +function TComisionesBusinessProcessorRules.GetOldREFERENCIAValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesREFERENCIA]; +end; + +function TComisionesBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesREFERENCIA]; + result := VarIsNull(v) or VarIsClear(v); +end; + +procedure TComisionesBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesREFERENCIA] := aValue; +end; + +procedure TComisionesBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesREFERENCIA] := Null; +end; + +function TComisionesBusinessProcessorRules.GetID_AGENTEValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesID_AGENTE]; +end; + +function TComisionesBusinessProcessorRules.GetID_AGENTEIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesID_AGENTE]; + result := VarIsNull(v) or VarIsClear(v); +end; + +function TComisionesBusinessProcessorRules.GetOldID_AGENTEValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesID_AGENTE]; +end; + +function TComisionesBusinessProcessorRules.GetOldID_AGENTEIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesID_AGENTE]; + result := VarIsNull(v) or VarIsClear(v); +end; + +procedure TComisionesBusinessProcessorRules.SetID_AGENTEValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesID_AGENTE] := aValue; +end; + +procedure TComisionesBusinessProcessorRules.SetID_AGENTEIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesID_AGENTE] := Null; +end; + +function TComisionesBusinessProcessorRules.GetDESCRIPCIONValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesDESCRIPCION]; +end; + +function TComisionesBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesDESCRIPCION]; + result := VarIsNull(v) or VarIsClear(v); +end; + +function TComisionesBusinessProcessorRules.GetOldDESCRIPCIONValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesDESCRIPCION]; +end; + +function TComisionesBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesDESCRIPCION]; + result := VarIsNull(v) or VarIsClear(v); +end; + +procedure TComisionesBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesDESCRIPCION] := aValue; +end; + +procedure TComisionesBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesDESCRIPCION] := Null; +end; + +function TComisionesBusinessProcessorRules.GetFECHAValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesFECHA]; +end; + +function TComisionesBusinessProcessorRules.GetFECHAIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesFECHA]; + result := VarIsNull(v) or VarIsClear(v); +end; + +function TComisionesBusinessProcessorRules.GetOldFECHAValue: DateTime; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesFECHA]; +end; + +function TComisionesBusinessProcessorRules.GetOldFECHAIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesFECHA]; + result := VarIsNull(v) or VarIsClear(v); +end; + +procedure TComisionesBusinessProcessorRules.SetFECHAValue(const aValue: DateTime); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesFECHA] := aValue; +end; + +procedure TComisionesBusinessProcessorRules.SetFECHAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesFECHA] := Null; +end; + +function TComisionesBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesIMPORTE_TOTAL]; +end; + +function TComisionesBusinessProcessorRules.GetIMPORTE_TOTALIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesIMPORTE_TOTAL]; + result := VarIsNull(v) or VarIsClear(v); +end; + +function TComisionesBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesIMPORTE_TOTAL]; +end; + +function TComisionesBusinessProcessorRules.GetOldIMPORTE_TOTALIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesIMPORTE_TOTAL]; + result := VarIsNull(v) or VarIsClear(v); +end; + +procedure TComisionesBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesIMPORTE_TOTAL] := aValue; +end; + +procedure TComisionesBusinessProcessorRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesIMPORTE_TOTAL] := Null; +end; + +function TComisionesBusinessProcessorRules.GetUSUARIOValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesUSUARIO]; +end; + +function TComisionesBusinessProcessorRules.GetUSUARIOIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesUSUARIO]; + result := VarIsNull(v) or VarIsClear(v); +end; + +function TComisionesBusinessProcessorRules.GetOldUSUARIOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesUSUARIO]; +end; + +function TComisionesBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesUSUARIO]; + result := VarIsNull(v) or VarIsClear(v); +end; + +procedure TComisionesBusinessProcessorRules.SetUSUARIOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesUSUARIO] := aValue; +end; + +procedure TComisionesBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesUSUARIO] := Null; +end; + +function TComisionesBusinessProcessorRules.GetNOMBREValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesNOMBRE]; +end; + +function TComisionesBusinessProcessorRules.GetNOMBREIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesNOMBRE]; + result := VarIsNull(v) or VarIsClear(v); +end; + +function TComisionesBusinessProcessorRules.GetOldNOMBREValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesNOMBRE]; +end; + +function TComisionesBusinessProcessorRules.GetOldNOMBREIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ComisionesNOMBRE]; + result := VarIsNull(v) or VarIsClear(v); +end; + +procedure TComisionesBusinessProcessorRules.SetNOMBREValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesNOMBRE] := aValue; +end; + +procedure TComisionesBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ComisionesNOMBRE] := Null; +end; + + +initialization + RegisterBusinessProcessorRules(RID_ListaAnosComisionesDelta, TListaAnosComisionesBusinessProcessorRules); + RegisterBusinessProcessorRules(RID_FacturasComisionDelta, TFacturasComisionBusinessProcessorRules); + RegisterBusinessProcessorRules(RID_ComisionesDelta, TComisionesBusinessProcessorRules); + +end. diff --git a/Source/Modulos/Comisiones/Model/uBizComisiones.pas b/Source/Modulos/Comisiones/Model/uBizComisiones.pas new file mode 100644 index 0000000..01cfc12 --- /dev/null +++ b/Source/Modulos/Comisiones/Model/uBizComisiones.pas @@ -0,0 +1,150 @@ +unit uBizComisiones; + +interface + +uses + uDAInterfaces, uDADataTable, schComisionesClient_Intf, uDBSelectionListUtils, Classes; +// uBizContactos, uBizDetallesFacturaCliente + +const + BIZ_CLIENT_COMISIONES = 'Client.Comisiones'; + BIZ_CLIENT_FACTURASCOMISION = 'Client.FacturasComision'; + +type + IBizFacturasComision = interface(IFacturasComision) + ['{341B5CD1-2BCD-43F5-8F0C-AF72C1780512}'] + end; + + IBizComision = interface(IComisiones) + ['{78E17CC4-F4A6-489D-99C3-2D56F8730A33}'] + + function GetFacturasComision: IBizFacturasComision; + procedure SetFacturasComision(Value: IBizFacturasComision); + property FacturasComision: IBizFacturasComision read GetFacturasComision write SetFacturasComision; + + procedure CalcularImporteTotal; + end; + + TBizFacturasComision = class(TFacturasComisionDataTableRules, IBizFacturasComision) + end; + + TBizComision = class(TComisionesDataTableRules, IBizComision, ISeleccionable) + private + FSeleccionableInterface : ISeleccionable; + procedure CalcularComision; + + protected + FFacturasComision : IBizFacturasComision; + FFacturasComisionLink : TDADataSource; + + function GetFacturasComision: IBizFacturasComision; + procedure SetFacturasComision(Value: IBizFacturasComision); + + procedure COMISIONOnChange(Sender: TDACustomField); + + public + procedure CalcularImporteTotal; + + property FacturasComision: IBizFacturasComision read GetFacturasComision write SetFacturasComision; + property SeleccionableInterface : ISeleccionable read FSeleccionableInterface write FSeleccionableInterface implements ISeleccionable; + + constructor Create(aDataTable: TDADataTable); override; + destructor Destroy; override; + end; + +implementation + +uses + SysUtils, uDataTableUtils, DB, uDateUtils, DateUtils, uDataModuleUsuarios, + Variants, cxDateUtils, uFactuGES_App; + +{ TBizComision } + +procedure TBizComision.CalcularComision; +begin +{ if not Self.DataTable.Editing then + Edit; + IMPORTE_COMISION := (COMISION / 100) * BASE_IMPONIBLE; +} +end; + +{procedure TBizComision.CalcularDescuento; +begin + if not Self.DataTable.Editing then + Edit; + IMPORTE_DESCUENTO := (DESCUENTO / 100) * IMPORTE_NETO; +end;} + +procedure TBizComision.CalcularImporteTotal; +begin +{ DataTable.DisableControls; + DataTable.Fields.FieldEventsDisabled := True; + try + + if not Self.DataTable.Editing then + Edit; + IMPORTE_TOTAL := BASE_IMPONIBLE + IMPORTE_IVA + IMPORTE_RE; + finally + DataTable.Fields.FieldEventsDisabled := False; + DataTable.EnableControls; + end; +} +end; + + +procedure TBizComision.COMISIONOnChange(Sender: TDACustomField); +begin + CalcularImporteTotal; +end; + +constructor TBizComision.Create(aDataTable: TDADataTable); +begin + inherited; +{ + with DataTable do + begin + FieldByName(fld_FacturasClienteID_TIPO_IVA).OnChange := ID_TIPO_IVAOnChange; + FieldByName(fld_FacturasClienteRECARGO_EQUIVALENCIA).OnChange := RECARGO_EQUIVALENCIAOnChange; + + FieldByName(fld_FacturasClienteIMPORTE_NETO).OnChange := IMPORTE_NETOOnChange; + FieldByName(fld_FacturasClienteIMPORTE_PORTE).OnChange := IMPORTE_PORTEOnChange; + FieldByName(fld_FacturasClienteDESCUENTO).OnChange := DESCUENTOOnChange; + FieldByName(fld_FacturasClienteDESCUENTO2).OnChange := DESCUENTO2OnChange; + FieldByName(fld_FacturasClienteCOMISION).OnChange := COMISIONOnChange; + FieldByName(fld_FacturasClienteIVA).OnChange := IVAOnChange; + FieldByName(fld_FacturasClienteRE).OnChange := REOnChange; + end; +} + FFacturasComisionLink := TDADataSource.Create(NIL); + FFacturasComisionLink.DataTable := aDataTable; + + FSeleccionableInterface := TSeleccionable.Create(aDataTable); +end; + +destructor TBizComision.Destroy; +begin + FFacturasComision := NIL; + FFacturasComisionLink.Free; + FSeleccionableInterface := NIL; + inherited; +end; + +function TBizComision.GetFacturasComision: IBizFacturasComision; +begin + Result := FFacturasComision; +end; + +procedure TBizComision.SetFacturasComision(Value: IBizFacturasComision); +begin + FFacturasComision := Value; + EnlazarMaestroDetalle(FFacturasComisionLink, FFacturasComision); +end; + +initialization + RegisterDataTableRules(BIZ_CLIENT_COMISIONES, TBizComision); + RegisterDataTableRules(BIZ_CLIENT_FACTURASCOMISION, TBizFacturasComision); + +finalization + +end. + diff --git a/Source/Modulos/Comisiones/Model/uBizComisionesServer.pas b/Source/Modulos/Comisiones/Model/uBizComisionesServer.pas new file mode 100644 index 0000000..5b21f9a --- /dev/null +++ b/Source/Modulos/Comisiones/Model/uBizComisionesServer.pas @@ -0,0 +1,106 @@ +unit uBizComisionesServer; + +interface + +uses + uDAInterfaces, uDADelta, uDABusinessProcessor, + schComisionesServer_Intf; + +const + BIZ_SERVER_COMISIONES = 'Server.Comsiones'; + +type + TBizComisionesServer = class(TComisionesBusinessProcessorRules) + private + FReferenciaAutomatica : Boolean; + function DarReferencia : String; + function IncrementarReferencia : Boolean; + protected + procedure BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta); override; + procedure AfterProcessChange(Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean; + var CanRemoveFromDelta: Boolean); override; + end; + +implementation + +uses + Variants, uDAClasses, uBusinessUtils, uROClasses, uROServer, SysUtils, + uDataModuleServer, schComisionesClient_Intf, FactuGES_Intf; + +const + REF_COMiSIONES = 'REF_COMISIONES'; + + +{ TBizComisionesServer } + +procedure TBizComisionesServer.AfterProcessChange( + Sender: TDABusinessProcessor; aChange: TDADeltaChange; Processed: Boolean; + var CanRemoveFromDelta: Boolean); +begin + inherited; + + { Por defecto, mantenemos los deltas por si alguna tabla hija los necesita } + CanRemoveFromDelta := False; + + case aChange.ChangeType of + ctInsert, ctUpdate: begin + if FReferenciaAutomatica then + begin + IncrementarReferencia; + FReferenciaAutomatica := False; + end; + end; + end; +end; + +procedure TBizComisionesServer.BeforeProcessDelta( + Sender: TDABusinessProcessor; const aDelta: IDADelta); +begin + FReferenciaAutomatica := False; + + case Sender.CurrentChange.ChangeType of + ctInsert, ctUpdate: begin + //Si la referencia no ha sido asignada le asignamos una nosotros + if REFERENCIAIsNull or (Length(REFERENCIA) = 0) then + begin + FReferenciaAutomatica := True; + REFERENCIA := DarReferencia; + end; + end; + end; +end; + +function TBizComisionesServer.DarReferencia: String; +var + AReferenciasService : IsrvReferencias; + Intf : IInterface; + AClientID : TGUID; +begin + // Aunque sea un abono, la referencia es la misma que una factura + + CreateGUID(AClientID); + + GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf); + AReferenciasService := Intf as IsrvReferencias; + Result := AReferenciasService.DarNuevaReferencia(REF_COMISIONES, ID_EMPRESA) +end; + +function TBizComisionesServer.IncrementarReferencia: Boolean; +var + AReferenciasService : IsrvReferencias; + Intf : IInterface; + AClientID : TGUID; +begin + // Aunque sea un abono, la referencia es la misma que una factura + + CreateGUID(AClientID); + + GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf); + AReferenciasService := Intf as IsrvReferencias; + Result := AReferenciasService.IncrementarValorReferencia(REF_COMISIONES, Self.REFERENCIA, ID_EMPRESA) +end; + +initialization + RegisterBusinessProcessorRules(BIZ_SERVER_COMISIONES, TBizComisionesServer); + +end. diff --git a/Source/Modulos/Comisiones/Servidor/srvComisiones_Impl.dfm b/Source/Modulos/Comisiones/Servidor/srvComisiones_Impl.dfm new file mode 100644 index 0000000..bea5811 --- /dev/null +++ b/Source/Modulos/Comisiones/Servidor/srvComisiones_Impl.dfm @@ -0,0 +1,924 @@ +object srvComisiones: TsrvComisiones + OldCreateOrder = True + OnCreate = DARemoteServiceCreate + ConnectionName = 'IBX' + ServiceSchema = schComisiones + ServiceDataStreamer = Bin2DataStreamer + ExportedDataTables = <> + BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection + Height = 180 + Width = 386 + object schComisiones: TDASchema + ConnectionManager = dmServer.ConnectionManager + DataDictionary = DataDictionary + Diagrams = Diagrams + Datasets = < + item + Params = <> + Statements = < + item + Connection = 'IBX' + ConnectionType = 'Interbase' + Default = True + Name = 'IBX' + SQL = + 'select ANO from'#10'(select distinct(substr(FECHA, 1,4)) as ANO'#10'from' + + ' comisiones_liquidadas'#10'order by 1 desc)'#10#10'UNION ALL'#10#10'select disti' + + 'nct '#39'Todos'#39' as ANO'#10'from empresas'#10#10 + StatementType = stSQL + ColumnMappings = < + item + DatasetField = 'ANO' + TableField = 'ANO' + end> + end> + Name = 'ListaAnosComisiones' + Fields = < + item + Name = 'ANO' + DataType = datString + Size = 254 + end> + end + item + Params = <> + Statements = < + item + ConnectionType = 'Interbase' + Default = True + TargetTable = 'V_FACTURAS_CLIENTE' + Name = 'IBX' + SQL = + 'SELECT V_FACTURAS_CLIENTE.ID,'#10' V_FACTURAS_CLIENTE.ID_EMPRE' + + 'SA,'#10' V_FACTURAS_CLIENTE.FECHA_FACTURA,'#10' V_FACTURAS_C' + + 'LIENTE.REFERENCIA,'#10' V_FACTURAS_CLIENTE.SITUACION,'#10' V' + + '_FACTURAS_CLIENTE.ID_COMISION_LIQUIDADA,'#10' V_FACTURAS_CLIEN' + + 'TE.ID_CLIENTE,'#10' V_FACTURAS_CLIENTE.ID_AGENTE,'#10' V_FAC' + + 'TURAS_CLIENTE.BASE_IMPONIBLE,'#10' V_FACTURAS_CLIENTE.COMISION' + + ','#10' V_FACTURAS_CLIENTE.IMPORTE_COMISION'#10#10'FROM V_FACTURAS_CL' + + 'IENTE'#10'WHERE {Where}'#10 + StatementType = stSQL + ColumnMappings = < + item + DatasetField = 'ID' + TableField = 'ID' + end + item + DatasetField = 'ID_EMPRESA' + TableField = 'ID_EMPRESA' + end + item + DatasetField = 'FECHA_FACTURA' + TableField = 'FECHA_FACTURA' + end + item + DatasetField = 'REFERENCIA' + TableField = 'REFERENCIA' + end + item + DatasetField = 'SITUACION' + TableField = 'SITUACION' + end + item + DatasetField = 'ID_COMISION_LIQUIDADA' + TableField = 'ID_COMISION_LIQUIDADA' + end + item + DatasetField = 'ID_CLIENTE' + TableField = 'ID_CLIENTE' + end + item + DatasetField = 'ID_AGENTE' + TableField = 'ID_AGENTE' + end + item + DatasetField = 'BASE_IMPONIBLE' + TableField = 'BASE_IMPONIBLE' + end + item + DatasetField = 'COMISION' + TableField = 'COMISION' + end + item + DatasetField = 'IMPORTE_COMISION' + TableField = 'IMPORTE_COMISION' + end> + end> + Name = 'FacturasComision' + Fields = < + item + Name = 'ID' + DataType = datInteger + InPrimaryKey = True + end + item + Name = 'ID_EMPRESA' + DataType = datInteger + end + item + Name = 'FECHA_FACTURA' + DataType = datDateTime + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + end + item + Name = 'SITUACION' + DataType = datString + Size = 19 + end + item + Name = 'ID_COMISION_LIQUIDADA' + DataType = datInteger + end + item + Name = 'ID_CLIENTE' + DataType = datInteger + end + item + Name = 'ID_AGENTE' + DataType = datInteger + end + item + Name = 'BASE_IMPONIBLE' + DataType = datCurrency + end + item + Name = 'COMISION' + DataType = datCurrency + end + item + Name = 'IMPORTE_COMISION' + DataType = datCurrency + end> + end + item + Params = <> + Statements = < + item + Connection = 'IBX' + TargetTable = 'COMISIONES_LIQUIDADAS' + SQL = + 'SELECT'#10' COMISIONES_LIQUIDADAS.ID, COMISIONES_LIQUIDADAS.ID_EM' + + 'PRESA,'#10' COMISIONES_LIQUIDADAS.REFERENCIA, COMISIONES_LIQUIDAD' + + 'AS.ID_AGENTE,'#10' COMISIONES_LIQUIDADAS.DESCRIPCION, COMISIONES_' + + 'LIQUIDADAS.FECHA,'#10' COMISIONES_LIQUIDADAS.IMPORTE_TOTAL, COMIS' + + 'IONES_LIQUIDADAS.USUARIO,'#10' CONTACTOS.NOMBRE'#10'FROM COMISIONES_L' + + 'IQUIDADAS'#10'LEFT JOIN CONTACTOS ON (CONTACTOS.ID = COMISIONES_LIQU' + + 'IDADAS.ID_AGENTE)'#10 + StatementType = stSQL + ColumnMappings = < + item + DatasetField = 'ID' + TableField = 'ID' + end + item + DatasetField = 'ID_EMPRESA' + TableField = 'ID_EMPRESA' + end + item + DatasetField = 'REFERENCIA' + TableField = 'REFERENCIA' + end + item + DatasetField = 'ID_AGENTE' + TableField = 'ID_AGENTE' + end + item + DatasetField = 'DESCRIPCION' + TableField = 'DESCRIPCION' + end + item + DatasetField = 'FECHA' + TableField = 'FECHA' + end + item + DatasetField = 'IMPORTE_TOTAL' + TableField = 'IMPORTE_TOTAL' + end + item + DatasetField = 'USUARIO' + TableField = 'USUARIO' + end + item + DatasetField = 'NOMBRE' + TableField = '' + SQLOrigin = 'NOMBRE' + end> + end> + Name = 'Comisiones' + Fields = < + item + Name = 'ID' + DataType = datInteger + InPrimaryKey = True + end + item + Name = 'ID_EMPRESA' + DataType = datInteger + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + end + item + Name = 'ID_AGENTE' + DataType = datInteger + end + item + Name = 'DESCRIPCION' + DataType = datString + Size = 255 + end + item + Name = 'FECHA' + DataType = datDateTime + end + item + Name = 'IMPORTE_TOTAL' + DataType = datCurrency + end + item + Name = 'USUARIO' + DataType = datString + Size = 30 + end + item + Name = 'NOMBRE' + DataType = datString + Size = 255 + end> + end> + JoinDataTables = <> + UnionDataTables = <> + Commands = < + item + Params = < + item + Name = 'OLD_ID' + DataType = datInteger + Value = '' + ParamType = daptInput + end> + Statements = < + item + Connection = 'IBX' + TargetTable = 'COMISIONES_LIQUIDADAS' + SQL = + 'DELETE'#10' FROM'#10' COMISIONES_LIQUIDADAS'#10' WHERE'#10' (ID = :OLD_I' + + 'D)'#10 + StatementType = stSQL + ColumnMappings = <> + end> + Name = 'Delete_Comisiones' + end + item + Params = < + item + Name = 'ID' + DataType = datInteger + Value = '' + end + item + Name = 'ID_EMPRESA' + DataType = datInteger + Value = '' + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + Value = '' + end + item + Name = 'ID_AGENTE' + DataType = datInteger + Value = '' + end + item + Name = 'DESCRIPCION' + DataType = datString + Size = 255 + Value = '' + end + item + Name = 'FECHA' + DataType = datDateTime + Value = '' + end + item + Name = 'IMPORTE_TOTAL' + DataType = datDecimal + Value = '' + end + item + Name = 'USUARIO' + DataType = datString + Size = 30 + Value = '' + end> + Statements = < + item + Connection = 'IBX' + Default = True + TargetTable = 'COMISIONES_LIQUIDADAS' + SQL = + 'INSERT'#10' INTO COMISIONES_LIQUIDADAS'#10' (ID, ID_EMPRESA, REFEREN' + + 'CIA, ID_AGENTE, DESCRIPCION, FECHA, IMPORTE_TOTAL, USUARIO)'#10' VA' + + 'LUES'#10' (:ID, :ID_EMPRESA, :REFERENCIA, :ID_AGENTE, :DESCRIPCIO' + + 'N, :FECHA, :IMPORTE_TOTAL, :USUARIO)'#10 + StatementType = stSQL + ColumnMappings = <> + end> + Name = 'Insert_Comisiones' + end + item + Params = < + item + Name = 'ID' + DataType = datInteger + Value = '' + end + item + Name = 'ID_EMPRESA' + DataType = datInteger + Value = '' + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + Value = '' + end + item + Name = 'ID_AGENTE' + DataType = datInteger + Value = '' + end + item + Name = 'DESCRIPCION' + DataType = datString + Size = 255 + Value = '' + end + item + Name = 'FECHA' + DataType = datDateTime + Value = '' + end + item + Name = 'IMPORTE_TOTAL' + DataType = datDecimal + Value = '' + end + item + Name = 'USUARIO' + DataType = datString + Size = 30 + Value = '' + end + item + Name = 'OLD_ID' + Value = '' + end> + Statements = < + item + Connection = 'IBX' + TargetTable = 'COMISIONES_LIQUIDADAS' + SQL = + 'UPDATE COMISIONES_LIQUIDADAS'#10' SET'#10' ID = :ID,'#10' ID_EMPRESA ' + + '= :ID_EMPRESA,'#10' REFERENCIA = :REFERENCIA,'#10' ID_AGENTE = :ID' + + '_AGENTE,'#10' DESCRIPCION = :DESCRIPCION,'#10' FECHA = :FECHA,'#10' ' + + ' IMPORTE_TOTAL = :IMPORTE_TOTAL,'#10' USUARIO = :USUARIO'#10' WHERE'#10 + + ' (ID = :OLD_ID)'#10 + StatementType = stSQL + ColumnMappings = <> + end> + Name = 'Update_Comisiones' + end + item + Params = < + item + Name = 'IDCOMISIONLIQUIDADA' + Value = '' + end + item + Name = 'COMISION' + DataType = datCurrency + Value = '' + end + item + Name = 'IMPORTECOMISION' + Value = '' + end + item + Name = 'OLD_ID' + Value = '' + end> + Statements = < + item + Connection = 'IBX' + ConnectionType = 'Interbase' + Default = True + TargetTable = 'FACTURAS_CLIENTE' + SQL = + 'UPDATE FACTURAS_CLIENTE'#10' SET'#10' ID_COMISION_LIQUIDADA = :IDCOM' + + 'ISIONLIQUIDADA,'#10' COMISION = :COMISION,'#10' IMPORTE_COMISION =' + + ' :IMPORTECOMISION'#10' WHERE'#10' (ID = :OLD_ID)'#10 + StatementType = stSQL + ColumnMappings = <> + end> + Name = 'Insert_FacturasComision' + end + item + Params = < + item + Name = 'OLD_ID' + DataType = datInteger + Value = '' + end> + Statements = < + item + Connection = 'IBX' + ConnectionType = 'Interbase' + Default = True + TargetTable = 'FACTURAS_CLIENTE' + SQL = + 'UPDATE FACTURAS_CLIENTE'#10' SET'#10' ID_COMISION_LIQUIDADA = NULL'#10' ' + + ' WHERE'#10' (ID = :OLD_ID)'#10 + StatementType = stSQL + ColumnMappings = <> + end> + Name = 'Delete_FacturasComision' + end + item + Params = < + item + Name = 'IDCOMISIONLIQUIDADA' + Value = '' + end + item + Name = 'COMISION' + DataType = datCurrency + Value = '' + end + item + Name = 'IMPORTECOMISION' + Value = '' + end + item + Name = 'OLD_ID' + Value = '' + end> + Statements = < + item + Connection = 'IBX' + ConnectionType = 'Interbase' + Default = True + TargetTable = 'FACTURAS_CLIENTE' + SQL = + 'UPDATE FACTURAS_CLIENTE'#10' SET '#10' ID_COMISION_LIQUIDADA = :IDCO' + + 'MISIONLIQUIDADA,'#10' COMISION = :COMISION,'#10' IMPORTE_COMISION ' + + '= :IMPORTECOMISION'#10' WHERE'#10' (ID = :OLD_ID)'#10 + StatementType = stSQL + ColumnMappings = <> + end> + Name = 'Update_FacturasComision' + end> + RelationShips = < + item + Name = 'FacturasComision_FK' + MasterDatasetName = 'Comisiones' + MasterFields = 'ID' + DetailDatasetName = 'FacturasComision' + DetailFields = 'ID_COMISION_LIQUIDADA' + RelationshipType = rtForeignKey + end> + UpdateRules = < + item + Name = 'Insert FacturasCliente' + DoUpdate = False + DoDelete = False + DatasetName = 'FacturasCliente' + FailureBehavior = fbRaiseException + end + item + Name = 'Insert DetallesFacturasCliente' + DoUpdate = False + DoDelete = False + DatasetName = 'FacturasCliente_Detalles' + FailureBehavior = fbRaiseException + end + item + Name = 'Update FacturasCliente' + DoInsert = False + DoDelete = False + DatasetName = 'FacturasCliente' + FailureBehavior = fbRaiseException + end + item + Name = 'Update DetallesFacturasCliente' + DoInsert = False + DoDelete = False + DatasetName = 'FacturasCliente_Detalles' + FailureBehavior = fbRaiseException + end + item + Name = 'Delete DetallesFacturasCliente' + DoUpdate = False + DoInsert = False + DatasetName = 'FacturasCliente_Detalles' + FailureBehavior = fbRaiseException + end + item + Name = 'Delete FacturasCliente' + DoUpdate = False + DoInsert = False + DatasetName = 'FacturasCliente' + FailureBehavior = fbRaiseException + end> + Version = 0 + Left = 48 + Top = 24 + end + object Diagrams: TDADiagrams + Left = 150 + Top = 74 + DiagramData = ''#13#10''#13#10 + end + object DataDictionary: TDADataDictionary + Fields = < + item + Name = 'FacturasCliente_CLIENTE_FINAL' + DataType = datString + Size = 255 + DisplayLabel = 'Cliente final' + end + item + Name = 'FacturasCliente_ID' + DataType = datAutoInc + GeneratorName = 'GEN_FACTURAS_CLIENTE_ID' + Required = True + DisplayLabel = 'ID' + ServerAutoRefresh = True + end + item + Name = 'FacturasCliente_ID_EMPRESA' + DataType = datInteger + DisplayLabel = 'ID_EMPRESA' + end + item + Name = 'FacturasCliente_FECHA_FACTURA' + DataType = datDateTime + DisplayLabel = 'Fecha de las factura' + end + item + Name = 'FacturasCliente_VENCIMIENTO' + DataType = datInteger + DisplayLabel = 'Vencimiento' + end + item + Name = 'FacturasCliente_SITUACION' + DataType = datString + Size = 255 + DisplayLabel = 'Situaci'#243'n' + end + item + Name = 'FacturasCliente_BASE_IMPONIBLE' + DataType = datCurrency + DisplayLabel = 'Base imponible' + Alignment = taRightJustify + end + item + Name = 'FacturasCliente_IMPORTE_DESCUENTO' + DataType = datCurrency + DisplayLabel = 'Importe dto.' + Alignment = taRightJustify + end + item + Name = 'FacturasCliente_IMPORTE_IVA' + DataType = datCurrency + DisplayLabel = 'Importe IVA' + Alignment = taRightJustify + end + item + Name = 'FacturasCliente_IMPORTE_TOTAL' + DataType = datCurrency + DisplayLabel = 'Importe total' + Alignment = taRightJustify + end + item + Name = 'FacturasCliente_FORMA_PAGO' + DataType = datMemo + DisplayLabel = 'Forma de pago' + end + item + Name = 'FacturasCliente_ID_CLIENTE' + DataType = datInteger + DisplayLabel = 'ID_CLIENTE' + end + item + Name = 'FacturasCliente_NIF_CIF' + DataType = datString + Size = 15 + DisplayLabel = 'NIF/CIF' + end + item + Name = 'FacturasCliente_CODIGO_POSTAL' + DataType = datString + Size = 10 + DisplayLabel = 'C'#243'd. postal' + end + item + Name = 'FacturasCliente_FECHA_ALTA' + DataType = datDateTime + DisplayLabel = 'FECHA_ALTA' + end + item + Name = 'FacturasCliente_FECHA_MODIFICACION' + DataType = datDateTime + DisplayLabel = 'FECHA_MODIFICACION' + end + item + Name = 'FacturasCliente_OBSERVACIONES' + DataType = datMemo + DisplayLabel = 'Observaciones' + end + item + Name = 'FacturasCliente_NOMBRE' + DataType = datString + Size = 100 + DisplayLabel = 'Cliente' + end + item + Name = 'FacturasCliente_CALLE' + DataType = datString + Size = 150 + DisplayLabel = 'Direcci'#243'n' + end + item + Name = 'FacturasCliente_PROVINCIA' + DataType = datString + Size = 30 + DisplayLabel = 'Provincia' + end + item + Name = 'FacturasCliente_POBLACION' + DataType = datString + Size = 150 + DisplayLabel = 'Poblaci'#243'n' + end + item + Name = 'FacturasCliente_IVA' + DataType = datFloat + DisplayLabel = 'IVA' + Alignment = taRightJustify + end + item + Name = 'FacturasCliente_USUARIO' + DataType = datString + Size = 100 + DisplayLabel = 'USUARIO' + end + item + Name = 'FacturasCliente_DESCUENTO' + DataType = datFloat + DisplayLabel = 'Dto.' + Alignment = taRightJustify + end + item + Name = 'FacturasCliente_Detalles_ID' + DataType = datAutoInc + GeneratorName = 'GEN_FACTURA_CLIENTE_DETALLES_ID' + Required = True + DisplayLabel = 'ID' + ServerAutoRefresh = True + end + item + Name = 'FacturasCliente_Detalles_ID_FACTURA' + DataType = datInteger + DisplayLabel = 'ID_FACTURA' + end + item + Name = 'FacturasCliente_Detalles_TIPO_DETALLE' + DataType = datString + Size = 25 + DisplayLabel = 'Tipo detalle' + end + item + Name = 'FacturasCliente_Detalles_CONCEPTO' + DataType = datString + Size = 2000 + DisplayLabel = 'Concepto' + end + item + Name = 'FacturasCliente_Detalles_IMPORTE_UNIDAD' + DataType = datCurrency + DisplayLabel = 'Importe unidad' + Alignment = taRightJustify + end + item + Name = 'FacturasCliente_Detalles_IMPORTE_TOTAL' + DataType = datCurrency + DisplayLabel = 'Importe total' + Alignment = taRightJustify + end + item + Name = 'FacturasCliente_Detalles_VISIBLE' + DataType = datInteger + DisplayLabel = #191'Visible?' + end + item + Name = 'FacturasCliente_Detalles_POSICION' + DataType = datInteger + DisplayLabel = 'Posici'#243'n' + end + item + Name = 'FacturasCliente_Detalles_CANTIDAD' + DataType = datFloat + DisplayLabel = 'Cantidad' + end + item + Name = 'FacturasCliente_FECHA_PAGADO' + DataType = datDateTime + DisplayLabel = 'Fecha de pago' + end + item + Name = 'FacturasCliente_FECHA_VENCIMIENTO' + DataType = datDateTime + DisplayLabel = 'Fecha de vencimiento' + ServerAutoRefresh = True + end + item + Name = 'FacturasCliente_RE' + DataType = datFloat + DisplayLabel = 'RE' + Alignment = taRightJustify + end + item + Name = 'FacturasCliente_IMPORTE_RE' + DataType = datCurrency + DisplayLabel = 'Importe RE' + Alignment = taRightJustify + end + item + Name = 'FacturasCliente_REFERENCIA' + DataType = datString + Size = 20 + DisplayLabel = 'Referencia' + ServerAutoRefresh = True + end + item + Name = 'FacturasCliente_ID_FORMA_PAGO' + DataType = datInteger + end + item + Name = 'FacturasCliente_IMPORTE_NETO' + DataType = datCurrency + DisplayLabel = 'Importe neto' + Alignment = taRightJustify + end + item + Name = 'FacturasCliente_IMPORTE_PORTE' + DataType = datCurrency + DisplayLabel = 'Importe del porte' + Alignment = taRightJustify + end + item + Name = 'FacturasCliente_RECARGO_EQUIVALENCIA' + DataType = datSmallInt + DisplayLabel = #191'Con R.E.?' + end + item + Name = 'FacturasCliente_TIPO' + DataType = datString + Size = 1 + DisplayLabel = 'Tipo' + end + item + Name = 'FacturasCliente_ID_TIPO_IVA' + DataType = datInteger + DisplayLabel = 'ID_TIPO_IVA' + end + item + Name = 'FacturasCliente_ID_COMISION_LIQUIDADA' + DataType = datInteger + DisplayLabel = 'ID_COMISION_LIQUIDADA' + end + item + Name = 'FacturasCliente_REFERENCIA_COMISION' + DataType = datString + Size = 255 + DisplayLabel = 'REFERENCIA_COMISION' + end + item + Name = 'FacturasCliente_ID_AGENTE' + DataType = datInteger + DisplayLabel = 'ID_AGENTE' + end + item + Name = 'FacturasCliente_Detalles_ID_ARTICULO' + DataType = datInteger + end + item + Name = 'FacturasCliente_Detalles_DESCUENTO' + DataType = datFloat + end + item + Name = 'FacturasCliente_Detalles_IMPORTE_PORTE' + DataType = datCurrency + end + item + Name = 'FacturasCliente_Detalles_REFERENCIA' + DataType = datString + Size = 255 + end + item + Name = 'FacturasCliente_Detalles_REFERENCIA_PROVEEDOR' + DataType = datString + Size = 255 + end + item + Name = 'FacturasCliente_DATOS_BANCARIOS' + DataType = datString + Size = 255 + DisplayLabel = 'Datos bancarios' + end + item + Name = 'FacturasCliente_FECHA_RETENCION' + DataType = datDateTime + end + item + Name = 'FacturasCliente_ID_DIRECCION' + DataType = datInteger + end + item + Name = 'FacturasCliente_PERSONA_CONTACTO' + DataType = datString + Size = 255 + end + item + Name = 'FacturasCliente_RETENCION' + DataType = datFloat + DisplayLabel = 'RETENCION' + end + item + Name = 'FacturasCliente_IMPORTE_RETENCION' + DataType = datCurrency + DisplayLabel = 'IMPORTE_RETENCION' + end + item + Name = 'FacturasCliente_DESCUENTO2' + DataType = datFloat + DisplayLabel = 'DESCUENTO2' + end + item + Name = 'FacturasCliente_IMPORTE_DESCUENTO2' + DataType = datCurrency + DisplayLabel = 'IMPORTE_DESCUENTO2' + end + item + Name = 'FacturasCliente_COMISION' + DataType = datFloat + DisplayLabel = 'COMISION' + end + item + Name = 'FacturasCliente_IMPORTE_COMISION' + DataType = datCurrency + DecimalPrecision = 11 + DecimalScale = 2 + DisplayLabel = 'IMPORTE_COMISION' + end> + Left = 150 + Top = 22 + end + object Bin2DataStreamer: TDABin2DataStreamer + Left = 48 + Top = 80 + end + object bpComisiones: TDABusinessProcessor + Schema = schComisiones + InsertCommandName = 'Insert_Comisiones' + DeleteCommandName = 'Delete_Comisiones' + UpdateCommandName = 'Update_Comisiones' + ReferencedDataset = 'Comisiones' + ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands] + UpdateMode = updWhereKeyOnly + Left = 248 + Top = 24 + end + object bpFacturasComision: TDABusinessProcessor + Schema = schComisiones + InsertCommandName = 'Insert_FacturasComision' + DeleteCommandName = 'Delete_FacturasComision' + UpdateCommandName = 'Update_FacturasComision' + ReferencedDataset = 'FacturasComision' + ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands] + UpdateMode = updWhereKeyOnly + Left = 248 + Top = 80 + end +end diff --git a/Source/Modulos/Comisiones/Servidor/srvComisiones_Impl.pas b/Source/Modulos/Comisiones/Servidor/srvComisiones_Impl.pas new file mode 100644 index 0000000..128b059 --- /dev/null +++ b/Source/Modulos/Comisiones/Servidor/srvComisiones_Impl.pas @@ -0,0 +1,102 @@ +unit srvComisiones_Impl; + +{----------------------------------------------------------------------------} +{ This unit was automatically generated by the RemObjects SDK after reading } +{ the RODL file associated with this project . } +{ } +{ This is where you are supposed to code the implementation of your objects. } +{----------------------------------------------------------------------------} + +interface + +uses + {vcl:} Classes, SysUtils, + {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, + {Ancestor Implementation:} DataAbstractService_Impl, + {Used RODLs:} DataAbstract4_Intf, + {Generated:} uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer, + uDAScriptingProvider, uDAClasses, + FactuGES_Intf, uDAInterfaces, uROClient; + +type + { TsrvComisiones } + TsrvComisiones = class(TDataAbstractService, IsrvComisiones) + Diagrams: TDADiagrams; + Bin2DataStreamer: TDABin2DataStreamer; + bpComisiones: TDABusinessProcessor; + schComisiones: TDASchema; + DataDictionary: TDADataDictionary; + bpFacturasComision: TDABusinessProcessor; + procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset; + const IncludeSchema: Boolean; const MaxRecords: Integer); + procedure DARemoteServiceCreate(Sender: TObject); + procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string); + private + protected + { IsrvComisiones methods } + function GenerarInforme(const ListaID: TIntegerArray; const Original: Integer; const Copia: Integer; const Contabilidad: Integer): Binary; + end; + +implementation + +{$R *.dfm} +uses + {Generated:} FactuGES_Invk, Dialogs, uSistemaFunc, uROClasses, + uDataModuleServer, uDatabaseUtils, uUsersManager, schComisionesClient_Intf, + uRestriccionesUsuarioUtils, uBizComisionesServer; +// uRptWordFacturaCliente, uRptFacturasCliente_Server; + +procedure Create_srvComisiones(out anInstance : IUnknown); +begin + anInstance := TsrvComisiones.Create(NIL); +end; + +{ srvComisones } + +procedure TsrvComisiones.DARemoteServiceBeforeGetDatasetData( + const Dataset: IDADataset; const IncludeSchema: Boolean; + const MaxRecords: Integer); +begin +{ + if DataSet.Name = nme_FacturasCliente then + begin + { Aquí se asegura que el usuario sólo accede a facturas + de las empresas a las que tiene permiso para acceder + filtrando DataSet por ID_EMPRESA. } +{ FiltrarAccesoUsuario(Session, Connection, schFacturasCliente, DataSet, fld_FacturasClienteID_EMPRESA); + end; +} +end; + +procedure TsrvComisiones.DARemoteServiceCreate(Sender: TObject); +begin + //SessionManager := dmServer.SessionManager; + bpComisiones.BusinessRulesID := BIZ_SERVER_COMISIONES; +end; + +procedure TsrvComisiones.DataAbstractServiceBeforeAcquireConnection( + aSender: TObject; var aConnectionName: string); +begin + ConnectionName := dmServer.ConnectionName; +end; + +function TsrvComisiones.GenerarInforme(const ListaID: TIntegerArray; const Original: Integer; const Copia: Integer; const Contabilidad: Integer): Binary; +//var +// AReportGenerator : TRptFacturasCliente; +begin +{ AReportGenerator := TRptFacturasCliente.Create(nil); + try + Result := AReportGenerator.GenerarFactura(ListaID, Original, Copia, Contabilidad); + finally + FreeAndNIL(AReportGenerator); + end; +} +end; + + +initialization + TROClassFactory.Create('srvComisiones', Create_srvComisiones, TsrvComisiones_Invoker); + +finalization + +end. diff --git a/Source/Modulos/Contactos/Controller/uClientesController.pas b/Source/Modulos/Contactos/Controller/uClientesController.pas index fd3115c..f0e2364 100644 --- a/Source/Modulos/Contactos/Controller/uClientesController.pas +++ b/Source/Modulos/Contactos/Controller/uClientesController.pas @@ -118,7 +118,7 @@ begin ACliente.DatosBancarios.DataTable.First; while not ACliente.DatosBancarios.DataTable.EOF do begin - Aux := Format('%s %s %s %s - Titular: %s ', [ACliente.DatosBancarios.ENTIDAD, + Aux := Format('%s %s %s %s - %s ', [ACliente.DatosBancarios.ENTIDAD, ACliente.DatosBancarios.SUCURSAL, ACliente.DatosBancarios.DC, ACliente.DatosBancarios.CUENTA, ACliente.DatosBancarios.TITULAR]); Add(Format('%s=%d', [Aux, ACliente.DatosBancarios.ID])); ACliente.DatosBancarios.DataTable.Next; diff --git a/Source/Modulos/Contactos/Controller/uProveedoresController.pas b/Source/Modulos/Contactos/Controller/uProveedoresController.pas index efd1c22..da9285a 100644 --- a/Source/Modulos/Contactos/Controller/uProveedoresController.pas +++ b/Source/Modulos/Contactos/Controller/uProveedoresController.pas @@ -124,7 +124,7 @@ begin AProveedor.DatosBancarios.DataTable.First; while not AProveedor.DatosBancarios.DataTable.EOF do begin - Aux := Format('Nº de cuenta: %s %s %s %s - Titular: %s ', [AProveedor.DatosBancarios.ENTIDAD, + Aux := Format('Nº de cuenta: %s %s %s %s - %s ', [AProveedor.DatosBancarios.ENTIDAD, AProveedor.DatosBancarios.SUCURSAL, AProveedor.DatosBancarios.DC, AProveedor.DatosBancarios.CUENTA, AProveedor.DatosBancarios.TITULAR]); Add(Format('%s=%d', [Aux, AProveedor.DatosBancarios.ID])); AProveedor.DatosBancarios.DataTable.Next; diff --git a/Source/Modulos/Contactos/Data/Contactos_data.dproj b/Source/Modulos/Contactos/Data/Contactos_data.dproj index ac2f3ca..795a169 100644 --- a/Source/Modulos/Contactos/Data/Contactos_data.dproj +++ b/Source/Modulos/Contactos/Data/Contactos_data.dproj @@ -49,23 +49,23 @@ MainSource - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + +
DataModuleClientes
TDAClientDataModule diff --git a/Source/Modulos/Contactos/Data/Contactos_data.res b/Source/Modulos/Contactos/Data/Contactos_data.res index 8b251f3..02236de 100644 Binary files a/Source/Modulos/Contactos/Data/Contactos_data.res and b/Source/Modulos/Contactos/Data/Contactos_data.res differ diff --git a/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm b/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm index 676deaa..e236055 100644 --- a/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm +++ b/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm @@ -188,6 +188,10 @@ inherited DataModuleClientes: TDataModuleClientes Name = 'ID_AGENTE' DataType = datInteger end + item + Name = 'COMISION' + DataType = datCurrency + end item Name = 'GRUPO_CLIENTE' DataType = datString diff --git a/Source/Modulos/Contactos/Data/uDataModuleClientes.pas b/Source/Modulos/Contactos/Data/uDataModuleClientes.pas index 5e0fb9e..2ccbb43 100644 --- a/Source/Modulos/Contactos/Data/uDataModuleClientes.pas +++ b/Source/Modulos/Contactos/Data/uDataModuleClientes.pas @@ -11,7 +11,7 @@ uses uIDataModuleClientes, uDADesigntimeCall, uDARemoteDataAdapter, uDADataStreamer, uRODynamicRequest, uDAInterfaces, uDAMemDataTable, uDABin2DataStreamer, uControllerBase, uBizContactosDatosBancarios, - uIDataModuleContactos; + uIDataModuleContactos, uDADataAdapter; type TDataModuleClientes = class(TDataModuleContactos, IDataModuleClientes) diff --git a/Source/Modulos/Contactos/Model/Contactos_model.dproj b/Source/Modulos/Contactos/Model/Contactos_model.dproj index 06349e7..98dac2c 100644 --- a/Source/Modulos/Contactos/Model/Contactos_model.dproj +++ b/Source/Modulos/Contactos/Model/Contactos_model.dproj @@ -49,17 +49,17 @@ MainSource - - - - - - - - - - - + + + + + + + + + + + diff --git a/Source/Modulos/Contactos/Model/Contactos_model.res b/Source/Modulos/Contactos/Model/Contactos_model.res index 8b251f3..02236de 100644 Binary files a/Source/Modulos/Contactos/Model/Contactos_model.res and b/Source/Modulos/Contactos/Model/Contactos_model.res differ diff --git a/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas b/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas index 5b78fb1..248f2d9 100644 --- a/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas +++ b/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas @@ -1,5 +1,6 @@ unit schContactosClient_Intf; +{$D-} interface uses @@ -9,21 +10,21 @@ 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_Contactos = '{ACB5CADD-F95C-443A-8A8E-1924599B45CC}'; - RID_GruposCliente = '{B0E83D00-997F-4D68-B4B0-8D60D75329E3}'; - RID_DatosBancarios = '{10ECFCDF-8C7A-47DE-AE72-4077BE1B2360}'; - RID_Vendedores = '{12514B73-4876-4C4D-A6D0-60879AEE5665}'; - RID_Clientes = '{18301B14-C8F8-4DEB-B02A-90CA5A5130DE}'; - RID_Proveedores = '{A4AB7805-4A02-4CA0-90BC-77BA265E009E}'; - RID_Empleados = '{5609D8C2-BE56-4FA0-AB73-F0EC2484A84D}'; - RID_DireccionesContacto = '{0C5E669A-17DE-4DF9-8B49-7081CC8F0981}'; - RID_ClientesDescuentos = '{688D93EC-D8E9-41FD-929A-3F347665F442}'; - RID_GruposProveedor = '{79F38AFD-1BBF-4DF0-A867-BF6FF8391738}'; - RID_GruposEmpleado = '{B545DB65-489F-4361-BE6F-A59ECAF92498}'; - RID_Contactos_Refresh = '{DB8C8518-32E0-45D1-8020-37A643685AD4}'; - RID_ContratosEmpleados = '{6FE7D29D-BB36-4438-88AB-E81F6D099306}'; - RID_DescripcionesProveedores = '{5175E0DD-DF25-4BD8-A758-7117195820F1}'; - RID_PersonalContacto = '{122D7340-896B-4E17-9A8B-8F8F7600F059}'; + RID_Contactos = '{40EEDC67-CA3B-4797-8D86-E91A54462FEA}'; + RID_GruposCliente = '{1ACC85D1-0652-4142-A399-B68D0C240A89}'; + RID_DatosBancarios = '{C2E08D91-CD17-4477-8457-DBED6E64039F}'; + RID_Vendedores = '{93B7F239-1591-497D-960E-F68DEBD287E8}'; + RID_Clientes = '{7EBFBF83-F96F-46D9-8D76-7A71DA282525}'; + RID_Proveedores = '{6AAB5DEC-00A3-471C-9CFE-56B7148FD999}'; + RID_Empleados = '{DAB0B908-6666-46CE-9365-62A67F55F648}'; + RID_DireccionesContacto = '{3C0B2D0F-7349-48D7-8123-88631EA4D50C}'; + RID_ClientesDescuentos = '{5298A56C-55EA-4973-8CF0-EF409F7A83E5}'; + RID_GruposProveedor = '{1AE99C48-1D9A-463C-AAD0-389A42D1CEEA}'; + RID_GruposEmpleado = '{CD0B6DC7-A124-4CE7-AA69-C1912A56F0F4}'; + RID_Contactos_Refresh = '{0A3433AD-5E1B-4234-89CB-E79103B66C97}'; + RID_ContratosEmpleados = '{993DB7D4-6088-4395-BB65-6C50B68B62AC}'; + RID_DescripcionesProveedores = '{9489DD00-E34D-4A9D-A3A3-85FA3A1EAB4D}'; + RID_PersonalContacto = '{B2E905B7-FFA4-40AB-A60C-EB0F81C2932B}'; { Data table names } nme_Contactos = 'Contactos'; @@ -204,6 +205,7 @@ const fld_ClientesREFERENCIA = 'REFERENCIA'; fld_ClientesPAIS = 'PAIS'; fld_ClientesID_AGENTE = 'ID_AGENTE'; + fld_ClientesCOMISION = 'COMISION'; fld_ClientesGRUPO_CLIENTE = 'GRUPO_CLIENTE'; fld_ClientesNOMBRE_COMERCIAL = 'NOMBRE_COMERCIAL'; fld_ClientesVENCIMIENTO_FACTURAS_1 = 'VENCIMIENTO_FACTURAS_1'; @@ -246,21 +248,22 @@ const idx_ClientesREFERENCIA = 22; idx_ClientesPAIS = 23; idx_ClientesID_AGENTE = 24; - idx_ClientesGRUPO_CLIENTE = 25; - idx_ClientesNOMBRE_COMERCIAL = 26; - idx_ClientesVENCIMIENTO_FACTURAS_1 = 27; - idx_ClientesVENCIMIENTO_FACTURAS_2 = 28; - idx_ClientesVENCIMIENTO_FACTURAS_3 = 29; - idx_ClientesBLOQUEADO = 30; - idx_ClientesREGIMEN_IVA = 31; - idx_ClientesMOTIVO_BLOQUEO = 32; - idx_ClientesRECARGO_EQUIVALENCIA = 33; - idx_ClientesID_TIPO_IVA = 34; - idx_ClientesID_FORMA_PAGO = 35; - idx_ClientesTIENDA_WEB = 36; - idx_ClientesDESCUENTO = 37; - idx_ClientesDESCUENTO2 = 38; - idx_ClientesFELICITACION = 39; + idx_ClientesCOMISION = 25; + idx_ClientesGRUPO_CLIENTE = 26; + idx_ClientesNOMBRE_COMERCIAL = 27; + idx_ClientesVENCIMIENTO_FACTURAS_1 = 28; + idx_ClientesVENCIMIENTO_FACTURAS_2 = 29; + idx_ClientesVENCIMIENTO_FACTURAS_3 = 30; + idx_ClientesBLOQUEADO = 31; + idx_ClientesREGIMEN_IVA = 32; + idx_ClientesMOTIVO_BLOQUEO = 33; + idx_ClientesRECARGO_EQUIVALENCIA = 34; + idx_ClientesID_TIPO_IVA = 35; + idx_ClientesID_FORMA_PAGO = 36; + idx_ClientesTIENDA_WEB = 37; + idx_ClientesDESCUENTO = 38; + idx_ClientesDESCUENTO2 = 39; + idx_ClientesFELICITACION = 40; { Proveedores fields } fld_ProveedoresID = 'ID'; @@ -565,7 +568,7 @@ const type { IContactos } IContactos = interface(IDAStronglyTypedDataTable) - ['{6FFD15FA-F03C-4A70-9869-849498EF548F}'] + ['{358E584B-5B73-46B6-946D-D9EF86FD104E}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -876,7 +879,7 @@ type { IGruposCliente } IGruposCliente = interface(IDAStronglyTypedDataTable) - ['{88D32187-D7D2-4E4A-8B19-CBDE9C92DC95}'] + ['{87C27143-A80E-47FC-9797-1C26024FC384}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -923,7 +926,7 @@ type { IDatosBancarios } IDatosBancarios = interface(IDAStronglyTypedDataTable) - ['{D0179233-B497-4F75-8DD3-D735B6AD3DCE}'] + ['{95246948-ED8A-43E7-926A-659025CB48B1}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1054,7 +1057,7 @@ type { IVendedores } IVendedores = interface(IDAStronglyTypedDataTable) - ['{3F7AD4D0-A0A7-4CBD-945E-9C09D256F985}'] + ['{844511CB-CFAB-4D7E-92D6-AC337E0E789F}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1377,7 +1380,7 @@ type { IClientes } IClientes = interface(IDAStronglyTypedDataTable) - ['{13CA3422-D066-4E6E-BC73-CD524DE9B38B}'] + ['{E35C963F-C752-493F-999A-864225B06CB4}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1478,6 +1481,10 @@ type procedure SetID_AGENTEValue(const aValue: Integer); function GetID_AGENTEIsNull: Boolean; procedure SetID_AGENTEIsNull(const aValue: Boolean); + function GetCOMISIONValue: Currency; + procedure SetCOMISIONValue(const aValue: Currency); + function GetCOMISIONIsNull: Boolean; + procedure SetCOMISIONIsNull(const aValue: Boolean); function GetGRUPO_CLIENTEValue: String; procedure SetGRUPO_CLIENTEValue(const aValue: String); function GetGRUPO_CLIENTEIsNull: Boolean; @@ -1591,6 +1598,8 @@ type property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull; property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue; property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull; + property COMISION: Currency read GetCOMISIONValue write SetCOMISIONValue; + property COMISIONIsNull: Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull; property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue; property GRUPO_CLIENTEIsNull: Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull; property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue; @@ -1729,6 +1738,10 @@ type procedure SetID_AGENTEValue(const aValue: Integer); virtual; function GetID_AGENTEIsNull: Boolean; virtual; procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual; + function GetCOMISIONValue: Currency; virtual; + procedure SetCOMISIONValue(const aValue: Currency); virtual; + function GetCOMISIONIsNull: Boolean; virtual; + procedure SetCOMISIONIsNull(const aValue: Boolean); virtual; function GetGRUPO_CLIENTEValue: String; virtual; procedure SetGRUPO_CLIENTEValue(const aValue: String); virtual; function GetGRUPO_CLIENTEIsNull: Boolean; virtual; @@ -1841,6 +1854,8 @@ type property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull; property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue; property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull; + property COMISION: Currency read GetCOMISIONValue write SetCOMISIONValue; + property COMISIONIsNull: Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull; property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue; property GRUPO_CLIENTEIsNull: Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull; property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue; @@ -1880,7 +1895,7 @@ type { IProveedores } IProveedores = interface(IDAStronglyTypedDataTable) - ['{09C19974-2929-4FA3-9C2E-81C86D19A192}'] + ['{EA1E5B39-98E9-46B9-9E6F-B3E05E456A7C}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -2347,7 +2362,7 @@ type { IEmpleados } IEmpleados = interface(IDAStronglyTypedDataTable) - ['{2A6F4FA5-EACD-4B61-855C-FB78AF8AB97F}'] + ['{3302FF05-08A6-4636-A953-C8E1DB385465}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -2778,7 +2793,7 @@ type { IDireccionesContacto } IDireccionesContacto = interface(IDAStronglyTypedDataTable) - ['{34A6F19A-C8EC-4868-95DE-A9EF058BCDA3}'] + ['{42526317-840D-474B-874C-56C977DF0267}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -2993,7 +3008,7 @@ type { IClientesDescuentos } IClientesDescuentos = interface(IDAStronglyTypedDataTable) - ['{A5743C5A-DADA-4A63-8741-5AC78A7E45D2}'] + ['{D55AB96B-5AA5-4FC7-BD32-149537426CF7}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -3076,7 +3091,7 @@ type { IGruposProveedor } IGruposProveedor = interface(IDAStronglyTypedDataTable) - ['{649EDBC4-FD69-4670-AFFB-2C573641E8A8}'] + ['{415839A3-2D9C-46B1-A834-C506047B219E}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -3123,7 +3138,7 @@ type { IGruposEmpleado } IGruposEmpleado = interface(IDAStronglyTypedDataTable) - ['{1ED96515-2619-4578-B181-09164CB0A100}'] + ['{96967494-996F-42F7-A9B8-FD673C54953D}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -3170,7 +3185,7 @@ type { IContactos_Refresh } IContactos_Refresh = interface(IDAStronglyTypedDataTable) - ['{8E91D71D-F232-4050-A268-ECEB26CE6A62}'] + ['{AD566224-14F8-4A71-A9F1-76ACE4934A7B}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -3457,7 +3472,7 @@ type { IContratosEmpleados } IContratosEmpleados = interface(IDAStronglyTypedDataTable) - ['{3DFCEC34-6845-4EC6-8A19-BA53BE6B364C}'] + ['{B90DFB32-59DC-4AF7-972F-6306E5F01F00}'] { Property getters and setters } function GetCONTRATOValue: String; procedure SetCONTRATOValue(const aValue: String); @@ -3492,7 +3507,7 @@ type { IDescripcionesProveedores } IDescripcionesProveedores = interface(IDAStronglyTypedDataTable) - ['{3FFC0F30-8945-4562-817B-36840D881863}'] + ['{EA745A54-6961-4ECE-8A9F-52C3CDC10F8E}'] { Property getters and setters } function GetDESCRIPCION_PROVEEDORValue: String; procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String); @@ -3527,7 +3542,7 @@ type { IPersonalContacto } IPersonalContacto = interface(IDAStronglyTypedDataTable) - ['{DE1EDF09-B74A-477F-B8E9-5B41210E97F0}'] + ['{48F827C8-74B1-4C48-AC6C-1566365DAEF3}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -5537,6 +5552,27 @@ begin DataTable.Fields[idx_ClientesID_AGENTE].AsVariant := Null; end; +function TClientesDataTableRules.GetCOMISIONValue: Currency; +begin + result := DataTable.Fields[idx_ClientesCOMISION].AsCurrency; +end; + +procedure TClientesDataTableRules.SetCOMISIONValue(const aValue: Currency); +begin + DataTable.Fields[idx_ClientesCOMISION].AsCurrency := aValue; +end; + +function TClientesDataTableRules.GetCOMISIONIsNull: boolean; +begin + result := DataTable.Fields[idx_ClientesCOMISION].IsNull; +end; + +procedure TClientesDataTableRules.SetCOMISIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ClientesCOMISION].AsVariant := Null; +end; + function TClientesDataTableRules.GetGRUPO_CLIENTEValue: String; begin result := DataTable.Fields[idx_ClientesGRUPO_CLIENTE].AsString; diff --git a/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas b/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas index 85e3214..540d514 100644 --- a/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas +++ b/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas @@ -1,5 +1,6 @@ unit schContactosServer_Intf; +{$D-} interface uses @@ -9,26 +10,26 @@ 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_ContactosDelta = '{35EC5BF8-126B-441D-B145-43D38FF03722}'; - RID_GruposClienteDelta = '{27C3BC18-CFA9-4E9E-85F3-F431159A9EB9}'; - RID_DatosBancariosDelta = '{DF8C8BF9-7D6F-4650-8913-8A888C23E120}'; - RID_VendedoresDelta = '{A6E192F4-3421-443D-958F-A48C8F6731CE}'; - RID_ClientesDelta = '{0548B10F-D93E-4B76-AA9B-51BFBC04921B}'; - RID_ProveedoresDelta = '{16295798-804B-490B-8E29-212CE00362DA}'; - RID_EmpleadosDelta = '{3C707336-4534-4AAB-9559-1D77997CF19E}'; - RID_DireccionesContactoDelta = '{3959A09C-3EEA-4DCB-8A49-0D2B2AE9C72C}'; - RID_ClientesDescuentosDelta = '{52224EF5-FDD9-4AA7-B5BE-4A529BD7F2B8}'; - RID_GruposProveedorDelta = '{57A6B910-1DCC-4EB1-BFC1-59F07F6CA76B}'; - RID_GruposEmpleadoDelta = '{FE643621-8089-483A-9829-C94F4224CD54}'; - RID_Contactos_RefreshDelta = '{9DF96FDB-21E2-44F1-93BC-F4C8E9B09720}'; - RID_ContratosEmpleadosDelta = '{A84D6F08-40EE-46F9-B53E-D6B2AC27F76B}'; - RID_DescripcionesProveedoresDelta = '{BED04FB6-DC23-4AB4-BD23-3CBE23CB4E65}'; - RID_PersonalContactoDelta = '{59A67125-C3DE-4410-BD18-D5267708A007}'; + RID_ContactosDelta = '{EA4139BB-54B3-44A8-A12C-A0A9AC903593}'; + RID_GruposClienteDelta = '{D468137E-CD16-46BA-9646-FE70A0B6FFDA}'; + RID_DatosBancariosDelta = '{5E28D739-1E8F-4E9B-810D-29D7E75FCB32}'; + RID_VendedoresDelta = '{83FB18DE-DE8E-4C42-8B50-1B866686E7E1}'; + RID_ClientesDelta = '{B15CC723-960E-4C0A-BA08-2801428DFECB}'; + RID_ProveedoresDelta = '{CED6EAA0-3FD4-45D5-89A9-0FBAD6204919}'; + RID_EmpleadosDelta = '{6C2167FE-599E-4361-9499-FBD818BC6EA4}'; + RID_DireccionesContactoDelta = '{6347EA22-511C-4C75-90F8-D91E30715F1F}'; + RID_ClientesDescuentosDelta = '{2D3F60B0-1CC5-4433-B456-A86E9DA14E0A}'; + RID_GruposProveedorDelta = '{2539EDFE-EC99-4837-B8FA-2F1349A7218E}'; + RID_GruposEmpleadoDelta = '{54EFCD4E-CB9A-4FC9-9EED-AB51DFD946E0}'; + RID_Contactos_RefreshDelta = '{226A8008-F923-4749-A46D-6BF8E4010A12}'; + RID_ContratosEmpleadosDelta = '{F0EF2BFC-3F06-4CE4-A38F-AD6B2F50960D}'; + RID_DescripcionesProveedoresDelta = '{CC535BC1-65AC-43A7-822E-D73A2BC64D1D}'; + RID_PersonalContactoDelta = '{0B0793EF-FBA3-4104-8F17-B0C1EB078D22}'; type { IContactosDelta } IContactosDelta = interface(IContactos) - ['{35EC5BF8-126B-441D-B145-43D38FF03722}'] + ['{EA4139BB-54B3-44A8-A12C-A0A9AC903593}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CATEGORIAValue : Integer; @@ -339,7 +340,7 @@ type { IGruposClienteDelta } IGruposClienteDelta = interface(IGruposCliente) - ['{27C3BC18-CFA9-4E9E-85F3-F431159A9EB9}'] + ['{D468137E-CD16-46BA-9646-FE70A0B6FFDA}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldDESCRIPCIONValue : String; @@ -385,7 +386,7 @@ type { IDatosBancariosDelta } IDatosBancariosDelta = interface(IDatosBancarios) - ['{DF8C8BF9-7D6F-4650-8913-8A888C23E120}'] + ['{5E28D739-1E8F-4E9B-810D-29D7E75FCB32}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CONTACTOValue : Integer; @@ -515,7 +516,7 @@ type { IVendedoresDelta } IVendedoresDelta = interface(IVendedores) - ['{A6E192F4-3421-443D-958F-A48C8F6731CE}'] + ['{83FB18DE-DE8E-4C42-8B50-1B866686E7E1}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CATEGORIAValue : Integer; @@ -838,7 +839,7 @@ type { IClientesDelta } IClientesDelta = interface(IClientes) - ['{0548B10F-D93E-4B76-AA9B-51BFBC04921B}'] + ['{B15CC723-960E-4C0A-BA08-2801428DFECB}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CATEGORIAValue : Integer; @@ -865,6 +866,7 @@ type function GetOldREFERENCIAValue : String; function GetOldPAISValue : String; function GetOldID_AGENTEValue : Integer; + function GetOldCOMISIONValue : Currency; function GetOldGRUPO_CLIENTEValue : String; function GetOldNOMBRE_COMERCIALValue : String; function GetOldVENCIMIENTO_FACTURAS_1Value : SmallInt; @@ -907,6 +909,7 @@ type property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldPAIS : String read GetOldPAISValue; property OldID_AGENTE : Integer read GetOldID_AGENTEValue; + property OldCOMISION : Currency read GetOldCOMISIONValue; property OldGRUPO_CLIENTE : String read GetOldGRUPO_CLIENTEValue; property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue; property OldVENCIMIENTO_FACTURAS_1 : SmallInt read GetOldVENCIMIENTO_FACTURAS_1Value; @@ -1080,6 +1083,12 @@ type function GetOldID_AGENTEIsNull: Boolean; virtual; procedure SetID_AGENTEValue(const aValue: Integer); virtual; procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual; + function GetCOMISIONValue: Currency; virtual; + function GetCOMISIONIsNull: Boolean; virtual; + function GetOldCOMISIONValue: Currency; virtual; + function GetOldCOMISIONIsNull: Boolean; virtual; + procedure SetCOMISIONValue(const aValue: Currency); virtual; + procedure SetCOMISIONIsNull(const aValue: Boolean); virtual; function GetGRUPO_CLIENTEValue: String; virtual; function GetGRUPO_CLIENTEIsNull: Boolean; virtual; function GetOldGRUPO_CLIENTEValue: String; virtual; @@ -1272,6 +1281,10 @@ type property ID_AGENTEIsNull : Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull; property OldID_AGENTE : Integer read GetOldID_AGENTEValue; property OldID_AGENTEIsNull : Boolean read GetOldID_AGENTEIsNull; + property COMISION : Currency read GetCOMISIONValue write SetCOMISIONValue; + property COMISIONIsNull : Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull; + property OldCOMISION : Currency read GetOldCOMISIONValue; + property OldCOMISIONIsNull : Boolean read GetOldCOMISIONIsNull; property GRUPO_CLIENTE : String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue; property GRUPO_CLIENTEIsNull : Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull; property OldGRUPO_CLIENTE : String read GetOldGRUPO_CLIENTEValue; @@ -1341,7 +1354,7 @@ type { IProveedoresDelta } IProveedoresDelta = interface(IProveedores) - ['{16295798-804B-490B-8E29-212CE00362DA}'] + ['{CED6EAA0-3FD4-45D5-89A9-0FBAD6204919}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CATEGORIAValue : Integer; @@ -1808,7 +1821,7 @@ type { IEmpleadosDelta } IEmpleadosDelta = interface(IEmpleados) - ['{3C707336-4534-4AAB-9559-1D77997CF19E}'] + ['{6C2167FE-599E-4361-9499-FBD818BC6EA4}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CATEGORIAValue : Integer; @@ -2243,7 +2256,7 @@ type { IDireccionesContactoDelta } IDireccionesContactoDelta = interface(IDireccionesContacto) - ['{3959A09C-3EEA-4DCB-8A49-0D2B2AE9C72C}'] + ['{6347EA22-511C-4C75-90F8-D91E30715F1F}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CONTACTOValue : Integer; @@ -2458,7 +2471,7 @@ type { IClientesDescuentosDelta } IClientesDescuentosDelta = interface(IClientesDescuentos) - ['{52224EF5-FDD9-4AA7-B5BE-4A529BD7F2B8}'] + ['{2D3F60B0-1CC5-4433-B456-A86E9DA14E0A}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CLIENTEValue : Integer; @@ -2540,7 +2553,7 @@ type { IGruposProveedorDelta } IGruposProveedorDelta = interface(IGruposProveedor) - ['{57A6B910-1DCC-4EB1-BFC1-59F07F6CA76B}'] + ['{2539EDFE-EC99-4837-B8FA-2F1349A7218E}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldDESCRIPCIONValue : String; @@ -2586,7 +2599,7 @@ type { IGruposEmpleadoDelta } IGruposEmpleadoDelta = interface(IGruposEmpleado) - ['{FE643621-8089-483A-9829-C94F4224CD54}'] + ['{54EFCD4E-CB9A-4FC9-9EED-AB51DFD946E0}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldDESCRIPCIONValue : String; @@ -2632,7 +2645,7 @@ type { IContactos_RefreshDelta } IContactos_RefreshDelta = interface(IContactos_Refresh) - ['{9DF96FDB-21E2-44F1-93BC-F4C8E9B09720}'] + ['{226A8008-F923-4749-A46D-6BF8E4010A12}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldNIF_CIFValue : String; @@ -2919,7 +2932,7 @@ type { IContratosEmpleadosDelta } IContratosEmpleadosDelta = interface(IContratosEmpleados) - ['{A84D6F08-40EE-46F9-B53E-D6B2AC27F76B}'] + ['{F0EF2BFC-3F06-4CE4-A38F-AD6B2F50960D}'] { Property getters and setters } function GetOldCONTRATOValue : String; @@ -2953,7 +2966,7 @@ type { IDescripcionesProveedoresDelta } IDescripcionesProveedoresDelta = interface(IDescripcionesProveedores) - ['{BED04FB6-DC23-4AB4-BD23-3CBE23CB4E65}'] + ['{CC535BC1-65AC-43A7-822E-D73A2BC64D1D}'] { Property getters and setters } function GetOldDESCRIPCION_PROVEEDORValue : String; @@ -2987,7 +3000,7 @@ type { IPersonalContactoDelta } IPersonalContactoDelta = interface(IPersonalContacto) - ['{59A67125-C3DE-4410-BD18-D5267708A007}'] + ['{0B0793EF-FBA3-4104-8F17-B0C1EB078D22}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CONTACTOValue : Integer; @@ -3160,8 +3173,10 @@ begin end; function TContactosBusinessProcessorRules.GetIDIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID]; + result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldIDValue: Integer; @@ -3170,8 +3185,10 @@ begin end; function TContactosBusinessProcessorRules.GetOldIDIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosID]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosID]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetIDValue(const aValue: Integer); @@ -3191,8 +3208,10 @@ begin end; function TContactosBusinessProcessorRules.GetID_CATEGORIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID_CATEGORIA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID_CATEGORIA]; + result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldID_CATEGORIAValue: Integer; @@ -3201,8 +3220,10 @@ begin end; function TContactosBusinessProcessorRules.GetOldID_CATEGORIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosID_CATEGORIA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosID_CATEGORIA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetID_CATEGORIAValue(const aValue: Integer); @@ -3222,8 +3243,10 @@ begin end; function TContactosBusinessProcessorRules.GetNIF_CIFIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNIF_CIF]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNIF_CIF]; + result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldNIF_CIFValue: String; @@ -3232,8 +3255,10 @@ begin end; function TContactosBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosNIF_CIF]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosNIF_CIF]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetNIF_CIFValue(const aValue: String); @@ -3253,8 +3278,10 @@ begin end; function TContactosBusinessProcessorRules.GetNOMBREIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNOMBRE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNOMBRE]; + result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldNOMBREValue: String; @@ -3263,8 +3290,10 @@ begin end; function TContactosBusinessProcessorRules.GetOldNOMBREIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosNOMBRE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosNOMBRE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetNOMBREValue(const aValue: String); @@ -3284,8 +3313,10 @@ begin end; function TContactosBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPERSONA_CONTACTO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPERSONA_CONTACTO]; + result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String; @@ -3294,8 +3325,10 @@ begin end; function TContactosBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPERSONA_CONTACTO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPERSONA_CONTACTO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String); @@ -3315,8 +3348,10 @@ begin end; function TContactosBusinessProcessorRules.GetCALLEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCALLE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCALLE]; + result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldCALLEValue: String; @@ -3325,8 +3360,10 @@ begin end; function TContactosBusinessProcessorRules.GetOldCALLEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosCALLE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosCALLE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetCALLEValue(const aValue: String); @@ -3346,8 +3383,10 @@ begin end; function TContactosBusinessProcessorRules.GetPOBLACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPOBLACION]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPOBLACION]; + result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldPOBLACIONValue: String; @@ -3356,8 +3395,10 @@ begin end; function TContactosBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPOBLACION]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPOBLACION]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetPOBLACIONValue(const aValue: String); @@ -3377,8 +3418,10 @@ begin end; function TContactosBusinessProcessorRules.GetPROVINCIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPROVINCIA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPROVINCIA]; + result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldPROVINCIAValue: String; @@ -3387,8 +3430,10 @@ begin end; function TContactosBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPROVINCIA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPROVINCIA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetPROVINCIAValue(const aValue: String); @@ -3408,8 +3453,10 @@ begin end; function TContactosBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCODIGO_POSTAL]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosCODIGO_POSTAL]; + result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldCODIGO_POSTALValue: String; @@ -3418,8 +3465,10 @@ begin end; function TContactosBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosCODIGO_POSTAL]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosCODIGO_POSTAL]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String); @@ -3439,8 +3488,10 @@ begin end; function TContactosBusinessProcessorRules.GetTELEFONO_1IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosTELEFONO_1]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosTELEFONO_1]; + result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldTELEFONO_1Value: String; @@ -3449,8 +3500,10 @@ begin end; function TContactosBusinessProcessorRules.GetOldTELEFONO_1IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosTELEFONO_1]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosTELEFONO_1]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetTELEFONO_1Value(const aValue: String); @@ -3470,8 +3523,10 @@ begin end; function TContactosBusinessProcessorRules.GetTELEFONO_2IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosTELEFONO_2]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosTELEFONO_2]; + result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldTELEFONO_2Value: String; @@ -3480,8 +3535,10 @@ begin end; function TContactosBusinessProcessorRules.GetOldTELEFONO_2IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosTELEFONO_2]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosTELEFONO_2]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetTELEFONO_2Value(const aValue: String); @@ -3501,8 +3558,10 @@ begin end; function TContactosBusinessProcessorRules.GetMOVIL_1IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosMOVIL_1]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosMOVIL_1]; + result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldMOVIL_1Value: String; @@ -3511,8 +3570,10 @@ begin end; function TContactosBusinessProcessorRules.GetOldMOVIL_1IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosMOVIL_1]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosMOVIL_1]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetMOVIL_1Value(const aValue: String); @@ -3532,8 +3593,10 @@ begin end; function TContactosBusinessProcessorRules.GetMOVIL_2IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosMOVIL_2]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosMOVIL_2]; + result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldMOVIL_2Value: String; @@ -3542,8 +3605,10 @@ begin end; function TContactosBusinessProcessorRules.GetOldMOVIL_2IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosMOVIL_2]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosMOVIL_2]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetMOVIL_2Value(const aValue: String); @@ -3563,8 +3628,10 @@ begin end; function TContactosBusinessProcessorRules.GetFAXIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFAX]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFAX]; + result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldFAXValue: String; @@ -3573,8 +3640,10 @@ begin end; function TContactosBusinessProcessorRules.GetOldFAXIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosFAX]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosFAX]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetFAXValue(const aValue: String); @@ -3594,8 +3663,10 @@ begin end; function TContactosBusinessProcessorRules.GetEMAIL_1IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosEMAIL_1]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosEMAIL_1]; + result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldEMAIL_1Value: String; @@ -3604,8 +3675,10 @@ begin end; function TContactosBusinessProcessorRules.GetOldEMAIL_1IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosEMAIL_1]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosEMAIL_1]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetEMAIL_1Value(const aValue: String); @@ -3625,8 +3698,10 @@ begin end; function TContactosBusinessProcessorRules.GetEMAIL_2IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosEMAIL_2]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosEMAIL_2]; + result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldEMAIL_2Value: String; @@ -3635,8 +3710,10 @@ begin end; function TContactosBusinessProcessorRules.GetOldEMAIL_2IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosEMAIL_2]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosEMAIL_2]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetEMAIL_2Value(const aValue: String); @@ -3656,8 +3733,10 @@ begin end; function TContactosBusinessProcessorRules.GetPAGINA_WEBIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPAGINA_WEB]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPAGINA_WEB]; + result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldPAGINA_WEBValue: String; @@ -3666,8 +3745,10 @@ begin end; function TContactosBusinessProcessorRules.GetOldPAGINA_WEBIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPAGINA_WEB]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPAGINA_WEB]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetPAGINA_WEBValue(const aValue: String); @@ -3688,8 +3769,10 @@ begin end; function TContactosBusinessProcessorRules.GetNOTASIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNOTAS]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosNOTAS]; + result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldNOTASValue: IROStrings; @@ -3699,8 +3782,10 @@ begin end; function TContactosBusinessProcessorRules.GetOldNOTASIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosNOTAS]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosNOTAS]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetNOTASIsNull(const aValue: Boolean); @@ -3715,8 +3800,10 @@ begin end; function TContactosBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFECHA_ALTA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFECHA_ALTA]; + result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; @@ -3725,8 +3812,10 @@ begin end; function TContactosBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosFECHA_ALTA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosFECHA_ALTA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); @@ -3746,8 +3835,10 @@ begin end; function TContactosBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFECHA_MODIFICACION]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosFECHA_MODIFICACION]; + result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; @@ -3756,8 +3847,10 @@ begin end; function TContactosBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosFECHA_MODIFICACION]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosFECHA_MODIFICACION]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); @@ -3777,8 +3870,10 @@ begin end; function TContactosBusinessProcessorRules.GetUSUARIOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosUSUARIO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosUSUARIO]; + result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldUSUARIOValue: String; @@ -3787,8 +3882,10 @@ begin end; function TContactosBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosUSUARIO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosUSUARIO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetUSUARIOValue(const aValue: String); @@ -3808,8 +3905,10 @@ begin end; function TContactosBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID_EMPRESA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosID_EMPRESA]; + result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; @@ -3818,8 +3917,10 @@ begin end; function TContactosBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosID_EMPRESA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosID_EMPRESA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); @@ -3839,8 +3940,10 @@ begin end; function TContactosBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosREFERENCIA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosREFERENCIA]; + result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldREFERENCIAValue: String; @@ -3849,8 +3952,10 @@ begin end; function TContactosBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosREFERENCIA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosREFERENCIA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); @@ -3870,8 +3975,10 @@ begin end; function TContactosBusinessProcessorRules.GetPAISIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPAIS]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPAIS]; + result := VarIsNull(v) or VarIsClear(v); end; function TContactosBusinessProcessorRules.GetOldPAISValue: String; @@ -3880,8 +3987,10 @@ begin end; function TContactosBusinessProcessorRules.GetOldPAISIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPAIS]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPAIS]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContactosBusinessProcessorRules.SetPAISValue(const aValue: String); @@ -3913,8 +4022,10 @@ begin end; function TGruposClienteBusinessProcessorRules.GetIDIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_GruposClienteID]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_GruposClienteID]; + result := VarIsNull(v) or VarIsClear(v); end; function TGruposClienteBusinessProcessorRules.GetOldIDValue: Integer; @@ -3923,8 +4034,10 @@ begin end; function TGruposClienteBusinessProcessorRules.GetOldIDIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_GruposClienteID]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_GruposClienteID]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TGruposClienteBusinessProcessorRules.SetIDValue(const aValue: Integer); @@ -3944,8 +4057,10 @@ begin end; function TGruposClienteBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_GruposClienteDESCRIPCION]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_GruposClienteDESCRIPCION]; + result := VarIsNull(v) or VarIsClear(v); end; function TGruposClienteBusinessProcessorRules.GetOldDESCRIPCIONValue: String; @@ -3954,8 +4069,10 @@ begin end; function TGruposClienteBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_GruposClienteDESCRIPCION]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_GruposClienteDESCRIPCION]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TGruposClienteBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); @@ -3987,8 +4104,10 @@ begin end; function TDatosBancariosBusinessProcessorRules.GetIDIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosID]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosID]; + result := VarIsNull(v) or VarIsClear(v); end; function TDatosBancariosBusinessProcessorRules.GetOldIDValue: Integer; @@ -3997,8 +4116,10 @@ begin end; function TDatosBancariosBusinessProcessorRules.GetOldIDIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosID]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosID]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TDatosBancariosBusinessProcessorRules.SetIDValue(const aValue: Integer); @@ -4018,8 +4139,10 @@ begin end; function TDatosBancariosBusinessProcessorRules.GetID_CONTACTOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosID_CONTACTO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosID_CONTACTO]; + result := VarIsNull(v) or VarIsClear(v); end; function TDatosBancariosBusinessProcessorRules.GetOldID_CONTACTOValue: Integer; @@ -4028,8 +4151,10 @@ begin end; function TDatosBancariosBusinessProcessorRules.GetOldID_CONTACTOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosID_CONTACTO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosID_CONTACTO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TDatosBancariosBusinessProcessorRules.SetID_CONTACTOValue(const aValue: Integer); @@ -4049,8 +4174,10 @@ begin end; function TDatosBancariosBusinessProcessorRules.GetTITULARIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosTITULAR]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosTITULAR]; + result := VarIsNull(v) or VarIsClear(v); end; function TDatosBancariosBusinessProcessorRules.GetOldTITULARValue: String; @@ -4059,8 +4186,10 @@ begin end; function TDatosBancariosBusinessProcessorRules.GetOldTITULARIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosTITULAR]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosTITULAR]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TDatosBancariosBusinessProcessorRules.SetTITULARValue(const aValue: String); @@ -4080,8 +4209,10 @@ begin end; function TDatosBancariosBusinessProcessorRules.GetENTIDADIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosENTIDAD]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosENTIDAD]; + result := VarIsNull(v) or VarIsClear(v); end; function TDatosBancariosBusinessProcessorRules.GetOldENTIDADValue: String; @@ -4090,8 +4221,10 @@ begin end; function TDatosBancariosBusinessProcessorRules.GetOldENTIDADIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosENTIDAD]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosENTIDAD]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TDatosBancariosBusinessProcessorRules.SetENTIDADValue(const aValue: String); @@ -4111,8 +4244,10 @@ begin end; function TDatosBancariosBusinessProcessorRules.GetSUCURSALIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosSUCURSAL]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosSUCURSAL]; + result := VarIsNull(v) or VarIsClear(v); end; function TDatosBancariosBusinessProcessorRules.GetOldSUCURSALValue: String; @@ -4121,8 +4256,10 @@ begin end; function TDatosBancariosBusinessProcessorRules.GetOldSUCURSALIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosSUCURSAL]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosSUCURSAL]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TDatosBancariosBusinessProcessorRules.SetSUCURSALValue(const aValue: String); @@ -4142,8 +4279,10 @@ begin end; function TDatosBancariosBusinessProcessorRules.GetDCIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosDC]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosDC]; + result := VarIsNull(v) or VarIsClear(v); end; function TDatosBancariosBusinessProcessorRules.GetOldDCValue: String; @@ -4152,8 +4291,10 @@ begin end; function TDatosBancariosBusinessProcessorRules.GetOldDCIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosDC]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosDC]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TDatosBancariosBusinessProcessorRules.SetDCValue(const aValue: String); @@ -4173,8 +4314,10 @@ begin end; function TDatosBancariosBusinessProcessorRules.GetCUENTAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosCUENTA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosCUENTA]; + result := VarIsNull(v) or VarIsClear(v); end; function TDatosBancariosBusinessProcessorRules.GetOldCUENTAValue: String; @@ -4183,8 +4326,10 @@ begin end; function TDatosBancariosBusinessProcessorRules.GetOldCUENTAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosCUENTA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosCUENTA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TDatosBancariosBusinessProcessorRules.SetCUENTAValue(const aValue: String); @@ -4204,8 +4349,10 @@ begin end; function TDatosBancariosBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosFECHA_ALTA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosFECHA_ALTA]; + result := VarIsNull(v) or VarIsClear(v); end; function TDatosBancariosBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; @@ -4214,8 +4361,10 @@ begin end; function TDatosBancariosBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosFECHA_ALTA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosFECHA_ALTA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TDatosBancariosBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); @@ -4235,8 +4384,10 @@ begin end; function TDatosBancariosBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosFECHA_MODIFICACION]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_DatosBancariosFECHA_MODIFICACION]; + result := VarIsNull(v) or VarIsClear(v); end; function TDatosBancariosBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; @@ -4245,8 +4396,10 @@ begin end; function TDatosBancariosBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosFECHA_MODIFICACION]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_DatosBancariosFECHA_MODIFICACION]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TDatosBancariosBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); @@ -4289,8 +4442,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetIDIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresID]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresID]; + result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldIDValue: Integer; @@ -4299,8 +4454,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetOldIDIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresID]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresID]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetIDValue(const aValue: Integer); @@ -4320,8 +4477,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetID_CATEGORIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresID_CATEGORIA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresID_CATEGORIA]; + result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldID_CATEGORIAValue: Integer; @@ -4330,8 +4489,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetOldID_CATEGORIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresID_CATEGORIA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresID_CATEGORIA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetID_CATEGORIAValue(const aValue: Integer); @@ -4351,8 +4512,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetNIF_CIFIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresNIF_CIF]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresNIF_CIF]; + result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldNIF_CIFValue: String; @@ -4361,8 +4524,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresNIF_CIF]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresNIF_CIF]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetNIF_CIFValue(const aValue: String); @@ -4382,8 +4547,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetNOMBREIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresNOMBRE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresNOMBRE]; + result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldNOMBREValue: String; @@ -4392,8 +4559,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetOldNOMBREIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresNOMBRE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresNOMBRE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetNOMBREValue(const aValue: String); @@ -4413,8 +4582,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPERSONA_CONTACTO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPERSONA_CONTACTO]; + result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String; @@ -4423,8 +4594,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresPERSONA_CONTACTO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresPERSONA_CONTACTO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String); @@ -4444,8 +4617,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetCALLEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresCALLE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresCALLE]; + result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldCALLEValue: String; @@ -4454,8 +4629,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetOldCALLEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresCALLE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresCALLE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetCALLEValue(const aValue: String); @@ -4475,8 +4652,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetPOBLACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPOBLACION]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPOBLACION]; + result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldPOBLACIONValue: String; @@ -4485,8 +4664,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresPOBLACION]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresPOBLACION]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetPOBLACIONValue(const aValue: String); @@ -4506,8 +4687,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetPROVINCIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPROVINCIA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPROVINCIA]; + result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldPROVINCIAValue: String; @@ -4516,8 +4699,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresPROVINCIA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresPROVINCIA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetPROVINCIAValue(const aValue: String); @@ -4537,8 +4722,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresCODIGO_POSTAL]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresCODIGO_POSTAL]; + result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldCODIGO_POSTALValue: String; @@ -4547,8 +4734,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresCODIGO_POSTAL]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresCODIGO_POSTAL]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String); @@ -4568,8 +4757,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetTELEFONO_1IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresTELEFONO_1]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresTELEFONO_1]; + result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldTELEFONO_1Value: String; @@ -4578,8 +4769,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetOldTELEFONO_1IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresTELEFONO_1]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresTELEFONO_1]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetTELEFONO_1Value(const aValue: String); @@ -4599,8 +4792,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetTELEFONO_2IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresTELEFONO_2]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresTELEFONO_2]; + result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldTELEFONO_2Value: String; @@ -4609,8 +4804,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetOldTELEFONO_2IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresTELEFONO_2]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresTELEFONO_2]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetTELEFONO_2Value(const aValue: String); @@ -4630,8 +4827,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetMOVIL_1IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresMOVIL_1]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresMOVIL_1]; + result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldMOVIL_1Value: String; @@ -4640,8 +4839,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetOldMOVIL_1IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresMOVIL_1]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresMOVIL_1]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetMOVIL_1Value(const aValue: String); @@ -4661,8 +4862,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetMOVIL_2IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresMOVIL_2]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresMOVIL_2]; + result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldMOVIL_2Value: String; @@ -4671,8 +4874,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetOldMOVIL_2IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresMOVIL_2]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresMOVIL_2]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetMOVIL_2Value(const aValue: String); @@ -4692,8 +4897,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetFAXIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresFAX]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresFAX]; + result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldFAXValue: String; @@ -4702,8 +4909,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetOldFAXIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresFAX]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresFAX]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetFAXValue(const aValue: String); @@ -4723,8 +4932,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetEMAIL_1IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresEMAIL_1]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresEMAIL_1]; + result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldEMAIL_1Value: String; @@ -4733,8 +4944,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetOldEMAIL_1IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresEMAIL_1]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresEMAIL_1]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetEMAIL_1Value(const aValue: String); @@ -4754,8 +4967,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetEMAIL_2IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresEMAIL_2]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresEMAIL_2]; + result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldEMAIL_2Value: String; @@ -4764,8 +4979,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetOldEMAIL_2IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresEMAIL_2]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresEMAIL_2]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetEMAIL_2Value(const aValue: String); @@ -4785,8 +5002,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetPAGINA_WEBIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPAGINA_WEB]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPAGINA_WEB]; + result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldPAGINA_WEBValue: String; @@ -4795,8 +5014,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetOldPAGINA_WEBIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresPAGINA_WEB]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresPAGINA_WEB]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetPAGINA_WEBValue(const aValue: String); @@ -4817,8 +5038,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetNOTASIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresNOTAS]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresNOTAS]; + result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldNOTASValue: IROStrings; @@ -4828,8 +5051,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetOldNOTASIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresNOTAS]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresNOTAS]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetNOTASIsNull(const aValue: Boolean); @@ -4844,8 +5069,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresFECHA_ALTA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresFECHA_ALTA]; + result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; @@ -4854,8 +5081,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresFECHA_ALTA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresFECHA_ALTA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); @@ -4875,8 +5104,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresFECHA_MODIFICACION]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresFECHA_MODIFICACION]; + result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; @@ -4885,8 +5116,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresFECHA_MODIFICACION]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresFECHA_MODIFICACION]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); @@ -4906,8 +5139,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetUSUARIOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresUSUARIO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresUSUARIO]; + result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldUSUARIOValue: String; @@ -4916,8 +5151,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresUSUARIO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresUSUARIO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetUSUARIOValue(const aValue: String); @@ -4937,8 +5174,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresID_EMPRESA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresID_EMPRESA]; + result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; @@ -4947,8 +5186,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresID_EMPRESA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresID_EMPRESA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); @@ -4968,8 +5209,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresREFERENCIA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresREFERENCIA]; + result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldREFERENCIAValue: String; @@ -4978,8 +5221,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresREFERENCIA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresREFERENCIA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); @@ -4999,8 +5244,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetPAISIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPAIS]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPAIS]; + result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldPAISValue: String; @@ -5009,8 +5256,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetOldPAISIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresPAIS]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresPAIS]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetPAISValue(const aValue: String); @@ -5030,8 +5279,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetCOMISIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresCOMISION]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresCOMISION]; + result := VarIsNull(v) or VarIsClear(v); end; function TVendedoresBusinessProcessorRules.GetOldCOMISIONValue: Currency; @@ -5040,8 +5291,10 @@ begin end; function TVendedoresBusinessProcessorRules.GetOldCOMISIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresCOMISION]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresCOMISION]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TVendedoresBusinessProcessorRules.SetCOMISIONValue(const aValue: Currency); @@ -5084,8 +5337,10 @@ begin end; function TClientesBusinessProcessorRules.GetIDIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID]; + result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldIDValue: Integer; @@ -5094,8 +5349,10 @@ begin end; function TClientesBusinessProcessorRules.GetOldIDIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetIDValue(const aValue: Integer); @@ -5115,8 +5372,10 @@ begin end; function TClientesBusinessProcessorRules.GetID_CATEGORIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_CATEGORIA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_CATEGORIA]; + result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldID_CATEGORIAValue: Integer; @@ -5125,8 +5384,10 @@ begin end; function TClientesBusinessProcessorRules.GetOldID_CATEGORIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_CATEGORIA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_CATEGORIA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetID_CATEGORIAValue(const aValue: Integer); @@ -5146,8 +5407,10 @@ begin end; function TClientesBusinessProcessorRules.GetNIF_CIFIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNIF_CIF]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNIF_CIF]; + result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldNIF_CIFValue: String; @@ -5156,8 +5419,10 @@ begin end; function TClientesBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesNIF_CIF]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesNIF_CIF]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetNIF_CIFValue(const aValue: String); @@ -5177,8 +5442,10 @@ begin end; function TClientesBusinessProcessorRules.GetNOMBREIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE]; + result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldNOMBREValue: String; @@ -5187,8 +5454,10 @@ begin end; function TClientesBusinessProcessorRules.GetOldNOMBREIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesNOMBRE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesNOMBRE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetNOMBREValue(const aValue: String); @@ -5208,8 +5477,10 @@ begin end; function TClientesBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPERSONA_CONTACTO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPERSONA_CONTACTO]; + result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String; @@ -5218,8 +5489,10 @@ begin end; function TClientesBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPERSONA_CONTACTO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPERSONA_CONTACTO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String); @@ -5239,8 +5512,10 @@ begin end; function TClientesBusinessProcessorRules.GetCALLEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCALLE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCALLE]; + result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldCALLEValue: String; @@ -5249,8 +5524,10 @@ begin end; function TClientesBusinessProcessorRules.GetOldCALLEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesCALLE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesCALLE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetCALLEValue(const aValue: String); @@ -5270,8 +5547,10 @@ begin end; function TClientesBusinessProcessorRules.GetPOBLACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPOBLACION]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPOBLACION]; + result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldPOBLACIONValue: String; @@ -5280,8 +5559,10 @@ begin end; function TClientesBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPOBLACION]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPOBLACION]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetPOBLACIONValue(const aValue: String); @@ -5301,8 +5582,10 @@ begin end; function TClientesBusinessProcessorRules.GetPROVINCIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPROVINCIA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPROVINCIA]; + result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldPROVINCIAValue: String; @@ -5311,8 +5594,10 @@ begin end; function TClientesBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPROVINCIA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPROVINCIA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetPROVINCIAValue(const aValue: String); @@ -5332,8 +5617,10 @@ begin end; function TClientesBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_POSTAL]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_POSTAL]; + result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldCODIGO_POSTALValue: String; @@ -5342,8 +5629,10 @@ begin end; function TClientesBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesCODIGO_POSTAL]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesCODIGO_POSTAL]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String); @@ -5363,8 +5652,10 @@ begin end; function TClientesBusinessProcessorRules.GetTELEFONO_1IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTELEFONO_1]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTELEFONO_1]; + result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldTELEFONO_1Value: String; @@ -5373,8 +5664,10 @@ begin end; function TClientesBusinessProcessorRules.GetOldTELEFONO_1IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesTELEFONO_1]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesTELEFONO_1]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetTELEFONO_1Value(const aValue: String); @@ -5394,8 +5687,10 @@ begin end; function TClientesBusinessProcessorRules.GetTELEFONO_2IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTELEFONO_2]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTELEFONO_2]; + result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldTELEFONO_2Value: String; @@ -5404,8 +5699,10 @@ begin end; function TClientesBusinessProcessorRules.GetOldTELEFONO_2IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesTELEFONO_2]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesTELEFONO_2]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetTELEFONO_2Value(const aValue: String); @@ -5425,8 +5722,10 @@ begin end; function TClientesBusinessProcessorRules.GetMOVIL_1IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOVIL_1]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOVIL_1]; + result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldMOVIL_1Value: String; @@ -5435,8 +5734,10 @@ begin end; function TClientesBusinessProcessorRules.GetOldMOVIL_1IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesMOVIL_1]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesMOVIL_1]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetMOVIL_1Value(const aValue: String); @@ -5456,8 +5757,10 @@ begin end; function TClientesBusinessProcessorRules.GetMOVIL_2IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOVIL_2]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOVIL_2]; + result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldMOVIL_2Value: String; @@ -5466,8 +5769,10 @@ begin end; function TClientesBusinessProcessorRules.GetOldMOVIL_2IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesMOVIL_2]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesMOVIL_2]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetMOVIL_2Value(const aValue: String); @@ -5487,8 +5792,10 @@ begin end; function TClientesBusinessProcessorRules.GetFAXIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFAX]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFAX]; + result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldFAXValue: String; @@ -5497,8 +5804,10 @@ begin end; function TClientesBusinessProcessorRules.GetOldFAXIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesFAX]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesFAX]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetFAXValue(const aValue: String); @@ -5518,8 +5827,10 @@ begin end; function TClientesBusinessProcessorRules.GetEMAIL_1IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_1]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_1]; + result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldEMAIL_1Value: String; @@ -5528,8 +5839,10 @@ begin end; function TClientesBusinessProcessorRules.GetOldEMAIL_1IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesEMAIL_1]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesEMAIL_1]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetEMAIL_1Value(const aValue: String); @@ -5549,8 +5862,10 @@ begin end; function TClientesBusinessProcessorRules.GetEMAIL_2IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_2]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesEMAIL_2]; + result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldEMAIL_2Value: String; @@ -5559,8 +5874,10 @@ begin end; function TClientesBusinessProcessorRules.GetOldEMAIL_2IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesEMAIL_2]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesEMAIL_2]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetEMAIL_2Value(const aValue: String); @@ -5580,8 +5897,10 @@ begin end; function TClientesBusinessProcessorRules.GetPAGINA_WEBIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPAGINA_WEB]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPAGINA_WEB]; + result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldPAGINA_WEBValue: String; @@ -5590,8 +5909,10 @@ begin end; function TClientesBusinessProcessorRules.GetOldPAGINA_WEBIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPAGINA_WEB]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPAGINA_WEB]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetPAGINA_WEBValue(const aValue: String); @@ -5612,8 +5933,10 @@ begin end; function TClientesBusinessProcessorRules.GetNOTASIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOTAS]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOTAS]; + result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldNOTASValue: IROStrings; @@ -5623,8 +5946,10 @@ begin end; function TClientesBusinessProcessorRules.GetOldNOTASIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesNOTAS]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesNOTAS]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetNOTASIsNull(const aValue: Boolean); @@ -5639,8 +5964,10 @@ begin end; function TClientesBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFECHA_ALTA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFECHA_ALTA]; + result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; @@ -5649,8 +5976,10 @@ begin end; function TClientesBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesFECHA_ALTA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesFECHA_ALTA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); @@ -5670,8 +5999,10 @@ begin end; function TClientesBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFECHA_MODIFICACION]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFECHA_MODIFICACION]; + result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; @@ -5680,8 +6011,10 @@ begin end; function TClientesBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesFECHA_MODIFICACION]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesFECHA_MODIFICACION]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); @@ -5701,8 +6034,10 @@ begin end; function TClientesBusinessProcessorRules.GetUSUARIOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesUSUARIO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesUSUARIO]; + result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldUSUARIOValue: String; @@ -5711,8 +6046,10 @@ begin end; function TClientesBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesUSUARIO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesUSUARIO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetUSUARIOValue(const aValue: String); @@ -5732,8 +6069,10 @@ begin end; function TClientesBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_EMPRESA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_EMPRESA]; + result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; @@ -5742,8 +6081,10 @@ begin end; function TClientesBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_EMPRESA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_EMPRESA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); @@ -5763,8 +6104,10 @@ begin end; function TClientesBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesREFERENCIA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesREFERENCIA]; + result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldREFERENCIAValue: String; @@ -5773,8 +6116,10 @@ begin end; function TClientesBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesREFERENCIA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesREFERENCIA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); @@ -5794,8 +6139,10 @@ begin end; function TClientesBusinessProcessorRules.GetPAISIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPAIS]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPAIS]; + result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldPAISValue: String; @@ -5804,8 +6151,10 @@ begin end; function TClientesBusinessProcessorRules.GetOldPAISIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPAIS]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPAIS]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetPAISValue(const aValue: String); @@ -5825,8 +6174,10 @@ begin end; function TClientesBusinessProcessorRules.GetID_AGENTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_AGENTE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_AGENTE]; + result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldID_AGENTEValue: Integer; @@ -5835,8 +6186,10 @@ begin end; function TClientesBusinessProcessorRules.GetOldID_AGENTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_AGENTE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_AGENTE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetID_AGENTEValue(const aValue: Integer); @@ -5850,14 +6203,51 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_AGENTE] := Null; end; +function TClientesBusinessProcessorRules.GetCOMISIONValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCOMISION]; +end; + +function TClientesBusinessProcessorRules.GetCOMISIONIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCOMISION]; + result := VarIsNull(v) or VarIsClear(v); +end; + +function TClientesBusinessProcessorRules.GetOldCOMISIONValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesCOMISION]; +end; + +function TClientesBusinessProcessorRules.GetOldCOMISIONIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesCOMISION]; + result := VarIsNull(v) or VarIsClear(v); +end; + +procedure TClientesBusinessProcessorRules.SetCOMISIONValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCOMISION] := aValue; +end; + +procedure TClientesBusinessProcessorRules.SetCOMISIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCOMISION] := Null; +end; + function TClientesBusinessProcessorRules.GetGRUPO_CLIENTEValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesGRUPO_CLIENTE]; end; function TClientesBusinessProcessorRules.GetGRUPO_CLIENTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesGRUPO_CLIENTE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesGRUPO_CLIENTE]; + result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldGRUPO_CLIENTEValue: String; @@ -5866,8 +6256,10 @@ begin end; function TClientesBusinessProcessorRules.GetOldGRUPO_CLIENTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesGRUPO_CLIENTE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesGRUPO_CLIENTE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetGRUPO_CLIENTEValue(const aValue: String); @@ -5887,8 +6279,10 @@ begin end; function TClientesBusinessProcessorRules.GetNOMBRE_COMERCIALIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL]; + result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldNOMBRE_COMERCIALValue: String; @@ -5897,8 +6291,10 @@ begin end; function TClientesBusinessProcessorRules.GetOldNOMBRE_COMERCIALIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesNOMBRE_COMERCIAL]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesNOMBRE_COMERCIAL]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetNOMBRE_COMERCIALValue(const aValue: String); @@ -5918,8 +6314,10 @@ begin end; function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_1IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1]; + result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_1Value: SmallInt; @@ -5928,8 +6326,10 @@ begin end; function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_1IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt); @@ -5949,8 +6349,10 @@ begin end; function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_2IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2]; + result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_2Value: SmallInt; @@ -5959,8 +6361,10 @@ begin end; function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_2IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt); @@ -5980,8 +6384,10 @@ begin end; function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3]; + result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_3Value: SmallInt; @@ -5990,8 +6396,10 @@ begin end; function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_3IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt); @@ -6011,8 +6419,10 @@ begin end; function TClientesBusinessProcessorRules.GetBLOQUEADOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesBLOQUEADO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesBLOQUEADO]; + result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldBLOQUEADOValue: SmallInt; @@ -6021,8 +6431,10 @@ begin end; function TClientesBusinessProcessorRules.GetOldBLOQUEADOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesBLOQUEADO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesBLOQUEADO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetBLOQUEADOValue(const aValue: SmallInt); @@ -6042,8 +6454,10 @@ begin end; function TClientesBusinessProcessorRules.GetREGIMEN_IVAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesREGIMEN_IVA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesREGIMEN_IVA]; + result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldREGIMEN_IVAValue: String; @@ -6052,8 +6466,10 @@ begin end; function TClientesBusinessProcessorRules.GetOldREGIMEN_IVAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesREGIMEN_IVA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesREGIMEN_IVA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetREGIMEN_IVAValue(const aValue: String); @@ -6073,8 +6489,10 @@ begin end; function TClientesBusinessProcessorRules.GetMOTIVO_BLOQUEOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOTIVO_BLOQUEO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesMOTIVO_BLOQUEO]; + result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldMOTIVO_BLOQUEOValue: String; @@ -6083,8 +6501,10 @@ begin end; function TClientesBusinessProcessorRules.GetOldMOTIVO_BLOQUEOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesMOTIVO_BLOQUEO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesMOTIVO_BLOQUEO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetMOTIVO_BLOQUEOValue(const aValue: String); @@ -6104,8 +6524,10 @@ begin end; function TClientesBusinessProcessorRules.GetRECARGO_EQUIVALENCIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesRECARGO_EQUIVALENCIA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesRECARGO_EQUIVALENCIA]; + result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldRECARGO_EQUIVALENCIAValue: Integer; @@ -6114,8 +6536,10 @@ begin end; function TClientesBusinessProcessorRules.GetOldRECARGO_EQUIVALENCIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesRECARGO_EQUIVALENCIA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesRECARGO_EQUIVALENCIA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetRECARGO_EQUIVALENCIAValue(const aValue: Integer); @@ -6135,8 +6559,10 @@ begin end; function TClientesBusinessProcessorRules.GetID_TIPO_IVAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_TIPO_IVA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_TIPO_IVA]; + result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldID_TIPO_IVAValue: Integer; @@ -6145,8 +6571,10 @@ begin end; function TClientesBusinessProcessorRules.GetOldID_TIPO_IVAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_TIPO_IVA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_TIPO_IVA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetID_TIPO_IVAValue(const aValue: Integer); @@ -6166,8 +6594,10 @@ begin end; function TClientesBusinessProcessorRules.GetID_FORMA_PAGOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_FORMA_PAGO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesID_FORMA_PAGO]; + result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldID_FORMA_PAGOValue: Integer; @@ -6176,8 +6606,10 @@ begin end; function TClientesBusinessProcessorRules.GetOldID_FORMA_PAGOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_FORMA_PAGO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesID_FORMA_PAGO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetID_FORMA_PAGOValue(const aValue: Integer); @@ -6197,8 +6629,10 @@ begin end; function TClientesBusinessProcessorRules.GetTIENDA_WEBIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIENDA_WEB]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIENDA_WEB]; + result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldTIENDA_WEBValue: SmallInt; @@ -6207,8 +6641,10 @@ begin end; function TClientesBusinessProcessorRules.GetOldTIENDA_WEBIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesTIENDA_WEB]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesTIENDA_WEB]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetTIENDA_WEBValue(const aValue: SmallInt); @@ -6228,8 +6664,10 @@ begin end; function TClientesBusinessProcessorRules.GetDESCUENTOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDESCUENTO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDESCUENTO]; + result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldDESCUENTOValue: Currency; @@ -6238,8 +6676,10 @@ begin end; function TClientesBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDESCUENTO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDESCUENTO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetDESCUENTOValue(const aValue: Currency); @@ -6259,8 +6699,10 @@ begin end; function TClientesBusinessProcessorRules.GetDESCUENTO2IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDESCUENTO2]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDESCUENTO2]; + result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldDESCUENTO2Value: Currency; @@ -6269,8 +6711,10 @@ begin end; function TClientesBusinessProcessorRules.GetOldDESCUENTO2IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDESCUENTO2]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDESCUENTO2]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetDESCUENTO2Value(const aValue: Currency); @@ -6290,8 +6734,10 @@ begin end; function TClientesBusinessProcessorRules.GetFELICITACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFELICITACION]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFELICITACION]; + result := VarIsNull(v) or VarIsClear(v); end; function TClientesBusinessProcessorRules.GetOldFELICITACIONValue: SmallInt; @@ -6300,8 +6746,10 @@ begin end; function TClientesBusinessProcessorRules.GetOldFELICITACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesFELICITACION]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesFELICITACION]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesBusinessProcessorRules.SetFELICITACIONValue(const aValue: SmallInt); @@ -6344,8 +6792,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetIDIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID]; + result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldIDValue: Integer; @@ -6354,8 +6804,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetOldIDIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetIDValue(const aValue: Integer); @@ -6375,8 +6827,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetID_CATEGORIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_CATEGORIA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_CATEGORIA]; + result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldID_CATEGORIAValue: Integer; @@ -6385,8 +6839,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetOldID_CATEGORIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_CATEGORIA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_CATEGORIA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetID_CATEGORIAValue(const aValue: Integer); @@ -6406,8 +6862,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetNIF_CIFIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNIF_CIF]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNIF_CIF]; + result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldNIF_CIFValue: String; @@ -6416,8 +6874,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresNIF_CIF]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresNIF_CIF]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetNIF_CIFValue(const aValue: String); @@ -6437,8 +6897,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetNOMBREIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOMBRE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOMBRE]; + result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldNOMBREValue: String; @@ -6447,8 +6909,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetOldNOMBREIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresNOMBRE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresNOMBRE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetNOMBREValue(const aValue: String); @@ -6468,8 +6932,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPERSONA_CONTACTO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPERSONA_CONTACTO]; + result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String; @@ -6478,8 +6944,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPERSONA_CONTACTO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPERSONA_CONTACTO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String); @@ -6499,8 +6967,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetCALLEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCALLE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCALLE]; + result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldCALLEValue: String; @@ -6509,8 +6979,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetOldCALLEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCALLE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCALLE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetCALLEValue(const aValue: String); @@ -6530,8 +7002,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetPOBLACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPOBLACION]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPOBLACION]; + result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldPOBLACIONValue: String; @@ -6540,8 +7014,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPOBLACION]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPOBLACION]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetPOBLACIONValue(const aValue: String); @@ -6561,8 +7037,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetPROVINCIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPROVINCIA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPROVINCIA]; + result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldPROVINCIAValue: String; @@ -6571,8 +7049,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPROVINCIA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPROVINCIA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetPROVINCIAValue(const aValue: String); @@ -6592,8 +7072,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCODIGO_POSTAL]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCODIGO_POSTAL]; + result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldCODIGO_POSTALValue: String; @@ -6602,8 +7084,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCODIGO_POSTAL]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCODIGO_POSTAL]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String); @@ -6623,8 +7107,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetTELEFONO_1IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTELEFONO_1]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTELEFONO_1]; + result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldTELEFONO_1Value: String; @@ -6633,8 +7119,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetOldTELEFONO_1IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresTELEFONO_1]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresTELEFONO_1]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetTELEFONO_1Value(const aValue: String); @@ -6654,8 +7142,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetTELEFONO_2IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTELEFONO_2]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTELEFONO_2]; + result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldTELEFONO_2Value: String; @@ -6664,8 +7154,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetOldTELEFONO_2IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresTELEFONO_2]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresTELEFONO_2]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetTELEFONO_2Value(const aValue: String); @@ -6685,8 +7177,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetMOVIL_1IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresMOVIL_1]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresMOVIL_1]; + result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldMOVIL_1Value: String; @@ -6695,8 +7189,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetOldMOVIL_1IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresMOVIL_1]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresMOVIL_1]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetMOVIL_1Value(const aValue: String); @@ -6716,8 +7212,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetMOVIL_2IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresMOVIL_2]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresMOVIL_2]; + result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldMOVIL_2Value: String; @@ -6726,8 +7224,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetOldMOVIL_2IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresMOVIL_2]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresMOVIL_2]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetMOVIL_2Value(const aValue: String); @@ -6747,8 +7247,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetFAXIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFAX]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFAX]; + result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldFAXValue: String; @@ -6757,8 +7259,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetOldFAXIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresFAX]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresFAX]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetFAXValue(const aValue: String); @@ -6778,8 +7282,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetEMAIL_1IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_1]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_1]; + result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldEMAIL_1Value: String; @@ -6788,8 +7294,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetOldEMAIL_1IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresEMAIL_1]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresEMAIL_1]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetEMAIL_1Value(const aValue: String); @@ -6809,8 +7317,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetEMAIL_2IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_2]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresEMAIL_2]; + result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldEMAIL_2Value: String; @@ -6819,8 +7329,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetOldEMAIL_2IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresEMAIL_2]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresEMAIL_2]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetEMAIL_2Value(const aValue: String); @@ -6840,8 +7352,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetPAGINA_WEBIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPAGINA_WEB]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPAGINA_WEB]; + result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldPAGINA_WEBValue: String; @@ -6850,8 +7364,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetOldPAGINA_WEBIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPAGINA_WEB]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPAGINA_WEB]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetPAGINA_WEBValue(const aValue: String); @@ -6872,8 +7388,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetNOTASIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOTAS]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresNOTAS]; + result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldNOTASValue: IROStrings; @@ -6883,8 +7401,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetOldNOTASIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresNOTAS]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresNOTAS]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetNOTASIsNull(const aValue: Boolean); @@ -6899,8 +7419,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFECHA_ALTA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFECHA_ALTA]; + result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; @@ -6909,8 +7431,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresFECHA_ALTA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresFECHA_ALTA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); @@ -6930,8 +7454,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFECHA_MODIFICACION]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresFECHA_MODIFICACION]; + result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; @@ -6940,8 +7466,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresFECHA_MODIFICACION]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresFECHA_MODIFICACION]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); @@ -6961,8 +7489,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetUSUARIOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresUSUARIO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresUSUARIO]; + result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldUSUARIOValue: String; @@ -6971,8 +7501,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresUSUARIO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresUSUARIO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetUSUARIOValue(const aValue: String); @@ -6992,8 +7524,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_EMPRESA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_EMPRESA]; + result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; @@ -7002,8 +7536,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_EMPRESA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_EMPRESA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); @@ -7023,8 +7559,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREFERENCIA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREFERENCIA]; + result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldREFERENCIAValue: String; @@ -7033,8 +7571,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresREFERENCIA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresREFERENCIA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); @@ -7054,8 +7594,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetPAISIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPAIS]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPAIS]; + result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldPAISValue: String; @@ -7064,8 +7606,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetOldPAISIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPAIS]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPAIS]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetPAISValue(const aValue: String); @@ -7085,8 +7629,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetDESCUENTOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCUENTO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCUENTO]; + result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldDESCUENTOValue: Float; @@ -7095,8 +7641,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresDESCUENTO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresDESCUENTO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float); @@ -7116,8 +7664,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetDESCRIPCION_PROVEEDORIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCRIPCION_PROVEEDOR]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCRIPCION_PROVEEDOR]; + result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldDESCRIPCION_PROVEEDORValue: String; @@ -7126,8 +7676,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetOldDESCRIPCION_PROVEEDORIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresDESCRIPCION_PROVEEDOR]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresDESCRIPCION_PROVEEDOR]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetDESCRIPCION_PROVEEDORValue(const aValue: String); @@ -7147,8 +7699,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetGRUPO_PROVEEDORIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR]; + result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldGRUPO_PROVEEDORValue: String; @@ -7157,8 +7711,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetOldGRUPO_PROVEEDORIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresGRUPO_PROVEEDOR]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresGRUPO_PROVEEDOR]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetGRUPO_PROVEEDORValue(const aValue: String); @@ -7178,8 +7734,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetREGIMEN_IVAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREGIMEN_IVA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREGIMEN_IVA]; + result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldREGIMEN_IVAValue: String; @@ -7188,8 +7746,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetOldREGIMEN_IVAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresREGIMEN_IVA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresREGIMEN_IVA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetREGIMEN_IVAValue(const aValue: String); @@ -7209,8 +7769,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetID_TIPO_IVAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_TIPO_IVA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_TIPO_IVA]; + result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldID_TIPO_IVAValue: Integer; @@ -7219,8 +7781,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetOldID_TIPO_IVAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_TIPO_IVA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_TIPO_IVA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetID_TIPO_IVAValue(const aValue: Integer); @@ -7240,8 +7804,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetID_FORMA_PAGOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_FORMA_PAGO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresID_FORMA_PAGO]; + result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldID_FORMA_PAGOValue: Integer; @@ -7250,8 +7816,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetOldID_FORMA_PAGOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_FORMA_PAGO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresID_FORMA_PAGO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetID_FORMA_PAGOValue(const aValue: Integer); @@ -7271,8 +7839,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetTIENDA_WEBIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTIENDA_WEB]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresTIENDA_WEB]; + result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldTIENDA_WEBValue: SmallInt; @@ -7281,8 +7851,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetOldTIENDA_WEBIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresTIENDA_WEB]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresTIENDA_WEB]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetTIENDA_WEBValue(const aValue: SmallInt); @@ -7302,8 +7874,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetHOMOLOGADOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresHOMOLOGADO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresHOMOLOGADO]; + result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldHOMOLOGADOValue: SmallInt; @@ -7312,8 +7886,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetOldHOMOLOGADOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresHOMOLOGADO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresHOMOLOGADO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetHOMOLOGADOValue(const aValue: SmallInt); @@ -7333,8 +7909,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetCERTIFICACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCERTIFICACION]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCERTIFICACION]; + result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldCERTIFICACIONValue: String; @@ -7343,8 +7921,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetOldCERTIFICACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCERTIFICACION]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCERTIFICACION]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetCERTIFICACIONValue(const aValue: String); @@ -7364,8 +7944,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetSUBCONTRATAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresSUBCONTRATA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresSUBCONTRATA]; + result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldSUBCONTRATAValue: SmallInt; @@ -7374,8 +7956,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetOldSUBCONTRATAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresSUBCONTRATA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresSUBCONTRATA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetSUBCONTRATAValue(const aValue: SmallInt); @@ -7395,8 +7979,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_1IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1]; + result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_1Value: SmallInt; @@ -7405,8 +7991,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_1IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt); @@ -7426,8 +8014,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_2IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2]; + result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_2Value: SmallInt; @@ -7436,8 +8026,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_2IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt); @@ -7457,8 +8049,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3]; + result := VarIsNull(v) or VarIsClear(v); end; function TProveedoresBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_3Value: SmallInt; @@ -7467,8 +8061,10 @@ begin end; function TProveedoresBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_3IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TProveedoresBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt); @@ -7547,8 +8143,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetIDIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID]; + result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldIDValue: Integer; @@ -7557,8 +8155,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetOldIDIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosID]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosID]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetIDValue(const aValue: Integer); @@ -7578,8 +8178,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetID_CATEGORIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID_CATEGORIA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID_CATEGORIA]; + result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldID_CATEGORIAValue: Integer; @@ -7588,8 +8190,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetOldID_CATEGORIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosID_CATEGORIA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosID_CATEGORIA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetID_CATEGORIAValue(const aValue: Integer); @@ -7609,8 +8213,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetNIF_CIFIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNIF_CIF]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNIF_CIF]; + result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldNIF_CIFValue: String; @@ -7619,8 +8225,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosNIF_CIF]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosNIF_CIF]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetNIF_CIFValue(const aValue: String); @@ -7640,8 +8248,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetNOMBREIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNOMBRE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNOMBRE]; + result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldNOMBREValue: String; @@ -7650,8 +8260,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetOldNOMBREIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosNOMBRE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosNOMBRE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetNOMBREValue(const aValue: String); @@ -7671,8 +8283,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPERSONA_CONTACTO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPERSONA_CONTACTO]; + result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String; @@ -7681,8 +8295,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosPERSONA_CONTACTO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosPERSONA_CONTACTO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String); @@ -7702,8 +8318,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetCALLEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCALLE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCALLE]; + result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldCALLEValue: String; @@ -7712,8 +8330,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetOldCALLEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosCALLE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosCALLE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetCALLEValue(const aValue: String); @@ -7733,8 +8353,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetPOBLACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPOBLACION]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPOBLACION]; + result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldPOBLACIONValue: String; @@ -7743,8 +8365,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosPOBLACION]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosPOBLACION]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetPOBLACIONValue(const aValue: String); @@ -7764,8 +8388,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetPROVINCIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPROVINCIA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPROVINCIA]; + result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldPROVINCIAValue: String; @@ -7774,8 +8400,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosPROVINCIA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosPROVINCIA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetPROVINCIAValue(const aValue: String); @@ -7795,8 +8423,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCODIGO_POSTAL]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCODIGO_POSTAL]; + result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldCODIGO_POSTALValue: String; @@ -7805,8 +8435,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosCODIGO_POSTAL]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosCODIGO_POSTAL]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String); @@ -7826,8 +8458,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetTELEFONO_1IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosTELEFONO_1]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosTELEFONO_1]; + result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldTELEFONO_1Value: String; @@ -7836,8 +8470,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetOldTELEFONO_1IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosTELEFONO_1]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosTELEFONO_1]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetTELEFONO_1Value(const aValue: String); @@ -7857,8 +8493,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetTELEFONO_2IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosTELEFONO_2]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosTELEFONO_2]; + result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldTELEFONO_2Value: String; @@ -7867,8 +8505,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetOldTELEFONO_2IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosTELEFONO_2]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosTELEFONO_2]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetTELEFONO_2Value(const aValue: String); @@ -7888,8 +8528,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetMOVIL_1IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosMOVIL_1]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosMOVIL_1]; + result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldMOVIL_1Value: String; @@ -7898,8 +8540,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetOldMOVIL_1IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosMOVIL_1]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosMOVIL_1]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetMOVIL_1Value(const aValue: String); @@ -7919,8 +8563,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetMOVIL_2IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosMOVIL_2]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosMOVIL_2]; + result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldMOVIL_2Value: String; @@ -7929,8 +8575,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetOldMOVIL_2IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosMOVIL_2]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosMOVIL_2]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetMOVIL_2Value(const aValue: String); @@ -7950,8 +8598,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetFAXIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFAX]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFAX]; + result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldFAXValue: String; @@ -7960,8 +8610,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetOldFAXIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFAX]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFAX]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetFAXValue(const aValue: String); @@ -7981,8 +8633,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetEMAIL_1IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEMAIL_1]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEMAIL_1]; + result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldEMAIL_1Value: String; @@ -7991,8 +8645,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetOldEMAIL_1IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosEMAIL_1]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosEMAIL_1]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetEMAIL_1Value(const aValue: String); @@ -8012,8 +8668,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetEMAIL_2IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEMAIL_2]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEMAIL_2]; + result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldEMAIL_2Value: String; @@ -8022,8 +8680,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetOldEMAIL_2IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosEMAIL_2]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosEMAIL_2]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetEMAIL_2Value(const aValue: String); @@ -8043,8 +8703,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetPAGINA_WEBIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPAGINA_WEB]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosPAGINA_WEB]; + result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldPAGINA_WEBValue: String; @@ -8053,8 +8715,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetOldPAGINA_WEBIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosPAGINA_WEB]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosPAGINA_WEB]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetPAGINA_WEBValue(const aValue: String); @@ -8075,8 +8739,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetNOTASIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNOTAS]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosNOTAS]; + result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldNOTASValue: IROStrings; @@ -8086,8 +8752,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetOldNOTASIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosNOTAS]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosNOTAS]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetNOTASIsNull(const aValue: Boolean); @@ -8102,8 +8770,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_ALTA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_ALTA]; + result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; @@ -8112,8 +8782,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFECHA_ALTA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFECHA_ALTA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); @@ -8133,8 +8805,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_MODIFICACION]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_MODIFICACION]; + result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; @@ -8143,8 +8817,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFECHA_MODIFICACION]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFECHA_MODIFICACION]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); @@ -8164,8 +8840,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetUSUARIOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosUSUARIO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosUSUARIO]; + result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldUSUARIOValue: String; @@ -8174,8 +8852,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosUSUARIO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosUSUARIO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetUSUARIOValue(const aValue: String); @@ -8195,8 +8875,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID_EMPRESA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID_EMPRESA]; + result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; @@ -8205,8 +8887,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosID_EMPRESA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosID_EMPRESA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); @@ -8226,8 +8910,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosREFERENCIA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosREFERENCIA]; + result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldREFERENCIAValue: String; @@ -8236,8 +8922,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosREFERENCIA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosREFERENCIA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); @@ -8257,8 +8945,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetFECHA_NACIMIENTOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_NACIMIENTO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_NACIMIENTO]; + result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldFECHA_NACIMIENTOValue: DateTime; @@ -8267,8 +8957,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetOldFECHA_NACIMIENTOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFECHA_NACIMIENTO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFECHA_NACIMIENTO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetFECHA_NACIMIENTOValue(const aValue: DateTime); @@ -8288,8 +8980,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetCATEGORIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCATEGORIA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCATEGORIA]; + result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldCATEGORIAValue: String; @@ -8298,8 +8992,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetOldCATEGORIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosCATEGORIA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosCATEGORIA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetCATEGORIAValue(const aValue: String); @@ -8319,8 +9015,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetFECHA_ALTA_EMPRESAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_ALTA_EMPRESA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_ALTA_EMPRESA]; + result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldFECHA_ALTA_EMPRESAValue: DateTime; @@ -8329,8 +9027,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetOldFECHA_ALTA_EMPRESAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFECHA_ALTA_EMPRESA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFECHA_ALTA_EMPRESA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetFECHA_ALTA_EMPRESAValue(const aValue: DateTime); @@ -8351,8 +9051,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetFORMACION_BASEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_BASE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_BASE]; + result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldFORMACION_BASEValue: IROStrings; @@ -8362,8 +9064,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetOldFORMACION_BASEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFORMACION_BASE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFORMACION_BASE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetFORMACION_BASEIsNull(const aValue: Boolean); @@ -8379,8 +9083,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetFORMACION_COMPLEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_COMPLE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_COMPLE]; + result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldFORMACION_COMPLEValue: IROStrings; @@ -8390,8 +9096,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetOldFORMACION_COMPLEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFORMACION_COMPLE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFORMACION_COMPLE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetFORMACION_COMPLEIsNull(const aValue: Boolean); @@ -8407,8 +9115,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetFORMACION_RECIBIDAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_RECIBIDA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFORMACION_RECIBIDA]; + result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldFORMACION_RECIBIDAValue: IROStrings; @@ -8418,8 +9128,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetOldFORMACION_RECIBIDAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFORMACION_RECIBIDA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFORMACION_RECIBIDA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetFORMACION_RECIBIDAIsNull(const aValue: Boolean); @@ -8435,8 +9147,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetEXPERIENCIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEXPERIENCIA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEXPERIENCIA]; + result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldEXPERIENCIAValue: IROStrings; @@ -8446,8 +9160,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetOldEXPERIENCIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosEXPERIENCIA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosEXPERIENCIA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetEXPERIENCIAIsNull(const aValue: Boolean); @@ -8462,8 +9178,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetCONTRATOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCONTRATO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCONTRATO]; + result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldCONTRATOValue: String; @@ -8472,8 +9190,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetOldCONTRATOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosCONTRATO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosCONTRATO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetCONTRATOValue(const aValue: String); @@ -8493,8 +9213,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetDURACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosDURACION]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosDURACION]; + result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldDURACIONValue: String; @@ -8503,8 +9225,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetOldDURACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosDURACION]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosDURACION]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetDURACIONValue(const aValue: String); @@ -8524,8 +9248,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetFECHA_BAJAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_BAJA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosFECHA_BAJA]; + result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldFECHA_BAJAValue: DateTime; @@ -8534,8 +9260,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetOldFECHA_BAJAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFECHA_BAJA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosFECHA_BAJA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetFECHA_BAJAValue(const aValue: DateTime); @@ -8555,8 +9283,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetCAUSA_BAJAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCAUSA_BAJA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosCAUSA_BAJA]; + result := VarIsNull(v) or VarIsClear(v); end; function TEmpleadosBusinessProcessorRules.GetOldCAUSA_BAJAValue: String; @@ -8565,8 +9295,10 @@ begin end; function TEmpleadosBusinessProcessorRules.GetOldCAUSA_BAJAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosCAUSA_BAJA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosCAUSA_BAJA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TEmpleadosBusinessProcessorRules.SetCAUSA_BAJAValue(const aValue: String); @@ -8609,8 +9341,10 @@ begin end; function TDireccionesContactoBusinessProcessorRules.GetIDIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID]; + result := VarIsNull(v) or VarIsClear(v); end; function TDireccionesContactoBusinessProcessorRules.GetOldIDValue: Integer; @@ -8619,8 +9353,10 @@ begin end; function TDireccionesContactoBusinessProcessorRules.GetOldIDIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoID]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoID]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TDireccionesContactoBusinessProcessorRules.SetIDValue(const aValue: Integer); @@ -8640,8 +9376,10 @@ begin end; function TDireccionesContactoBusinessProcessorRules.GetID_CONTACTOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID_CONTACTO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoID_CONTACTO]; + result := VarIsNull(v) or VarIsClear(v); end; function TDireccionesContactoBusinessProcessorRules.GetOldID_CONTACTOValue: Integer; @@ -8650,8 +9388,10 @@ begin end; function TDireccionesContactoBusinessProcessorRules.GetOldID_CONTACTOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoID_CONTACTO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoID_CONTACTO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TDireccionesContactoBusinessProcessorRules.SetID_CONTACTOValue(const aValue: Integer); @@ -8671,8 +9411,10 @@ begin end; function TDireccionesContactoBusinessProcessorRules.GetCALLEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCALLE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCALLE]; + result := VarIsNull(v) or VarIsClear(v); end; function TDireccionesContactoBusinessProcessorRules.GetOldCALLEValue: String; @@ -8681,8 +9423,10 @@ begin end; function TDireccionesContactoBusinessProcessorRules.GetOldCALLEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoCALLE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoCALLE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TDireccionesContactoBusinessProcessorRules.SetCALLEValue(const aValue: String); @@ -8702,8 +9446,10 @@ begin end; function TDireccionesContactoBusinessProcessorRules.GetPOBLACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPOBLACION]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPOBLACION]; + result := VarIsNull(v) or VarIsClear(v); end; function TDireccionesContactoBusinessProcessorRules.GetOldPOBLACIONValue: String; @@ -8712,8 +9458,10 @@ begin end; function TDireccionesContactoBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPOBLACION]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPOBLACION]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TDireccionesContactoBusinessProcessorRules.SetPOBLACIONValue(const aValue: String); @@ -8733,8 +9481,10 @@ begin end; function TDireccionesContactoBusinessProcessorRules.GetPROVINCIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPROVINCIA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPROVINCIA]; + result := VarIsNull(v) or VarIsClear(v); end; function TDireccionesContactoBusinessProcessorRules.GetOldPROVINCIAValue: String; @@ -8743,8 +9493,10 @@ begin end; function TDireccionesContactoBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPROVINCIA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPROVINCIA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TDireccionesContactoBusinessProcessorRules.SetPROVINCIAValue(const aValue: String); @@ -8764,8 +9516,10 @@ begin end; function TDireccionesContactoBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCODIGO_POSTAL]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoCODIGO_POSTAL]; + result := VarIsNull(v) or VarIsClear(v); end; function TDireccionesContactoBusinessProcessorRules.GetOldCODIGO_POSTALValue: String; @@ -8774,8 +9528,10 @@ begin end; function TDireccionesContactoBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoCODIGO_POSTAL]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoCODIGO_POSTAL]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TDireccionesContactoBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String); @@ -8795,8 +9551,10 @@ begin end; function TDireccionesContactoBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPERSONA_CONTACTO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPERSONA_CONTACTO]; + result := VarIsNull(v) or VarIsClear(v); end; function TDireccionesContactoBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String; @@ -8805,8 +9563,10 @@ begin end; function TDireccionesContactoBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPERSONA_CONTACTO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPERSONA_CONTACTO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TDireccionesContactoBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String); @@ -8826,8 +9586,10 @@ begin end; function TDireccionesContactoBusinessProcessorRules.GetNOMBREIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNOMBRE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNOMBRE]; + result := VarIsNull(v) or VarIsClear(v); end; function TDireccionesContactoBusinessProcessorRules.GetOldNOMBREValue: String; @@ -8836,8 +9598,10 @@ begin end; function TDireccionesContactoBusinessProcessorRules.GetOldNOMBREIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoNOMBRE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoNOMBRE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TDireccionesContactoBusinessProcessorRules.SetNOMBREValue(const aValue: String); @@ -8857,8 +9621,10 @@ begin end; function TDireccionesContactoBusinessProcessorRules.GetTELEFONOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoTELEFONO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoTELEFONO]; + result := VarIsNull(v) or VarIsClear(v); end; function TDireccionesContactoBusinessProcessorRules.GetOldTELEFONOValue: String; @@ -8867,8 +9633,10 @@ begin end; function TDireccionesContactoBusinessProcessorRules.GetOldTELEFONOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoTELEFONO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoTELEFONO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TDireccionesContactoBusinessProcessorRules.SetTELEFONOValue(const aValue: String); @@ -8888,8 +9656,10 @@ begin end; function TDireccionesContactoBusinessProcessorRules.GetMOVILIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoMOVIL]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoMOVIL]; + result := VarIsNull(v) or VarIsClear(v); end; function TDireccionesContactoBusinessProcessorRules.GetOldMOVILValue: String; @@ -8898,8 +9668,10 @@ begin end; function TDireccionesContactoBusinessProcessorRules.GetOldMOVILIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoMOVIL]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoMOVIL]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TDireccionesContactoBusinessProcessorRules.SetMOVILValue(const aValue: String); @@ -8919,8 +9691,10 @@ begin end; function TDireccionesContactoBusinessProcessorRules.GetFAXIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFAX]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFAX]; + result := VarIsNull(v) or VarIsClear(v); end; function TDireccionesContactoBusinessProcessorRules.GetOldFAXValue: String; @@ -8929,8 +9703,10 @@ begin end; function TDireccionesContactoBusinessProcessorRules.GetOldFAXIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoFAX]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoFAX]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TDireccionesContactoBusinessProcessorRules.SetFAXValue(const aValue: String); @@ -8950,8 +9726,10 @@ begin end; function TDireccionesContactoBusinessProcessorRules.GetEMAILIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoEMAIL]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoEMAIL]; + result := VarIsNull(v) or VarIsClear(v); end; function TDireccionesContactoBusinessProcessorRules.GetOldEMAILValue: String; @@ -8960,8 +9738,10 @@ begin end; function TDireccionesContactoBusinessProcessorRules.GetOldEMAILIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoEMAIL]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoEMAIL]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TDireccionesContactoBusinessProcessorRules.SetEMAILValue(const aValue: String); @@ -8982,8 +9762,10 @@ begin end; function TDireccionesContactoBusinessProcessorRules.GetNOTASIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNOTAS]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoNOTAS]; + result := VarIsNull(v) or VarIsClear(v); end; function TDireccionesContactoBusinessProcessorRules.GetOldNOTASValue: IROStrings; @@ -8993,8 +9775,10 @@ begin end; function TDireccionesContactoBusinessProcessorRules.GetOldNOTASIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoNOTAS]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoNOTAS]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TDireccionesContactoBusinessProcessorRules.SetNOTASIsNull(const aValue: Boolean); @@ -9009,8 +9793,10 @@ begin end; function TDireccionesContactoBusinessProcessorRules.GetPORTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPORTE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoPORTE]; + result := VarIsNull(v) or VarIsClear(v); end; function TDireccionesContactoBusinessProcessorRules.GetOldPORTEValue: Float; @@ -9019,8 +9805,10 @@ begin end; function TDireccionesContactoBusinessProcessorRules.GetOldPORTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPORTE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoPORTE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TDireccionesContactoBusinessProcessorRules.SetPORTEValue(const aValue: Float); @@ -9040,8 +9828,10 @@ begin end; function TDireccionesContactoBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFECHA_ALTA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFECHA_ALTA]; + result := VarIsNull(v) or VarIsClear(v); end; function TDireccionesContactoBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; @@ -9050,8 +9840,10 @@ begin end; function TDireccionesContactoBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoFECHA_ALTA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoFECHA_ALTA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TDireccionesContactoBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); @@ -9071,8 +9863,10 @@ begin end; function TDireccionesContactoBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFECHA_MODIFICACION]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_DireccionesContactoFECHA_MODIFICACION]; + result := VarIsNull(v) or VarIsClear(v); end; function TDireccionesContactoBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; @@ -9081,8 +9875,10 @@ begin end; function TDireccionesContactoBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoFECHA_MODIFICACION]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_DireccionesContactoFECHA_MODIFICACION]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TDireccionesContactoBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); @@ -9114,8 +9910,10 @@ begin end; function TClientesDescuentosBusinessProcessorRules.GetIDIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID]; + result := VarIsNull(v) or VarIsClear(v); end; function TClientesDescuentosBusinessProcessorRules.GetOldIDValue: Integer; @@ -9124,8 +9922,10 @@ begin end; function TClientesDescuentosBusinessProcessorRules.GetOldIDIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosID]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosID]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesDescuentosBusinessProcessorRules.SetIDValue(const aValue: Integer); @@ -9145,8 +9945,10 @@ begin end; function TClientesDescuentosBusinessProcessorRules.GetID_CLIENTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID_CLIENTE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID_CLIENTE]; + result := VarIsNull(v) or VarIsClear(v); end; function TClientesDescuentosBusinessProcessorRules.GetOldID_CLIENTEValue: Integer; @@ -9155,8 +9957,10 @@ begin end; function TClientesDescuentosBusinessProcessorRules.GetOldID_CLIENTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosID_CLIENTE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosID_CLIENTE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesDescuentosBusinessProcessorRules.SetID_CLIENTEValue(const aValue: Integer); @@ -9176,8 +9980,10 @@ begin end; function TClientesDescuentosBusinessProcessorRules.GetID_PROVEEDORIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID_PROVEEDOR]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosID_PROVEEDOR]; + result := VarIsNull(v) or VarIsClear(v); end; function TClientesDescuentosBusinessProcessorRules.GetOldID_PROVEEDORValue: Integer; @@ -9186,8 +9992,10 @@ begin end; function TClientesDescuentosBusinessProcessorRules.GetOldID_PROVEEDORIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosID_PROVEEDOR]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosID_PROVEEDOR]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesDescuentosBusinessProcessorRules.SetID_PROVEEDORValue(const aValue: Integer); @@ -9207,8 +10015,10 @@ begin end; function TClientesDescuentosBusinessProcessorRules.GetNOMBREIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosNOMBRE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosNOMBRE]; + result := VarIsNull(v) or VarIsClear(v); end; function TClientesDescuentosBusinessProcessorRules.GetOldNOMBREValue: String; @@ -9217,8 +10027,10 @@ begin end; function TClientesDescuentosBusinessProcessorRules.GetOldNOMBREIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosNOMBRE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosNOMBRE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesDescuentosBusinessProcessorRules.SetNOMBREValue(const aValue: String); @@ -9238,8 +10050,10 @@ begin end; function TClientesDescuentosBusinessProcessorRules.GetDESCUENTOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosDESCUENTO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDescuentosDESCUENTO]; + result := VarIsNull(v) or VarIsClear(v); end; function TClientesDescuentosBusinessProcessorRules.GetOldDESCUENTOValue: Float; @@ -9248,8 +10062,10 @@ begin end; function TClientesDescuentosBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosDESCUENTO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDescuentosDESCUENTO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TClientesDescuentosBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float); @@ -9281,8 +10097,10 @@ begin end; function TGruposProveedorBusinessProcessorRules.GetIDIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_GruposProveedorID]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_GruposProveedorID]; + result := VarIsNull(v) or VarIsClear(v); end; function TGruposProveedorBusinessProcessorRules.GetOldIDValue: Integer; @@ -9291,8 +10109,10 @@ begin end; function TGruposProveedorBusinessProcessorRules.GetOldIDIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_GruposProveedorID]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_GruposProveedorID]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TGruposProveedorBusinessProcessorRules.SetIDValue(const aValue: Integer); @@ -9312,8 +10132,10 @@ begin end; function TGruposProveedorBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_GruposProveedorDESCRIPCION]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_GruposProveedorDESCRIPCION]; + result := VarIsNull(v) or VarIsClear(v); end; function TGruposProveedorBusinessProcessorRules.GetOldDESCRIPCIONValue: String; @@ -9322,8 +10144,10 @@ begin end; function TGruposProveedorBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_GruposProveedorDESCRIPCION]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_GruposProveedorDESCRIPCION]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TGruposProveedorBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); @@ -9355,8 +10179,10 @@ begin end; function TGruposEmpleadoBusinessProcessorRules.GetIDIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_GruposEmpleadoID]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_GruposEmpleadoID]; + result := VarIsNull(v) or VarIsClear(v); end; function TGruposEmpleadoBusinessProcessorRules.GetOldIDValue: Integer; @@ -9365,8 +10191,10 @@ begin end; function TGruposEmpleadoBusinessProcessorRules.GetOldIDIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_GruposEmpleadoID]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_GruposEmpleadoID]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TGruposEmpleadoBusinessProcessorRules.SetIDValue(const aValue: Integer); @@ -9386,8 +10214,10 @@ begin end; function TGruposEmpleadoBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_GruposEmpleadoDESCRIPCION]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_GruposEmpleadoDESCRIPCION]; + result := VarIsNull(v) or VarIsClear(v); end; function TGruposEmpleadoBusinessProcessorRules.GetOldDESCRIPCIONValue: String; @@ -9396,8 +10226,10 @@ begin end; function TGruposEmpleadoBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_GruposEmpleadoDESCRIPCION]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_GruposEmpleadoDESCRIPCION]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TGruposEmpleadoBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); @@ -9440,8 +10272,10 @@ begin end; function TContactos_RefreshBusinessProcessorRules.GetIDIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshID]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshID]; + result := VarIsNull(v) or VarIsClear(v); end; function TContactos_RefreshBusinessProcessorRules.GetOldIDValue: Integer; @@ -9450,8 +10284,10 @@ begin end; function TContactos_RefreshBusinessProcessorRules.GetOldIDIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshID]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshID]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContactos_RefreshBusinessProcessorRules.SetIDValue(const aValue: Integer); @@ -9471,8 +10307,10 @@ begin end; function TContactos_RefreshBusinessProcessorRules.GetNIF_CIFIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshNIF_CIF]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshNIF_CIF]; + result := VarIsNull(v) or VarIsClear(v); end; function TContactos_RefreshBusinessProcessorRules.GetOldNIF_CIFValue: String; @@ -9481,8 +10319,10 @@ begin end; function TContactos_RefreshBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshNIF_CIF]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshNIF_CIF]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContactos_RefreshBusinessProcessorRules.SetNIF_CIFValue(const aValue: String); @@ -9502,8 +10342,10 @@ begin end; function TContactos_RefreshBusinessProcessorRules.GetNOMBREIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshNOMBRE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshNOMBRE]; + result := VarIsNull(v) or VarIsClear(v); end; function TContactos_RefreshBusinessProcessorRules.GetOldNOMBREValue: String; @@ -9512,8 +10354,10 @@ begin end; function TContactos_RefreshBusinessProcessorRules.GetOldNOMBREIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshNOMBRE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshNOMBRE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContactos_RefreshBusinessProcessorRules.SetNOMBREValue(const aValue: String); @@ -9533,8 +10377,10 @@ begin end; function TContactos_RefreshBusinessProcessorRules.GetCALLEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshCALLE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshCALLE]; + result := VarIsNull(v) or VarIsClear(v); end; function TContactos_RefreshBusinessProcessorRules.GetOldCALLEValue: String; @@ -9543,8 +10389,10 @@ begin end; function TContactos_RefreshBusinessProcessorRules.GetOldCALLEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshCALLE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshCALLE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContactos_RefreshBusinessProcessorRules.SetCALLEValue(const aValue: String); @@ -9564,8 +10412,10 @@ begin end; function TContactos_RefreshBusinessProcessorRules.GetPOBLACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPOBLACION]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPOBLACION]; + result := VarIsNull(v) or VarIsClear(v); end; function TContactos_RefreshBusinessProcessorRules.GetOldPOBLACIONValue: String; @@ -9574,8 +10424,10 @@ begin end; function TContactos_RefreshBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshPOBLACION]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshPOBLACION]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContactos_RefreshBusinessProcessorRules.SetPOBLACIONValue(const aValue: String); @@ -9595,8 +10447,10 @@ begin end; function TContactos_RefreshBusinessProcessorRules.GetPROVINCIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPROVINCIA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPROVINCIA]; + result := VarIsNull(v) or VarIsClear(v); end; function TContactos_RefreshBusinessProcessorRules.GetOldPROVINCIAValue: String; @@ -9605,8 +10459,10 @@ begin end; function TContactos_RefreshBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshPROVINCIA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshPROVINCIA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContactos_RefreshBusinessProcessorRules.SetPROVINCIAValue(const aValue: String); @@ -9626,8 +10482,10 @@ begin end; function TContactos_RefreshBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshCODIGO_POSTAL]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshCODIGO_POSTAL]; + result := VarIsNull(v) or VarIsClear(v); end; function TContactos_RefreshBusinessProcessorRules.GetOldCODIGO_POSTALValue: String; @@ -9636,8 +10494,10 @@ begin end; function TContactos_RefreshBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshCODIGO_POSTAL]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshCODIGO_POSTAL]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContactos_RefreshBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String); @@ -9657,8 +10517,10 @@ begin end; function TContactos_RefreshBusinessProcessorRules.GetTELEFONO_1IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshTELEFONO_1]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshTELEFONO_1]; + result := VarIsNull(v) or VarIsClear(v); end; function TContactos_RefreshBusinessProcessorRules.GetOldTELEFONO_1Value: String; @@ -9667,8 +10529,10 @@ begin end; function TContactos_RefreshBusinessProcessorRules.GetOldTELEFONO_1IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshTELEFONO_1]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshTELEFONO_1]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContactos_RefreshBusinessProcessorRules.SetTELEFONO_1Value(const aValue: String); @@ -9688,8 +10552,10 @@ begin end; function TContactos_RefreshBusinessProcessorRules.GetTELEFONO_2IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshTELEFONO_2]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshTELEFONO_2]; + result := VarIsNull(v) or VarIsClear(v); end; function TContactos_RefreshBusinessProcessorRules.GetOldTELEFONO_2Value: String; @@ -9698,8 +10564,10 @@ begin end; function TContactos_RefreshBusinessProcessorRules.GetOldTELEFONO_2IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshTELEFONO_2]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshTELEFONO_2]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContactos_RefreshBusinessProcessorRules.SetTELEFONO_2Value(const aValue: String); @@ -9719,8 +10587,10 @@ begin end; function TContactos_RefreshBusinessProcessorRules.GetMOVIL_1IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshMOVIL_1]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshMOVIL_1]; + result := VarIsNull(v) or VarIsClear(v); end; function TContactos_RefreshBusinessProcessorRules.GetOldMOVIL_1Value: String; @@ -9729,8 +10599,10 @@ begin end; function TContactos_RefreshBusinessProcessorRules.GetOldMOVIL_1IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshMOVIL_1]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshMOVIL_1]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContactos_RefreshBusinessProcessorRules.SetMOVIL_1Value(const aValue: String); @@ -9750,8 +10622,10 @@ begin end; function TContactos_RefreshBusinessProcessorRules.GetMOVIL_2IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshMOVIL_2]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshMOVIL_2]; + result := VarIsNull(v) or VarIsClear(v); end; function TContactos_RefreshBusinessProcessorRules.GetOldMOVIL_2Value: String; @@ -9760,8 +10634,10 @@ begin end; function TContactos_RefreshBusinessProcessorRules.GetOldMOVIL_2IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshMOVIL_2]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshMOVIL_2]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContactos_RefreshBusinessProcessorRules.SetMOVIL_2Value(const aValue: String); @@ -9781,8 +10657,10 @@ begin end; function TContactos_RefreshBusinessProcessorRules.GetFAXIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshFAX]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshFAX]; + result := VarIsNull(v) or VarIsClear(v); end; function TContactos_RefreshBusinessProcessorRules.GetOldFAXValue: String; @@ -9791,8 +10669,10 @@ begin end; function TContactos_RefreshBusinessProcessorRules.GetOldFAXIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshFAX]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshFAX]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContactos_RefreshBusinessProcessorRules.SetFAXValue(const aValue: String); @@ -9812,8 +10692,10 @@ begin end; function TContactos_RefreshBusinessProcessorRules.GetEMAIL_1IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshEMAIL_1]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshEMAIL_1]; + result := VarIsNull(v) or VarIsClear(v); end; function TContactos_RefreshBusinessProcessorRules.GetOldEMAIL_1Value: String; @@ -9822,8 +10704,10 @@ begin end; function TContactos_RefreshBusinessProcessorRules.GetOldEMAIL_1IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshEMAIL_1]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshEMAIL_1]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContactos_RefreshBusinessProcessorRules.SetEMAIL_1Value(const aValue: String); @@ -9843,8 +10727,10 @@ begin end; function TContactos_RefreshBusinessProcessorRules.GetEMAIL_2IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshEMAIL_2]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshEMAIL_2]; + result := VarIsNull(v) or VarIsClear(v); end; function TContactos_RefreshBusinessProcessorRules.GetOldEMAIL_2Value: String; @@ -9853,8 +10739,10 @@ begin end; function TContactos_RefreshBusinessProcessorRules.GetOldEMAIL_2IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshEMAIL_2]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshEMAIL_2]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContactos_RefreshBusinessProcessorRules.SetEMAIL_2Value(const aValue: String); @@ -9874,8 +10762,10 @@ begin end; function TContactos_RefreshBusinessProcessorRules.GetPAGINA_WEBIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPAGINA_WEB]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPAGINA_WEB]; + result := VarIsNull(v) or VarIsClear(v); end; function TContactos_RefreshBusinessProcessorRules.GetOldPAGINA_WEBValue: String; @@ -9884,8 +10774,10 @@ begin end; function TContactos_RefreshBusinessProcessorRules.GetOldPAGINA_WEBIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshPAGINA_WEB]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshPAGINA_WEB]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContactos_RefreshBusinessProcessorRules.SetPAGINA_WEBValue(const aValue: String); @@ -9906,8 +10798,10 @@ begin end; function TContactos_RefreshBusinessProcessorRules.GetNOTASIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshNOTAS]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshNOTAS]; + result := VarIsNull(v) or VarIsClear(v); end; function TContactos_RefreshBusinessProcessorRules.GetOldNOTASValue: IROStrings; @@ -9917,8 +10811,10 @@ begin end; function TContactos_RefreshBusinessProcessorRules.GetOldNOTASIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshNOTAS]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshNOTAS]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContactos_RefreshBusinessProcessorRules.SetNOTASIsNull(const aValue: Boolean); @@ -9933,8 +10829,10 @@ begin end; function TContactos_RefreshBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshFECHA_ALTA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshFECHA_ALTA]; + result := VarIsNull(v) or VarIsClear(v); end; function TContactos_RefreshBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; @@ -9943,8 +10841,10 @@ begin end; function TContactos_RefreshBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshFECHA_ALTA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshFECHA_ALTA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContactos_RefreshBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); @@ -9964,8 +10864,10 @@ begin end; function TContactos_RefreshBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshFECHA_MODIFICACION]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshFECHA_MODIFICACION]; + result := VarIsNull(v) or VarIsClear(v); end; function TContactos_RefreshBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; @@ -9974,8 +10876,10 @@ begin end; function TContactos_RefreshBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshFECHA_MODIFICACION]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshFECHA_MODIFICACION]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContactos_RefreshBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); @@ -9995,8 +10899,10 @@ begin end; function TContactos_RefreshBusinessProcessorRules.GetUSUARIOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshUSUARIO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshUSUARIO]; + result := VarIsNull(v) or VarIsClear(v); end; function TContactos_RefreshBusinessProcessorRules.GetOldUSUARIOValue: String; @@ -10005,8 +10911,10 @@ begin end; function TContactos_RefreshBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshUSUARIO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshUSUARIO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContactos_RefreshBusinessProcessorRules.SetUSUARIOValue(const aValue: String); @@ -10026,8 +10934,10 @@ begin end; function TContactos_RefreshBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshREFERENCIA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshREFERENCIA]; + result := VarIsNull(v) or VarIsClear(v); end; function TContactos_RefreshBusinessProcessorRules.GetOldREFERENCIAValue: String; @@ -10036,8 +10946,10 @@ begin end; function TContactos_RefreshBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshREFERENCIA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshREFERENCIA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContactos_RefreshBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); @@ -10057,8 +10969,10 @@ begin end; function TContactos_RefreshBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPERSONA_CONTACTO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPERSONA_CONTACTO]; + result := VarIsNull(v) or VarIsClear(v); end; function TContactos_RefreshBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String; @@ -10067,8 +10981,10 @@ begin end; function TContactos_RefreshBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshPERSONA_CONTACTO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshPERSONA_CONTACTO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContactos_RefreshBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String); @@ -10088,8 +11004,10 @@ begin end; function TContactos_RefreshBusinessProcessorRules.GetPAISIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPAIS]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPAIS]; + result := VarIsNull(v) or VarIsClear(v); end; function TContactos_RefreshBusinessProcessorRules.GetOldPAISValue: String; @@ -10098,8 +11016,10 @@ begin end; function TContactos_RefreshBusinessProcessorRules.GetOldPAISIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshPAIS]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshPAIS]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContactos_RefreshBusinessProcessorRules.SetPAISValue(const aValue: String); @@ -10131,8 +11051,10 @@ begin end; function TContratosEmpleadosBusinessProcessorRules.GetCONTRATOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosEmpleadosCONTRATO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosEmpleadosCONTRATO]; + result := VarIsNull(v) or VarIsClear(v); end; function TContratosEmpleadosBusinessProcessorRules.GetOldCONTRATOValue: String; @@ -10141,8 +11063,10 @@ begin end; function TContratosEmpleadosBusinessProcessorRules.GetOldCONTRATOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosEmpleadosCONTRATO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosEmpleadosCONTRATO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TContratosEmpleadosBusinessProcessorRules.SetCONTRATOValue(const aValue: String); @@ -10174,8 +11098,10 @@ begin end; function TDescripcionesProveedoresBusinessProcessorRules.GetDESCRIPCION_PROVEEDORIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DescripcionesProveedoresDESCRIPCION_PROVEEDOR]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_DescripcionesProveedoresDESCRIPCION_PROVEEDOR]; + result := VarIsNull(v) or VarIsClear(v); end; function TDescripcionesProveedoresBusinessProcessorRules.GetOldDESCRIPCION_PROVEEDORValue: String; @@ -10184,8 +11110,10 @@ begin end; function TDescripcionesProveedoresBusinessProcessorRules.GetOldDESCRIPCION_PROVEEDORIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DescripcionesProveedoresDESCRIPCION_PROVEEDOR]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_DescripcionesProveedoresDESCRIPCION_PROVEEDOR]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TDescripcionesProveedoresBusinessProcessorRules.SetDESCRIPCION_PROVEEDORValue(const aValue: String); @@ -10217,8 +11145,10 @@ begin end; function TPersonalContactoBusinessProcessorRules.GetIDIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoID]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoID]; + result := VarIsNull(v) or VarIsClear(v); end; function TPersonalContactoBusinessProcessorRules.GetOldIDValue: Integer; @@ -10227,8 +11157,10 @@ begin end; function TPersonalContactoBusinessProcessorRules.GetOldIDIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoID]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoID]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TPersonalContactoBusinessProcessorRules.SetIDValue(const aValue: Integer); @@ -10248,8 +11180,10 @@ begin end; function TPersonalContactoBusinessProcessorRules.GetID_CONTACTOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoID_CONTACTO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoID_CONTACTO]; + result := VarIsNull(v) or VarIsClear(v); end; function TPersonalContactoBusinessProcessorRules.GetOldID_CONTACTOValue: Integer; @@ -10258,8 +11192,10 @@ begin end; function TPersonalContactoBusinessProcessorRules.GetOldID_CONTACTOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoID_CONTACTO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoID_CONTACTO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TPersonalContactoBusinessProcessorRules.SetID_CONTACTOValue(const aValue: Integer); @@ -10279,8 +11215,10 @@ begin end; function TPersonalContactoBusinessProcessorRules.GetNOMBREIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoNOMBRE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoNOMBRE]; + result := VarIsNull(v) or VarIsClear(v); end; function TPersonalContactoBusinessProcessorRules.GetOldNOMBREValue: String; @@ -10289,8 +11227,10 @@ begin end; function TPersonalContactoBusinessProcessorRules.GetOldNOMBREIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoNOMBRE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoNOMBRE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TPersonalContactoBusinessProcessorRules.SetNOMBREValue(const aValue: String); @@ -10310,8 +11250,10 @@ begin end; function TPersonalContactoBusinessProcessorRules.GetPUESTOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoPUESTO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoPUESTO]; + result := VarIsNull(v) or VarIsClear(v); end; function TPersonalContactoBusinessProcessorRules.GetOldPUESTOValue: String; @@ -10320,8 +11262,10 @@ begin end; function TPersonalContactoBusinessProcessorRules.GetOldPUESTOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoPUESTO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoPUESTO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TPersonalContactoBusinessProcessorRules.SetPUESTOValue(const aValue: String); @@ -10341,8 +11285,10 @@ begin end; function TPersonalContactoBusinessProcessorRules.GetTELEFONOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoTELEFONO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoTELEFONO]; + result := VarIsNull(v) or VarIsClear(v); end; function TPersonalContactoBusinessProcessorRules.GetOldTELEFONOValue: String; @@ -10351,8 +11297,10 @@ begin end; function TPersonalContactoBusinessProcessorRules.GetOldTELEFONOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoTELEFONO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoTELEFONO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TPersonalContactoBusinessProcessorRules.SetTELEFONOValue(const aValue: String); @@ -10372,8 +11320,10 @@ begin end; function TPersonalContactoBusinessProcessorRules.GetMOVILIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoMOVIL]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoMOVIL]; + result := VarIsNull(v) or VarIsClear(v); end; function TPersonalContactoBusinessProcessorRules.GetOldMOVILValue: String; @@ -10382,8 +11332,10 @@ begin end; function TPersonalContactoBusinessProcessorRules.GetOldMOVILIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoMOVIL]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoMOVIL]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TPersonalContactoBusinessProcessorRules.SetMOVILValue(const aValue: String); @@ -10403,8 +11355,10 @@ begin end; function TPersonalContactoBusinessProcessorRules.GetFAXIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFAX]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFAX]; + result := VarIsNull(v) or VarIsClear(v); end; function TPersonalContactoBusinessProcessorRules.GetOldFAXValue: String; @@ -10413,8 +11367,10 @@ begin end; function TPersonalContactoBusinessProcessorRules.GetOldFAXIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoFAX]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoFAX]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TPersonalContactoBusinessProcessorRules.SetFAXValue(const aValue: String); @@ -10434,8 +11390,10 @@ begin end; function TPersonalContactoBusinessProcessorRules.GetEMAILIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoEMAIL]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoEMAIL]; + result := VarIsNull(v) or VarIsClear(v); end; function TPersonalContactoBusinessProcessorRules.GetOldEMAILValue: String; @@ -10444,8 +11402,10 @@ begin end; function TPersonalContactoBusinessProcessorRules.GetOldEMAILIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoEMAIL]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoEMAIL]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TPersonalContactoBusinessProcessorRules.SetEMAILValue(const aValue: String); @@ -10465,8 +11425,10 @@ begin end; function TPersonalContactoBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFECHA_ALTA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFECHA_ALTA]; + result := VarIsNull(v) or VarIsClear(v); end; function TPersonalContactoBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; @@ -10475,8 +11437,10 @@ begin end; function TPersonalContactoBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoFECHA_ALTA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoFECHA_ALTA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TPersonalContactoBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); @@ -10496,8 +11460,10 @@ begin end; function TPersonalContactoBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFECHA_MODIFICACION]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFECHA_MODIFICACION]; + result := VarIsNull(v) or VarIsClear(v); end; function TPersonalContactoBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; @@ -10506,8 +11472,10 @@ begin end; function TPersonalContactoBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoFECHA_MODIFICACION]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoFECHA_MODIFICACION]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TPersonalContactoBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); diff --git a/Source/Modulos/Contactos/Model/uBizContactos.pas b/Source/Modulos/Contactos/Model/uBizContactos.pas index cf5b375..07f4885 100644 --- a/Source/Modulos/Contactos/Model/uBizContactos.pas +++ b/Source/Modulos/Contactos/Model/uBizContactos.pas @@ -94,6 +94,9 @@ type function GetDESCUENTO2Value: Double; procedure SetDESCUENTO2Value(const aValue: Double); + function GetCOMISIONValue: Double; + procedure SetCOMISIONValue(const aValue: Double); + function GetDescuentos: IBizClienteDescuentos; procedure SetDescuentos(Value: IBizClienteDescuentos); property Descuentos: IBizClienteDescuentos read GetDescuentos write SetDescuentos; @@ -115,6 +118,7 @@ type property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue; property DESCUENTO: Double read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTO2: Double read GetDESCUENTO2Value write SetDESCUENTO2Value; + property COMISION: Double read GetCOMISIONValue write SetCOMISIONValue; property FELICITACION: Integer read GetFELICITACIONValue write SetFELICITACIONValue; end; @@ -319,11 +323,15 @@ type function GetDESCUENTO2Value: Double; procedure SetDESCUENTO2Value(const aValue: Double); + function GetCOMISIONValue: Double; + procedure SetCOMISIONValue(const aValue: Double); + function GetDescuentos: IBizClienteDescuentos; procedure SetDescuentos(Value: IBizClienteDescuentos); function GetFELICITACIONValue: Integer; procedure SetFELICITACIONValue(const aValue: Integer); + public procedure IniciarValoresContactoNuevo; override; constructor Create(aDataTable: TDADataTable); override; @@ -343,6 +351,7 @@ type property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue; property DESCUENTO: Double read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTO2: Double read GetDESCUENTO2Value write SetDESCUENTO2Value; + property COMISION: Double read GetCOMISIONValue write SetCOMISIONValue; property FELICITACION: Integer read GetFELICITACIONValue write SetFELICITACIONValue; end; @@ -581,6 +590,11 @@ begin result := DataTable.Fields[idx_ClientesBLOQUEADO].AsInteger; end; +function TBizCliente.GetCOMISIONValue: Double; +begin + result := DataTable.Fields[idx_ClientesCOMISION].AsFloat; +end; + function TBizCliente.GetDESCUENTO2Value: Double; begin result := DataTable.Fields[idx_ClientesDESCUENTO2].AsFloat; @@ -631,6 +645,11 @@ begin DataTable.Fields[idx_ClientesBLOQUEADO].AsInteger := aValue; end; +procedure TBizCliente.SetCOMISIONValue(const aValue: Double); +begin + DataTable.Fields[idx_ClientesCOMISION].AsFloat := aValue; +end; + procedure TBizCliente.SetDESCUENTO2Value(const aValue: Double); begin DataTable.Fields[idx_ClientesDESCUENTO2].AsFloat := aValue; @@ -741,7 +760,6 @@ procedure TBizCliente.IniciarValoresContactoNuevo; begin inherited; ID_CATEGORIA := CATEGORIA_CLIENTE; - VENCIMIENTO_FACTURAS_1 := CLIENTE_DIAS_VENCIMIENTO; BLOQUEADO := 0; FELICITACION := 0; RECARGO_EQUIVALENCIA := CLIENTE_RECARGO_EQUIVALENCIA; diff --git a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm index 8f6bfa7..4bb57a2 100644 --- a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm +++ b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm @@ -821,6 +821,10 @@ object srvContactos: TsrvContactos item DatasetField = 'ID_AGENTE' TableField = 'ID_AGENTE' + end + item + DatasetField = 'COMISION' + TableField = 'COMISION' end> end> Name = 'Clientes' @@ -969,6 +973,10 @@ object srvContactos: TsrvContactos Name = 'ID_AGENTE' DataType = datInteger end + item + Name = 'COMISION' + DataType = datCurrency + end item Name = 'GRUPO_CLIENTE' DataType = datString diff --git a/Source/Modulos/Contactos/Views/Contactos_view.res b/Source/Modulos/Contactos/Views/Contactos_view.res index 1641339..8b251f3 100644 Binary files a/Source/Modulos/Contactos/Views/Contactos_view.res and b/Source/Modulos/Contactos/Views/Contactos_view.res differ diff --git a/Source/Modulos/Contactos/Views/uEditorContacto.dfm b/Source/Modulos/Contactos/Views/uEditorContacto.dfm index db53231..77df9aa 100644 --- a/Source/Modulos/Contactos/Views/uEditorContacto.dfm +++ b/Source/Modulos/Contactos/Views/uEditorContacto.dfm @@ -7,7 +7,6 @@ inherited fEditorContacto: TfEditorContacto ClientWidth = 632 Scaled = False ExplicitWidth = 640 - ExplicitHeight = 240 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader @@ -110,18 +109,6 @@ inherited fEditorContacto: TfEditorContacto inherited ToolBar1: TToolBar Width = 618 ExplicitWidth = 618 - inherited ToolButton1: TToolButton - ExplicitWidth = 113 - end - inherited ToolButton4: TToolButton - ExplicitWidth = 113 - end - inherited ToolButton2: TToolButton - ExplicitWidth = 113 - end - inherited ToolButton7: TToolButton - ExplicitWidth = 113 - end end end end @@ -153,18 +140,6 @@ inherited fEditorContacto: TfEditorContacto inherited ToolBar1: TToolBar Width = 618 ExplicitWidth = 618 - inherited ToolButton1: TToolButton - ExplicitWidth = 113 - end - inherited ToolButton4: TToolButton - ExplicitWidth = 113 - end - inherited ToolButton2: TToolButton - ExplicitWidth = 113 - end - inherited ToolButton7: TToolButton - ExplicitWidth = 113 - end end end end @@ -174,12 +149,15 @@ inherited fEditorContacto: TfEditorContacto Panels = < item Width = 200 + end + item + Text = + 'F1 - Guardar y cerrar Ctrl + F1 - Guardar Ctrl + Del - Eli' + + 'minar Esc - Cerrar' + Width = 50 end> ExplicitWidth = 632 end - inherited EditorActionList: TActionList - Top = 128 - end inherited dsDataTable: TDADataSource [5] Left = 168 Top = 120 @@ -189,7 +167,7 @@ inherited fEditorContacto: TfEditorContacto end inherited StatusBarImages: TPngImageList [7] end - inherited JvFormStorage: TJvFormStorage [8] + inherited JvFormStorage: TJvFormStorage Top = 144 end inherited LargeImages: TPngImageList [9] @@ -198,4 +176,16 @@ inherited fEditorContacto: TfEditorContacto inherited SmallImages: TPngImageList [10] Top = 112 end + inherited EditorActionList: TActionList [11] + Top = 128 + inherited actGuardarCerrar: TAction + ShortCut = 112 + end + inherited actGuardar: TAction + ShortCut = 16496 + end + inherited actEliminar: TAction + ShortCut = 16430 + end + end end diff --git a/Source/Modulos/Contactos/Views/uEditorContacto.pas b/Source/Modulos/Contactos/Views/uEditorContacto.pas index c47c246..086a576 100644 --- a/Source/Modulos/Contactos/Views/uEditorContacto.pas +++ b/Source/Modulos/Contactos/Views/uEditorContacto.pas @@ -16,7 +16,7 @@ uses JvStatusBar, uViewContactoDatosBancarios, dxLayoutLookAndFeels, JvLabel, uDAInterfaces, uViewDetallesGenerico, uViewContactoListaDatosBancarios, uViewPersonalContacto, cxControls, cxContainer, cxEdit, cxLabel, cxGraphics, - cxLookAndFeels, cxLookAndFeelPainters; + cxLookAndFeels, cxLookAndFeelPainters, JvEnterTab; type TfEditorContacto = class(TfEditorDBItem, IEditorContacto) diff --git a/Source/Modulos/Contactos/Views/uEditorDatoBancario.dfm b/Source/Modulos/Contactos/Views/uEditorDatoBancario.dfm index e2637b3..e42a7fe 100644 --- a/Source/Modulos/Contactos/Views/uEditorDatoBancario.dfm +++ b/Source/Modulos/Contactos/Views/uEditorDatoBancario.dfm @@ -34,7 +34,6 @@ object fEditorDatoBancario: TfEditorDatoBancario ParentBackground = True TabOrder = 1 TabStop = False - ExplicitHeight = 128 object eEntidad: TcxDBTextEdit Left = 117 Top = 55 diff --git a/Source/Modulos/Contactos/Views/uEditorDatoBancario.pas b/Source/Modulos/Contactos/Views/uEditorDatoBancario.pas index 7bb2639..233b0aa 100644 --- a/Source/Modulos/Contactos/Views/uEditorDatoBancario.pas +++ b/Source/Modulos/Contactos/Views/uEditorDatoBancario.pas @@ -59,6 +59,7 @@ uses procedure TfEditorDatoBancario.CalcularDC(Sender: TObject); begin eDC.EditValue := DarDC(eEntidad.EditValue,eSucursal.EditValue,eCuenta.EditValue); + eDC.PostEditValue; end; constructor TfEditorDatoBancario.Create(AOwner: TComponent); diff --git a/Source/Modulos/Contactos/Views/uEditorProveedor.dfm b/Source/Modulos/Contactos/Views/uEditorProveedor.dfm index 83e8dde..797feeb 100644 --- a/Source/Modulos/Contactos/Views/uEditorProveedor.dfm +++ b/Source/Modulos/Contactos/Views/uEditorProveedor.dfm @@ -81,7 +81,7 @@ inherited fEditorProveedor: TfEditorProveedor end inherited TBXSeparatorItem2: TSpTBXSeparatorItem [8] end - inherited TBXItem23: TSpTBXItem [9] + inherited TBXSeparatorItem3: TSpTBXSeparatorItem [10] end end inherited tbxMenu: TSpTBXToolbar @@ -174,8 +174,6 @@ inherited fEditorProveedor: TfEditorProveedor end inherited cbProvincia: TcxDBComboBox Style.LookAndFeel.SkinName = '' - Style.ButtonStyle = bts3D - Style.PopupBorderStyle = epbsFrame3D StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' @@ -184,8 +182,6 @@ inherited fEditorProveedor: TfEditorProveedor end inherited cbPoblacion: TcxDBComboBox Style.LookAndFeel.SkinName = '' - Style.ButtonStyle = bts3D - Style.PopupBorderStyle = epbsFrame3D StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' @@ -228,8 +224,6 @@ inherited fEditorProveedor: TfEditorProveedor end inherited cbGrupoProveedor: TcxDBComboBox Style.LookAndFeel.SkinName = '' - Style.ButtonStyle = bts3D - Style.PopupBorderStyle = epbsFrame3D StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' @@ -238,14 +232,20 @@ inherited fEditorProveedor: TfEditorProveedor end inherited cbDescripcionProveedor: TcxDBComboBox Style.LookAndFeel.SkinName = '' - Style.ButtonStyle = bts3D - Style.PopupBorderStyle = epbsFrame3D StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 366 Width = 366 end + inherited cxDBCheckBox3: TcxDBCheckBox + Left = 385 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 385 + end inherited eTlfParticular: TcxDBTextEdit Left = 593 Style.LookAndFeel.SkinName = '' @@ -266,13 +266,15 @@ inherited fEditorProveedor: TfEditorProveedor ExplicitWidth = 171 Width = 171 end - inherited cxDBCheckBox3: TcxDBCheckBox - Left = 385 + inherited cxDBCheckBox1: TcxDBCheckBox + Left = 486 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 385 + ExplicitLeft = 486 + ExplicitWidth = 236 + Width = 236 end inherited eTlfMovil: TcxDBTextEdit Left = 593 @@ -302,16 +304,6 @@ inherited fEditorProveedor: TfEditorProveedor ExplicitWidth = 366 Width = 366 end - inherited cxDBCheckBox1: TcxDBCheckBox - Left = 486 - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 486 - ExplicitWidth = 236 - Width = 236 - end inherited eNIFCIF: TcxDBTextEdit Left = 258 Style.LookAndFeel.SkinName = '' @@ -417,6 +409,18 @@ inherited fEditorProveedor: TfEditorProveedor inherited ToolBar1: TToolBar Width = 816 ExplicitWidth = 816 + inherited ToolButton1: TToolButton + ExplicitWidth = 62 + end + inherited ToolButton4: TToolButton + ExplicitWidth = 74 + end + inherited ToolButton2: TToolButton + ExplicitWidth = 67 + end + inherited ToolButton7: TToolButton + ExplicitWidth = 117 + end end end end @@ -581,6 +585,18 @@ inherited fEditorProveedor: TfEditorProveedor inherited ToolBar1: TToolBar Width = 816 ExplicitWidth = 816 + inherited ToolButton1: TToolButton + ExplicitWidth = 62 + end + inherited ToolButton4: TToolButton + ExplicitWidth = 74 + end + inherited ToolButton2: TToolButton + ExplicitWidth = 67 + end + inherited ToolButton7: TToolButton + ExplicitWidth = 117 + end end end end @@ -588,66 +604,19 @@ inherited fEditorProveedor: TfEditorProveedor inherited StatusBar: TJvStatusBar Top = 601 Width = 830 + Panels = < + item + Width = 200 + end + item + Text = + 'f1 - Guardar y cerrar Ctrl + F1 - Guardar Ctrl + Del - Eli' + + 'minar Esc - Cerrar' + Width = 50 + end> ExplicitTop = 601 ExplicitWidth = 830 end - inherited EditorActionList: TActionList - Top = 184 - inherited actPrevisualizar: TAction - Enabled = False - Visible = False - end - inherited actImprimir: TAction - Enabled = False - Visible = False - end - object actGruposProveedor: TAction - Category = 'Acciones' - Caption = 'Grupos de proveedor' - ImageIndex = 21 - OnExecute = actGruposProveedorExecute - end - object actDocumentosPedidos: TAction - Category = 'Acciones' - Caption = 'Pedidos' - Enabled = False - ImageIndex = 23 - Visible = False - OnExecute = actDocumentosPedidosExecute - end - object actDocumentosAlbaranes: TAction - Category = 'Acciones' - Caption = 'Albaranes' - Enabled = False - ImageIndex = 24 - Visible = False - OnExecute = actDocumentosAlbaranesExecute - end - object actDocumentosDevoluciones: TAction - Category = 'Acciones' - Caption = 'Devoluciones' - Enabled = False - ImageIndex = 25 - Visible = False - OnExecute = actDocumentosDevolucionesExecute - end - object actDocumentosFacturas: TAction - Category = 'Acciones' - Caption = 'Facturas' - Enabled = False - ImageIndex = 26 - Visible = False - OnExecute = actDocumentosFacturasExecute - end - object actDocumentosRecibos: TAction - Category = 'Acciones' - Caption = 'Recibos' - Enabled = False - ImageIndex = 27 - Visible = False - OnExecute = actDocumentosRecibosExecute - end - end inherited LargeImages: TPngImageList PngImages = < item @@ -2540,4 +2509,70 @@ inherited fEditorProveedor: TfEditorProveedor end> Bitmap = {} end + inherited EditorActionList: TActionList + Top = 184 + inherited actGuardarCerrar: TAction + ShortCut = 112 + end + inherited actGuardar: TAction + ShortCut = 16496 + end + inherited actEliminar: TAction + ShortCut = 16430 + end + inherited actPrevisualizar: TAction + Enabled = False + Visible = False + end + inherited actImprimir: TAction + Enabled = False + Visible = False + end + object actGruposProveedor: TAction + Category = 'Acciones' + Caption = 'Grupos de proveedor' + ImageIndex = 21 + OnExecute = actGruposProveedorExecute + end + object actDocumentosPedidos: TAction + Category = 'Acciones' + Caption = 'Pedidos' + Enabled = False + ImageIndex = 23 + Visible = False + OnExecute = actDocumentosPedidosExecute + end + object actDocumentosAlbaranes: TAction + Category = 'Acciones' + Caption = 'Albaranes' + Enabled = False + ImageIndex = 24 + Visible = False + OnExecute = actDocumentosAlbaranesExecute + end + object actDocumentosDevoluciones: TAction + Category = 'Acciones' + Caption = 'Devoluciones' + Enabled = False + ImageIndex = 25 + Visible = False + OnExecute = actDocumentosDevolucionesExecute + end + object actDocumentosFacturas: TAction + Category = 'Acciones' + Caption = 'Facturas' + Enabled = False + ImageIndex = 26 + Visible = False + OnExecute = actDocumentosFacturasExecute + end + object actDocumentosRecibos: TAction + Category = 'Acciones' + Caption = 'Recibos' + Enabled = False + ImageIndex = 27 + Visible = False + OnExecute = actDocumentosRecibosExecute + end + end end diff --git a/Source/Modulos/Contactos/Views/uEditorProveedor.pas b/Source/Modulos/Contactos/Views/uEditorProveedor.pas index c4ab954..745b5e0 100644 --- a/Source/Modulos/Contactos/Views/uEditorProveedor.pas +++ b/Source/Modulos/Contactos/Views/uEditorProveedor.pas @@ -15,7 +15,7 @@ uses dxLayoutLookAndFeels, uViewContactoDatosBancarios, uBizContactos, uViewProveedorDatosComerciales, uViewDetallesGenerico, uViewDireccionesEntrega, uDAInterfaces, uViewContactoListaDatosBancarios, uViewPersonalContacto, - cxLabel, cxGraphics, cxLookAndFeels, cxLookAndFeelPainters; + cxLabel, cxGraphics, cxLookAndFeels, cxLookAndFeelPainters, JvEnterTab; type TfEditorProveedor = class(TfEditorContacto, IEditorProveedor) diff --git a/Source/Modulos/Contactos/Views/uEditorVendedor.dfm b/Source/Modulos/Contactos/Views/uEditorVendedor.dfm index cd560fd..2119ccb 100644 --- a/Source/Modulos/Contactos/Views/uEditorVendedor.dfm +++ b/Source/Modulos/Contactos/Views/uEditorVendedor.dfm @@ -117,8 +117,6 @@ inherited fEditorVendedor: TfEditorVendedor end inherited cbProvincia: TcxDBComboBox Style.LookAndFeel.SkinName = '' - Style.ButtonStyle = bts3D - Style.PopupBorderStyle = epbsFrame3D StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' @@ -127,8 +125,6 @@ inherited fEditorVendedor: TfEditorVendedor end inherited cbPoblacion: TcxDBComboBox Style.LookAndFeel.SkinName = '' - Style.ButtonStyle = bts3D - Style.PopupBorderStyle = epbsFrame3D StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' @@ -154,7 +150,6 @@ inherited fEditorVendedor: TfEditorVendedor Width = 630 end inherited edtComision: TcxDBSpinEdit - Style.ButtonStyle = bts3D Style.IsFontAssigned = True ExplicitWidth = 65 Width = 65 @@ -330,16 +325,6 @@ inherited fEditorVendedor: TfEditorVendedor ExplicitTop = 557 ExplicitWidth = 676 end - inherited EditorActionList: TActionList - inherited actPrevisualizar: TAction - Enabled = False - Visible = False - end - inherited actImprimir: TAction - Enabled = False - Visible = False - end - end inherited SmallImages: TPngImageList PngImages = < item @@ -846,4 +831,14 @@ inherited fEditorVendedor: TfEditorVendedor end> Bitmap = {} end + inherited EditorActionList: TActionList + inherited actPrevisualizar: TAction + Enabled = False + Visible = False + end + inherited actImprimir: TAction + Enabled = False + Visible = False + end + end end diff --git a/Source/Modulos/Contactos/Views/uEditorVendedor.pas b/Source/Modulos/Contactos/Views/uEditorVendedor.pas index a13e645..59cc5cf 100644 --- a/Source/Modulos/Contactos/Views/uEditorVendedor.pas +++ b/Source/Modulos/Contactos/Views/uEditorVendedor.pas @@ -14,7 +14,7 @@ uses dxLayoutControl, cxContainer, cxEdit, cxTextEdit, cxMemo, cxDBEdit, cxControls, uDAInterfaces, uViewPersonalContacto, StdCtrls, uViewContactoListaDatosBancarios, cxLabel, cxGraphics, cxLookAndFeels, - cxLookAndFeelPainters; + cxLookAndFeelPainters, JvEnterTab; type TfEditorVendedor = class(TfEditorContacto, IEditorVendedor) diff --git a/Source/Modulos/Contactos/Views/uViewContactoListaDatosBancarios.dfm b/Source/Modulos/Contactos/Views/uViewContactoListaDatosBancarios.dfm index f22f14d..80a8c60 100644 --- a/Source/Modulos/Contactos/Views/uViewContactoListaDatosBancarios.dfm +++ b/Source/Modulos/Contactos/Views/uViewContactoListaDatosBancarios.dfm @@ -10,6 +10,7 @@ inherited frViewListaDatosBancarios: TfrViewListaDatosBancarios VisibleForCustomization = False end object cxGridViewTITULAR: TcxGridDBColumn + Caption = 'BANCO' DataBinding.FieldName = 'TITULAR' PropertiesClassName = 'TcxTextEditProperties' Width = 80 diff --git a/Source/Modulos/Contactos/Views/uViewProveedor.dfm b/Source/Modulos/Contactos/Views/uViewProveedor.dfm index 384f2cf..f31ffd5 100644 --- a/Source/Modulos/Contactos/Views/uViewProveedor.dfm +++ b/Source/Modulos/Contactos/Views/uViewProveedor.dfm @@ -3,6 +3,7 @@ inherited frViewProveedor: TfrViewProveedor Height = 492 OnCreate = CustomViewCreate OnDestroy = CustomViewDestroy + OnShow = CustomViewShow ExplicitWidth = 799 ExplicitHeight = 492 inherited dxLayoutControlContacto: TdxLayoutControl @@ -168,6 +169,28 @@ inherited frViewProveedor: TfrViewProveedor TabOrder = 3 Width = 330 end + object cxDBCheckBox3: TcxDBCheckBox [13] + Left = 361 + Top = 109 + Caption = 'Subcontrata' + DataBinding.DataField = 'SUBCONTRATA' + DataBinding.DataSource = dsContacto + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.ValueChecked = 1 + Properties.ValueUnchecked = 0 + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 5 + Width = 83 + end inherited eTlfParticular: TcxDBTextEdit Left = 569 Style.LookAndFeel.SkinName = '' @@ -190,13 +213,14 @@ inherited frViewProveedor: TfrViewProveedor ExplicitWidth = 171 Width = 171 end - object cxDBCheckBox3: TcxDBCheckBox [15] - Left = 361 - Top = 109 - Caption = 'Subcontrata' - DataBinding.DataField = 'SUBCONTRATA' + object cxDBCheckBox1: TcxDBCheckBox [16] + Left = 462 + Top = 294 + Caption = 'Incluir este proveedor en la tienda web' + DataBinding.DataField = 'TIENDA_WEB' DataBinding.DataSource = dsContacto Properties.ImmediatePost = True + Properties.MultiLine = True Properties.NullStyle = nssUnchecked Properties.ValueChecked = 1 Properties.ValueUnchecked = 0 @@ -209,8 +233,8 @@ inherited frViewProveedor: TfrViewProveedor StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 5 - Width = 83 + TabOrder = 21 + Width = 236 end inherited eTlfMovil: TcxDBTextEdit Left = 569 @@ -244,29 +268,6 @@ inherited frViewProveedor: TfrViewProveedor ExplicitWidth = 330 Width = 330 end - object cxDBCheckBox1: TcxDBCheckBox [19] - Left = 462 - Top = 294 - Caption = 'Incluir este proveedor en la tienda web' - DataBinding.DataField = 'TIENDA_WEB' - DataBinding.DataSource = dsContacto - Properties.ImmediatePost = True - Properties.MultiLine = True - Properties.NullStyle = nssUnchecked - Properties.ValueChecked = 1 - Properties.ValueUnchecked = 0 - Style.HotTrack = False - Style.LookAndFeel.Kind = lfStandard - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.Kind = lfStandard - StyleDisabled.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.Kind = lfStandard - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.Kind = lfStandard - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 21 - Width = 236 - end inherited eNIFCIF: TcxDBTextEdit Left = 231 Style.LookAndFeel.SkinName = '' diff --git a/Source/Modulos/Contactos/Views/uViewProveedor.pas b/Source/Modulos/Contactos/Views/uViewProveedor.pas index 8eb027e..6986539 100644 --- a/Source/Modulos/Contactos/Views/uViewProveedor.pas +++ b/Source/Modulos/Contactos/Views/uViewProveedor.pas @@ -39,6 +39,7 @@ type procedure cbGrupoProveedorPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); procedure cbDescripcionProveedorPropertiesInitPopup(Sender: TObject); + procedure CustomViewShow(Sender: TObject); protected FGrupoController: IGruposProveedorController; public @@ -124,4 +125,10 @@ begin inherited; end; +procedure TfrViewProveedor.CustomViewShow(Sender: TObject); +begin + inherited; + eNIFCIF.SetFocus; +end; + end. diff --git a/Source/Modulos/Contactos/Views/uViewVendedor.dfm b/Source/Modulos/Contactos/Views/uViewVendedor.dfm index f11fef0..1832aa3 100644 --- a/Source/Modulos/Contactos/Views/uViewVendedor.dfm +++ b/Source/Modulos/Contactos/Views/uViewVendedor.dfm @@ -1,6 +1,7 @@ inherited frViewVendedor: TfrViewVendedor Width = 642 Height = 446 + OnShow = CustomViewShow ExplicitWidth = 642 ExplicitHeight = 446 inherited dxLayoutControlContacto: TdxLayoutControl diff --git a/Source/Modulos/Contactos/Views/uViewVendedor.pas b/Source/Modulos/Contactos/Views/uViewVendedor.pas index 39f4b96..54b3780 100644 --- a/Source/Modulos/Contactos/Views/uViewVendedor.pas +++ b/Source/Modulos/Contactos/Views/uViewVendedor.pas @@ -20,6 +20,7 @@ type TfrViewVendedor = class(TfrViewContacto, IViewVendedor) dxLayoutControlContactoItem20: TdxLayoutItem; edtComision: TcxDBSpinEdit; + procedure CustomViewShow(Sender: TObject); private FDataItem : TDADataTable; @@ -38,6 +39,12 @@ implementation uses uFactuGES_App; +procedure TfrViewVendedor.CustomViewShow(Sender: TObject); +begin + inherited; + eReferencia.SetFocus; +end; + function TfrViewVendedor.GetDataItem: TDADataTable; begin Result := FDataItem; diff --git a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm index ac7fb6c..18b75ca 100644 --- a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm @@ -10,12 +10,12 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente Top = 24 end object rda_FacturasCliente: TDARemoteDataAdapter - DataStreamer = Bin2DataStreamer GetSchemaCall.RemoteService = RORemoteService GetDataCall.RemoteService = RORemoteService UpdateDataCall.RemoteService = RORemoteService GetScriptsCall.RemoteService = RORemoteService RemoteService = RORemoteService + DataStreamer = Bin2DataStreamer Left = 51 Top = 143 end @@ -68,10 +68,14 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente item Name = 'FECHA_VENCIMIENTO' DataType = datDateTime + DisplayLabel = 'Fecha de vencimiento' + DictionaryEntry = 'FacturasCliente_FECHA_VENCIMIENTO' end item Name = 'FECHA_RETENCION' DataType = datDateTime + DisplayLabel = 'FacturasCliente_FECHA_RETENCION' + DictionaryEntry = 'FacturasCliente_FECHA_RETENCION' end item Name = 'SITUACION' @@ -162,6 +166,8 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente item Name = 'ID_DIRECCION' DataType = datInteger + DisplayLabel = 'FacturasCliente_ID_DIRECCION' + DictionaryEntry = 'FacturasCliente_ID_DIRECCION' end item Name = 'CALLE' @@ -202,6 +208,8 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente Name = 'PERSONA_CONTACTO' DataType = datString Size = 255 + DisplayLabel = 'FacturasCliente_PERSONA_CONTACTO' + DictionaryEntry = 'FacturasCliente_PERSONA_CONTACTO' end item Name = 'FECHA_ALTA' @@ -263,19 +271,35 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente end item Name = 'RETENCION' - DataType = datCurrency + DataType = datFloat + DictionaryEntry = 'FacturasCliente_RETENCION' end item Name = 'IMPORTE_RETENCION' DataType = datCurrency + DictionaryEntry = 'FacturasCliente_IMPORTE_RETENCION' end item Name = 'DESCUENTO2' - DataType = datCurrency + DataType = datFloat + DictionaryEntry = 'FacturasCliente_DESCUENTO2' end item Name = 'IMPORTE_DESCUENTO2' DataType = datCurrency + DictionaryEntry = 'FacturasCliente_IMPORTE_DESCUENTO2' + end + item + Name = 'COMISION' + DataType = datFloat + DictionaryEntry = 'FacturasCliente_COMISION' + end + item + Name = 'IMPORTE_COMISION' + DataType = datCurrency + DecimalPrecision = 11 + DecimalScale = 2 + DictionaryEntry = 'FacturasCliente_IMPORTE_COMISION' end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] diff --git a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas index b27f8e3..7b2169e 100644 --- a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas +++ b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas @@ -10,7 +10,7 @@ uses uIDataModuleFacturasCliente, uBizFacturasCliente, uBizDetallesFacturaCliente, uDADesigntimeCall, uIDataModuleFacturasClienteReport, uDataModuleBase, uDAInterfaces, uDAMemDataTable, uDADataStreamer, uDABin2DataStreamer, - uDARemoteDataAdapter, uIntegerListUtils; + uDARemoteDataAdapter, uIntegerListUtils, uDADataAdapter; type TDataModuleFacturasCliente = class(TDataModuleBase, IDataModuleFacturasCliente, IDataModuleFacturasClienteReport) diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas index b238d92..f52ba90 100644 --- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas +++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas @@ -1,5 +1,6 @@ unit schFacturasClienteClient_Intf; +{$D-} interface uses @@ -9,9 +10,9 @@ 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_ListaAnosFacturas = '{18E3B38E-05CB-4C64-875A-E3E8DD826B4A}'; - RID_FacturasCliente = '{72415424-F8B7-4DD5-9212-36B4CD96E0E5}'; - RID_FacturasCliente_Detalles = '{9C3C3304-5F29-463A-8363-DF71466BD707}'; + RID_ListaAnosFacturas = '{417C7922-1E31-4AC9-8DCD-A1E97B76BE3E}'; + RID_FacturasCliente = '{795BCC34-AE4B-4403-822E-A0963AE1F148}'; + RID_FacturasCliente_Detalles = '{FC869CD0-FEAC-4C31-BA20-15AFF27A234B}'; { Data table names } nme_ListaAnosFacturas = 'ListaAnosFacturas'; @@ -67,6 +68,8 @@ const fld_FacturasClienteIMPORTE_RETENCION = 'IMPORTE_RETENCION'; fld_FacturasClienteDESCUENTO2 = 'DESCUENTO2'; fld_FacturasClienteIMPORTE_DESCUENTO2 = 'IMPORTE_DESCUENTO2'; + fld_FacturasClienteCOMISION = 'COMISION'; + fld_FacturasClienteIMPORTE_COMISION = 'IMPORTE_COMISION'; { FacturasCliente field indexes } idx_FacturasClienteID = 0; @@ -111,6 +114,8 @@ const idx_FacturasClienteIMPORTE_RETENCION = 39; idx_FacturasClienteDESCUENTO2 = 40; idx_FacturasClienteIMPORTE_DESCUENTO2 = 41; + idx_FacturasClienteCOMISION = 42; + idx_FacturasClienteIMPORTE_COMISION = 43; { FacturasCliente_Detalles fields } fld_FacturasCliente_DetallesID = 'ID'; @@ -149,7 +154,7 @@ const type { IListaAnosFacturas } IListaAnosFacturas = interface(IDAStronglyTypedDataTable) - ['{C395660C-71FF-4520-ACB6-39D23260DDB9}'] + ['{EF2E146E-265A-42B4-B242-5EB46370FCBC}'] { Property getters and setters } function GetANOValue: String; procedure SetANOValue(const aValue: String); @@ -184,7 +189,7 @@ type { IFacturasCliente } IFacturasCliente = interface(IDAStronglyTypedDataTable) - ['{BEC23A5E-4807-4786-937F-D27547B1A4EF}'] + ['{68797463-BDFE-41BD-8919-EA62A465EEE8}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -337,22 +342,30 @@ type procedure SetREFERENCIA_COMISIONValue(const aValue: String); function GetREFERENCIA_COMISIONIsNull: Boolean; procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); - function GetRETENCIONValue: Currency; - procedure SetRETENCIONValue(const aValue: Currency); + function GetRETENCIONValue: Float; + procedure SetRETENCIONValue(const aValue: Float); function GetRETENCIONIsNull: Boolean; procedure SetRETENCIONIsNull(const aValue: Boolean); function GetIMPORTE_RETENCIONValue: Currency; procedure SetIMPORTE_RETENCIONValue(const aValue: Currency); function GetIMPORTE_RETENCIONIsNull: Boolean; procedure SetIMPORTE_RETENCIONIsNull(const aValue: Boolean); - function GetDESCUENTO2Value: Currency; - procedure SetDESCUENTO2Value(const aValue: Currency); + function GetDESCUENTO2Value: Float; + procedure SetDESCUENTO2Value(const aValue: Float); function GetDESCUENTO2IsNull: Boolean; procedure SetDESCUENTO2IsNull(const aValue: Boolean); function GetIMPORTE_DESCUENTO2Value: Currency; procedure SetIMPORTE_DESCUENTO2Value(const aValue: Currency); function GetIMPORTE_DESCUENTO2IsNull: Boolean; procedure SetIMPORTE_DESCUENTO2IsNull(const aValue: Boolean); + function GetCOMISIONValue: Float; + procedure SetCOMISIONValue(const aValue: Float); + function GetCOMISIONIsNull: Boolean; + procedure SetCOMISIONIsNull(const aValue: Boolean); + function GetIMPORTE_COMISIONValue: Currency; + procedure SetIMPORTE_COMISIONValue(const aValue: Currency); + function GetIMPORTE_COMISIONIsNull: Boolean; + procedure SetIMPORTE_COMISIONIsNull(const aValue: Boolean); { Properties } @@ -432,14 +445,18 @@ type property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull; property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue; property REFERENCIA_COMISIONIsNull: Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull; - property RETENCION: Currency read GetRETENCIONValue write SetRETENCIONValue; + property RETENCION: Float read GetRETENCIONValue write SetRETENCIONValue; property RETENCIONIsNull: Boolean read GetRETENCIONIsNull write SetRETENCIONIsNull; property IMPORTE_RETENCION: Currency read GetIMPORTE_RETENCIONValue write SetIMPORTE_RETENCIONValue; property IMPORTE_RETENCIONIsNull: Boolean read GetIMPORTE_RETENCIONIsNull write SetIMPORTE_RETENCIONIsNull; - property DESCUENTO2: Currency read GetDESCUENTO2Value write SetDESCUENTO2Value; + property DESCUENTO2: Float read GetDESCUENTO2Value write SetDESCUENTO2Value; property DESCUENTO2IsNull: Boolean read GetDESCUENTO2IsNull write SetDESCUENTO2IsNull; property IMPORTE_DESCUENTO2: Currency read GetIMPORTE_DESCUENTO2Value write SetIMPORTE_DESCUENTO2Value; property IMPORTE_DESCUENTO2IsNull: Boolean read GetIMPORTE_DESCUENTO2IsNull write SetIMPORTE_DESCUENTO2IsNull; + property COMISION: Float read GetCOMISIONValue write SetCOMISIONValue; + property COMISIONIsNull: Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull; + property IMPORTE_COMISION: Currency read GetIMPORTE_COMISIONValue write SetIMPORTE_COMISIONValue; + property IMPORTE_COMISIONIsNull: Boolean read GetIMPORTE_COMISIONIsNull write SetIMPORTE_COMISIONIsNull; end; { TFacturasClienteDataTableRules } @@ -600,22 +617,30 @@ type procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual; function GetREFERENCIA_COMISIONIsNull: Boolean; virtual; procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); virtual; - function GetRETENCIONValue: Currency; virtual; - procedure SetRETENCIONValue(const aValue: Currency); virtual; + function GetRETENCIONValue: Float; virtual; + procedure SetRETENCIONValue(const aValue: Float); virtual; function GetRETENCIONIsNull: Boolean; virtual; procedure SetRETENCIONIsNull(const aValue: Boolean); virtual; function GetIMPORTE_RETENCIONValue: Currency; virtual; procedure SetIMPORTE_RETENCIONValue(const aValue: Currency); virtual; function GetIMPORTE_RETENCIONIsNull: Boolean; virtual; procedure SetIMPORTE_RETENCIONIsNull(const aValue: Boolean); virtual; - function GetDESCUENTO2Value: Currency; virtual; - procedure SetDESCUENTO2Value(const aValue: Currency); virtual; + function GetDESCUENTO2Value: Float; virtual; + procedure SetDESCUENTO2Value(const aValue: Float); virtual; function GetDESCUENTO2IsNull: Boolean; virtual; procedure SetDESCUENTO2IsNull(const aValue: Boolean); virtual; function GetIMPORTE_DESCUENTO2Value: Currency; virtual; procedure SetIMPORTE_DESCUENTO2Value(const aValue: Currency); virtual; function GetIMPORTE_DESCUENTO2IsNull: Boolean; virtual; procedure SetIMPORTE_DESCUENTO2IsNull(const aValue: Boolean); virtual; + function GetCOMISIONValue: Float; virtual; + procedure SetCOMISIONValue(const aValue: Float); virtual; + function GetCOMISIONIsNull: Boolean; virtual; + procedure SetCOMISIONIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_COMISIONValue: Currency; virtual; + procedure SetIMPORTE_COMISIONValue(const aValue: Currency); virtual; + function GetIMPORTE_COMISIONIsNull: Boolean; virtual; + procedure SetIMPORTE_COMISIONIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; @@ -694,14 +719,18 @@ type property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull; property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue; property REFERENCIA_COMISIONIsNull: Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull; - property RETENCION: Currency read GetRETENCIONValue write SetRETENCIONValue; + property RETENCION: Float read GetRETENCIONValue write SetRETENCIONValue; property RETENCIONIsNull: Boolean read GetRETENCIONIsNull write SetRETENCIONIsNull; property IMPORTE_RETENCION: Currency read GetIMPORTE_RETENCIONValue write SetIMPORTE_RETENCIONValue; property IMPORTE_RETENCIONIsNull: Boolean read GetIMPORTE_RETENCIONIsNull write SetIMPORTE_RETENCIONIsNull; - property DESCUENTO2: Currency read GetDESCUENTO2Value write SetDESCUENTO2Value; + property DESCUENTO2: Float read GetDESCUENTO2Value write SetDESCUENTO2Value; property DESCUENTO2IsNull: Boolean read GetDESCUENTO2IsNull write SetDESCUENTO2IsNull; property IMPORTE_DESCUENTO2: Currency read GetIMPORTE_DESCUENTO2Value write SetIMPORTE_DESCUENTO2Value; property IMPORTE_DESCUENTO2IsNull: Boolean read GetIMPORTE_DESCUENTO2IsNull write SetIMPORTE_DESCUENTO2IsNull; + property COMISION: Float read GetCOMISIONValue write SetCOMISIONValue; + property COMISIONIsNull: Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull; + property IMPORTE_COMISION: Currency read GetIMPORTE_COMISIONValue write SetIMPORTE_COMISIONValue; + property IMPORTE_COMISIONIsNull: Boolean read GetIMPORTE_COMISIONIsNull write SetIMPORTE_COMISIONIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -711,7 +740,7 @@ type { IFacturasCliente_Detalles } IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable) - ['{5F50A8F3-8EE1-4976-8180-A2DC77231CDC}'] + ['{23E28948-6C54-4B46-9DB4-51D215927995}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1765,14 +1794,14 @@ begin DataTable.Fields[idx_FacturasClienteREFERENCIA_COMISION].AsVariant := Null; end; -function TFacturasClienteDataTableRules.GetRETENCIONValue: Currency; +function TFacturasClienteDataTableRules.GetRETENCIONValue: Float; begin - result := DataTable.Fields[idx_FacturasClienteRETENCION].AsCurrency; + result := DataTable.Fields[idx_FacturasClienteRETENCION].AsFloat; end; -procedure TFacturasClienteDataTableRules.SetRETENCIONValue(const aValue: Currency); +procedure TFacturasClienteDataTableRules.SetRETENCIONValue(const aValue: Float); begin - DataTable.Fields[idx_FacturasClienteRETENCION].AsCurrency := aValue; + DataTable.Fields[idx_FacturasClienteRETENCION].AsFloat := aValue; end; function TFacturasClienteDataTableRules.GetRETENCIONIsNull: boolean; @@ -1807,14 +1836,14 @@ begin DataTable.Fields[idx_FacturasClienteIMPORTE_RETENCION].AsVariant := Null; end; -function TFacturasClienteDataTableRules.GetDESCUENTO2Value: Currency; +function TFacturasClienteDataTableRules.GetDESCUENTO2Value: Float; begin - result := DataTable.Fields[idx_FacturasClienteDESCUENTO2].AsCurrency; + result := DataTable.Fields[idx_FacturasClienteDESCUENTO2].AsFloat; end; -procedure TFacturasClienteDataTableRules.SetDESCUENTO2Value(const aValue: Currency); +procedure TFacturasClienteDataTableRules.SetDESCUENTO2Value(const aValue: Float); begin - DataTable.Fields[idx_FacturasClienteDESCUENTO2].AsCurrency := aValue; + DataTable.Fields[idx_FacturasClienteDESCUENTO2].AsFloat := aValue; end; function TFacturasClienteDataTableRules.GetDESCUENTO2IsNull: boolean; @@ -1849,6 +1878,48 @@ begin DataTable.Fields[idx_FacturasClienteIMPORTE_DESCUENTO2].AsVariant := Null; end; +function TFacturasClienteDataTableRules.GetCOMISIONValue: Float; +begin + result := DataTable.Fields[idx_FacturasClienteCOMISION].AsFloat; +end; + +procedure TFacturasClienteDataTableRules.SetCOMISIONValue(const aValue: Float); +begin + DataTable.Fields[idx_FacturasClienteCOMISION].AsFloat := aValue; +end; + +function TFacturasClienteDataTableRules.GetCOMISIONIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasClienteCOMISION].IsNull; +end; + +procedure TFacturasClienteDataTableRules.SetCOMISIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasClienteCOMISION].AsVariant := Null; +end; + +function TFacturasClienteDataTableRules.GetIMPORTE_COMISIONValue: Currency; +begin + result := DataTable.Fields[idx_FacturasClienteIMPORTE_COMISION].AsCurrency; +end; + +procedure TFacturasClienteDataTableRules.SetIMPORTE_COMISIONValue(const aValue: Currency); +begin + DataTable.Fields[idx_FacturasClienteIMPORTE_COMISION].AsCurrency := aValue; +end; + +function TFacturasClienteDataTableRules.GetIMPORTE_COMISIONIsNull: boolean; +begin + result := DataTable.Fields[idx_FacturasClienteIMPORTE_COMISION].IsNull; +end; + +procedure TFacturasClienteDataTableRules.SetIMPORTE_COMISIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_FacturasClienteIMPORTE_COMISION].AsVariant := Null; +end; + { TFacturasCliente_DetallesDataTableRules } constructor TFacturasCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable); diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas index 11385d0..0e9fdbb 100644 --- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas +++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas @@ -1,5 +1,6 @@ unit schFacturasClienteServer_Intf; +{$D-} interface uses @@ -9,14 +10,14 @@ 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_ListaAnosFacturasDelta = '{AB07EDD0-7B38-4CC2-9C5D-2FBCD2E784AF}'; - RID_FacturasClienteDelta = '{54580672-73BD-4949-859A-E906E7EBCD03}'; - RID_FacturasCliente_DetallesDelta = '{F5138939-68CB-41A9-8AAF-204711F0E911}'; + RID_ListaAnosFacturasDelta = '{4377D642-E4C4-47E9-8723-17617534753B}'; + RID_FacturasClienteDelta = '{6E99AC64-C7F7-43EE-9542-A776B5A19DDD}'; + RID_FacturasCliente_DetallesDelta = '{624EFE8A-1BA9-42DD-A18F-B25AA7C09C16}'; type { IListaAnosFacturasDelta } IListaAnosFacturasDelta = interface(IListaAnosFacturas) - ['{AB07EDD0-7B38-4CC2-9C5D-2FBCD2E784AF}'] + ['{4377D642-E4C4-47E9-8723-17617534753B}'] { Property getters and setters } function GetOldANOValue : String; @@ -50,7 +51,7 @@ type { IFacturasClienteDelta } IFacturasClienteDelta = interface(IFacturasCliente) - ['{54580672-73BD-4949-859A-E906E7EBCD03}'] + ['{6E99AC64-C7F7-43EE-9542-A776B5A19DDD}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; @@ -90,10 +91,12 @@ type function GetOldIMPORTE_PORTEValue : Currency; function GetOldID_AGENTEValue : Integer; function GetOldREFERENCIA_COMISIONValue : String; - function GetOldRETENCIONValue : Currency; + function GetOldRETENCIONValue : Float; function GetOldIMPORTE_RETENCIONValue : Currency; - function GetOldDESCUENTO2Value : Currency; + function GetOldDESCUENTO2Value : Float; function GetOldIMPORTE_DESCUENTO2Value : Currency; + function GetOldCOMISIONValue : Float; + function GetOldIMPORTE_COMISIONValue : Currency; { Properties } property OldID : Integer read GetOldIDValue; @@ -134,10 +137,12 @@ type property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; property OldID_AGENTE : Integer read GetOldID_AGENTEValue; property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue; - property OldRETENCION : Currency read GetOldRETENCIONValue; + property OldRETENCION : Float read GetOldRETENCIONValue; property OldIMPORTE_RETENCION : Currency read GetOldIMPORTE_RETENCIONValue; - property OldDESCUENTO2 : Currency read GetOldDESCUENTO2Value; + property OldDESCUENTO2 : Float read GetOldDESCUENTO2Value; property OldIMPORTE_DESCUENTO2 : Currency read GetOldIMPORTE_DESCUENTO2Value; + property OldCOMISION : Float read GetOldCOMISIONValue; + property OldIMPORTE_COMISION : Currency read GetOldIMPORTE_COMISIONValue; end; { TFacturasClienteBusinessProcessorRules } @@ -374,11 +379,11 @@ type function GetOldREFERENCIA_COMISIONIsNull: Boolean; virtual; procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual; procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); virtual; - function GetRETENCIONValue: Currency; virtual; + function GetRETENCIONValue: Float; virtual; function GetRETENCIONIsNull: Boolean; virtual; - function GetOldRETENCIONValue: Currency; virtual; + function GetOldRETENCIONValue: Float; virtual; function GetOldRETENCIONIsNull: Boolean; virtual; - procedure SetRETENCIONValue(const aValue: Currency); virtual; + procedure SetRETENCIONValue(const aValue: Float); virtual; procedure SetRETENCIONIsNull(const aValue: Boolean); virtual; function GetIMPORTE_RETENCIONValue: Currency; virtual; function GetIMPORTE_RETENCIONIsNull: Boolean; virtual; @@ -386,11 +391,11 @@ type function GetOldIMPORTE_RETENCIONIsNull: Boolean; virtual; procedure SetIMPORTE_RETENCIONValue(const aValue: Currency); virtual; procedure SetIMPORTE_RETENCIONIsNull(const aValue: Boolean); virtual; - function GetDESCUENTO2Value: Currency; virtual; + function GetDESCUENTO2Value: Float; virtual; function GetDESCUENTO2IsNull: Boolean; virtual; - function GetOldDESCUENTO2Value: Currency; virtual; + function GetOldDESCUENTO2Value: Float; virtual; function GetOldDESCUENTO2IsNull: Boolean; virtual; - procedure SetDESCUENTO2Value(const aValue: Currency); virtual; + procedure SetDESCUENTO2Value(const aValue: Float); virtual; procedure SetDESCUENTO2IsNull(const aValue: Boolean); virtual; function GetIMPORTE_DESCUENTO2Value: Currency; virtual; function GetIMPORTE_DESCUENTO2IsNull: Boolean; virtual; @@ -398,6 +403,18 @@ type function GetOldIMPORTE_DESCUENTO2IsNull: Boolean; virtual; procedure SetIMPORTE_DESCUENTO2Value(const aValue: Currency); virtual; procedure SetIMPORTE_DESCUENTO2IsNull(const aValue: Boolean); virtual; + function GetCOMISIONValue: Float; virtual; + function GetCOMISIONIsNull: Boolean; virtual; + function GetOldCOMISIONValue: Float; virtual; + function GetOldCOMISIONIsNull: Boolean; virtual; + procedure SetCOMISIONValue(const aValue: Float); virtual; + procedure SetCOMISIONIsNull(const aValue: Boolean); virtual; + function GetIMPORTE_COMISIONValue: Currency; virtual; + function GetIMPORTE_COMISIONIsNull: Boolean; virtual; + function GetOldIMPORTE_COMISIONValue: Currency; virtual; + function GetOldIMPORTE_COMISIONIsNull: Boolean; virtual; + procedure SetIMPORTE_COMISIONValue(const aValue: Currency); virtual; + procedure SetIMPORTE_COMISIONIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; @@ -552,22 +569,30 @@ type property REFERENCIA_COMISIONIsNull : Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull; property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue; property OldREFERENCIA_COMISIONIsNull : Boolean read GetOldREFERENCIA_COMISIONIsNull; - property RETENCION : Currency read GetRETENCIONValue write SetRETENCIONValue; + property RETENCION : Float read GetRETENCIONValue write SetRETENCIONValue; property RETENCIONIsNull : Boolean read GetRETENCIONIsNull write SetRETENCIONIsNull; - property OldRETENCION : Currency read GetOldRETENCIONValue; + property OldRETENCION : Float read GetOldRETENCIONValue; property OldRETENCIONIsNull : Boolean read GetOldRETENCIONIsNull; property IMPORTE_RETENCION : Currency read GetIMPORTE_RETENCIONValue write SetIMPORTE_RETENCIONValue; property IMPORTE_RETENCIONIsNull : Boolean read GetIMPORTE_RETENCIONIsNull write SetIMPORTE_RETENCIONIsNull; property OldIMPORTE_RETENCION : Currency read GetOldIMPORTE_RETENCIONValue; property OldIMPORTE_RETENCIONIsNull : Boolean read GetOldIMPORTE_RETENCIONIsNull; - property DESCUENTO2 : Currency read GetDESCUENTO2Value write SetDESCUENTO2Value; + property DESCUENTO2 : Float read GetDESCUENTO2Value write SetDESCUENTO2Value; property DESCUENTO2IsNull : Boolean read GetDESCUENTO2IsNull write SetDESCUENTO2IsNull; - property OldDESCUENTO2 : Currency read GetOldDESCUENTO2Value; + property OldDESCUENTO2 : Float read GetOldDESCUENTO2Value; property OldDESCUENTO2IsNull : Boolean read GetOldDESCUENTO2IsNull; property IMPORTE_DESCUENTO2 : Currency read GetIMPORTE_DESCUENTO2Value write SetIMPORTE_DESCUENTO2Value; property IMPORTE_DESCUENTO2IsNull : Boolean read GetIMPORTE_DESCUENTO2IsNull write SetIMPORTE_DESCUENTO2IsNull; property OldIMPORTE_DESCUENTO2 : Currency read GetOldIMPORTE_DESCUENTO2Value; property OldIMPORTE_DESCUENTO2IsNull : Boolean read GetOldIMPORTE_DESCUENTO2IsNull; + property COMISION : Float read GetCOMISIONValue write SetCOMISIONValue; + property COMISIONIsNull : Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull; + property OldCOMISION : Float read GetOldCOMISIONValue; + property OldCOMISIONIsNull : Boolean read GetOldCOMISIONIsNull; + property IMPORTE_COMISION : Currency read GetIMPORTE_COMISIONValue write SetIMPORTE_COMISIONValue; + property IMPORTE_COMISIONIsNull : Boolean read GetIMPORTE_COMISIONIsNull write SetIMPORTE_COMISIONIsNull; + property OldIMPORTE_COMISION : Currency read GetOldIMPORTE_COMISIONValue; + property OldIMPORTE_COMISIONIsNull : Boolean read GetOldIMPORTE_COMISIONIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -577,7 +602,7 @@ type { IFacturasCliente_DetallesDelta } IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles) - ['{F5138939-68CB-41A9-8AAF-204711F0E911}'] + ['{624EFE8A-1BA9-42DD-A18F-B25AA7C09C16}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_FACTURAValue : Integer; @@ -799,8 +824,10 @@ begin end; function TListaAnosFacturasBusinessProcessorRules.GetANOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosFacturasANO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosFacturasANO]; + result := VarIsNull(v) or VarIsClear(v); end; function TListaAnosFacturasBusinessProcessorRules.GetOldANOValue: String; @@ -809,8 +836,10 @@ begin end; function TListaAnosFacturasBusinessProcessorRules.GetOldANOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ListaAnosFacturasANO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_ListaAnosFacturasANO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TListaAnosFacturasBusinessProcessorRules.SetANOValue(const aValue: String); @@ -853,8 +882,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetIDIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasClienteBusinessProcessorRules.GetOldIDValue: Integer; @@ -863,8 +894,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetOldIDIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasClienteBusinessProcessorRules.SetIDValue(const aValue: Integer); @@ -884,8 +917,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_EMPRESA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_EMPRESA]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasClienteBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; @@ -894,8 +929,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID_EMPRESA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID_EMPRESA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasClienteBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); @@ -915,8 +952,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasClienteBusinessProcessorRules.GetOldREFERENCIAValue: String; @@ -925,8 +964,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteREFERENCIA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteREFERENCIA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasClienteBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); @@ -946,8 +987,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetTIPOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteTIPO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteTIPO]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasClienteBusinessProcessorRules.GetOldTIPOValue: String; @@ -956,8 +999,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetOldTIPOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteTIPO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteTIPO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasClienteBusinessProcessorRules.SetTIPOValue(const aValue: String); @@ -977,8 +1022,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetID_COMISION_LIQUIDADAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_COMISION_LIQUIDADA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_COMISION_LIQUIDADA]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasClienteBusinessProcessorRules.GetOldID_COMISION_LIQUIDADAValue: Integer; @@ -987,8 +1034,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetOldID_COMISION_LIQUIDADAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID_COMISION_LIQUIDADA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID_COMISION_LIQUIDADA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasClienteBusinessProcessorRules.SetID_COMISION_LIQUIDADAValue(const aValue: Integer); @@ -1008,8 +1057,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetFECHA_FACTURAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFECHA_FACTURA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFECHA_FACTURA]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasClienteBusinessProcessorRules.GetOldFECHA_FACTURAValue: DateTime; @@ -1018,8 +1069,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetOldFECHA_FACTURAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteFECHA_FACTURA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteFECHA_FACTURA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasClienteBusinessProcessorRules.SetFECHA_FACTURAValue(const aValue: DateTime); @@ -1039,8 +1092,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetFECHA_VENCIMIENTOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFECHA_VENCIMIENTO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFECHA_VENCIMIENTO]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasClienteBusinessProcessorRules.GetOldFECHA_VENCIMIENTOValue: DateTime; @@ -1049,8 +1104,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetOldFECHA_VENCIMIENTOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteFECHA_VENCIMIENTO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteFECHA_VENCIMIENTO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasClienteBusinessProcessorRules.SetFECHA_VENCIMIENTOValue(const aValue: DateTime); @@ -1070,8 +1127,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetFECHA_RETENCIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFECHA_RETENCION]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFECHA_RETENCION]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasClienteBusinessProcessorRules.GetOldFECHA_RETENCIONValue: DateTime; @@ -1080,8 +1139,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetOldFECHA_RETENCIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteFECHA_RETENCION]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteFECHA_RETENCION]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasClienteBusinessProcessorRules.SetFECHA_RETENCIONValue(const aValue: DateTime); @@ -1101,8 +1162,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetSITUACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteSITUACION]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteSITUACION]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasClienteBusinessProcessorRules.GetOldSITUACIONValue: String; @@ -1111,8 +1174,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetOldSITUACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteSITUACION]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteSITUACION]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasClienteBusinessProcessorRules.SetSITUACIONValue(const aValue: String); @@ -1132,8 +1197,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetBASE_IMPONIBLEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteBASE_IMPONIBLE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteBASE_IMPONIBLE]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasClienteBusinessProcessorRules.GetOldBASE_IMPONIBLEValue: Currency; @@ -1142,8 +1209,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetOldBASE_IMPONIBLEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteBASE_IMPONIBLE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteBASE_IMPONIBLE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasClienteBusinessProcessorRules.SetBASE_IMPONIBLEValue(const aValue: Currency); @@ -1163,8 +1232,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetDESCUENTOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDESCUENTO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDESCUENTO]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasClienteBusinessProcessorRules.GetOldDESCUENTOValue: Float; @@ -1173,8 +1244,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDESCUENTO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDESCUENTO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasClienteBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float); @@ -1194,8 +1267,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetIMPORTE_DESCUENTOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIMPORTE_DESCUENTO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIMPORTE_DESCUENTO]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasClienteBusinessProcessorRules.GetOldIMPORTE_DESCUENTOValue: Currency; @@ -1204,8 +1279,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetOldIMPORTE_DESCUENTOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteIMPORTE_DESCUENTO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteIMPORTE_DESCUENTO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasClienteBusinessProcessorRules.SetIMPORTE_DESCUENTOValue(const aValue: Currency); @@ -1225,8 +1302,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetIVAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIVA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIVA]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasClienteBusinessProcessorRules.GetOldIVAValue: Float; @@ -1235,8 +1314,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetOldIVAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteIVA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteIVA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasClienteBusinessProcessorRules.SetIVAValue(const aValue: Float); @@ -1256,8 +1337,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetIMPORTE_IVAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIMPORTE_IVA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIMPORTE_IVA]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasClienteBusinessProcessorRules.GetOldIMPORTE_IVAValue: Currency; @@ -1266,8 +1349,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetOldIMPORTE_IVAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteIMPORTE_IVA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteIMPORTE_IVA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasClienteBusinessProcessorRules.SetIMPORTE_IVAValue(const aValue: Currency); @@ -1287,8 +1372,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetREIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteRE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteRE]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasClienteBusinessProcessorRules.GetOldREValue: Float; @@ -1297,8 +1384,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetOldREIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteRE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteRE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasClienteBusinessProcessorRules.SetREValue(const aValue: Float); @@ -1318,8 +1407,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetIMPORTE_REIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIMPORTE_RE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIMPORTE_RE]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasClienteBusinessProcessorRules.GetOldIMPORTE_REValue: Currency; @@ -1328,8 +1419,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetOldIMPORTE_REIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteIMPORTE_RE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteIMPORTE_RE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasClienteBusinessProcessorRules.SetIMPORTE_REValue(const aValue: Currency); @@ -1349,8 +1442,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetIMPORTE_TOTALIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIMPORTE_TOTAL]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIMPORTE_TOTAL]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasClienteBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency; @@ -1359,8 +1454,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetOldIMPORTE_TOTALIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteIMPORTE_TOTAL]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteIMPORTE_TOTAL]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasClienteBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency); @@ -1381,8 +1478,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetOBSERVACIONESIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteOBSERVACIONES]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteOBSERVACIONES]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasClienteBusinessProcessorRules.GetOldOBSERVACIONESValue: IROStrings; @@ -1392,8 +1491,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetOldOBSERVACIONESIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteOBSERVACIONES]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteOBSERVACIONES]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasClienteBusinessProcessorRules.SetOBSERVACIONESIsNull(const aValue: Boolean); @@ -1408,8 +1509,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetID_CLIENTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_CLIENTE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_CLIENTE]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasClienteBusinessProcessorRules.GetOldID_CLIENTEValue: Integer; @@ -1418,8 +1521,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetOldID_CLIENTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID_CLIENTE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID_CLIENTE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasClienteBusinessProcessorRules.SetID_CLIENTEValue(const aValue: Integer); @@ -1439,8 +1544,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetNIF_CIFIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNIF_CIF]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNIF_CIF]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasClienteBusinessProcessorRules.GetOldNIF_CIFValue: String; @@ -1449,8 +1556,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetOldNIF_CIFIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteNIF_CIF]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteNIF_CIF]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasClienteBusinessProcessorRules.SetNIF_CIFValue(const aValue: String); @@ -1470,8 +1579,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetNOMBREIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasClienteBusinessProcessorRules.GetOldNOMBREValue: String; @@ -1480,8 +1591,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetOldNOMBREIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteNOMBRE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteNOMBRE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasClienteBusinessProcessorRules.SetNOMBREValue(const aValue: String); @@ -1501,8 +1614,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetID_DIRECCIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_DIRECCION]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_DIRECCION]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasClienteBusinessProcessorRules.GetOldID_DIRECCIONValue: Integer; @@ -1511,8 +1626,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetOldID_DIRECCIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID_DIRECCION]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID_DIRECCION]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasClienteBusinessProcessorRules.SetID_DIRECCIONValue(const aValue: Integer); @@ -1532,8 +1649,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetCALLEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteCALLE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteCALLE]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasClienteBusinessProcessorRules.GetOldCALLEValue: String; @@ -1542,8 +1661,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetOldCALLEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteCALLE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteCALLE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasClienteBusinessProcessorRules.SetCALLEValue(const aValue: String); @@ -1563,8 +1684,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetPOBLACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClientePOBLACION]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClientePOBLACION]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasClienteBusinessProcessorRules.GetOldPOBLACIONValue: String; @@ -1573,8 +1696,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClientePOBLACION]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClientePOBLACION]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasClienteBusinessProcessorRules.SetPOBLACIONValue(const aValue: String); @@ -1594,8 +1719,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetPROVINCIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClientePROVINCIA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClientePROVINCIA]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasClienteBusinessProcessorRules.GetOldPROVINCIAValue: String; @@ -1604,8 +1731,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClientePROVINCIA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClientePROVINCIA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasClienteBusinessProcessorRules.SetPROVINCIAValue(const aValue: String); @@ -1625,8 +1754,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteCODIGO_POSTAL]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteCODIGO_POSTAL]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasClienteBusinessProcessorRules.GetOldCODIGO_POSTALValue: String; @@ -1635,8 +1766,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteCODIGO_POSTAL]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteCODIGO_POSTAL]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasClienteBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String); @@ -1656,8 +1789,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetDATOS_BANCARIOSIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDATOS_BANCARIOS]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDATOS_BANCARIOS]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasClienteBusinessProcessorRules.GetOldDATOS_BANCARIOSValue: String; @@ -1666,8 +1801,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetOldDATOS_BANCARIOSIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDATOS_BANCARIOS]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDATOS_BANCARIOS]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasClienteBusinessProcessorRules.SetDATOS_BANCARIOSValue(const aValue: String); @@ -1687,8 +1824,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClientePERSONA_CONTACTO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClientePERSONA_CONTACTO]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasClienteBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String; @@ -1697,8 +1836,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClientePERSONA_CONTACTO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClientePERSONA_CONTACTO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasClienteBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String); @@ -1718,8 +1859,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFECHA_ALTA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFECHA_ALTA]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasClienteBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime; @@ -1728,8 +1871,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteFECHA_ALTA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteFECHA_ALTA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasClienteBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime); @@ -1749,8 +1894,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFECHA_MODIFICACION]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFECHA_MODIFICACION]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasClienteBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime; @@ -1759,8 +1906,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteFECHA_MODIFICACION]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteFECHA_MODIFICACION]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasClienteBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime); @@ -1780,8 +1929,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetUSUARIOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteUSUARIO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteUSUARIO]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasClienteBusinessProcessorRules.GetOldUSUARIOValue: String; @@ -1790,8 +1941,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteUSUARIO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteUSUARIO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasClienteBusinessProcessorRules.SetUSUARIOValue(const aValue: String); @@ -1811,8 +1964,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetID_FORMA_PAGOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_FORMA_PAGO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_FORMA_PAGO]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasClienteBusinessProcessorRules.GetOldID_FORMA_PAGOValue: Integer; @@ -1821,8 +1976,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetOldID_FORMA_PAGOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID_FORMA_PAGO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID_FORMA_PAGO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasClienteBusinessProcessorRules.SetID_FORMA_PAGOValue(const aValue: Integer); @@ -1842,8 +1999,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetRECARGO_EQUIVALENCIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteRECARGO_EQUIVALENCIA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteRECARGO_EQUIVALENCIA]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasClienteBusinessProcessorRules.GetOldRECARGO_EQUIVALENCIAValue: SmallInt; @@ -1852,8 +2011,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetOldRECARGO_EQUIVALENCIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteRECARGO_EQUIVALENCIA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteRECARGO_EQUIVALENCIA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasClienteBusinessProcessorRules.SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt); @@ -1873,8 +2034,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetID_TIPO_IVAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_TIPO_IVA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_TIPO_IVA]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasClienteBusinessProcessorRules.GetOldID_TIPO_IVAValue: Integer; @@ -1883,8 +2046,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetOldID_TIPO_IVAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID_TIPO_IVA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID_TIPO_IVA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasClienteBusinessProcessorRules.SetID_TIPO_IVAValue(const aValue: Integer); @@ -1904,8 +2069,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetIMPORTE_NETOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIMPORTE_NETO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIMPORTE_NETO]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasClienteBusinessProcessorRules.GetOldIMPORTE_NETOValue: Currency; @@ -1914,8 +2081,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetOldIMPORTE_NETOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteIMPORTE_NETO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteIMPORTE_NETO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasClienteBusinessProcessorRules.SetIMPORTE_NETOValue(const aValue: Currency); @@ -1935,8 +2104,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetIMPORTE_PORTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIMPORTE_PORTE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIMPORTE_PORTE]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasClienteBusinessProcessorRules.GetOldIMPORTE_PORTEValue: Currency; @@ -1945,8 +2116,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetOldIMPORTE_PORTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteIMPORTE_PORTE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteIMPORTE_PORTE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasClienteBusinessProcessorRules.SetIMPORTE_PORTEValue(const aValue: Currency); @@ -1966,8 +2139,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetID_AGENTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_AGENTE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_AGENTE]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasClienteBusinessProcessorRules.GetOldID_AGENTEValue: Integer; @@ -1976,8 +2151,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetOldID_AGENTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID_AGENTE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID_AGENTE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasClienteBusinessProcessorRules.SetID_AGENTEValue(const aValue: Integer); @@ -1997,8 +2174,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetREFERENCIA_COMISIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_COMISION]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_COMISION]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasClienteBusinessProcessorRules.GetOldREFERENCIA_COMISIONValue: String; @@ -2007,8 +2186,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetOldREFERENCIA_COMISIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteREFERENCIA_COMISION]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteREFERENCIA_COMISION]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasClienteBusinessProcessorRules.SetREFERENCIA_COMISIONValue(const aValue: String); @@ -2022,27 +2203,31 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_COMISION] := Null; end; -function TFacturasClienteBusinessProcessorRules.GetRETENCIONValue: Currency; +function TFacturasClienteBusinessProcessorRules.GetRETENCIONValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteRETENCION]; end; function TFacturasClienteBusinessProcessorRules.GetRETENCIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteRETENCION]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteRETENCION]; + result := VarIsNull(v) or VarIsClear(v); end; -function TFacturasClienteBusinessProcessorRules.GetOldRETENCIONValue: Currency; +function TFacturasClienteBusinessProcessorRules.GetOldRETENCIONValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteRETENCION]; end; function TFacturasClienteBusinessProcessorRules.GetOldRETENCIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteRETENCION]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteRETENCION]; + result := VarIsNull(v) or VarIsClear(v); end; -procedure TFacturasClienteBusinessProcessorRules.SetRETENCIONValue(const aValue: Currency); +procedure TFacturasClienteBusinessProcessorRules.SetRETENCIONValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteRETENCION] := aValue; end; @@ -2059,8 +2244,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetIMPORTE_RETENCIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIMPORTE_RETENCION]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIMPORTE_RETENCION]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasClienteBusinessProcessorRules.GetOldIMPORTE_RETENCIONValue: Currency; @@ -2069,8 +2256,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetOldIMPORTE_RETENCIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteIMPORTE_RETENCION]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteIMPORTE_RETENCION]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasClienteBusinessProcessorRules.SetIMPORTE_RETENCIONValue(const aValue: Currency); @@ -2084,27 +2273,31 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIMPORTE_RETENCION] := Null; end; -function TFacturasClienteBusinessProcessorRules.GetDESCUENTO2Value: Currency; +function TFacturasClienteBusinessProcessorRules.GetDESCUENTO2Value: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDESCUENTO2]; end; function TFacturasClienteBusinessProcessorRules.GetDESCUENTO2IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDESCUENTO2]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDESCUENTO2]; + result := VarIsNull(v) or VarIsClear(v); end; -function TFacturasClienteBusinessProcessorRules.GetOldDESCUENTO2Value: Currency; +function TFacturasClienteBusinessProcessorRules.GetOldDESCUENTO2Value: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDESCUENTO2]; end; function TFacturasClienteBusinessProcessorRules.GetOldDESCUENTO2IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDESCUENTO2]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDESCUENTO2]; + result := VarIsNull(v) or VarIsClear(v); end; -procedure TFacturasClienteBusinessProcessorRules.SetDESCUENTO2Value(const aValue: Currency); +procedure TFacturasClienteBusinessProcessorRules.SetDESCUENTO2Value(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDESCUENTO2] := aValue; end; @@ -2121,8 +2314,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetIMPORTE_DESCUENTO2IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIMPORTE_DESCUENTO2]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIMPORTE_DESCUENTO2]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasClienteBusinessProcessorRules.GetOldIMPORTE_DESCUENTO2Value: Currency; @@ -2131,8 +2326,10 @@ begin end; function TFacturasClienteBusinessProcessorRules.GetOldIMPORTE_DESCUENTO2IsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteIMPORTE_DESCUENTO2]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteIMPORTE_DESCUENTO2]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasClienteBusinessProcessorRules.SetIMPORTE_DESCUENTO2Value(const aValue: Currency); @@ -2146,6 +2343,76 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIMPORTE_DESCUENTO2] := Null; end; +function TFacturasClienteBusinessProcessorRules.GetCOMISIONValue: Float; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteCOMISION]; +end; + +function TFacturasClienteBusinessProcessorRules.GetCOMISIONIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteCOMISION]; + result := VarIsNull(v) or VarIsClear(v); +end; + +function TFacturasClienteBusinessProcessorRules.GetOldCOMISIONValue: Float; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteCOMISION]; +end; + +function TFacturasClienteBusinessProcessorRules.GetOldCOMISIONIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteCOMISION]; + result := VarIsNull(v) or VarIsClear(v); +end; + +procedure TFacturasClienteBusinessProcessorRules.SetCOMISIONValue(const aValue: Float); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteCOMISION] := aValue; +end; + +procedure TFacturasClienteBusinessProcessorRules.SetCOMISIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteCOMISION] := Null; +end; + +function TFacturasClienteBusinessProcessorRules.GetIMPORTE_COMISIONValue: Currency; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIMPORTE_COMISION]; +end; + +function TFacturasClienteBusinessProcessorRules.GetIMPORTE_COMISIONIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIMPORTE_COMISION]; + result := VarIsNull(v) or VarIsClear(v); +end; + +function TFacturasClienteBusinessProcessorRules.GetOldIMPORTE_COMISIONValue: Currency; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteIMPORTE_COMISION]; +end; + +function TFacturasClienteBusinessProcessorRules.GetOldIMPORTE_COMISIONIsNull: Boolean; +var v: variant; +begin + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteIMPORTE_COMISION]; + result := VarIsNull(v) or VarIsClear(v); +end; + +procedure TFacturasClienteBusinessProcessorRules.SetIMPORTE_COMISIONValue(const aValue: Currency); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIMPORTE_COMISION] := aValue; +end; + +procedure TFacturasClienteBusinessProcessorRules.SetIMPORTE_COMISIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIMPORTE_COMISION] := Null; +end; + { TFacturasCliente_DetallesBusinessProcessorRules } constructor TFacturasCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); @@ -2164,8 +2431,10 @@ begin end; function TFacturasCliente_DetallesBusinessProcessorRules.GetIDIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesID]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesID]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasCliente_DetallesBusinessProcessorRules.GetOldIDValue: Integer; @@ -2174,8 +2443,10 @@ begin end; function TFacturasCliente_DetallesBusinessProcessorRules.GetOldIDIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_DetallesID]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_DetallesID]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasCliente_DetallesBusinessProcessorRules.SetIDValue(const aValue: Integer); @@ -2195,8 +2466,10 @@ begin end; function TFacturasCliente_DetallesBusinessProcessorRules.GetID_FACTURAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesID_FACTURA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesID_FACTURA]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasCliente_DetallesBusinessProcessorRules.GetOldID_FACTURAValue: Integer; @@ -2205,8 +2478,10 @@ begin end; function TFacturasCliente_DetallesBusinessProcessorRules.GetOldID_FACTURAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_DetallesID_FACTURA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_DetallesID_FACTURA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasCliente_DetallesBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer); @@ -2226,8 +2501,10 @@ begin end; function TFacturasCliente_DetallesBusinessProcessorRules.GetPOSICIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesPOSICION]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesPOSICION]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasCliente_DetallesBusinessProcessorRules.GetOldPOSICIONValue: Integer; @@ -2236,8 +2513,10 @@ begin end; function TFacturasCliente_DetallesBusinessProcessorRules.GetOldPOSICIONIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_DetallesPOSICION]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_DetallesPOSICION]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasCliente_DetallesBusinessProcessorRules.SetPOSICIONValue(const aValue: Integer); @@ -2257,8 +2536,10 @@ begin end; function TFacturasCliente_DetallesBusinessProcessorRules.GetTIPO_DETALLEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesTIPO_DETALLE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesTIPO_DETALLE]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasCliente_DetallesBusinessProcessorRules.GetOldTIPO_DETALLEValue: String; @@ -2267,8 +2548,10 @@ begin end; function TFacturasCliente_DetallesBusinessProcessorRules.GetOldTIPO_DETALLEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_DetallesTIPO_DETALLE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_DetallesTIPO_DETALLE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasCliente_DetallesBusinessProcessorRules.SetTIPO_DETALLEValue(const aValue: String); @@ -2288,8 +2571,10 @@ begin end; function TFacturasCliente_DetallesBusinessProcessorRules.GetCONCEPTOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesCONCEPTO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesCONCEPTO]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasCliente_DetallesBusinessProcessorRules.GetOldCONCEPTOValue: String; @@ -2298,8 +2583,10 @@ begin end; function TFacturasCliente_DetallesBusinessProcessorRules.GetOldCONCEPTOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_DetallesCONCEPTO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_DetallesCONCEPTO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasCliente_DetallesBusinessProcessorRules.SetCONCEPTOValue(const aValue: String); @@ -2319,8 +2606,10 @@ begin end; function TFacturasCliente_DetallesBusinessProcessorRules.GetCANTIDADIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesCANTIDAD]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesCANTIDAD]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasCliente_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Float; @@ -2329,8 +2618,10 @@ begin end; function TFacturasCliente_DetallesBusinessProcessorRules.GetOldCANTIDADIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_DetallesCANTIDAD]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_DetallesCANTIDAD]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasCliente_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Float); @@ -2350,8 +2641,10 @@ begin end; function TFacturasCliente_DetallesBusinessProcessorRules.GetUNIDAD_MEDIDAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesUNIDAD_MEDIDA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesUNIDAD_MEDIDA]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasCliente_DetallesBusinessProcessorRules.GetOldUNIDAD_MEDIDAValue: String; @@ -2360,8 +2653,10 @@ begin end; function TFacturasCliente_DetallesBusinessProcessorRules.GetOldUNIDAD_MEDIDAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_DetallesUNIDAD_MEDIDA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_DetallesUNIDAD_MEDIDA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasCliente_DetallesBusinessProcessorRules.SetUNIDAD_MEDIDAValue(const aValue: String); @@ -2381,8 +2676,10 @@ begin end; function TFacturasCliente_DetallesBusinessProcessorRules.GetIMPORTE_UNIDADIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesIMPORTE_UNIDAD]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesIMPORTE_UNIDAD]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasCliente_DetallesBusinessProcessorRules.GetOldIMPORTE_UNIDADValue: Currency; @@ -2391,8 +2688,10 @@ begin end; function TFacturasCliente_DetallesBusinessProcessorRules.GetOldIMPORTE_UNIDADIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_DetallesIMPORTE_UNIDAD]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_DetallesIMPORTE_UNIDAD]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasCliente_DetallesBusinessProcessorRules.SetIMPORTE_UNIDADValue(const aValue: Currency); @@ -2412,8 +2711,10 @@ begin end; function TFacturasCliente_DetallesBusinessProcessorRules.GetIMPORTE_TOTALIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesIMPORTE_TOTAL]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesIMPORTE_TOTAL]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasCliente_DetallesBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency; @@ -2422,8 +2723,10 @@ begin end; function TFacturasCliente_DetallesBusinessProcessorRules.GetOldIMPORTE_TOTALIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_DetallesIMPORTE_TOTAL]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_DetallesIMPORTE_TOTAL]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasCliente_DetallesBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency); @@ -2443,8 +2746,10 @@ begin end; function TFacturasCliente_DetallesBusinessProcessorRules.GetVISIBLEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesVISIBLE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesVISIBLE]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasCliente_DetallesBusinessProcessorRules.GetOldVISIBLEValue: Integer; @@ -2453,8 +2758,10 @@ begin end; function TFacturasCliente_DetallesBusinessProcessorRules.GetOldVISIBLEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_DetallesVISIBLE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_DetallesVISIBLE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasCliente_DetallesBusinessProcessorRules.SetVISIBLEValue(const aValue: Integer); @@ -2474,8 +2781,10 @@ begin end; function TFacturasCliente_DetallesBusinessProcessorRules.GetID_ARTICULOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesID_ARTICULO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesID_ARTICULO]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasCliente_DetallesBusinessProcessorRules.GetOldID_ARTICULOValue: Integer; @@ -2484,8 +2793,10 @@ begin end; function TFacturasCliente_DetallesBusinessProcessorRules.GetOldID_ARTICULOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_DetallesID_ARTICULO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_DetallesID_ARTICULO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasCliente_DetallesBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer); @@ -2505,8 +2816,10 @@ begin end; function TFacturasCliente_DetallesBusinessProcessorRules.GetDESCUENTOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesDESCUENTO]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesDESCUENTO]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasCliente_DetallesBusinessProcessorRules.GetOldDESCUENTOValue: Float; @@ -2515,8 +2828,10 @@ begin end; function TFacturasCliente_DetallesBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_DetallesDESCUENTO]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_DetallesDESCUENTO]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasCliente_DetallesBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float); @@ -2536,8 +2851,10 @@ begin end; function TFacturasCliente_DetallesBusinessProcessorRules.GetIMPORTE_PORTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesIMPORTE_PORTE]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesIMPORTE_PORTE]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasCliente_DetallesBusinessProcessorRules.GetOldIMPORTE_PORTEValue: Currency; @@ -2546,8 +2863,10 @@ begin end; function TFacturasCliente_DetallesBusinessProcessorRules.GetOldIMPORTE_PORTEIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_DetallesIMPORTE_PORTE]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_DetallesIMPORTE_PORTE]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasCliente_DetallesBusinessProcessorRules.SetIMPORTE_PORTEValue(const aValue: Currency); @@ -2567,8 +2886,10 @@ begin end; function TFacturasCliente_DetallesBusinessProcessorRules.GetREFERENCIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesREFERENCIA]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesREFERENCIA]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasCliente_DetallesBusinessProcessorRules.GetOldREFERENCIAValue: String; @@ -2577,8 +2898,10 @@ begin end; function TFacturasCliente_DetallesBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_DetallesREFERENCIA]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_DetallesREFERENCIA]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasCliente_DetallesBusinessProcessorRules.SetREFERENCIAValue(const aValue: String); @@ -2598,8 +2921,10 @@ begin end; function TFacturasCliente_DetallesBusinessProcessorRules.GetREFERENCIA_PROVEEDORIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesREFERENCIA_PROVEEDOR]); + v := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesREFERENCIA_PROVEEDOR]; + result := VarIsNull(v) or VarIsClear(v); end; function TFacturasCliente_DetallesBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORValue: String; @@ -2608,8 +2933,10 @@ begin end; function TFacturasCliente_DetallesBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORIsNull: Boolean; +var v: variant; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_DetallesREFERENCIA_PROVEEDOR]); + v := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_DetallesREFERENCIA_PROVEEDOR]; + result := VarIsNull(v) or VarIsClear(v); end; procedure TFacturasCliente_DetallesBusinessProcessorRules.SetREFERENCIA_PROVEEDORValue(const aValue: String); diff --git a/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas index ff96379..d3ef49e 100644 --- a/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas +++ b/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas @@ -44,6 +44,7 @@ type // procedure CalcularDescuento; procedure CalcularIVA; procedure CalcularRE; + procedure CalcularComision; procedure CalcularBaseImponible; procedure AsignarTipoIVA (IDTipoIVA : Integer); @@ -68,6 +69,7 @@ type procedure IMPORTE_PORTEOnChange(Sender: TDACustomField); procedure DESCUENTOOnChange(Sender: TDACustomField); procedure DESCUENTO2OnChange(Sender: TDACustomField); + procedure COMISIONOnChange(Sender: TDACustomField); procedure IVAOnChange(Sender: TDACustomField); procedure REOnChange(Sender: TDACustomField); @@ -138,7 +140,14 @@ begin Edit; IMPORTE_DESCUENTO := IMPORTE_NETO * (DESCUENTO/100); IMPORTE_DESCUENTO2 := (IMPORTE_NETO - IMPORTE_DESCUENTO) * (DESCUENTO2/100); - BASE_IMPONIBLE := IMPORTE_NETO - IMPORTE_DESCUENTO - IMPORTE_DESCUENTO2 + IMPORTE_PORTE; + BASE_IMPONIBLE := IMPORTE_NETO - IMPORTE_DESCUENTO - IMPORTE_DESCUENTO2 + IMPORTE_PORTE; +end; + +procedure TBizFacturaCliente.CalcularComision; +begin + if not Self.DataTable.Editing then + Edit; + IMPORTE_COMISION := (COMISION / 100) * BASE_IMPONIBLE; end; {procedure TBizFacturaCliente.CalcularDescuento; @@ -156,6 +165,7 @@ begin CalcularBaseImponible; CalcularIVA; CalcularRE; + CalcularComision; if not Self.DataTable.Editing then Edit; @@ -180,6 +190,11 @@ begin IMPORTE_RE := (RE / 100) * BASE_IMPONIBLE; end; +procedure TBizFacturaCliente.COMISIONOnChange(Sender: TDACustomField); +begin + CalcularImporteTotal; +end; + constructor TBizFacturaCliente.Create(aDataTable: TDADataTable); begin inherited; @@ -194,6 +209,7 @@ begin FieldByName(fld_FacturasClienteIMPORTE_PORTE).OnChange := IMPORTE_PORTEOnChange; FieldByName(fld_FacturasClienteDESCUENTO).OnChange := DESCUENTOOnChange; FieldByName(fld_FacturasClienteDESCUENTO2).OnChange := DESCUENTO2OnChange; + FieldByName(fld_FacturasClienteCOMISION).OnChange := COMISIONOnChange; FieldByName(fld_FacturasClienteIVA).OnChange := IVAOnChange; FieldByName(fld_FacturasClienteRE).OnChange := REOnChange; end; @@ -323,7 +339,9 @@ begin ID_TIPO_IVA := FCliente.ID_TIPO_IVA; RECARGO_EQUIVALENCIA := FCliente.RECARGO_EQUIVALENCIA; DESCUENTO := FCliente.DESCUENTO; - DESCUENTO2 := FCliente.DESCUENTO2; + DESCUENTO2 := FCliente.DESCUENTO2; + COMISION := FCliente.COMISION; + Post; if bEnEdicion then diff --git a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm index fb0a51c..9532629 100644 --- a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm +++ b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm @@ -215,6 +215,14 @@ object srvFacturasCliente: TsrvFacturasCliente item DatasetField = 'PERSONA_CONTACTO' TableField = 'PERSONA_CONTACTO' + end + item + DatasetField = 'COMISION' + TableField = 'COMISION' + end + item + DatasetField = 'IMPORTE_COMISION' + TableField = 'IMPORTE_COMISION' end> end> Name = 'FacturasCliente' @@ -257,10 +265,12 @@ object srvFacturasCliente: TsrvFacturasCliente item Name = 'FECHA_VENCIMIENTO' DataType = datDateTime + DictionaryEntry = 'FacturasCliente_FECHA_VENCIMIENTO' end item Name = 'FECHA_RETENCION' DataType = datDateTime + DictionaryEntry = 'FacturasCliente_FECHA_RETENCION' end item Name = 'SITUACION' @@ -333,6 +343,7 @@ object srvFacturasCliente: TsrvFacturasCliente item Name = 'ID_DIRECCION' DataType = datInteger + DictionaryEntry = 'FacturasCliente_ID_DIRECCION' end item Name = 'CALLE' @@ -368,6 +379,7 @@ object srvFacturasCliente: TsrvFacturasCliente Name = 'PERSONA_CONTACTO' DataType = datString Size = 255 + DictionaryEntry = 'FacturasCliente_PERSONA_CONTACTO' end item Name = 'FECHA_ALTA' @@ -423,19 +435,35 @@ object srvFacturasCliente: TsrvFacturasCliente end item Name = 'RETENCION' - DataType = datCurrency + DataType = datFloat + DictionaryEntry = 'FacturasCliente_RETENCION' end item Name = 'IMPORTE_RETENCION' DataType = datCurrency + DictionaryEntry = 'FacturasCliente_IMPORTE_RETENCION' end item Name = 'DESCUENTO2' - DataType = datCurrency + DataType = datFloat + DictionaryEntry = 'FacturasCliente_DESCUENTO2' end item Name = 'IMPORTE_DESCUENTO2' DataType = datCurrency + DictionaryEntry = 'FacturasCliente_IMPORTE_DESCUENTO2' + end + item + Name = 'COMISION' + DataType = datFloat + DictionaryEntry = 'FacturasCliente_COMISION' + end + item + Name = 'IMPORTE_COMISION' + DataType = datCurrency + DecimalPrecision = 11 + DecimalScale = 2 + DictionaryEntry = 'FacturasCliente_IMPORTE_COMISION' end> end item @@ -847,7 +875,7 @@ object srvFacturasCliente: TsrvFacturasCliente end item Name = 'BASE_IMPONIBLE' - DataType = datCurrency + DataType = datDecimal Value = '' end item @@ -1008,6 +1036,16 @@ object srvFacturasCliente: TsrvFacturasCliente Name = 'IMPORTE_DESCUENTO2' DataType = datCurrency Value = '' + end + item + Name = 'COMISION' + DataType = datCurrency + Value = '' + end + item + Name = 'IMPORTE_COMISION' + DataType = datCurrency + Value = '' end> Statements = < item @@ -1025,18 +1063,19 @@ object srvFacturasCliente: TsrvFacturasCliente 'IO,'#10' ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA,'#10' ID_TIPO_IVA' + ','#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' DATOS_BANCARIOS,'#10' ' + 'PERSONA_CONTACTO,'#10' RETENCION,'#10' IMPORTE_RETENCION,'#10' DESC' + - 'UENTO2,'#10' IMPORTE_DESCUENTO2)'#10' VALUES ('#10' :ID,'#10' :ID_EMPR' + - 'ESA,'#10' :REFERENCIA,'#10' :FECHA_FACTURA,'#10' :FECHA_VENCIMIENTO' + - ','#10' :FECHA_RETENCION,'#10' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' ' + - ' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' :RE,'#10' :I' + - 'MPORTE_RE,'#10' :IMPORTE_TOTAL,'#10' :OBSERVACIONES,'#10' :ID_CLIEN' + - 'TE,'#10' :NIF_CIF,'#10' :NOMBRE,'#10' :ID_DIRECCION,'#10' :CALLE,'#10' ' + - ' :POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_POSTAL,'#10' :FECHA_ALT' + - 'A,'#10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' :ID_FORMA_PAGO,'#10' ' + - ' :RECARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10' :IMPORTE_NETO,'#10' ' + - ' :IMPORTE_PORTE,'#10' :DATOS_BANCARIOS,'#10' :PERSONA_CONTACTO,'#10' ' + - ' :RETENCION,'#10' :IMPORTE_RETENCION,'#10' :DESCUENTO2,'#10' :IMP' + - 'ORTE_DESCUENTO2);'#10 + 'UENTO2,'#10' IMPORTE_DESCUENTO2,'#10' COMISION,'#10' IMPORTE_COMISI' + + 'ON)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :REFERENCIA,'#10' :F' + + 'ECHA_FACTURA,'#10' :FECHA_VENCIMIENTO,'#10' :FECHA_RETENCION,'#10' ' + + ':BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' :IV' + + 'A,'#10' :IMPORTE_IVA,'#10' :RE,'#10' :IMPORTE_RE,'#10' :IMPORTE_TOTA' + + 'L,'#10' :OBSERVACIONES,'#10' :ID_CLIENTE,'#10' :NIF_CIF,'#10' :NOMBR' + + 'E,'#10' :ID_DIRECCION,'#10' :CALLE,'#10' :POBLACION,'#10' :PROVINCIA' + + ','#10' :CODIGO_POSTAL,'#10' :FECHA_ALTA,'#10' :FECHA_MODIFICACION,'#10 + + ' :USUARIO,'#10' :ID_FORMA_PAGO,'#10' :RECARGO_EQUIVALENCIA,'#10' ' + + ' :ID_TIPO_IVA,'#10' :IMPORTE_NETO,'#10' :IMPORTE_PORTE,'#10' :DATOS' + + '_BANCARIOS,'#10' :PERSONA_CONTACTO,'#10' :RETENCION,'#10' :IMPORTE_' + + 'RETENCION,'#10' :DESCUENTO2,'#10' :IMPORTE_DESCUENTO2,'#10' :COMISI' + + 'ON,'#10' :IMPORTE_COMISION);'#10 StatementType = stSQL ColumnMappings = <> end> @@ -1234,6 +1273,16 @@ object srvFacturasCliente: TsrvFacturasCliente DataType = datCurrency Value = '' end + item + Name = 'COMISION' + DataType = datCurrency + Value = '' + end + item + Name = 'IMPORTE_COMISION' + DataType = datCurrency + Value = '' + end item Name = 'OLD_ID' Value = '' @@ -1262,7 +1311,8 @@ object srvFacturasCliente: TsrvFacturasCliente 'ANCARIOS,'#10' PERSONA_CONTACTO = :PERSONA_CONTACTO,'#10' RETENCIO' + 'N = :RETENCION,'#10' IMPORTE_RETENCION = :IMPORTE_RETENCION,'#10' ' + 'DESCUENTO2 = :DESCUENTO2,'#10' IMPORTE_DESCUENTO2 = :IMPORTE_DESC' + - 'UENTO2'#10' WHERE'#10' (ID = :OLD_ID);'#10 + 'UENTO2,'#10' COMISION = :COMISION,'#10' IMPORTE_COMISION = :IMPORT' + + 'E_COMISION'#10#10' WHERE'#10' (ID = :OLD_ID);'#10 StatementType = stSQL ColumnMappings = <> end> @@ -1626,6 +1676,51 @@ object srvFacturasCliente: TsrvFacturasCliente DataType = datString Size = 255 DisplayLabel = 'Datos bancarios' + end + item + Name = 'FacturasCliente_FECHA_RETENCION' + DataType = datDateTime + end + item + Name = 'FacturasCliente_ID_DIRECCION' + DataType = datInteger + end + item + Name = 'FacturasCliente_PERSONA_CONTACTO' + DataType = datString + Size = 255 + end + item + Name = 'FacturasCliente_RETENCION' + DataType = datFloat + DisplayLabel = 'RETENCION' + end + item + Name = 'FacturasCliente_IMPORTE_RETENCION' + DataType = datCurrency + DisplayLabel = 'IMPORTE_RETENCION' + end + item + Name = 'FacturasCliente_DESCUENTO2' + DataType = datFloat + DisplayLabel = 'DESCUENTO2' + end + item + Name = 'FacturasCliente_IMPORTE_DESCUENTO2' + DataType = datCurrency + DisplayLabel = 'IMPORTE_DESCUENTO2' + end + item + Name = 'FacturasCliente_COMISION' + DataType = datFloat + DisplayLabel = 'COMISION' + end + item + Name = 'FacturasCliente_IMPORTE_COMISION' + DataType = datCurrency + DecimalPrecision = 11 + DecimalScale = 2 + DisplayLabel = 'IMPORTE_COMISION' end> Left = 150 Top = 22 diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm index 3142454..0fec729 100644 --- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm @@ -48,7 +48,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente Width = 902 ExplicitWidth = 902 inherited tbxMain: TSpTBXToolbar - ExplicitWidth = 488 + ExplicitWidth = 494 inherited TBXItem2: TSpTBXItem Visible = False end @@ -253,28 +253,27 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente ExplicitHeight = 323 inherited ToolBar1: TToolBar Width = 888 - Height = 51 + Height = 46 ExplicitWidth = 888 - ExplicitHeight = 51 + ExplicitHeight = 46 inherited ToolButton3: TToolButton Wrap = False end inherited ToolButton4: TToolButton Left = 278 Top = 0 + Wrap = True ExplicitLeft = 278 ExplicitTop = 0 end inherited ToolButton14: TToolButton - Left = 334 - Top = 0 + Left = 0 Wrap = False - ExplicitLeft = 334 - ExplicitTop = 0 + ExplicitLeft = 0 end inherited FontName: TJvFontComboBox - Left = 399 - Top = 0 + Left = 65 + Top = 22 ExplicitLeft = 399 ExplicitTop = 0 end @@ -286,7 +285,13 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente ExplicitTop = 0 ExplicitWidth = 280 end - inherited ToolButton13: TToolButton [7] + inherited UpDown1: TUpDown + Left = 824 + Top = 0 + ExplicitLeft = 824 + ExplicitTop = 0 + end + inherited ToolButton13: TToolButton Left = 0 Top = 0 Wrap = True @@ -294,52 +299,46 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente ExplicitTop = 0 ExplicitHeight = 27 end - inherited UpDown1: TUpDown [8] + inherited ToolButton6: TToolButton Left = 0 Top = 27 ExplicitLeft = 0 ExplicitTop = 27 end - inherited ToolButton6: TToolButton - Left = 17 - Top = 27 - ExplicitLeft = 17 - ExplicitTop = 27 - end inherited ToolButton7: TToolButton - Left = 83 + Left = 66 Top = 27 - ExplicitLeft = 83 + ExplicitLeft = 66 ExplicitTop = 27 end inherited ToolButton8: TToolButton - Left = 150 + Left = 133 Top = 27 - ExplicitLeft = 150 + ExplicitLeft = 133 ExplicitTop = 27 end inherited ToolButton12: TToolButton - Left = 233 + Left = 216 Top = 27 - ExplicitLeft = 233 + ExplicitLeft = 216 ExplicitTop = 27 end inherited ToolButton9: TToolButton - Left = 241 + Left = 224 Top = 27 - ExplicitLeft = 241 + ExplicitLeft = 224 ExplicitTop = 27 end inherited ToolButton10: TToolButton - Left = 386 + Left = 369 Top = 27 - ExplicitLeft = 386 + ExplicitLeft = 369 ExplicitTop = 27 end inherited ToolButton11: TToolButton - Left = 511 + Left = 494 Top = 27 - ExplicitLeft = 511 + ExplicitLeft = 494 ExplicitTop = 27 end end @@ -356,9 +355,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente Width = 888 ExplicitTop = 51 ExplicitWidth = 888 - inherited TBXToolbar1: TSpTBXToolbar - ExplicitWidth = 762 - end end inherited cxGridPopupMenu: TcxGridPopupMenu PopupMenus = < @@ -372,16 +368,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente end end end - inherited StatusBar: TJvStatusBar - Top = 630 - Width = 902 - Panels = < - item - Width = 200 - end> - ExplicitTop = 630 - ExplicitWidth = 902 - end inline frViewTotalesFactura1: TfrViewTotalesFactura [4] Left = 0 Top = 433 @@ -536,20 +522,17 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente end end end - inherited EditorActionList: TActionList [5] - Left = 8 - Top = 144 - object actEnviarEMail: TAction - Category = 'Acciones' - Caption = 'Enviar por e-mail...' - Enabled = False - ImageIndex = 21 - Visible = False - OnExecute = actEnviarEMailExecute - OnUpdate = actEnviarEMailUpdate - end + inherited StatusBar: TJvStatusBar [5] + Top = 630 + Width = 902 + Panels = < + item + Width = 200 + end> + ExplicitTop = 630 + ExplicitWidth = 902 end - inherited SmallImages: TPngImageList [6] + inherited SmallImages: TPngImageList PngImages = < item PngImage.Data = { @@ -1055,7 +1038,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente end> Bitmap = {} end - inherited LargeImages: TPngImageList [7] + inherited LargeImages: TPngImageList PngImages = < item PngImage.Data = { @@ -1851,8 +1834,21 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente end> Bitmap = {} end - inherited JvFormStorage: TJvFormStorage [8] + inherited EditorActionList: TActionList [9] + Left = 8 + Top = 144 + object actEnviarEMail: TAction + Category = 'Acciones' + Caption = 'Enviar por e-mail...' + Enabled = False + ImageIndex = 21 + Visible = False + OnExecute = actEnviarEMailExecute + OnUpdate = actEnviarEMailUpdate + end end inherited dsDataTable: TDADataSource [10] end + inherited JvAppRegistryStorage: TJvAppRegistryStorage [11] + end end diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas index 3995021..5af246b 100644 --- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas +++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas @@ -18,7 +18,7 @@ uses uViewDetallesDTO, uViewDetallesArticulos, uTiposIVAController, uDAInterfaces, cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit, Grids, DBGrids, uViewDetallesArticulosParaVenta, cxLabel, uViewTotalesFactura, cxGraphics, - cxLookAndFeels, cxLookAndFeelPainters; + cxLookAndFeels, cxLookAndFeelPainters, JvEnterTab; type diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm index e22c8f9..21fe426 100644 --- a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm @@ -1,6 +1,6 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente - Width = 451 - Height = 304 + Width = 850 + Height = 363 Align = alClient OnCreate = CustomViewCreate OnDestroy = CustomViewDestroy @@ -9,16 +9,18 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente object dxLayoutControl1: TdxLayoutControl Left = 0 Top = 0 - Width = 451 - Height = 304 + Width = 850 + Height = 363 Align = alClient ParentBackground = True TabOrder = 0 TabStop = False LayoutLookAndFeel = dmBase.dxLayoutSkinLookAndFeel + ExplicitWidth = 451 + ExplicitHeight = 304 DesignSize = ( - 451 - 304) + 850 + 363) object eReferencia: TcxDBTextEdit Left = 135 Top = 28 @@ -117,7 +119,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente Width = 269 end object bFormasPago: TButton - Left = 161 + Left = 274 Top = 112 Width = 132 Height = 23 @@ -144,7 +146,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente Width = 165 end inline frViewDatosYSeleccionClienteFacturaCliente1: TfrViewDatosYSeleccionClienteFacturaCliente - Left = 323 + Left = 436 Top = 28 Width = 531 Height = 200 @@ -156,7 +158,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente ParentFont = False TabOrder = 6 ReadOnly = False - ExplicitLeft = 323 + ExplicitLeft = 436 ExplicitTop = 28 ExplicitWidth = 531 ExplicitHeight = 200 @@ -174,20 +176,20 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente Width = 224 end inherited edtNIFCIF: TcxDBTextEdit - Left = 171 + Left = 279 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 171 + ExplicitLeft = 279 end inherited Button3: TBitBtn - Left = 82 - ExplicitLeft = 82 + Left = 190 + ExplicitLeft = 190 end inherited Button4: TButton - Left = 251 - ExplicitLeft = 251 + Left = 359 + ExplicitLeft = 359 end inherited edtPersonaContacto: TcxDBTextEdit Style.LookAndFeel.SkinName = '' @@ -198,8 +200,8 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente Width = 403 end inherited Button5: TButton - Left = 251 - ExplicitLeft = 251 + Left = 359 + ExplicitLeft = 359 end inherited edtDireccion: TcxMemo Style.LookAndFeel.SkinName = '' diff --git a/Source/Modulos/Facturas de cliente/Views/uViewTotalesFactura.dfm b/Source/Modulos/Facturas de cliente/Views/uViewTotalesFactura.dfm index 273b774..8680c9e 100644 --- a/Source/Modulos/Facturas de cliente/Views/uViewTotalesFactura.dfm +++ b/Source/Modulos/Facturas de cliente/Views/uViewTotalesFactura.dfm @@ -1,24 +1,26 @@ inherited frViewTotalesFactura: TfrViewTotalesFactura - Height = 221 - ExplicitHeight = 221 + Width = 829 + Height = 379 + ExplicitHeight = 379 inherited dxLayoutControl1: TdxLayoutControl - Height = 221 - ExplicitHeight = 221 + Width = 829 + Height = 379 + ExplicitHeight = 379 inherited Bevel3: TBevel - Left = 276 + Left = 442 Top = 10 Height = 156 - ExplicitLeft = 276 + ExplicitLeft = 442 ExplicitTop = 10 ExplicitHeight = 156 end inherited Bevel4: TBevel - Left = 374 - Top = 52 + Left = 540 + Top = 64 Width = 317 Height = 9 - ExplicitLeft = 374 - ExplicitTop = 52 + ExplicitLeft = 540 + ExplicitTop = 64 ExplicitWidth = 317 ExplicitHeight = 9 end @@ -35,28 +37,28 @@ inherited frViewTotalesFactura: TfrViewTotalesFactura ExplicitTop = 37 end inherited ImporteIVA: TcxDBCurrencyEdit - Left = 445 - Top = 87 + Left = 611 + Top = 84 Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - TabOrder = 11 - ExplicitLeft = 445 - ExplicitTop = 87 + TabOrder = 13 + ExplicitLeft = 611 + ExplicitTop = 84 end inherited ImporteTotal: TcxDBCurrencyEdit - Left = 374 - Top = 141 + Left = 540 + Top = 138 Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - TabOrder = 14 - ExplicitLeft = 374 - ExplicitTop = 141 + TabOrder = 16 + ExplicitLeft = 540 + ExplicitTop = 138 ExplicitWidth = 90 Width = 90 end @@ -72,19 +74,19 @@ inherited frViewTotalesFactura: TfrViewTotalesFactura ExplicitTop = 37 end inherited edtIVA: TcxDBSpinEdit - Left = 374 - Top = 87 + Left = 540 + Top = 84 Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - TabOrder = 10 - ExplicitLeft = 374 - ExplicitTop = 87 + TabOrder = 12 + ExplicitLeft = 540 + ExplicitTop = 84 end inherited ImporteBase: TcxDBCurrencyEdit - Left = 374 + Left = 540 Top = 10 Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True @@ -92,32 +94,32 @@ inherited frViewTotalesFactura: TfrViewTotalesFactura StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' TabOrder = 9 - ExplicitLeft = 374 + ExplicitLeft = 540 ExplicitTop = 10 end inherited edtRE: TcxDBSpinEdit - Left = 374 - Top = 114 + Left = 540 + Top = 111 Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - TabOrder = 12 - ExplicitLeft = 374 - ExplicitTop = 114 + TabOrder = 14 + ExplicitLeft = 540 + ExplicitTop = 111 end inherited ImporteRE: TcxDBCurrencyEdit - Left = 445 - Top = 114 + Left = 611 + Top = 111 Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - TabOrder = 13 - ExplicitLeft = 445 - ExplicitTop = 114 + TabOrder = 15 + ExplicitLeft = 611 + ExplicitTop = 111 end inherited eImporteNeto: TcxDBCurrencyEdit Left = 102 @@ -156,10 +158,10 @@ inherited frViewTotalesFactura: TfrViewTotalesFactura ExplicitTop = 118 end inherited bTiposIVA: TButton - Left = 128 + Left = 294 Top = 118 TabOrder = 7 - ExplicitLeft = 128 + ExplicitLeft = 294 ExplicitTop = 118 end inherited cbRecargoEquivalencia: TcxDBCheckBox @@ -240,6 +242,76 @@ inherited frViewTotalesFactura: TfrViewTotalesFactura Height = 21 Width = 293 end + object eComision: TcxDBSpinEdit [17] + Left = 540 + Top = 37 + AutoSize = False + DataBinding.DataField = 'COMISION' + DataBinding.DataSource = DADataSource + ParentFont = False + Properties.Alignment.Horz = taRightJustify + Properties.AssignedValues.MinValue = True + Properties.DisplayFormat = ',0.00 %;-,0.00 %' + Properties.ImmediatePost = True + Properties.MaxValue = 100.000000000000000000 + Style.Font.Charset = DEFAULT_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -11 + Style.Font.Name = 'Tahoma' + Style.Font.Style = [] + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + Style.LookAndFeel.SkinName = '' + Style.TextColor = clWindowText + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.SkinName = '' + StyleDisabled.TextColor = clWindowText + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.SkinName = '' + TabOrder = 10 + Height = 21 + Width = 65 + end + object ImporteComision: TcxDBCurrencyEdit [18] + Left = 611 + Top = 37 + AutoSize = False + DataBinding.DataField = 'IMPORTE_COMISION' + DataBinding.DataSource = DADataSource + Enabled = False + ParentFont = False + Properties.Alignment.Horz = taRightJustify + Properties.ReadOnly = True + Properties.UseLeftAlignmentOnEditing = False + Properties.UseThousandSeparator = True + Style.Font.Charset = DEFAULT_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -11 + Style.Font.Name = 'Tahoma' + Style.Font.Style = [] + Style.HotTrack = False + Style.LookAndFeel.NativeStyle = True + Style.LookAndFeel.SkinName = '' + Style.TextColor = clWindowText + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.SkinName = '' + StyleDisabled.TextColor = clWindowText + StyleFocused.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.SkinName = '' + TabOrder = 11 + Height = 21 + Width = 203 + end inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group1: TdxLayoutGroup CaptionOptions.Visible = False @@ -283,6 +355,29 @@ inherited frViewTotalesFactura: TfrViewTotalesFactura end inherited dxLayoutControl1Group5: TdxLayoutGroup inherited dxLayoutControl1Group3: TdxLayoutGroup + object dxLayoutControl1Group11: TdxLayoutGroup [1] + AlignHorz = ahClient + CaptionOptions.Text = 'New Group' + ButtonOptions.Buttons = <> + LayoutDirection = ldHorizontal + ShowBorder = False + object dxLayoutControl1Item10: TdxLayoutItem + AlignHorz = ahLeft + CaptionOptions.Text = 'Comisi'#243'n (%):' + Control = eComision + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item17: TdxLayoutItem + AlignHorz = ahClient + Enabled = False + Control = ImporteComision + ControlOptions.ShowBorder = False + end + end + inherited dxLayoutControl1Item14: TdxLayoutItem + Offsets.Bottom = 0 + Offsets.Top = 0 + end inherited dxLayoutControl1Group9: TdxLayoutGroup inherited dxLayoutControl1Item5: TdxLayoutItem CaptionOptions.AlignHorz = taLeftJustify diff --git a/Source/Modulos/Facturas de cliente/Views/uViewTotalesFactura.pas b/Source/Modulos/Facturas de cliente/Views/uViewTotalesFactura.pas index 3186ffc..e6feaf6 100644 --- a/Source/Modulos/Facturas de cliente/Views/uViewTotalesFactura.pas +++ b/Source/Modulos/Facturas de cliente/Views/uViewTotalesFactura.pas @@ -18,6 +18,11 @@ type dxLayoutControl1Item22: TdxLayoutItem; eImporteDto2: TcxDBCurrencyEdit; dxLayoutControl1Group12: TdxLayoutGroup; + dxLayoutControl1Item10: TdxLayoutItem; + eComision: TcxDBSpinEdit; + dxLayoutControl1Item17: TdxLayoutItem; + ImporteComision: TcxDBCurrencyEdit; + dxLayoutControl1Group11: TdxLayoutGroup; private { Private declarations } public diff --git a/Source/Modulos/Historico de movimientos/Views/uEditorHistoricoMovimientos.dfm b/Source/Modulos/Historico de movimientos/Views/uEditorHistoricoMovimientos.dfm index 4d5eaab..e620176 100644 --- a/Source/Modulos/Historico de movimientos/Views/uEditorHistoricoMovimientos.dfm +++ b/Source/Modulos/Historico de movimientos/Views/uEditorHistoricoMovimientos.dfm @@ -139,19 +139,11 @@ inherited fEditorHistoricoMovimientos: TfEditorHistoricoMovimientos inherited tbxMain: TSpTBXToolbar ExplicitWidth = 358 end - inherited tbxFiltro: TSpTBXToolbar - ExplicitWidth = 328 - inherited TBXItem37: TSpTBXItem - Visible = False - end - end inherited tbxMenu: TSpTBXToolbar ExplicitWidth = 902 end inherited TBXTMain2: TSpTBXToolbar - Left = 328 DockPos = 275 - ExplicitLeft = 328 end end inherited StatusBar: TJvStatusBar @@ -179,9 +171,10 @@ inherited fEditorHistoricoMovimientos: TfEditorHistoricoMovimientos ExplicitHeight = 499 inherited cxGrid: TcxGrid Width = 902 - Height = 371 + Height = 400 + ExplicitTop = 73 ExplicitWidth = 902 - ExplicitHeight = 371 + ExplicitHeight = 400 inherited cxGridView: TcxGridDBTableView DataController.Summary.FooterSummaryItems = < item @@ -225,6 +218,7 @@ inherited fEditorHistoricoMovimientos: TfEditorHistoricoMovimientos inherited TBXDockablePanel1: TSpTBXDockablePanel Width = 902 ExplicitWidth = 902 + ExplicitHeight = 73 inherited dxLayoutControl1: TdxLayoutControl Width = 902 ExplicitWidth = 902 diff --git a/Source/Modulos/Historico de movimientos/Views/uEditorHistoricoMovimientos.pas b/Source/Modulos/Historico de movimientos/Views/uEditorHistoricoMovimientos.pas index c1259c5..044a132 100644 Binary files a/Source/Modulos/Historico de movimientos/Views/uEditorHistoricoMovimientos.pas and b/Source/Modulos/Historico de movimientos/Views/uEditorHistoricoMovimientos.pas differ diff --git a/Source/Modulos/Historico de movimientos/Views/uViewHistoricoMovimientos.dfm b/Source/Modulos/Historico de movimientos/Views/uViewHistoricoMovimientos.dfm index 64bd2e7..0b13a10 100644 --- a/Source/Modulos/Historico de movimientos/Views/uViewHistoricoMovimientos.dfm +++ b/Source/Modulos/Historico de movimientos/Views/uViewHistoricoMovimientos.dfm @@ -1,5 +1,7 @@ inherited frViewHistoricoMovimientos: TfrViewHistoricoMovimientos inherited cxGrid: TcxGrid + Top = 73 + Height = 294 OnActiveTabChanged = cxGridActiveTabChanged inherited cxGridView: TcxGridDBTableView DataController.KeyFieldNames = 'RecID' @@ -111,7 +113,10 @@ inherited frViewHistoricoMovimientos: TfrViewHistoricoMovimientos end end inherited frViewFiltroBase1: TfrViewFiltroBase + Height = 73 + ExplicitHeight = 73 inherited TBXDockablePanel1: TSpTBXDockablePanel + Height = 73 inherited dxLayoutControl1: TdxLayoutControl inherited txtFiltroTodo: TcxTextEdit Style.LookAndFeel.SkinName = '' @@ -143,6 +148,26 @@ inherited frViewHistoricoMovimientos: TfrViewHistoricoMovimientos ExplicitWidth = 215 Width = 215 end + inherited dxLayoutControl1Group_Root: TdxLayoutGroup + inherited dxLayoutControl1Group1: TdxLayoutGroup + Visible = False + end + inherited lgroupnum: TdxLayoutGroup + Visible = True + end + end + end + inherited TBXAlignmentPanel1: TSpTBXDockablePanel + inherited tbxBotones: TSpTBXToolbar + inherited TBXItem2: TSpTBXItem + OnClick = nil + end + end + end + end + inherited ActionList1: TActionList + inherited actQuitarFiltro: TAction + OnExecute = frViewFiltroBase1actQuitarFiltroExecute end end end @@ -155,7 +180,6 @@ inherited frViewHistoricoMovimientos: TfrViewHistoricoMovimientos end end inherited dxPSEngineController1: TdxPSEngineController - Active = True Left = 328 Top = 160 end diff --git a/Source/Modulos/Historico de movimientos/Views/uViewHistoricoMovimientos.pas b/Source/Modulos/Historico de movimientos/Views/uViewHistoricoMovimientos.pas index a662962..11a9675 100644 --- a/Source/Modulos/Historico de movimientos/Views/uViewHistoricoMovimientos.pas +++ b/Source/Modulos/Historico de movimientos/Views/uViewHistoricoMovimientos.pas @@ -51,10 +51,12 @@ type procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); + procedure frViewFiltroBase1actQuitarFiltroExecute(Sender: TObject); private //Filtros relativos a la vista procedure AnadirFiltroAlmacenes; + procedure AnadirFiltroReferencias; protected FAlmacenes: IBizAlmacen; @@ -93,12 +95,32 @@ begin } end; +procedure TfrViewHistoricoMovimientos.AnadirFiltroReferencias; +var + Columna: TcxGridDBColumn; + Referencia1, Referencia2: Variant; + FFiltro : TcxFilterCriteriaItemList; +begin + Referencia1 := frViewFiltroBase1.edtNumIniFiltro.Value; + Referencia2 := frViewFiltroBase1.edtNumFinFiltro.Value; + + if (Referencia1 <> 0) and (Referencia2 <> 0) then + begin + cxGridView.DataController.Filter.Options := [fcoCaseInsensitive, fcoSoftCompare]; + FFiltro := AddFilterGrid(fboAnd); + + Columna := (cxGridView as TcxGridDBTableView).GetColumnByFieldName('REFERENCIA'); + FFiltro.AddItem(Columna, foBetween, varArrayOf([Referencia1, Referencia2]), VarToStr(Referencia1) + ' and ' + VarToStr(Referencia2)); + end; +end; + procedure TfrViewHistoricoMovimientos.AnadirOtrosFiltros; begin inherited; AnadirFiltroAlmacenes; - + AnadirFiltroReferencias; + //Finalmente activamos el filtro si tenemos algo if cxGridView.DataController.Filter.IsEmpty then cxGridView.DataController.Filter.Active := False @@ -141,6 +163,12 @@ begin inherited; end; +procedure TfrViewHistoricoMovimientos.frViewFiltroBase1actQuitarFiltroExecute( + Sender: TObject); +begin + frViewFiltroBase1.LimpiarCampos; +end; + function TfrViewHistoricoMovimientos.GetAlmacenes: IBizAlmacen; begin Result := FAlmacenes; diff --git a/Source/Modulos/Inventario/Inventario_Group.groupproj b/Source/Modulos/Inventario/Inventario_Group.groupproj index 46833a0..39ef443 100644 --- a/Source/Modulos/Inventario/Inventario_Group.groupproj +++ b/Source/Modulos/Inventario/Inventario_Group.groupproj @@ -18,6 +18,7 @@ + @@ -261,14 +262,23 @@ + + + + + + + + + - + - + - + \ No newline at end of file diff --git a/Source/Modulos/Inventario/Views/uEditorElegirArticulosAlmacen.dfm b/Source/Modulos/Inventario/Views/uEditorElegirArticulosAlmacen.dfm index 8191581..54d2182 100644 --- a/Source/Modulos/Inventario/Views/uEditorElegirArticulosAlmacen.dfm +++ b/Source/Modulos/Inventario/Views/uEditorElegirArticulosAlmacen.dfm @@ -5,12 +5,11 @@ inherited fEditorElegirArticulosAlmacen: TfEditorElegirArticulosAlmacen PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader - Top = 113 + Top = 82 Width = 832 Caption = 'Lista de art'#237'culos' Visible = False - ExplicitLeft = 8 - ExplicitTop = 146 + ExplicitTop = 113 ExplicitWidth = 832 inherited Image1: TImage Left = 805 @@ -22,25 +21,22 @@ inherited fEditorElegirArticulosAlmacen: TfEditorElegirArticulosAlmacen end end inherited TBXDock: TSpTBXDock - Top = 64 + Top = 33 Width = 832 Height = 49 - ExplicitTop = 91 + ExplicitTop = 64 ExplicitWidth = 832 ExplicitHeight = 49 inherited tbxMain: TSpTBXToolbar Align = alLeft DockPos = -6 - ExplicitWidth = 427 + ExplicitWidth = 284 inherited TBXItem2: TSpTBXItem Visible = False end inherited TBXItem4: TSpTBXItem Visible = False end - inherited TBXItem57: TSpTBXItem - Visible = False - end inherited TBXItem6: TSpTBXItem Visible = False end @@ -49,12 +45,12 @@ inherited fEditorElegirArticulosAlmacen: TfEditorElegirArticulosAlmacen end end inherited tbxFiltro: TSpTBXToolbar - Left = 427 + Left = 284 Top = 23 Align = alLeft DockPos = 101 DockRow = 1 - ExplicitLeft = 427 + ExplicitLeft = 284 ExplicitTop = 23 inherited TBXItem34: TSpTBXItem Action = actQuitarFiltro2 @@ -64,14 +60,12 @@ inherited fEditorElegirArticulosAlmacen: TfEditorElegirArticulosAlmacen ExplicitWidth = 832 end inherited TBXTMain2: TSpTBXToolbar - Left = 696 + Left = 680 Top = 23 DockPos = 559 DockRow = 1 - Visible = False - ExplicitLeft = 696 + ExplicitLeft = 680 ExplicitTop = 23 - ExplicitWidth = 36 end end inherited StatusBar: TJvStatusBar @@ -126,7 +120,7 @@ inherited fEditorElegirArticulosAlmacen: TfEditorElegirArticulosAlmacen Left = 0 Top = 0 Width = 832 - Height = 64 + Height = 33 Align = alTop BevelOuter = bvNone Color = clWhite @@ -136,7 +130,6 @@ inherited fEditorElegirArticulosAlmacen: TfEditorElegirArticulosAlmacen Padding.Bottom = 8 ParentBackground = False TabOrder = 5 - ExplicitTop = 27 object lblTitle: TLabel AlignWithMargins = True Left = 25 @@ -162,7 +155,7 @@ inherited fEditorElegirArticulosAlmacen: TfEditorElegirArticulosAlmacen Left = 50 Top = 29 Width = 757 - Height = 24 + Height = 1 Margins.Left = 25 Margins.Top = 0 Margins.Right = 0 @@ -172,17 +165,18 @@ inherited fEditorElegirArticulosAlmacen: TfEditorElegirArticulosAlmacen end end inherited frViewInventario1: TfrViewInventario [5] - Top = 140 + Top = 109 Width = 832 - Height = 332 + Height = 363 ExplicitTop = 140 ExplicitWidth = 832 ExplicitHeight = 332 inherited cxGrid: TcxGrid Width = 832 - Height = 163 + Height = 223 + ExplicitTop = 114 ExplicitWidth = 832 - ExplicitHeight = 163 + ExplicitHeight = 192 inherited cxGridView: TcxGridDBTableView DataController.Summary.DefaultGroupSummaryItems = < item @@ -207,6 +201,7 @@ inherited fEditorElegirArticulosAlmacen: TfEditorElegirArticulosAlmacen Width = 832 ExplicitWidth = 832 inherited TBXDockablePanel1: TSpTBXDockablePanel + Width = 832 ExplicitWidth = 832 inherited dxLayoutControl1: TdxLayoutControl Width = 832 @@ -247,8 +242,8 @@ inherited fEditorElegirArticulosAlmacen: TfEditorElegirArticulosAlmacen end end inherited TBXAlignmentPanel1: TSpTBXDockablePanel - Width = 832 - ExplicitWidth = 832 + Width = 822 + ExplicitWidth = 822 inherited tbxBotones: TSpTBXToolbar Width = 822 ExplicitWidth = 822 @@ -257,15 +252,16 @@ inherited fEditorElegirArticulosAlmacen: TfEditorElegirArticulosAlmacen end end inherited pnlAgrupaciones: TSpTBXDockablePanel - Top = 306 + Top = 337 + Width = 832 ExplicitTop = 306 ExplicitWidth = 832 inherited TBXAlignmentPanel1: TSpTBXDockablePanel Width = 832 ExplicitWidth = 832 inherited TBXToolbar1: TSpTBXToolbar - Width = 822 - ExplicitWidth = 822 + Width = 832 + ExplicitWidth = 832 end end end @@ -283,6 +279,9 @@ inherited fEditorElegirArticulosAlmacen: TfEditorElegirArticulosAlmacen BuiltInReportLink = True end end + inherited dxPSEngineController1: TdxPSEngineController + Active = True + end inherited cxViewGridPopupMenu: TcxGridPopupMenu PopupMenus = < item @@ -295,15 +294,6 @@ inherited fEditorElegirArticulosAlmacen: TfEditorElegirArticulosAlmacen inherited EditorActionList: TActionList [9] Left = 112 Top = 192 - inherited actRecibirPedido: TAction - Visible = False - end - inherited actTrasladar: TAction - Visible = False - end - inherited actReservados: TAction - Visible = False - end end inherited dsDataTable: TDADataSource Top = 192 diff --git a/Source/Modulos/Inventario/Views/uEditorElegirArticulosAlmacen.pas b/Source/Modulos/Inventario/Views/uEditorElegirArticulosAlmacen.pas index d57e4b8..c7b5a28 100644 --- a/Source/Modulos/Inventario/Views/uEditorElegirArticulosAlmacen.pas +++ b/Source/Modulos/Inventario/Views/uEditorElegirArticulosAlmacen.pas @@ -12,7 +12,7 @@ uses JvNavigationPane, uViewBarraSeleccion, StdCtrls, uEditorArticulos, uBizArticulos, uIEditorElegirArticulosAlmacen, JvExComCtrls, JvStatusBar, uEditorInventario, uViewInventario, uBizInventario, - JSDialog, uDAInterfaces, dxGDIPlusClasses; + JSDialog, uDAInterfaces, dxGDIPlusClasses, TntStdCtrls, SpTBXEditors; type TfEditorElegirArticulosAlmacen = class(TfEditorInventario, IEditorElegirArticulosAlmacen) diff --git a/Source/Modulos/Inventario/Views/uEditorElegirArticulosCatalogo.dfm b/Source/Modulos/Inventario/Views/uEditorElegirArticulosCatalogo.dfm index 50e1a6c..d215570 100644 --- a/Source/Modulos/Inventario/Views/uEditorElegirArticulosCatalogo.dfm +++ b/Source/Modulos/Inventario/Views/uEditorElegirArticulosCatalogo.dfm @@ -7,6 +7,7 @@ inherited fEditorElegirArticulosCatalogo: TfEditorElegirArticulosCatalogo PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader + Top = 82 Width = 697 ExplicitWidth = 697 inherited Image1: TImage @@ -15,6 +16,7 @@ inherited fEditorElegirArticulosCatalogo: TfEditorElegirArticulosCatalogo end end inherited TBXDock: TSpTBXDock + Top = 33 Width = 697 ExplicitWidth = 697 inherited tbxMain: TSpTBXToolbar @@ -41,13 +43,16 @@ inherited fEditorElegirArticulosCatalogo: TfEditorElegirArticulosCatalogo end inherited pnlHeader: TPanel Width = 697 + Height = 33 TabOrder = 5 + ExplicitWidth = 697 + ExplicitHeight = 33 inherited lblTitle: TLabel Width = 647 end inherited lblComments: TLabel Width = 622 - Height = 24 + Height = 1 end end inherited frViewBarraSeleccion1: TfrViewBarraSeleccion @@ -70,9 +75,9 @@ inherited fEditorElegirArticulosCatalogo: TfEditorElegirArticulosCatalogo end inline frViewElegirArticulosCatalogo1: TfrViewElegirArticulosCatalogo [5] Left = 0 - Top = 140 + Top = 109 Width = 697 - Height = 369 + Height = 400 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -87,7 +92,7 @@ inherited fEditorElegirArticulosCatalogo: TfEditorElegirArticulosCatalogo ExplicitHeight = 369 inherited cxGrid: TcxGrid Width = 697 - Height = 242 + Height = 273 ExplicitWidth = 697 ExplicitHeight = 242 inherited cxGridView: TcxGridDBTableView @@ -154,7 +159,7 @@ inherited fEditorElegirArticulosCatalogo: TfEditorElegirArticulosCatalogo end end inherited pnlAgrupaciones: TSpTBXDockablePanel - Top = 344 + Top = 375 Width = 697 ExplicitTop = 344 ExplicitWidth = 697 diff --git a/Source/Modulos/Inventario/Views/uEditorEntradaSalidaArticulos.dfm b/Source/Modulos/Inventario/Views/uEditorEntradaSalidaArticulos.dfm index 52257eb..eabe13c 100644 --- a/Source/Modulos/Inventario/Views/uEditorEntradaSalidaArticulos.dfm +++ b/Source/Modulos/Inventario/Views/uEditorEntradaSalidaArticulos.dfm @@ -5,6 +5,7 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos ClientHeight = 535 ClientWidth = 902 OnClose = CustomEditorClose + ExplicitTop = -21 ExplicitWidth = 910 ExplicitHeight = 569 PixelsPerInch = 96 @@ -14,7 +15,7 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos Width = 902 Caption = 'Entrada de art'#237'culos en ' ExplicitTop = 177 - ExplicitWidth = 908 + ExplicitWidth = 902 inherited Image1: TImage Left = 769 Picture.Data = { @@ -38,14 +39,14 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos end inherited lblDesbloquear: TcxLabel Left = 804 - ExplicitLeft = 810 + ExplicitLeft = 804 AnchorX = 849 AnchorY = 14 end end inherited TBXDock: TSpTBXDock Width = 902 - ExplicitWidth = 908 + ExplicitWidth = 902 inherited tbxMain: TSpTBXToolbar ExplicitWidth = 164 object TBXItem7: TSpTBXItem [16] @@ -67,19 +68,19 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos end end inherited pgPaginas: TPageControl - Top = 295 + Top = 289 Width = 896 - Height = 218 + Height = 224 MultiLine = True TabOrder = 1 Visible = False ExplicitTop = 295 - ExplicitWidth = 902 + ExplicitWidth = 896 ExplicitHeight = 218 inherited pagGeneral: TTabSheet ExplicitLeft = 4 ExplicitTop = 24 - ExplicitWidth = 894 + ExplicitWidth = 888 ExplicitHeight = 190 end end @@ -89,65 +90,21 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos Panels = < item Width = 200 + end + item + Text = + 'F1 - Realizar entrada Ctrl + F1 - Elegir Art'#237'culos Ctrl + ' + + 'Del - Quitar art'#237'culo Esc - Cerrar' + Width = 50 end> ExplicitTop = 516 - ExplicitWidth = 908 - end - object ToolBar1: TToolBar [4] - AlignWithMargins = True - Left = 5 - Top = 262 - Width = 892 - Height = 30 - Margins.Left = 5 - Margins.Top = 2 - Margins.Right = 5 - Margins.Bottom = 0 - ButtonWidth = 119 - Caption = 'ToolBar1' - EdgeInner = esNone - EdgeOuter = esNone - Flat = False - Images = SmallImages - List = True - ParentShowHint = False - ShowCaptions = True - ShowHint = True - TabOrder = 3 - Transparent = True - ExplicitWidth = 898 - object ToolButton1: TToolButton - Left = 0 - Top = 0 - Action = actAnadirInventario - AutoSize = True - end - object ToolButton2: TToolButton - Left = 112 - Top = 0 - Action = actEliminarInventario - AutoSize = True - end - object ToolButton6: TToolButton - Left = 235 - Top = 0 - Width = 8 - Caption = 'ToolButton6' - ImageIndex = 2 - Style = tbsSeparator - end - object ToolButton7: TToolButton - Left = 243 - Top = 0 - Action = actAnchoAuto - AutoSize = True - end + ExplicitWidth = 902 end inline frViewEntradaSalidaArticulos1: TfrViewEntradaSalidaArticulos [5] Left = 0 - Top = 292 + Top = 286 Width = 902 - Height = 224 + Height = 230 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -155,15 +112,15 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos Font.Name = 'Tahoma' Font.Style = [] ParentFont = False - TabOrder = 5 + TabOrder = 4 ReadOnly = False ExplicitTop = 292 - ExplicitWidth = 908 + ExplicitWidth = 902 ExplicitHeight = 224 inherited cxGrid: TcxGrid Width = 886 - Height = 80 - ExplicitWidth = 892 + Height = 86 + ExplicitWidth = 886 ExplicitHeight = 80 inherited cxGridView: TcxGridDBTableView DataController.KeyFieldNames = 'RecID' @@ -174,13 +131,13 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos end inherited frViewFiltroBase1: TfrViewFiltroBase Width = 902 - ExplicitWidth = 908 + ExplicitWidth = 902 inherited TBXDockablePanel1: TSpTBXDockablePanel Width = 902 - ExplicitWidth = 908 + ExplicitWidth = 902 inherited dxLayoutControl1: TdxLayoutControl Width = 902 - ExplicitWidth = 908 + ExplicitWidth = 902 inherited txtFiltroTodo: TcxTextEdit Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' @@ -216,25 +173,25 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos end inherited TBXAlignmentPanel1: TSpTBXDockablePanel Width = 892 - ExplicitWidth = 898 + ExplicitWidth = 892 inherited tbxBotones: TSpTBXToolbar Width = 892 - ExplicitWidth = 898 + ExplicitWidth = 892 end end end end inherited pnlAgrupaciones: TSpTBXDockablePanel - Top = 198 + Top = 204 Width = 902 ExplicitTop = 198 - ExplicitWidth = 908 + ExplicitWidth = 902 inherited TBXAlignmentPanel1: TSpTBXDockablePanel Width = 902 - ExplicitWidth = 908 + ExplicitWidth = 902 inherited TBXToolbar1: TSpTBXToolbar Width = 902 - ExplicitWidth = 908 + ExplicitWidth = 902 end end end @@ -244,9 +201,6 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos BuiltInReportLink = True end end - inherited dxPSEngineController1: TdxPSEngineController - Active = True - end inherited cxViewGridPopupMenu: TcxGridPopupMenu PopupMenus = < item @@ -268,7 +222,6 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos TabOrder = 0 Visible = False ShowCaptionWhenDocked = False - ExplicitWidth = 908 object Label3: TLabel Left = 202 Top = 17 @@ -373,8 +326,7 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos Height = 56 Align = alTop BevelOuter = bvNone - TabOrder = 7 - ExplicitWidth = 908 + TabOrder = 6 object dxLayoutControl1: TdxLayoutControl Left = 0 Top = 0 @@ -384,10 +336,6 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos ParentBackground = True TabOrder = 0 TabStop = False - ExplicitLeft = 8 - ExplicitTop = 40 - ExplicitWidth = 300 - ExplicitHeight = 250 object Label1: TLabel Left = 250 Top = 10 @@ -484,6 +432,40 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos end end end + object SpTBXDock1: TSpTBXDock [8] + Left = 0 + Top = 260 + Width = 902 + Height = 26 + BackgroundOnToolbars = False + ExplicitTop = 292 + object SpTBXToolbar1: TSpTBXToolbar + Left = 0 + Top = 0 + DockPos = 0 + TabOrder = 0 + Caption = 'SpTBXToolbar1' + object SpTBXItem2: TSpTBXItem + Action = actAnadirInventario + DisplayMode = nbdmImageAndText + Images = SmallImages + end + object SpTBXSeparatorItem2: TSpTBXSeparatorItem + end + object SpTBXItem3: TSpTBXItem + Action = actEliminarInventario + DisplayMode = nbdmImageAndText + Images = SmallImages + end + object SpTBXSeparatorItem1: TSpTBXSeparatorItem + end + object SpTBXItem4: TSpTBXItem + Action = actAnchoAuto + DisplayMode = nbdmImageAndText + Images = SmallImages + end + end + end inherited SmallImages: TPngImageList PngImages = < item @@ -1819,7 +1801,7 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos Left = 56 Top = 56 end - inherited EditorActionList: TActionList [13] + inherited EditorActionList: TActionList [14] Top = 56 inherited actNuevo: TAction Visible = False @@ -1827,6 +1809,9 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos inherited actModificar: TAction Visible = False end + inherited actGuardarCerrar: TAction + ShortCut = 112 + end inherited actGuardar: TAction Visible = False end @@ -1852,12 +1837,14 @@ inherited fEditorEntradaSalidaArticulos: TfEditorEntradaSalidaArticulos Category = 'Inventario' Caption = 'Elegir art'#237'culos...' ImageIndex = 24 + ShortCut = 16496 OnExecute = actAnadirInventarioExecute end object actEliminarInventario: TAction Category = 'Inventario' Caption = 'Quitar este art'#237'culo' ImageIndex = 4 + ShortCut = 16430 OnExecute = actEliminarInventarioExecute OnUpdate = actEliminarInventarioUpdate end diff --git a/Source/Modulos/Inventario/Views/uEditorEntradaSalidaArticulos.pas b/Source/Modulos/Inventario/Views/uEditorEntradaSalidaArticulos.pas index b2be3e4..b97a9bd 100644 --- a/Source/Modulos/Inventario/Views/uEditorEntradaSalidaArticulos.pas +++ b/Source/Modulos/Inventario/Views/uEditorEntradaSalidaArticulos.pas @@ -15,7 +15,7 @@ uses cxTextEdit, cxMaskEdit, cxDropDownEdit, cxCalendar, cxMemo, ToolWin, dxLayoutControl, cxStyles, StdCtrls, Buttons, SpTBXDkPanels, uBizPedidosProveedor, uDAInterfaces, cxGraphics, cxLookAndFeels, cxLookAndFeelPainters, - dxLayoutcxEditAdapters; + dxLayoutcxEditAdapters, JvEnterTab; type TfEditorEntradaSalidaArticulos = class(TfEditorDBItem, IEditorEntradaSalidaArticulos) @@ -23,11 +23,6 @@ type actEliminarInventario: TAction; actAnchoAuto: TAction; TBXItem7: TSpTBXItem; - ToolBar1: TToolBar; - ToolButton1: TToolButton; - ToolButton2: TToolButton; - ToolButton6: TToolButton; - ToolButton7: TToolButton; TBXItem33: TSpTBXItem; pnlEntradaPedido: TSpTBXDockablePanel; Label3: TLabel; @@ -51,6 +46,13 @@ type dxLayoutControl1Item2: TdxLayoutItem; dxLayoutControl1Item3: TdxLayoutItem; dxLayoutControl1Item4: TdxLayoutItem; + SpTBXDock1: TSpTBXDock; + SpTBXToolbar1: TSpTBXToolbar; + SpTBXItem2: TSpTBXItem; + SpTBXItem3: TSpTBXItem; + SpTBXItem4: TSpTBXItem; + SpTBXSeparatorItem1: TSpTBXSeparatorItem; + SpTBXSeparatorItem2: TSpTBXSeparatorItem; procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction); procedure actAnadirInventarioExecute(Sender: TObject); procedure actEliminarInventarioExecute(Sender: TObject); @@ -306,7 +308,7 @@ begin tEntradaPedidoProveedor, tSalidaAlbaranCliente : begin if (FArticulos.TipoMovimiento = tEntradaPedidoProveedor) then - ToolBar1.Visible := False; + SpTBXDock1.Visible := False; actAnadirInventario.Enabled := False; actAnadirInventario.Visible := False; @@ -320,6 +322,8 @@ begin end; end; + + eCausa.SetFocus; end; procedure TfEditorEntradaSalidaArticulos.actAnchoAutoExecute(Sender: TObject); diff --git a/Source/Modulos/Inventario/Views/uEditorInventario.dfm b/Source/Modulos/Inventario/Views/uEditorInventario.dfm index 32929e8..080fdcc 100644 --- a/Source/Modulos/Inventario/Views/uEditorInventario.dfm +++ b/Source/Modulos/Inventario/Views/uEditorInventario.dfm @@ -83,7 +83,7 @@ inherited fEditorInventario: TfEditorInventario Width = 669 ExplicitWidth = 669 inherited tbxMain: TSpTBXToolbar - ExplicitWidth = 576 + ExplicitWidth = 490 object TBXSeparatorItem84: TSpTBXSeparatorItem [6] end object TBXItem54: TSpTBXItem [7] @@ -104,25 +104,12 @@ inherited fEditorInventario: TfEditorInventario Action = actReservar DisplayMode = nbdmImageAndText end - object SpTBXItem1: TSpTBXItem [14] - Action = actDetalleColores - DisplayMode = nbdmImageAndText - end - end - inherited tbxFiltro: TSpTBXToolbar - ExplicitWidth = 328 - inherited TBXItem37: TSpTBXItem - Visible = False - end end inherited tbxMenu: TSpTBXToolbar ExplicitWidth = 669 end inherited TBXTMain2: TSpTBXToolbar - Left = 328 DockPos = 264 - Visible = True - ExplicitLeft = 328 object TBXItem38: TSpTBXItem Action = actReservados DisplayMode = nbdmImageAndText @@ -154,7 +141,7 @@ inherited fEditorInventario: TfEditorInventario ExplicitHeight = 419 inherited cxGrid: TcxGrid Width = 669 - Height = 250 + Height = 279 TabOrder = 2 ExplicitWidth = 669 ExplicitHeight = 250 @@ -316,9 +303,6 @@ inherited fEditorInventario: TfEditorInventario BuiltInReportLink = True end end - inherited dxPSEngineController1: TdxPSEngineController - Active = True - end inherited cxViewGridPopupMenu: TcxGridPopupMenu PopupMenus = < item diff --git a/Source/Modulos/Inventario/Views/uEditorInventario.pas b/Source/Modulos/Inventario/Views/uEditorInventario.pas index cdfd8f3..5b52e6d 100644 --- a/Source/Modulos/Inventario/Views/uEditorInventario.pas +++ b/Source/Modulos/Inventario/Views/uEditorInventario.pas @@ -32,7 +32,6 @@ type TBXItem38: TSpTBXItem; Image2: TImage; actDetalleColores: TAction; - SpTBXItem1: TSpTBXItem; procedure actModificarExecute(Sender: TObject); procedure actRecibirPedidoExecute(Sender: TObject); procedure actTrasladarExecute(Sender: TObject); @@ -52,6 +51,7 @@ type procedure actReservarUpdate(Sender: TObject); procedure actDetalleColoresExecute(Sender: TObject); procedure actDetalleColoresUpdate(Sender: TObject); + procedure actQuitarFiltroExecute(Sender: TObject); private function Seleccionar(Descripcion: String; TipoSeleccion: TEnumSeleccion): Variant; @@ -187,6 +187,12 @@ begin (Sender as TAction).Enabled := not (ViewGrid as IViewInventario).ListaAlmacenesObrasVacia; end; +procedure TfEditorInventario.actQuitarFiltroExecute(Sender: TObject); +begin + inherited; + frViewInventario1.frViewFiltroBase1actQuitarFiltroExecute(Sender); +end; + procedure TfEditorInventario.actReservadosExecute(Sender: TObject); begin inherited; diff --git a/Source/Modulos/Inventario/Views/uViewInventario.dfm b/Source/Modulos/Inventario/Views/uViewInventario.dfm index 0e77694..1298a02 100644 --- a/Source/Modulos/Inventario/Views/uViewInventario.dfm +++ b/Source/Modulos/Inventario/Views/uViewInventario.dfm @@ -5,9 +5,9 @@ inherited frViewInventario: TfrViewInventario ExplicitWidth = 678 ExplicitHeight = 607 inherited cxGrid: TcxGrid - Top = 143 + Top = 114 Width = 678 - Height = 438 + Height = 467 ExplicitTop = 143 ExplicitWidth = 678 ExplicitHeight = 438 @@ -183,9 +183,12 @@ inherited frViewInventario: TfrViewInventario end inherited frViewFiltroBase1: TfrViewFiltroBase Width = 678 + Height = 73 ExplicitWidth = 678 + ExplicitHeight = 73 inherited TBXDockablePanel1: TSpTBXDockablePanel Width = 678 + Height = 73 ExplicitWidth = 678 inherited dxLayoutControl1: TdxLayoutControl Width = 678 @@ -218,6 +221,14 @@ inherited frViewInventario: TfrViewInventario StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 507 end + inherited dxLayoutControl1Group_Root: TdxLayoutGroup + inherited dxLayoutControl1Group1: TdxLayoutGroup + Visible = False + end + inherited lgroupnum: TdxLayoutGroup + Visible = True + end + end end inherited TBXAlignmentPanel1: TSpTBXDockablePanel Width = 668 @@ -228,6 +239,11 @@ inherited frViewInventario: TfrViewInventario end end end + inherited ActionList1: TActionList + inherited actQuitarFiltro: TAction + OnExecute = frViewFiltroBase1actQuitarFiltroExecute + end + end end inherited pnlAgrupaciones: TSpTBXDockablePanel Top = 581 @@ -245,11 +261,12 @@ inherited frViewInventario: TfrViewInventario end object pnlAlmacenes: TPanel [3] Left = 0 - Top = 102 + Top = 73 Width = 678 Height = 41 Align = alTop TabOrder = 3 + ExplicitTop = 102 DesignSize = ( 678 41) @@ -286,9 +303,6 @@ inherited frViewInventario: TfrViewInventario BuiltInReportLink = True end end - inherited dxPSEngineController1: TdxPSEngineController - Active = True - end inherited cxStyleRepository1: TcxStyleRepository inherited cxStyleSelection: TcxStyle AssignedValues = [svColor, svFont, svTextColor] diff --git a/Source/Modulos/Inventario/Views/uViewInventario.pas b/Source/Modulos/Inventario/Views/uViewInventario.pas index 9ddc6f4..209cabf 100644 --- a/Source/Modulos/Inventario/Views/uViewInventario.pas +++ b/Source/Modulos/Inventario/Views/uViewInventario.pas @@ -69,10 +69,12 @@ type procedure cxGridViewDataControllerCompare( ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2, AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer); + procedure frViewFiltroBase1actQuitarFiltroExecute(Sender: TObject); private //Filtros relativos a la vista procedure AnadirFiltroAlmacenesObras; + procedure AnadirFiltroReferencias; protected FAlmacenes: TStringList; @@ -115,12 +117,32 @@ begin cxGridViewALMACEN.Visible := True; end; +procedure TfrViewInventario.AnadirFiltroReferencias; +var + Columna: TcxGridDBColumn; + Referencia1, Referencia2: Variant; + FFiltro : TcxFilterCriteriaItemList; +begin + Referencia1 := frViewFiltroBase1.edtNumIniFiltro.Value; + Referencia2 := frViewFiltroBase1.edtNumFinFiltro.Value; + + if (Referencia1 <> 0) and (Referencia2 <> 0) then + begin + cxGridView.DataController.Filter.Options := [fcoCaseInsensitive, fcoSoftCompare]; + FFiltro := AddFilterGrid(fboAnd); + + Columna := (cxGridView as TcxGridDBTableView).GetColumnByFieldName('REFERENCIA'); + FFiltro.AddItem(Columna, foBetween, varArrayOf([Referencia1, Referencia2]), VarToStr(Referencia1) + ' and ' + VarToStr(Referencia2)); + end; +end; + procedure TfrViewInventario.AnadirOtrosFiltros; begin inherited; AnadirFiltroAlmacenesObras; - + AnadirFiltroReferencias; + //Finalmente activamos el filtro si tenemos algo if cxGridView.DataController.Filter.IsEmpty then cxGridView.DataController.Filter.Active := False @@ -195,6 +217,12 @@ begin inherited; end; +procedure TfrViewInventario.frViewFiltroBase1actQuitarFiltroExecute( + Sender: TObject); +begin + frViewFiltroBase1.LimpiarCampos; +end; + function TfrViewInventario.GetAlmacenes: TStringList; begin Result := FAlmacenes; diff --git a/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc b/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc index 94d9a12..c6ec33d 100644 --- a/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc +++ b/Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc @@ -13,4 +13,4 @@ BEGIN END /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf2A4.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf1261.tmp */ diff --git a/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc b/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc index cf3369c..657a796 100644 --- a/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc +++ b/Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc @@ -14,4 +14,4 @@ END /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Data\uDataModulePedidosCliente.dfm */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Data\PedidosCliente_data.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf2A2.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf125F.tmp */ diff --git a/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc b/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc index 82b7b05..85cf941 100644 --- a/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc +++ b/Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc @@ -13,4 +13,4 @@ BEGIN END /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Model\PedidosCliente_model.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf2A0.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf125D.tmp */ diff --git a/Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc b/Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc index 168e335..afd5688 100644 --- a/Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc +++ b/Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc @@ -14,4 +14,4 @@ END /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Plugin\uPluginPedidosCliente.dfm */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Plugin\PedidosCliente_plugin.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf314.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf12D1.tmp */ diff --git a/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc b/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc index c4e4afb..3ee6d3f 100644 --- a/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc +++ b/Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc @@ -27,4 +27,4 @@ END /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uViewArticulosPendientes.dfm */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorArticulosPendientes.dfm */ /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\PedidosCliente_view.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf312.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf12CF.tmp */ diff --git a/Source/Modulos/Pedidos de cliente/Views/uEditorArticulosPendientes.dfm b/Source/Modulos/Pedidos de cliente/Views/uEditorArticulosPendientes.dfm new file mode 100644 index 0000000..c8d27bc --- /dev/null +++ b/Source/Modulos/Pedidos de cliente/Views/uEditorArticulosPendientes.dfm @@ -0,0 +1,61 @@ +inherited fEditorArticulosPendientes: TfEditorArticulosPendientes + Caption = 'fEditorArticulosPendientes' + PixelsPerInch = 96 + TextHeight = 13 + inherited JvNavPanelHeader: TJvNavPanelHeader + inherited Image1: TImage + Picture.Data = { + 0B546478504E47496D61676589504E470D0A1A0A0000000D4948445200000018 + 000000180806000000E0773DF8000000017352474200AECE1CE9000000046741 + 4D410000B18F0BFC6105000000206348524D00007A26000080840000FA000000 + 80E8000075300000EA6000003A98000017709CBA513C00000009704859730000 + 17110000171101CA26F33F0000019D49444154484B63FCFFFF3F034D01C8027C + 96F40429FE2FB0E02019C3CDC56701C8F0EFCFCFFD7F7A76EDFFDBFBE7FEBFB4 + A9F7FFC9A5B5FF41E26B8B2DC172EF6EEDC3908F8888001A0B75382E0BC8353C + DB92E13F410B6086835C478ACB4186B77849E0B700D97050D0101B2C30C3F15A + 806E38C8F5C48439C8F009E1CAFFBB026471FB009BE120D7138A5090E17352F5 + FE4F8BD3805B82350E400AC9C12B8A2CFF2FCE3141B104AB05131218FE5F5B9A + 4C105F5E94F0FFECECE8FFC726878283635D85DD7F744BC8B600D9F0033DFE60 + 0B36D7396358429605E886EF6AF5025BB0A7DD1BC312922DC066F8963A17B005 + 87FA02312C21C9025C86AF2BB7875B806E09D116E0337C45A1158A05C8961065 + 01BAE1DB9BDCFF6FAC76FABFBAC4E6FF925CF3FFF3D20C312C805942D0820BF3 + 62FF9F9C1EF1FFF084A0FF7B3B7DFF63337C46BC0E560B408683EA178CD21496 + 0F88357C52841A860530C3715A408AE1A02204968A4041836C384E0B88091690 + CB4186235B806E384E0B088539B2E1300BB0198ED30290625231AE06034624C3 + 04A84DC39313B50D869907009AA738FDEBCC49FD0000000049454E44AE426082} + end + end + inherited TBXDock: TSpTBXDock + inherited tbxMain: TSpTBXToolbar + ExplicitWidth = 358 + end + end + inherited EditorActionList: TActionList + inherited actNuevo: TAction + Enabled = False + Visible = False + end + inherited actModificar: TAction + Enabled = False + Visible = False + end + inherited actEliminar: TAction + Enabled = False + Visible = False + end + inherited actPrevisualizar: TAction + Visible = True + end + inherited actImprimir: TAction + Visible = True + end + inherited actDuplicar: TAction + Enabled = False + Visible = False + end + inherited actExportarExcel: TAction + Enabled = False + Visible = False + end + end +end diff --git a/Source/Modulos/Pedidos de cliente/Views/uEditorArticulosPendientes.pas b/Source/Modulos/Pedidos de cliente/Views/uEditorArticulosPendientes.pas new file mode 100644 index 0000000..234483f --- /dev/null +++ b/Source/Modulos/Pedidos de cliente/Views/uEditorArticulosPendientes.pas @@ -0,0 +1,94 @@ +unit uEditorArticulosPendientes; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, uEditorGridBase, Menus, JvAppStorage, JvAppRegistryStorage, DB, + uDAInterfaces, uDADataTable, JvComponentBase, JvFormPlacement, ImgList, + PngImageList, StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, + SpTBXItem, StdCtrls, TntStdCtrls, SpTBXEditors, TB2Item, TB2Dock, TB2Toolbar, + pngimage, ExtCtrls, JvExControls, JvNavigationPane, uCustomView, uViewBase, + uViewGridBase, uViewGrid, uViewArticulosPendientes, uIEditorArticulosPendientes, + uBizPedidosCliente, dxGDIPlusClasses; + +type + TfEditorArticulosPendientes = class(TfEditorGridBase, IEditorArticulosPendientes) + procedure FormShow(Sender: TObject); + protected + FArticulosPendientes: IBizArticulosPendientes; + + function GetArticulosPendientes: IBizArticulosPendientes; + procedure SetArticulosPendientes(const Value: IBizArticulosPendientes); + published + + public + property ArticulosPendientes : IBizArticulosPendientes read GetArticulosPendientes write SetArticulosPendientes; + procedure PonerTitulos(const ATitulo: string = ''); override; + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; + end; + + +implementation + +{$R *.dfm} + +{ TfEditorArticulosPendientes } + +constructor TfEditorArticulosPendientes.Create(AOwner: TComponent); +begin + inherited; + ViewGrid := CreateView(TfrViewArticulosPendientes) as IViewarticulosPendientes; +end; + +destructor TfEditorArticulosPendientes.Destroy; +begin + FArticulosPendientes := NIL; + inherited; +end; + +procedure TfEditorArticulosPendientes.FormShow(Sender: TObject); +begin + inherited; + + if not Assigned(ViewGrid) then + raise Exception.Create('No hay ninguna vista asignada'); + + if not Assigned(ArticulosPendientes) then + raise Exception.Create('No hay ningún articulo pendiente asignado'); + + ArticulosPendientes.DataTable.Active := True; + ViewGrid.GotoFirst; +end; + +function TfEditorArticulosPendientes.GetArticulosPendientes: IBizArticulosPendientes; +begin + Result := FArticulosPendientes; +end; + +procedure TfEditorArticulosPendientes.PonerTitulos(const ATitulo: string); +var + FTitulo : String; +begin + FTitulo := 'Lista de artículos pendientes de ser enviados a los clientes'; // - ' + AppFactuGES.EmpresaActiva.NOMBRE; + inherited PonerTitulos(FTitulo); +end; + +procedure TfEditorArticulosPendientes.SetArticulosPendientes(const Value: IBizArticulosPendientes); +begin + FArticulosPendientes := Value; + + if Assigned(FArticulosPendientes) then + begin + //Se guarda el where de la sentencia origen, por si el editor tiene filtros que + //afecten a este where y en un futuro se desea volver al where origen (filtro de año)) + DynWhereDataTable := FArticulosPendientes.DataTable.DynamicWhere.Xml; + + dsDataTable.DataTable := FArticulosPendientes.DataTable; + if Assigned(ViewGrid) then + (ViewGrid as IViewArticulosPendientes).ArticulosPendientes := ArticulosPendientes; + end; +end; + +end. diff --git a/Source/Modulos/Pedidos de cliente/Views/uEditorPedidoCliente.dfm b/Source/Modulos/Pedidos de cliente/Views/uEditorPedidoCliente.dfm index ffc9d01..248e58c 100644 --- a/Source/Modulos/Pedidos de cliente/Views/uEditorPedidoCliente.dfm +++ b/Source/Modulos/Pedidos de cliente/Views/uEditorPedidoCliente.dfm @@ -185,6 +185,9 @@ inherited fEditorPedidoCliente: TfEditorPedidoCliente Height = 237 ExplicitWidth = 618 ExplicitHeight = 237 + inherited cxGridView: TcxGridDBTableView + OptionsSelection.InvertSelect = False + end end inherited TBXDock1: TSpTBXDock Width = 618 @@ -242,16 +245,6 @@ inherited fEditorPedidoCliente: TfEditorPedidoCliente end end end - inherited StatusBar: TJvStatusBar - Top = 589 - Width = 632 - Panels = < - item - Width = 200 - end> - ExplicitTop = 589 - ExplicitWidth = 632 - end inline frViewTotalesPedido1: TfrViewTotalesPedido [4] Left = 0 Top = 446 @@ -283,10 +276,8 @@ inherited fEditorPedidoCliente: TfEditorPedidoCliente inherited Bevel4: TBevel Left = 433 Width = 206 - Height = 9 ExplicitLeft = 433 ExplicitWidth = 206 - ExplicitHeight = 9 end inherited ImporteDto: TcxDBCurrencyEdit Style.LookAndFeel.SkinName = '' @@ -397,7 +388,17 @@ inherited fEditorPedidoCliente: TfEditorPedidoCliente end end end - inherited EditorActionList: TActionList [5] + inherited StatusBar: TJvStatusBar [5] + Top = 589 + Width = 632 + Panels = < + item + Width = 200 + end> + ExplicitTop = 589 + ExplicitWidth = 632 + end + inherited EditorActionList: TActionList [9] inherited actNuevo: TAction Enabled = False Visible = False @@ -407,14 +408,10 @@ inherited fEditorPedidoCliente: TfEditorPedidoCliente Visible = False end end - inherited SmallImages: TPngImageList [6] - end - inherited LargeImages: TPngImageList [7] - end - inherited JvFormStorage: TJvFormStorage [8] - end inherited dsDataTable: TDADataSource [10] end + inherited JvAppRegistryStorage: TJvAppRegistryStorage [11] + end inherited StatusBarImages: TPngImageList Left = 16 Top = 408 diff --git a/Source/Modulos/Pedidos de cliente/Views/uEditorPedidoCliente.pas b/Source/Modulos/Pedidos de cliente/Views/uEditorPedidoCliente.pas index 04af506..29f0b9e 100644 --- a/Source/Modulos/Pedidos de cliente/Views/uEditorPedidoCliente.pas +++ b/Source/Modulos/Pedidos de cliente/Views/uEditorPedidoCliente.pas @@ -17,7 +17,7 @@ uses uViewDetallesDTO, uViewDetallesArticulos, cxGraphics, cxLookAndFeels, cxLookAndFeelPainters, uDAInterfaces, PngImageList, StdActns, ActnList, ComCtrls, SpTBXItem, TB2Item, TB2Dock, cxLabel, uViewTotalesPedido, - uViewTotales, uViewDetallesArticulosParaVenta; + uViewTotales, uViewDetallesArticulosParaVenta, JvEnterTab; type TfEditorPedidoCliente = class(TfEditorDBItem, IEditorPedidoCliente) diff --git a/Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.dfm b/Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.dfm index d4c4674..df6e510 100644 --- a/Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.dfm +++ b/Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.dfm @@ -2,7 +2,6 @@ inherited fEditorPedidosCliente: TfEditorPedidosCliente Caption = 'Lista de pedidos de cliente' ClientWidth = 767 ExplicitWidth = 775 - ExplicitHeight = 240 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader @@ -133,7 +132,7 @@ inherited fEditorPedidosCliente: TfEditorPedidosCliente inherited TBXTMain2: TSpTBXToolbar Visible = True ExplicitWidth = 309 - object SpTBXItem1: TSpTBXItem + object SpTBXItem3: TSpTBXItem Action = actGenerarAlbaranCli DisplayMode = nbdmImageAndText end @@ -147,7 +146,141 @@ inherited fEditorPedidosCliente: TfEditorPedidosCliente Width = 767 ExplicitWidth = 767 end - inherited EditorActionList: TActionList + inline frViewPedidosCliente1: TfrViewPedidosCliente [3] + Left = 0 + Top = 102 + Width = 767 + Height = 383 + Align = alClient + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + TabOrder = 3 + ReadOnly = False + ExplicitTop = 102 + ExplicitWidth = 767 + ExplicitHeight = 383 + inherited cxGrid: TcxGrid + Width = 767 + Height = 292 + ExplicitWidth = 767 + ExplicitHeight = 292 + inherited cxGridView: TcxGridDBTableView + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Position = spFooter + Column = frViewPedidosCliente1.cxGridViewIMPORTE_TOTAL + end> + DataController.Summary.FooterSummaryItems = < + item + Format = '0 pedidos' + Kind = skCount + Column = frViewPedidosCliente1.cxGridViewREFERENCIA + end + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Column = frViewPedidosCliente1.cxGridViewIMPORTE_TOTAL + end> + inherited cxGridViewNUM_COPIAS: TcxGridDBColumn + IsCaptionAssigned = True + end + end + end + inherited frViewFiltroBase1: TfrViewFiltroBase + Width = 767 + ExplicitWidth = 767 + inherited TBXDockablePanel1: TSpTBXDockablePanel + Width = 767 + ExplicitWidth = 767 + inherited dxLayoutControl1: TdxLayoutControl + Width = 767 + ExplicitWidth = 767 + inherited txtFiltroTodo: TcxTextEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 510 + Width = 510 + end + inherited edtFechaIniFiltro: TcxDateEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 272 + Width = 272 + end + inherited edtFechaFinFiltro: TcxDateEdit + Left = 337 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 337 + ExplicitWidth = 221 + Width = 221 + end + inherited eLista: TcxComboBox + Left = 569 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 569 + ExplicitWidth = 215 + Width = 215 + end + end + inherited TBXAlignmentPanel1: TSpTBXDockablePanel + Width = 757 + ExplicitWidth = 757 + inherited tbxBotones: TSpTBXToolbar + Width = 757 + ExplicitWidth = 757 + end + end + end + end + inherited pnlAgrupaciones: TSpTBXDockablePanel + Top = 357 + Width = 767 + ExplicitTop = 357 + ExplicitWidth = 767 + inherited TBXAlignmentPanel1: TSpTBXDockablePanel + Width = 767 + ExplicitWidth = 767 + inherited TBXToolbar1: TSpTBXToolbar + Width = 767 + ExplicitWidth = 767 + end + end + end + inherited dxComponentPrinter: TdxComponentPrinter + inherited dxComponentPrinterLink: TdxGridReportLink + ReportDocument.CreationDate = 40298.521787106480000000 + BuiltInReportLink = True + end + end + inherited dxPSEngineController1: TdxPSEngineController + Active = True + end + inherited cxViewGridPopupMenu: TcxGridPopupMenu + PopupMenus = < + item + GridView = frViewPedidosCliente1.cxGridView + HitTypes = [gvhtCell] + Index = 0 + end> + end + end + inherited EditorActionList: TActionList [4] inherited actNuevo: TAction ImageIndex = 22 end @@ -196,7 +329,7 @@ inherited fEditorPedidosCliente: TfEditorPedidosCliente OnUpdate = actEnviarEmailUpdate end end - inherited SmallImages: TPngImageList + inherited SmallImages: TPngImageList [5] PngImages = < item PngImage.Data = { @@ -877,7 +1010,7 @@ inherited fEditorPedidosCliente: TfEditorPedidosCliente end> Bitmap = {} end - inherited LargeImages: TPngImageList + inherited LargeImages: TPngImageList [6] PngImages = < item PngImage.Data = { @@ -1870,9 +2003,11 @@ inherited fEditorPedidosCliente: TfEditorPedidosCliente end> Bitmap = {} end - inherited JvAppRegistryStorage: TJvAppRegistryStorage [7] + inherited JvFormStorage: TJvFormStorage [7] end - inherited dsDataTable: TDADataSource [8] + inherited dsDataTable: TDADataSource [9] + end + inherited StatusBarImages: TPngImageList [10] end inherited GridPopupMenu: TPopupMenu object Generar2: TMenuItem [6] diff --git a/Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.pas b/Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.pas index cac61f7..400615c 100644 --- a/Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.pas +++ b/Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.pas @@ -29,8 +29,9 @@ type JsImprimirDialog: TJSDialog; JsListaPedidosNoEliminados: TJSDialog; actEnviarEmail: TAction; - SpTBXItem1: TSpTBXItem; SpTBXItem2: TSpTBXItem; + frViewPedidosCliente1: TfrViewPedidosCliente; + SpTBXItem3: TSpTBXItem; procedure FormShow(Sender: TObject); procedure actGenerarAlbaranCliExecute(Sender: TObject); procedure actEliminarUpdate(Sender: TObject); @@ -42,6 +43,7 @@ type procedure actEnviarEmailExecute(Sender: TObject); procedure actEnviarEmailUpdate(Sender: TObject); procedure OnListaAnosChange(Sender: TObject); + procedure actQuitarFiltroExecute(Sender: TObject); protected FPedidos: IBizPedidoCliente; @@ -206,9 +208,15 @@ begin (FPedidos.SITUACION <> SITUACION_PEDIDO_SERVIDO); end; +procedure TfEditorPedidosCliente.actQuitarFiltroExecute(Sender: TObject); +begin + inherited; + frViewPedidosCliente1.frViewFiltroBase1actQuitarFiltroExecute(Sender); +end; + procedure TfEditorPedidosCliente.AsignarVista; begin - ViewGrid := CreateView(TfrViewPedidosCliente) as IViewPedidosCliente; + ViewGrid := frViewPedidosCliente1; end; constructor TfEditorPedidosCliente.Create(AOwner: TComponent); diff --git a/Source/Modulos/Pedidos de cliente/Views/uViewArticulosPendientes.dfm b/Source/Modulos/Pedidos de cliente/Views/uViewArticulosPendientes.dfm new file mode 100644 index 0000000..ac69923 --- /dev/null +++ b/Source/Modulos/Pedidos de cliente/Views/uViewArticulosPendientes.dfm @@ -0,0 +1,120 @@ +inherited frViewArticulosPendientes: TfrViewArticulosPendientes + inherited cxGrid: TcxGrid + inherited cxGridView: TcxGridDBTableView + inherited cxGridViewICONO: TcxGridDBColumn + Visible = False + VisibleForCustomization = False + end + object cxGridViewID_ARTICULO: TcxGridDBColumn + DataBinding.FieldName = 'ID_ARTICULO' + Visible = False + VisibleForCustomization = False + end + object cxGridViewREFERENCIA: TcxGridDBColumn + Caption = 'Referencia' + DataBinding.FieldName = 'REFERENCIA' + end + object cxGridViewDESCRIPCION: TcxGridDBColumn + Caption = 'Descripci'#243'n' + DataBinding.FieldName = 'DESCRIPCION' + end + object cxGridViewCOLOR1: TcxGridDBColumn + Caption = 'Color 1' + DataBinding.FieldName = 'COLOR1' + end + object cxGridViewCOLOR2: TcxGridDBColumn + Caption = 'Color 2' + DataBinding.FieldName = 'COLOR2' + end + object cxGridViewCOLOR3: TcxGridDBColumn + Caption = 'Color 3' + DataBinding.FieldName = 'COLOR3' + end + object cxGridViewCOLOR4: TcxGridDBColumn + Caption = 'Color 4' + DataBinding.FieldName = 'COLOR4' + end + object cxGridViewCOLOR5: TcxGridDBColumn + Caption = 'Color 5' + DataBinding.FieldName = 'COLOR5' + end + object cxGridViewCOLOR6: TcxGridDBColumn + Caption = 'Color 6' + DataBinding.FieldName = 'COLOR6' + end + object cxGridViewCOLOR7: TcxGridDBColumn + Caption = 'Color 7' + DataBinding.FieldName = 'COLOR7' + end + object cxGridViewCOLOR8: TcxGridDBColumn + Caption = 'Color 8' + DataBinding.FieldName = 'COLOR8' + end + object cxGridViewCOLOR9: TcxGridDBColumn + Caption = 'Color 9' + DataBinding.FieldName = 'COLOR9' + end + object cxGridViewCOLOR10: TcxGridDBColumn + Caption = 'Color 10' + DataBinding.FieldName = 'COLOR10' + end + object cxGridViewCOLOR11: TcxGridDBColumn + Caption = 'Color 11' + DataBinding.FieldName = 'COLOR11' + end + object cxGridViewCOLOR12: TcxGridDBColumn + Caption = 'Color 12' + DataBinding.FieldName = 'COLOR12' + end + object cxGridViewTOTAL: TcxGridDBColumn + Caption = 'Total' + DataBinding.FieldName = 'TOTAL' + end + end + end + inherited frViewFiltroBase1: TfrViewFiltroBase + inherited TBXDockablePanel1: TSpTBXDockablePanel + inherited dxLayoutControl1: TdxLayoutControl + inherited txtFiltroTodo: TcxTextEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + end + inherited edtFechaIniFiltro: TcxDateEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 272 + Width = 272 + end + inherited edtFechaFinFiltro: TcxDateEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 221 + Width = 221 + end + inherited eLista: TcxComboBox + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitWidth = 215 + Width = 215 + end + end + end + end + inherited dxComponentPrinter: TdxComponentPrinter + inherited dxComponentPrinterLink: TdxGridReportLink + ReportDocument.CreationDate = 40287.547352430560000000 + BuiltInReportLink = True + end + end + inherited dxPSEngineController1: TdxPSEngineController + Active = True + end +end diff --git a/Source/Modulos/Pedidos de cliente/Views/uViewArticulosPendientes.pas b/Source/Modulos/Pedidos de cliente/Views/uViewArticulosPendientes.pas new file mode 100644 index 0000000..21ee12a --- /dev/null +++ b/Source/Modulos/Pedidos de cliente/Views/uViewArticulosPendientes.pas @@ -0,0 +1,74 @@ +unit uViewArticulosPendientes; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, uViewGrid, cxGraphics, cxControls, cxLookAndFeels, + cxLookAndFeelPainters, cxStyles, cxCustomData, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, dxPSGlbl, dxPSUtl, dxPSEngn, dxPrnPg, + dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns, + dxPSEdgePatterns, dxPSPDFExportCore, dxPSPDFExport, cxDrawTextUtils, + dxPSPrVwStd, dxPSPrVwAdv, dxPScxEditorProducers, dxPScxExtEditorProducers, + dxPScxPageControlProducer, cxGridCustomPopupMenu, cxGridPopupMenu, ImgList, + PngImageList, ActnList, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk, uDAInterfaces, + uDADataTable, TB2Item, SpTBXItem, TB2Toolbar, TB2Dock, SpTBXDkPanels, + uCustomView, uViewBase, uViewFiltroBase, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxGridCustomView, cxGrid, + uBizPedidosCliente; + +type + IViewArticulosPendientes = interface(IViewGrid) + ['{0BC7A87F-A443-4A7D-9459-89FCCA8DF858}'] + function GetArticulosPendientes: IBizArticulosPendientes; + procedure SetArticulosPendientes(const Value: IBizArticulosPendientes); + property ArticulosPendientes: IBizArticulosPendientes read GetArticulosPendientes write SetArticulosPendientes; + end; + + TfrViewArticulosPendientes = class(TfrViewGrid, IViewArticulosPendientes) + cxGridViewID_ARTICULO: TcxGridDBColumn; + cxGridViewREFERENCIA: TcxGridDBColumn; + cxGridViewDESCRIPCION: TcxGridDBColumn; + cxGridViewCOLOR1: TcxGridDBColumn; + cxGridViewCOLOR2: TcxGridDBColumn; + cxGridViewCOLOR3: TcxGridDBColumn; + cxGridViewCOLOR4: TcxGridDBColumn; + cxGridViewCOLOR5: TcxGridDBColumn; + cxGridViewCOLOR6: TcxGridDBColumn; + cxGridViewCOLOR7: TcxGridDBColumn; + cxGridViewCOLOR8: TcxGridDBColumn; + cxGridViewCOLOR9: TcxGridDBColumn; + cxGridViewCOLOR10: TcxGridDBColumn; + cxGridViewCOLOR11: TcxGridDBColumn; + cxGridViewCOLOR12: TcxGridDBColumn; + cxGridViewTOTAL: TcxGridDBColumn; + private + FArticulosPendientes: IBizArticulosPendientes; + function GetArticulosPendientes: IBizArticulosPendientes; + procedure SetArticulosPendientes(const Value: IBizArticulosPendientes); + public + property ArticulosPendientes: IBizArticulosPendientes read GetArticulosPendientes write SetArticulosPendientes; + end; + +var + frViewArticulosPendientes: TfrViewArticulosPendientes; + +implementation + +{$R *.dfm} + +{ TfrViewArticulosPendientes } + +function TfrViewArticulosPendientes.GetArticulosPendientes: IBizArticulosPendientes; +begin + Result := FArticulosPendientes; +end; + +procedure TfrViewArticulosPendientes.SetArticulosPendientes(const Value: IBizArticulosPendientes); +begin + FArticulosPendientes := Value; + if Assigned(FArticulosPendientes) then + dsDataSource.DataTable := FArticulosPendientes.DataTable; +end; + +end. diff --git a/Source/Modulos/Pedidos de cliente/Views/uViewDetallesPedidoCliente.dfm b/Source/Modulos/Pedidos de cliente/Views/uViewDetallesPedidoCliente.dfm index aaa7db0..fa7dd56 100644 --- a/Source/Modulos/Pedidos de cliente/Views/uViewDetallesPedidoCliente.dfm +++ b/Source/Modulos/Pedidos de cliente/Views/uViewDetallesPedidoCliente.dfm @@ -78,6 +78,7 @@ inherited frViewDetallesPedidoCliente: TfrViewDetallesPedidoCliente ExplicitTop = 99 ExplicitHeight = 205 inherited cxGridView: TcxGridDBTableView + OptionsSelection.CellMultiSelect = True inherited cxGridViewTIPO: TcxGridDBColumn Visible = False VisibleForCustomization = False diff --git a/Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.dfm b/Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.dfm index 074adb3..7e518b1 100644 --- a/Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.dfm +++ b/Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.dfm @@ -4,8 +4,9 @@ inherited frViewPedidosCliente: TfrViewPedidosCliente ExplicitWidth = 596 ExplicitHeight = 479 inherited cxGrid: TcxGrid + Top = 65 Width = 596 - Height = 351 + Height = 388 RootLevelOptions.DetailTabsPosition = dtpTop OnActiveTabChanged = cxGridActiveTabChanged ExplicitWidth = 596 @@ -185,9 +186,12 @@ inherited frViewPedidosCliente: TfrViewPedidosCliente end inherited frViewFiltroBase1: TfrViewFiltroBase Width = 596 + Height = 65 ExplicitWidth = 596 + ExplicitHeight = 65 inherited TBXDockablePanel1: TSpTBXDockablePanel Width = 596 + Height = 65 ExplicitWidth = 596 inherited dxLayoutControl1: TdxLayoutControl Width = 596 @@ -236,6 +240,11 @@ inherited frViewPedidosCliente: TfrViewPedidosCliente end end end + inherited ActionList1: TActionList + inherited actQuitarFiltro: TAction + OnExecute = frViewFiltroBase1actQuitarFiltroExecute + end + end end inherited pnlAgrupaciones: TSpTBXDockablePanel Top = 453 diff --git a/Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.pas b/Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.pas index cc0be28..851d60c 100644 --- a/Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.pas +++ b/Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.pas @@ -76,6 +76,7 @@ type procedure cxGridViewNUM_COPIASCustomDrawHeader(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridColumnHeaderViewInfo; var ADone: Boolean); + procedure frViewFiltroBase1actQuitarFiltroExecute(Sender: TObject); private //Filtros relativos a la vista @@ -318,6 +319,12 @@ begin end; end; +procedure TfrViewPedidosCliente.frViewFiltroBase1actQuitarFiltroExecute( + Sender: TObject); +begin + frViewFiltroBase1.LimpiarCampos; +end; + function TfrViewPedidosCliente.GetPedidos: IBizPedidoCliente; begin Result := FPedidos; diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm index a0540e1..c9b2cfc 100644 --- a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm @@ -39,8 +39,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente end inherited lblDesbloquear: TcxLabel Left = 566 - ExplicitLeft = 425 - ExplicitTop = 16 + ExplicitLeft = 566 AnchorX = 611 AnchorY = 14 end @@ -329,16 +328,6 @@ inherited fEditorReciboCliente: TfEditorReciboCliente end end end - inherited StatusBar: TJvStatusBar - Top = 511 - Width = 691 - Panels = < - item - Width = 200 - end> - ExplicitTop = 511 - ExplicitWidth = 691 - end inline frViewReciboCliImportes1: TfrViewReciboCliImportes [4] Left = 0 Top = 411 @@ -370,7 +359,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente end inherited eOtrosGastos: TcxDBCurrencyEdit DataBinding.DataSource = dsDataTable - Enabled = False + Properties.OnEditValueChanged = frViewReciboCliImportes1eImportePropertiesEditValueChanged Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' @@ -392,21 +381,34 @@ inherited fEditorReciboCliente: TfEditorReciboCliente inherited dxLayoutControl1Group3: TdxLayoutGroup AlignHorz = ahClient Offsets.Right = 10 - inherited dxLayoutControl1Item2: TdxLayoutItem - Enabled = False - Visible = False - end end inherited dxLayoutControl1Item3: TdxLayoutItem AlignHorz = ahRight Enabled = False - Visible = False end end end end end - inherited EditorActionList: TActionList [5] + inherited StatusBar: TJvStatusBar [5] + Top = 511 + Width = 691 + Panels = < + item + Width = 200 + end> + ExplicitTop = 511 + ExplicitWidth = 691 + end + inherited JvFormStorage: TJvFormStorage + OnSavePlacement = JvFormStorageSavePlacement + OnRestorePlacement = JvFormStorageRestorePlacement + end + inherited dsDataTable: TDADataSource + Left = 8 + Top = 168 + end + inherited EditorActionList: TActionList [11] Top = 96 inherited actNuevo: TAction Enabled = False @@ -421,20 +423,6 @@ inherited fEditorReciboCliente: TfEditorReciboCliente Visible = False end end - inherited SmallImages: TPngImageList [6] - end - inherited LargeImages: TPngImageList [7] - end - inherited JvFormStorage: TJvFormStorage [8] - OnSavePlacement = JvFormStorageSavePlacement - OnRestorePlacement = JvFormStorageRestorePlacement - end - inherited dsDataTable: TDADataSource [9] - Left = 8 - Top = 168 - end - inherited JvAppRegistryStorage: TJvAppRegistryStorage [10] - end object DADataSource1: TDADataSource OnDataChange = dsDataTableDataChange Left = 80 diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas index 8f748b2..0116a2d 100644 --- a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas +++ b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas @@ -12,7 +12,7 @@ uses uBizRecibosCliente, uViewPagosCliente, dxLayoutLookAndFeels, cxCustomData, uViewDetallesGenerico, uViewReciboCliImportes, uViewRecibosCliCompensados, uDAInterfaces, cxControls, cxContainer, cxEdit, cxLabel, cxGraphics, - cxLookAndFeels, cxLookAndFeelPainters; + cxLookAndFeels, cxLookAndFeelPainters, JvEnterTab; type TfEditorReciboCliente = class(TfEditorDBItem, IEditorReciboCliente) diff --git a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm index 52f922e..2f1245b 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm @@ -128,9 +128,7 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente DataBinding.FieldName = 'OTROS_GASTOS' PropertiesClassName = 'TcxCurrencyEditProperties' Properties.Alignment.Horz = taRightJustify - Visible = False HeaderAlignmentHorz = taRightJustify - VisibleForCustomization = False Width = 55 end object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn @@ -138,10 +136,8 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente DataBinding.FieldName = 'IMPORTE_TOTAL' PropertiesClassName = 'TcxCurrencyEditProperties' Properties.Alignment.Horz = taRightJustify - Visible = False FooterAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify - VisibleForCustomization = False Width = 117 end object cxGridViewREFERENCIA_REMESA: TcxGridDBColumn @@ -213,6 +209,16 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 403 + ExplicitWidth = 215 + Width = 215 + end + inherited edtNumFinFiltro: TcxSpinEdit + Left = 299 + ExplicitLeft = 299 + end + inherited edtNumIniFiltro: TcxSpinEdit + Left = 161 + ExplicitLeft = 161 end inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group1: TdxLayoutGroup @@ -260,6 +266,7 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente end end inherited dxPSEngineController1: TdxPSEngineController + Active = True Top = 152 end inherited cxStyleRepository1: TcxStyleRepository diff --git a/Source/Modulos/Relaciones/Pedidos de cliente - Albaranes de cliente/uGenerarAlbaranesCliUtils.pas b/Source/Modulos/Relaciones/Pedidos de cliente - Albaranes de cliente/uGenerarAlbaranesCliUtils.pas index 0f0b6fc..598d8c6 100644 --- a/Source/Modulos/Relaciones/Pedidos de cliente - Albaranes de cliente/uGenerarAlbaranesCliUtils.pas +++ b/Source/Modulos/Relaciones/Pedidos de cliente - Albaranes de cliente/uGenerarAlbaranesCliUtils.pas @@ -66,6 +66,8 @@ begin AAlbaran.IMPORTE_TOTAL := APedido.IMPORTE_TOTAL; AAlbaran.DataTable.FieldByName(fld_AlbaranesClienteOBSERVACIONES).AsVariant := APedido.DataTable.FieldByName(fld_PedidosClienteOBSERVACIONES).AsVariant; AAlbaran.ID_FORMA_PAGO := APedido.ID_FORMA_PAGO; + AAlbaran.DATOS_BANCARIOS := APedido.DATOS_BANCARIOS; + AAlbaran.PERSONA_CONTACTO := APedido.PERSONA_CONTACTO; AAlbaran.FECHA_PREVISTA_ENVIO := APedido.FECHA_PREVISTA_ENVIO; end; diff --git a/Source/Servicios/FactuGES.RODL b/Source/Servicios/FactuGES.RODL index efba88b..16a8462 100644 --- a/Source/Servicios/FactuGES.RODL +++ b/Source/Servicios/FactuGES.RODL @@ -862,6 +862,14 @@ + + + + + + + + diff --git a/Source/Servicios/FactuGES_Intf.pas b/Source/Servicios/FactuGES_Intf.pas index 08404b2..027b7cc 100644 --- a/Source/Servicios/FactuGES_Intf.pas +++ b/Source/Servicios/FactuGES_Intf.pas @@ -53,6 +53,7 @@ const IsrvGestorDocumentos_IID : TGUID = '{2FFB4EEA-F314-442C-920A-E1D37F378929}'; IsrvGestorInformes_IID : TGUID = '{9ACA4D42-EA9A-4D2C-B233-19CD299EAE91}'; IsrvPedidosCliente_IID : TGUID = '{F437BEC6-8EEC-4FBC-AEBB-64C3CD96DC58}'; + IsrvComisiones_IID : TGUID = '{5614F6CD-8DA7-4C6E-87DE-950F771282C7}'; { Event ID's } @@ -89,6 +90,7 @@ type IsrvGestorDocumentos = interface; IsrvGestorInformes = interface; IsrvPedidosCliente = interface; + IsrvComisiones = interface; TRdxEmpresasArray = class; TIntegerArray = class; @@ -843,6 +845,23 @@ type function GenerarInforme(const ListaID: TIntegerArray): Binary; end; + { IsrvComisiones } + IsrvComisiones = interface(IDataAbstractService) + ['{5614F6CD-8DA7-4C6E-87DE-950F771282C7}'] + end; + + { CosrvComisiones } + CosrvComisiones = class + class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvComisiones; + end; + + { TsrvComisiones_Proxy } + TsrvComisiones_Proxy = class(TDataAbstractService_Proxy, IsrvComisiones) + protected + function __GetInterfaceName:string; override; + + end; + implementation uses @@ -2623,6 +2642,18 @@ begin end end; +{ CosrvComisiones } + +class function CosrvComisiones.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvComisiones; +begin + result := TsrvComisiones_Proxy.Create(aMessage, aTransportChannel); +end; + +function TsrvComisiones_Proxy.__GetInterfaceName:string; +begin + result := 'srvComisiones'; +end; + initialization RegisterROClass(TRdxLoginInfo); RegisterROClass(TRdxEmpresasArray); @@ -2657,6 +2688,7 @@ initialization RegisterProxyClass(IsrvGestorDocumentos_IID, TsrvGestorDocumentos_Proxy); RegisterProxyClass(IsrvGestorInformes_IID, TsrvGestorInformes_Proxy); RegisterProxyClass(IsrvPedidosCliente_IID, TsrvPedidosCliente_Proxy); + RegisterProxyClass(IsrvComisiones_IID, TsrvComisiones_Proxy); RegisterEnumMapping(TROEnumMapping.Create('ColumnSortDirection', 'Ascending', 'Ascending')); RegisterEnumMapping(TROEnumMapping.Create('ColumnSortDirection', 'Descending', 'Descending')); @@ -2696,6 +2728,7 @@ finalization UnregisterProxyClass(IsrvGestorDocumentos_IID); UnregisterProxyClass(IsrvGestorInformes_IID); UnregisterProxyClass(IsrvPedidosCliente_IID); + UnregisterProxyClass(IsrvComisiones_IID); UnRegisterEnumMappings(); diff --git a/Source/Servicios/FactuGES_Invk.pas b/Source/Servicios/FactuGES_Invk.pas index 7e8e4ac..bcc20e4 100644 --- a/Source/Servicios/FactuGES_Invk.pas +++ b/Source/Servicios/FactuGES_Invk.pas @@ -313,6 +313,14 @@ type procedure Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); end; + TsrvComisiones_Invoker = class(TDataAbstractService_Invoker) + private + protected + public + constructor Create; override; + published + end; + implementation uses @@ -2197,5 +2205,13 @@ begin end; end; +{ TsrvComisiones_Invoker } + +constructor TsrvComisiones_Invoker.Create; +begin + inherited Create; + FAbstract := False; +end; + initialization end. diff --git a/Source/Servicios/RODLFILE.res b/Source/Servicios/RODLFILE.res index 1539bc3..266c089 100644 Binary files a/Source/Servicios/RODLFILE.res and b/Source/Servicios/RODLFILE.res differ diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index 06a522b..fe7ac13 100644 Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr index 6c80d00..fef7a49 100644 --- a/Source/Servidor/FactuGES_Server.dpr +++ b/Source/Servidor/FactuGES_Server.dpr @@ -3,6 +3,7 @@ program FactuGES_Server; {#ROGEN:..\Servicios\FactuGES.rodl} // RemObjects: Careful, do not remove! uses + ExceptionLog, uROComInit, uROComboService, Forms, @@ -127,10 +128,6 @@ uses uBizVendedoresServer in '..\Modulos\Contactos\Model\uBizVendedoresServer.pas', schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas', schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas', - schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas', - schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas', - schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas', - schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas', schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas', schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas', uRptRemesasCliente_Server in '..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas' {RptRemesasCliente: TDataModule}, @@ -142,7 +139,15 @@ uses schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas', schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas', schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas', - schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas'; + schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas', + schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas', + schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas', + schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas', + schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas', + srvComisiones_Impl in '..\Modulos\Comisiones\Servidor\srvComisiones_Impl.pas' {srvComisiones: TDataAbstractService}, + uBizComisionesServer in '..\Modulos\Comisiones\Model\uBizComisionesServer.pas', + schComisionesClient_Intf in '..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas', + schComisionesServer_Intf in '..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas'; {$R *.res} {$R ..\Servicios\RODLFile.res} diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index c9bb9cd..3669638 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -1,347 +1,354 @@ - + - - {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} - FactuGES_Server.dpr - Debug - AnyCPU - DCC32 - ..\..\Output\Debug\Servidor\FactuGES_Server.exe - vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d11;SpTBXLib_d11;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxExportD10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100 - - - 7.0 - False - False - 0 - 3 - ..\..\Output\Release\Servidor - RELEASE - - - 7.0 - 3 - ..\..\Output\Debug\Servidor - DEBUG;EUREKALOG;EUREKALOG_VER6 - True - True - True - $(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug - $(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug - $(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug - $(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug - - - Delphi.Personality - - - FalseTrueFalse/standaloneTrueFalse1030FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.0.3.0FactuGES ServidorFactuGES Servidor1.0.3.0lunes, 19 de abril de 2010 17:17FactuGES_Server.dpr - - - - - MainSource - - - - - -
srvEmpresas
- TDARemoteService - - -
srvProvinciasPoblaciones_Impl
- TDataModule - - - - -
srvUsuarios
- TDataAbstractService - - - - - - - - -
RptAlbaranesCliente
- TDataModule - - -
RptWordAlbaranCliente
- TDataModule - - -
srvAlbaranesCliente
- TDataAbstractService - - - - - -
RptAlbaranesProveedor
- TDataModule - - -
RptWordAlbaranProveedor
- TDataModule - - -
srvAlbaranesProveedor
- TDataAbstractService - - - - -
srvAlmacenes
- TDARemoteService - - - - - -
srvArticulos
- TDARemoteService - - - - - - - - - -
RptEtiquetasContacto
- TDataModule - - -
RptFichasEmpleado
- TDataModule - - -
srvContactos
- TDARemoteService - - - - -
srvFabricantes
- TDataAbstractService - - - - - -
RptFacturasCliente
- TDataModule - - -
RptWordFacturaCliente
- TDataModule - - -
srvFacturasCliente
- TDataAbstractService - - - - - -
RptFacturasProveedor
- TDataModule - - -
srvFacturasProveedor
- TDataAbstractService - - - - -
srvFamilias
- TDataAbstractService - - - - -
srvFormasPago
- TDataAbstractService - - -
srvGestorDocumentos
- TDataAbstractService - - -
srvGestorInformes
- TDataAbstractService - - - - -
srvHistoricoMovimientos
- TDataAbstractService - - - - -
srvInventario
- TDataAbstractService - - - - - -
srvObras
- TDataAbstractService - - - - - -
RptPedidosProveedor
- TDataModule - - -
RptWordPedidoProveedor
- TDataModule - - -
srvPedidosProveedor
- TDataAbstractService - - - - - -
RptPedidosCliente
- - -
srvPedidosCliente
- TDataAbstractService - - - - - -
RptPresupuestosCliente
- TDataModule - - -
RptWordCertificadoTrabajo
- TDataModule - - -
RptWordPresupuestoCliente
- TDataModule - - -
srvPresupuestosCliente
- TDataAbstractService - - - - -
RptRecibosCliente
- TDataModule - - -
srvRecibosCliente
- TDataAbstractService - - - - -
RptRecibosProveedor
- TDataModule - - -
srvRecibosProveedor
- TDataAbstractService - - - - -
srvReferencias
- TDataAbstractService - - - - - -
RptRemesasCliente
- TDataModule - - -
srvRemesasCliente
- TDataAbstractService - - - - - -
srvRemesasProveedor
- TDataAbstractService - - - - -
srvTiposIVA
- TDataAbstractService - - - - -
srvUnidadesMedida
- TDataAbstractService - - - - -
srvConfiguracion
- TDataAbstractService - - -
frConexionBD
- TFrame - - -
frConfGeneral
- TFrame - - -
fConfiguracion
- TForm - - -
FrameConfiguracion
- TFrame - - -
srvLogin
- TDARemoteService - - -
fAcercaDe
- - -
dmServer
- TDataModule - - -
fServerForm
- - - - - - - - - - - - + + {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} + FactuGES_Server.dpr + Debug + AnyCPU + DCC32 + ..\..\Output\Debug\Servidor\FactuGES_Server.exe + vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d11;SpTBXLib_d11;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxExportD10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100 + + + 7.0 + False + False + 0 + 3 + ..\..\Output\Release\Servidor + RELEASE + + + 7.0 + 3 + ..\..\Output\Debug\Servidor + DEBUG;EUREKALOG;EUREKALOG_VER6 + True + True + True + $(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug + $(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug + $(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug + $(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug + + + Delphi.Personality + + +FalseTrueFalse/standaloneTrueFalse1040FalseFalseFalseFalseFalse30821252Rodax Software S.L.1.0.4.0FactuGES ServidorFactuGES Servidor1.0.4.0viernes, 30 de abril de 2010 13:40FactuGES_Server.dpr + + + + + MainSource + + + + + +
srvEmpresas
+ TDARemoteService + + +
srvProvinciasPoblaciones_Impl
+ TDataModule + + + + +
srvUsuarios
+ TDataAbstractService + + + + + + + + +
RptAlbaranesCliente
+ TDataModule + + +
RptWordAlbaranCliente
+ TDataModule + + +
srvAlbaranesCliente
+ TDataAbstractService + + + + + +
RptAlbaranesProveedor
+ TDataModule + + +
RptWordAlbaranProveedor
+ TDataModule + + +
srvAlbaranesProveedor
+ TDataAbstractService + + + + +
srvAlmacenes
+ TDARemoteService + + + + + +
srvArticulos
+ TDARemoteService + + + + + +
srvComisiones
+ TDataAbstractService + + + + + + + + + +
RptEtiquetasContacto
+ TDataModule + + +
RptFichasEmpleado
+ TDataModule + + +
srvContactos
+ TDARemoteService + + + + +
srvFabricantes
+ TDataAbstractService + + + + + +
RptFacturasCliente
+ TDataModule + + +
RptWordFacturaCliente
+ TDataModule + + +
srvFacturasCliente
+ TDataAbstractService + + + + + +
RptFacturasProveedor
+ TDataModule + + +
srvFacturasProveedor
+ TDataAbstractService + + + + +
srvFamilias
+ TDataAbstractService + + + + +
srvFormasPago
+ TDataAbstractService + + +
srvGestorDocumentos
+ TDataAbstractService + + +
srvGestorInformes
+ TDataAbstractService + + + + +
srvHistoricoMovimientos
+ TDataAbstractService + + + + +
srvInventario
+ TDataAbstractService + + + + + +
srvObras
+ TDataAbstractService + + + + + +
RptPedidosProveedor
+ TDataModule + + +
RptWordPedidoProveedor
+ TDataModule + + +
srvPedidosProveedor
+ TDataAbstractService + + + + + +
RptPedidosCliente
+ + +
srvPedidosCliente
+ TDataAbstractService + + + + + +
RptPresupuestosCliente
+ TDataModule + + +
RptWordCertificadoTrabajo
+ TDataModule + + +
RptWordPresupuestoCliente
+ TDataModule + + +
srvPresupuestosCliente
+ TDataAbstractService + + + + +
RptRecibosCliente
+ TDataModule + + +
srvRecibosCliente
+ TDataAbstractService + + + + +
RptRecibosProveedor
+ TDataModule + + +
srvRecibosProveedor
+ TDataAbstractService + + + + +
srvReferencias
+ TDataAbstractService + + + + + +
RptRemesasCliente
+ TDataModule + + +
srvRemesasCliente
+ TDataAbstractService + + + + + +
srvRemesasProveedor
+ TDataAbstractService + + + + +
srvTiposIVA
+ TDataAbstractService + + + + +
srvUnidadesMedida
+ TDataAbstractService + + + + +
srvConfiguracion
+ TDataAbstractService + + +
frConexionBD
+ TFrame + + +
frConfGeneral
+ TFrame + + +
fConfiguracion
+ TForm + + +
FrameConfiguracion
+ TFrame + + +
srvLogin
+ TDARemoteService + + +
fAcercaDe
+ + +
dmServer
+ TDataModule + + +
fServerForm
+ + + + + + + + + + + +