Primera adaptacion de albaranes de cliente
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@10 f33bb606-9f5c-448d-9c99-757f00063c96
This commit is contained in:
parent
5c11095e87
commit
636b736c6e
@ -82,6 +82,9 @@ VARCHAR(30);
|
|||||||
CREATE GENERATOR GEN_ALBARANES_CLI_DETALLES_ID;
|
CREATE GENERATOR GEN_ALBARANES_CLI_DETALLES_ID;
|
||||||
SET GENERATOR GEN_ALBARANES_CLI_DETALLES_ID TO 1;
|
SET GENERATOR GEN_ALBARANES_CLI_DETALLES_ID TO 1;
|
||||||
|
|
||||||
|
CREATE GENERATOR GEN_ALBARANES_CLI_DET_COLOR_ID;
|
||||||
|
SET GENERATOR GEN_ALBARANES_CLI_DET_COLOR_ID TO 1;
|
||||||
|
|
||||||
CREATE GENERATOR GEN_ALBARANES_CLI_ID;
|
CREATE GENERATOR GEN_ALBARANES_CLI_ID;
|
||||||
SET GENERATOR GEN_ALBARANES_CLI_ID TO 1;
|
SET GENERATOR GEN_ALBARANES_CLI_ID TO 1;
|
||||||
|
|
||||||
@ -310,6 +313,23 @@ CREATE TABLE ALBARANES_CLIENTE_DETALLES (
|
|||||||
ID_PEDIDO TIPO_ID
|
ID_PEDIDO TIPO_ID
|
||||||
);
|
);
|
||||||
|
|
||||||
|
CREATE TABLE ALBARANES_CLIENTE_DETALLE_COLOR (
|
||||||
|
ID TIPO_ID NOT NULL,
|
||||||
|
ID_DETALLE TIPO_ID NOT NULL,
|
||||||
|
COLOR1 INTEGER Default 0,
|
||||||
|
COLOR2 INTEGER Default 0,
|
||||||
|
COLOR3 INTEGER Default 0,
|
||||||
|
COLOR4 INTEGER Default 0,
|
||||||
|
COLOR5 INTEGER Default 0,
|
||||||
|
COLOR6 INTEGER Default 0,
|
||||||
|
COLOR7 INTEGER Default 0,
|
||||||
|
COLOR8 INTEGER Default 0,
|
||||||
|
COLOR9 INTEGER Default 0,
|
||||||
|
COLOR10 INTEGER Default 0,
|
||||||
|
COLOR11 INTEGER Default 0,
|
||||||
|
COLOR12 INTEGER Default 0
|
||||||
|
);
|
||||||
|
|
||||||
CREATE TABLE ALBARANES_PROVEEDOR (
|
CREATE TABLE ALBARANES_PROVEEDOR (
|
||||||
ID TIPO_ID NOT NULL,
|
ID TIPO_ID NOT NULL,
|
||||||
ID_EMPRESA TIPO_ID,
|
ID_EMPRESA TIPO_ID,
|
||||||
@ -405,7 +425,11 @@ CREATE TABLE ARTICULOS (
|
|||||||
PARAM_MARGEN FLOAT,
|
PARAM_MARGEN FLOAT,
|
||||||
TIEMPO INTEGER,
|
TIEMPO INTEGER,
|
||||||
PARAM_TIEMPO FLOAT,
|
PARAM_TIEMPO FLOAT,
|
||||||
MANO_OBRA TIPO_IMPORTE
|
MANO_OBRA TIPO_IMPORTE,
|
||||||
|
PRECIO NUMERIC(11,2) Default 0,
|
||||||
|
CAMPOTECNICO VARCHAR(200),
|
||||||
|
CODIGOTECNICO VARCHAR(15),
|
||||||
|
DISENOTECNICO VARCHAR(6)
|
||||||
);
|
);
|
||||||
|
|
||||||
CREATE TABLE ARTICULOS_PROVEEDORES (
|
CREATE TABLE ARTICULOS_PROVEEDORES (
|
||||||
@ -1624,7 +1648,13 @@ CREATE VIEW V_ARTICULOS_PARA_VENTA(
|
|||||||
TIEMPO,
|
TIEMPO,
|
||||||
PARAM_TIEMPO,
|
PARAM_TIEMPO,
|
||||||
MANO_OBRA,
|
MANO_OBRA,
|
||||||
PRECIO_PVP_TOTAL)
|
PRECIO_PVP_TOTAL,
|
||||||
|
|
||||||
|
CAMPOTECNICO,
|
||||||
|
CODIGOTECNICO,
|
||||||
|
DISENOTECNICO,
|
||||||
|
PRECIO
|
||||||
|
)
|
||||||
AS
|
AS
|
||||||
SELECT ARTICULOS.ID, ARTICULOS.ID_EMPRESA, ARTICULOS.REFERENCIA, ARTICULOS.DESCRIPCION,
|
SELECT ARTICULOS.ID, ARTICULOS.ID_EMPRESA, ARTICULOS.REFERENCIA, ARTICULOS.DESCRIPCION,
|
||||||
ARTICULOS.UNIDAD_MEDIDA, ARTICULOS.FAMILIA, ARTICULOS.IMAGEN,
|
ARTICULOS.UNIDAD_MEDIDA, ARTICULOS.FAMILIA, ARTICULOS.IMAGEN,
|
||||||
@ -1647,7 +1677,12 @@ SELECT ARTICULOS.ID, ARTICULOS.ID_EMPRESA, ARTICULOS.REFERENCIA, ARTICULOS.DESCR
|
|||||||
ARTICULOS.TIEMPO,
|
ARTICULOS.TIEMPO,
|
||||||
ARTICULOS.PARAM_TIEMPO,
|
ARTICULOS.PARAM_TIEMPO,
|
||||||
ARTICULOS.MANO_OBRA,
|
ARTICULOS.MANO_OBRA,
|
||||||
V_ARTICULOS_PVP_MAX.PRECIO_PVP_TOTAL
|
V_ARTICULOS_PVP_MAX.PRECIO_PVP_TOTAL,
|
||||||
|
|
||||||
|
ARTICULOS.CAMPOTECNICO,
|
||||||
|
ARTICULOS.CODIGOTECNICO,
|
||||||
|
ARTICULOS.DISENOTECNICO,
|
||||||
|
ARTICULOS.PRECIO
|
||||||
|
|
||||||
FROM ARTICULOS
|
FROM ARTICULOS
|
||||||
LEFT OUTER JOIN V_ARTICULOS_PVP_MAX ON (V_ARTICULOS_PVP_MAX.ID_ARTICULO = ARTICULOS.ID)
|
LEFT OUTER JOIN V_ARTICULOS_PVP_MAX ON (V_ARTICULOS_PVP_MAX.ID_ARTICULO = ARTICULOS.ID)
|
||||||
@ -3514,6 +3549,7 @@ GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17
|
|||||||
|
|
||||||
ALTER TABLE ALBARANES_CLIENTE ADD CONSTRAINT PK_ALBARAN_CLIENTE PRIMARY KEY (ID);
|
ALTER TABLE ALBARANES_CLIENTE ADD CONSTRAINT PK_ALBARAN_CLIENTE PRIMARY KEY (ID);
|
||||||
ALTER TABLE ALBARANES_CLIENTE_DETALLES ADD CONSTRAINT PK_ALBARANES_CLIENTE_DETALLES PRIMARY KEY (ID);
|
ALTER TABLE ALBARANES_CLIENTE_DETALLES ADD CONSTRAINT PK_ALBARANES_CLIENTE_DETALLES PRIMARY KEY (ID);
|
||||||
|
ALTER TABLE ALBARANES_CLIENTE_DETALLE_COLOR ADD CONSTRAINT PK_ALBARANES_CLIENTE_DETALLE_CO PRIMARY KEY (ID);
|
||||||
ALTER TABLE ALBARANES_PROVEEDOR ADD CONSTRAINT PK_ALBARAN_PROVEEDOR PRIMARY KEY (ID);
|
ALTER TABLE ALBARANES_PROVEEDOR ADD CONSTRAINT PK_ALBARAN_PROVEEDOR PRIMARY KEY (ID);
|
||||||
ALTER TABLE ALBARANES_PROVEEDOR_DETALLES ADD CONSTRAINT PK_ALBARANES_PROVEEDOR_DETALLES PRIMARY KEY (ID);
|
ALTER TABLE ALBARANES_PROVEEDOR_DETALLES ADD CONSTRAINT PK_ALBARANES_PROVEEDOR_DETALLES PRIMARY KEY (ID);
|
||||||
ALTER TABLE ALMACENES ADD CONSTRAINT PK_ALMACENES PRIMARY KEY (ID);
|
ALTER TABLE ALMACENES ADD CONSTRAINT PK_ALMACENES PRIMARY KEY (ID);
|
||||||
|
|||||||
Binary file not shown.
Binary file not shown.
@ -1,7 +1,7 @@
|
|||||||
MAINICON ICON "C:\Codigo Noviseda\Resources\Iconos\Factuges.ico"
|
MAINICON ICON "C:\Codigo Noviseda\Resources\Iconos\Factuges.ico"
|
||||||
1 VERSIONINFO
|
1 VERSIONINFO
|
||||||
FILEVERSION 1,7,8,0
|
FILEVERSION 2,0,0,0
|
||||||
PRODUCTVERSION 1,7,8,0
|
PRODUCTVERSION 2,0,0,0
|
||||||
FILEFLAGSMASK 0x3FL
|
FILEFLAGSMASK 0x3FL
|
||||||
FILEFLAGS 0x00L
|
FILEFLAGS 0x00L
|
||||||
FILEOS 0x40004L
|
FILEOS 0x40004L
|
||||||
@ -13,10 +13,10 @@ BEGIN
|
|||||||
BLOCK "0C0A04E4"
|
BLOCK "0C0A04E4"
|
||||||
BEGIN
|
BEGIN
|
||||||
VALUE "CompanyName", "Rodax Software S.L.\0"
|
VALUE "CompanyName", "Rodax Software S.L.\0"
|
||||||
VALUE "FileVersion", "1.7.8.0\0"
|
VALUE "FileVersion", "2.0.0.0\0"
|
||||||
VALUE "InternalName", "FactuGES\0"
|
VALUE "InternalName", "FactuGES\0"
|
||||||
VALUE "ProductName", "FactuGES\0"
|
VALUE "ProductName", "FactuGES\0"
|
||||||
VALUE "ProductVersion", "1.7.8.0\0"
|
VALUE "ProductVersion", "2.0.0.0\0"
|
||||||
END
|
END
|
||||||
END
|
END
|
||||||
BLOCK "VarFileInfo"
|
BLOCK "VarFileInfo"
|
||||||
|
|||||||
Binary file not shown.
@ -23,7 +23,7 @@ begin
|
|||||||
LoadModule('Referencias_plugin.bpl');
|
LoadModule('Referencias_plugin.bpl');
|
||||||
LoadModule('FormasPago_plugin.bpl');
|
LoadModule('FormasPago_plugin.bpl');
|
||||||
LoadModule('TiposIVA_plugin.bpl');
|
LoadModule('TiposIVA_plugin.bpl');
|
||||||
LoadModule('Familias_plugin.bpl');
|
// LoadModule('Familias_plugin.bpl');
|
||||||
// LoadModule('Fabricantes_plugin.bpl');
|
// LoadModule('Fabricantes_plugin.bpl');
|
||||||
// LoadModule('UnidadesMedida_plugin.bpl');
|
// LoadModule('UnidadesMedida_plugin.bpl');
|
||||||
|
|
||||||
@ -34,7 +34,7 @@ begin
|
|||||||
LoadModule('Articulos_plugin.bpl');
|
LoadModule('Articulos_plugin.bpl');
|
||||||
|
|
||||||
// LoadModule(MODULENAME_PRESUPUESTOS_CLIENTE);
|
// LoadModule(MODULENAME_PRESUPUESTOS_CLIENTE);
|
||||||
// LoadModule(MODULENAME_ALBARANES_CLIENTE);
|
LoadModule(MODULENAME_ALBARANES_CLIENTE);
|
||||||
|
|
||||||
// LoadModule('RecibosCliente_plugin.bpl');
|
// LoadModule('RecibosCliente_plugin.bpl');
|
||||||
// LoadModule(MODULENAME_FACTURAS_CLIENTE);
|
// LoadModule(MODULENAME_FACTURAS_CLIENTE);
|
||||||
@ -48,8 +48,8 @@ begin
|
|||||||
// LoadModule('RemesasCliente_plugin.bpl');
|
// LoadModule('RemesasCliente_plugin.bpl');
|
||||||
// LoadModule('RemesasProveedor_plugin.bpl');
|
// LoadModule('RemesasProveedor_plugin.bpl');
|
||||||
|
|
||||||
// LoadModule('Inventario_plugin.bpl');
|
LoadModule('Inventario_plugin.bpl');
|
||||||
// LoadModule('HistoricoMovimientos_plugin.bpl');
|
LoadModule('HistoricoMovimientos_plugin.bpl');
|
||||||
|
|
||||||
// LoadModule('GestorInformes_plugin.bpl');
|
// LoadModule('GestorInformes_plugin.bpl');
|
||||||
end;
|
end;
|
||||||
|
|||||||
@ -76,6 +76,7 @@ contains
|
|||||||
uViewGrid in 'uViewGrid.pas' {frViewGrid: TFrame},
|
uViewGrid in 'uViewGrid.pas' {frViewGrid: TFrame},
|
||||||
uViewRichEditor in 'uViewRichEditor.pas' {frViewRichEditor: TCustomView},
|
uViewRichEditor in 'uViewRichEditor.pas' {frViewRichEditor: TCustomView},
|
||||||
uDialogElegirEMail in 'uDialogElegirEMail.pas' {fDialogElegirEMail},
|
uDialogElegirEMail in 'uDialogElegirEMail.pas' {fDialogElegirEMail},
|
||||||
uViewDocumentos in 'uViewDocumentos.pas' {frViewDocumentos: TCustomView};
|
uViewDocumentos in 'uViewDocumentos.pas' {frViewDocumentos: TCustomView},
|
||||||
|
uEditorColores in 'uEditorColores.pas' {frEditorColores};
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|||||||
@ -59,30 +59,30 @@
|
|||||||
<DelphiCompile Include="GUIBase.dpk">
|
<DelphiCompile Include="GUIBase.dpk">
|
||||||
<MainSource>MainSource</MainSource>
|
<MainSource>MainSource</MainSource>
|
||||||
</DelphiCompile>
|
</DelphiCompile>
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
|
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\Base.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
|
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\cxLibraryD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxTreeListD11.dcp" />
|
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\cxTreeListD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\dbrtl.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxBarD11.dcp" />
|
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\dxBarD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxBarExtItemsD11.dcp" />
|
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\dxBarExtItemsD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxComnD11.dcp" />
|
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\dxComnD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
|
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\dxGDIPlusD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
|
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\dxLayoutControlD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
|
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\dxPSCoreD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
|
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\dxPScxCommonD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
|
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\dxPScxGrid6LnkD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPsPrVwAdvD11.dcp" />
|
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\dxPsPrVwAdvD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
|
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\dxThemeD11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" />
|
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\frx11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" />
|
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\frxe11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" />
|
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\fs11.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
|
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\JvAppFrmD11R.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
|
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\JvCtrlsD11R.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\rtl.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\vcl.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
|
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\vcldb.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
|
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\vcljpg.dcp" />
|
||||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
|
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\vclx.dcp" />
|
||||||
<DCCReference Include="uDialogBase.pas">
|
<DCCReference Include="uDialogBase.pas">
|
||||||
<Form>fDialogBase</Form>
|
<Form>fDialogBase</Form>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
@ -96,6 +96,9 @@
|
|||||||
<DCCReference Include="uEditorBasico.pas">
|
<DCCReference Include="uEditorBasico.pas">
|
||||||
<Form>fEditorBasico</Form>
|
<Form>fEditorBasico</Form>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
|
<DCCReference Include="uEditorColores.pas">
|
||||||
|
<Form>frEditorColores</Form>
|
||||||
|
</DCCReference>
|
||||||
<DCCReference Include="uEditorDBBase.pas">
|
<DCCReference Include="uEditorDBBase.pas">
|
||||||
<Form>fEditorDBBase</Form>
|
<Form>fEditorDBBase</Form>
|
||||||
<DesignClass>TCustomEditor</DesignClass>
|
<DesignClass>TCustomEditor</DesignClass>
|
||||||
|
|||||||
@ -37,5 +37,6 @@ END
|
|||||||
/* C:\Codigo Noviseda\Source\GUIBase\uViewRichEditor.dfm */
|
/* C:\Codigo Noviseda\Source\GUIBase\uViewRichEditor.dfm */
|
||||||
/* C:\Codigo Noviseda\Source\GUIBase\uDialogElegirEMail.dfm */
|
/* C:\Codigo Noviseda\Source\GUIBase\uDialogElegirEMail.dfm */
|
||||||
/* C:\Codigo Noviseda\Source\GUIBase\uViewDocumentos.dfm */
|
/* C:\Codigo Noviseda\Source\GUIBase\uViewDocumentos.dfm */
|
||||||
|
/* C:\Codigo Noviseda\Source\GUIBase\uEditorColores.dfm */
|
||||||
/* C:\Codigo Noviseda\Source\GUIBase\GUIBase.res */
|
/* C:\Codigo Noviseda\Source\GUIBase\GUIBase.res */
|
||||||
/* C:\Codigo Noviseda\Source\GUIBase\GUIBase.drf */
|
/* C:\Codigo Noviseda\Source\GUIBase\GUIBase.drf */
|
||||||
|
|||||||
Binary file not shown.
Binary file not shown.
439
Source/GUIBase/uEditorColores.dfm
Normal file
439
Source/GUIBase/uEditorColores.dfm
Normal file
@ -0,0 +1,439 @@
|
|||||||
|
object frEditorColores: TfrEditorColores
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Caption = 'fEditorColores'
|
||||||
|
ClientHeight = 128
|
||||||
|
ClientWidth = 771
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
OldCreateOrder = False
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 13
|
||||||
|
object dxLayoutControl1: TdxLayoutControl
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 771
|
||||||
|
Height = 128
|
||||||
|
Align = alClient
|
||||||
|
TabOrder = 0
|
||||||
|
TabStop = False
|
||||||
|
object eColor1: TcxDBTextEdit
|
||||||
|
Left = 22
|
||||||
|
Top = 46
|
||||||
|
DataBinding.DataField = 'COLOR1'
|
||||||
|
DataBinding.DataSource = dsDataTable
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
TabOrder = 0
|
||||||
|
Width = 55
|
||||||
|
end
|
||||||
|
object eColor2: TcxDBTextEdit
|
||||||
|
Left = 83
|
||||||
|
Top = 46
|
||||||
|
DataBinding.DataField = 'COLOR2'
|
||||||
|
DataBinding.DataSource = dsDataTable
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
TabOrder = 1
|
||||||
|
Width = 55
|
||||||
|
end
|
||||||
|
object eColor3: TcxDBTextEdit
|
||||||
|
Left = 144
|
||||||
|
Top = 46
|
||||||
|
DataBinding.DataField = 'COLOR3'
|
||||||
|
DataBinding.DataSource = dsDataTable
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
TabOrder = 2
|
||||||
|
Width = 55
|
||||||
|
end
|
||||||
|
object eColor4: TcxDBTextEdit
|
||||||
|
Left = 205
|
||||||
|
Top = 46
|
||||||
|
DataBinding.DataField = 'COLOR4'
|
||||||
|
DataBinding.DataSource = dsDataTable
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
TabOrder = 3
|
||||||
|
Width = 55
|
||||||
|
end
|
||||||
|
object eColor5: TcxDBTextEdit
|
||||||
|
Left = 266
|
||||||
|
Top = 46
|
||||||
|
DataBinding.DataField = 'COLOR5'
|
||||||
|
DataBinding.DataSource = dsDataTable
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
TabOrder = 4
|
||||||
|
Width = 55
|
||||||
|
end
|
||||||
|
object eColor6: TcxDBTextEdit
|
||||||
|
Left = 327
|
||||||
|
Top = 46
|
||||||
|
DataBinding.DataField = 'COLOR6'
|
||||||
|
DataBinding.DataSource = dsDataTable
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
TabOrder = 5
|
||||||
|
Width = 55
|
||||||
|
end
|
||||||
|
object eColor7: TcxDBTextEdit
|
||||||
|
Left = 388
|
||||||
|
Top = 46
|
||||||
|
DataBinding.DataField = 'COLOR7'
|
||||||
|
DataBinding.DataSource = dsDataTable
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
TabOrder = 6
|
||||||
|
Width = 55
|
||||||
|
end
|
||||||
|
object eColor8: TcxDBTextEdit
|
||||||
|
Left = 449
|
||||||
|
Top = 46
|
||||||
|
DataBinding.DataField = 'COLOR8'
|
||||||
|
DataBinding.DataSource = dsDataTable
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
TabOrder = 7
|
||||||
|
Width = 55
|
||||||
|
end
|
||||||
|
object eColor9: TcxDBTextEdit
|
||||||
|
Left = 510
|
||||||
|
Top = 46
|
||||||
|
DataBinding.DataField = 'COLOR9'
|
||||||
|
DataBinding.DataSource = dsDataTable
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
TabOrder = 8
|
||||||
|
Width = 55
|
||||||
|
end
|
||||||
|
object eColor10: TcxDBTextEdit
|
||||||
|
Left = 571
|
||||||
|
Top = 46
|
||||||
|
DataBinding.DataField = 'COLOR10'
|
||||||
|
DataBinding.DataSource = dsDataTable
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
TabOrder = 9
|
||||||
|
Width = 55
|
||||||
|
end
|
||||||
|
object eColor11: TcxDBTextEdit
|
||||||
|
Left = 632
|
||||||
|
Top = 46
|
||||||
|
DataBinding.DataField = 'COLOR11'
|
||||||
|
DataBinding.DataSource = dsDataTable
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
TabOrder = 10
|
||||||
|
Width = 55
|
||||||
|
end
|
||||||
|
object eColor12: TcxDBTextEdit
|
||||||
|
Left = 693
|
||||||
|
Top = 46
|
||||||
|
DataBinding.DataField = 'COLOR12'
|
||||||
|
DataBinding.DataSource = dsDataTable
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
TabOrder = 11
|
||||||
|
Width = 55
|
||||||
|
end
|
||||||
|
object bAceptar: TButton
|
||||||
|
Left = 604
|
||||||
|
Top = 85
|
||||||
|
Width = 75
|
||||||
|
Height = 25
|
||||||
|
Align = alRight
|
||||||
|
Caption = 'Aceptar'
|
||||||
|
ModalResult = 1
|
||||||
|
TabOrder = 12
|
||||||
|
end
|
||||||
|
object bCancelar: TButton
|
||||||
|
Left = 685
|
||||||
|
Top = 85
|
||||||
|
Width = 75
|
||||||
|
Height = 25
|
||||||
|
Align = alRight
|
||||||
|
Cancel = True
|
||||||
|
Caption = 'Cancelar'
|
||||||
|
ModalResult = 2
|
||||||
|
TabOrder = 13
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||||
|
ShowCaption = False
|
||||||
|
Hidden = True
|
||||||
|
ShowBorder = False
|
||||||
|
object dxLayoutControl1Group1: TdxLayoutGroup
|
||||||
|
Caption = 'Colores'
|
||||||
|
LayoutDirection = ldHorizontal
|
||||||
|
object dxLayoutControl1Item1: TdxLayoutItem
|
||||||
|
Caption = 'Color 1'
|
||||||
|
CaptionOptions.AlignHorz = taCenter
|
||||||
|
CaptionOptions.Layout = clTop
|
||||||
|
Control = eColor1
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item2: TdxLayoutItem
|
||||||
|
Caption = 'Color 2'
|
||||||
|
CaptionOptions.AlignHorz = taCenter
|
||||||
|
CaptionOptions.Layout = clTop
|
||||||
|
Control = eColor2
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item3: TdxLayoutItem
|
||||||
|
Caption = 'Color 3'
|
||||||
|
CaptionOptions.AlignHorz = taCenter
|
||||||
|
CaptionOptions.Layout = clTop
|
||||||
|
Control = eColor3
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item4: TdxLayoutItem
|
||||||
|
Caption = 'Color 4'
|
||||||
|
CaptionOptions.AlignHorz = taCenter
|
||||||
|
CaptionOptions.Layout = clTop
|
||||||
|
Control = eColor4
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item5: TdxLayoutItem
|
||||||
|
Caption = 'Color 5'
|
||||||
|
CaptionOptions.AlignHorz = taCenter
|
||||||
|
CaptionOptions.Layout = clTop
|
||||||
|
Control = eColor5
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item6: TdxLayoutItem
|
||||||
|
Caption = 'Color 6'
|
||||||
|
CaptionOptions.AlignHorz = taCenter
|
||||||
|
CaptionOptions.Layout = clTop
|
||||||
|
Control = eColor6
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item7: TdxLayoutItem
|
||||||
|
Caption = 'Color 7'
|
||||||
|
CaptionOptions.AlignHorz = taCenter
|
||||||
|
CaptionOptions.Layout = clTop
|
||||||
|
Control = eColor7
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item8: TdxLayoutItem
|
||||||
|
Caption = 'Color 8'
|
||||||
|
CaptionOptions.AlignHorz = taCenter
|
||||||
|
CaptionOptions.Layout = clTop
|
||||||
|
Control = eColor8
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item9: TdxLayoutItem
|
||||||
|
Caption = 'Color 9'
|
||||||
|
CaptionOptions.AlignHorz = taCenter
|
||||||
|
CaptionOptions.Layout = clTop
|
||||||
|
Control = eColor9
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item10: TdxLayoutItem
|
||||||
|
Caption = 'Color 10'
|
||||||
|
CaptionOptions.AlignHorz = taCenter
|
||||||
|
CaptionOptions.Layout = clTop
|
||||||
|
Control = eColor10
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item11: TdxLayoutItem
|
||||||
|
Caption = 'Color 11'
|
||||||
|
CaptionOptions.AlignHorz = taCenter
|
||||||
|
CaptionOptions.Layout = clTop
|
||||||
|
Control = eColor11
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item12: TdxLayoutItem
|
||||||
|
Caption = 'Color 12'
|
||||||
|
CaptionOptions.AlignHorz = taCenter
|
||||||
|
CaptionOptions.Layout = clTop
|
||||||
|
Control = eColor12
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Group2: TdxLayoutGroup
|
||||||
|
ShowCaption = False
|
||||||
|
Hidden = True
|
||||||
|
LayoutDirection = ldHorizontal
|
||||||
|
ShowBorder = False
|
||||||
|
object dxLayoutControl1Item13: TdxLayoutItem
|
||||||
|
AutoAligns = [aaVertical]
|
||||||
|
AlignHorz = ahRight
|
||||||
|
Caption = 'Button1'
|
||||||
|
ShowCaption = False
|
||||||
|
Control = bAceptar
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControl1Item14: TdxLayoutItem
|
||||||
|
AutoAligns = [aaVertical]
|
||||||
|
AlignHorz = ahRight
|
||||||
|
Caption = 'Button2'
|
||||||
|
ShowCaption = False
|
||||||
|
Control = bCancelar
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object dsDataTable: TDADataSource
|
||||||
|
end
|
||||||
|
end
|
||||||
104
Source/GUIBase/uEditorColores.pas
Normal file
104
Source/GUIBase/uEditorColores.pas
Normal file
@ -0,0 +1,104 @@
|
|||||||
|
unit uEditorColores;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, dxLayoutControl, cxControls, DB, uDAInterfaces, uDADataTable,
|
||||||
|
cxContainer, cxEdit, cxTextEdit, cxDBEdit, StdCtrls;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfrEditorColores = class(TForm)
|
||||||
|
dxLayoutControl1Group_Root: TdxLayoutGroup;
|
||||||
|
dxLayoutControl1: TdxLayoutControl;
|
||||||
|
dxLayoutControl1Item1: TdxLayoutItem;
|
||||||
|
eColor1: TcxDBTextEdit;
|
||||||
|
dsDataTable: TDADataSource;
|
||||||
|
dxLayoutControl1Group1: TdxLayoutGroup;
|
||||||
|
dxLayoutControl1Item2: TdxLayoutItem;
|
||||||
|
eColor2: TcxDBTextEdit;
|
||||||
|
dxLayoutControl1Item3: TdxLayoutItem;
|
||||||
|
eColor3: TcxDBTextEdit;
|
||||||
|
dxLayoutControl1Item4: TdxLayoutItem;
|
||||||
|
eColor4: TcxDBTextEdit;
|
||||||
|
dxLayoutControl1Item5: TdxLayoutItem;
|
||||||
|
eColor5: TcxDBTextEdit;
|
||||||
|
dxLayoutControl1Item6: TdxLayoutItem;
|
||||||
|
eColor6: TcxDBTextEdit;
|
||||||
|
dxLayoutControl1Item7: TdxLayoutItem;
|
||||||
|
eColor7: TcxDBTextEdit;
|
||||||
|
dxLayoutControl1Item8: TdxLayoutItem;
|
||||||
|
eColor8: TcxDBTextEdit;
|
||||||
|
dxLayoutControl1Item9: TdxLayoutItem;
|
||||||
|
eColor9: TcxDBTextEdit;
|
||||||
|
dxLayoutControl1Item10: TdxLayoutItem;
|
||||||
|
eColor10: TcxDBTextEdit;
|
||||||
|
dxLayoutControl1Item11: TdxLayoutItem;
|
||||||
|
eColor11: TcxDBTextEdit;
|
||||||
|
dxLayoutControl1Item12: TdxLayoutItem;
|
||||||
|
eColor12: TcxDBTextEdit;
|
||||||
|
bAceptar: TButton;
|
||||||
|
dxLayoutControl1Item13: TdxLayoutItem;
|
||||||
|
bCancelar: TButton;
|
||||||
|
dxLayoutControl1Item14: TdxLayoutItem;
|
||||||
|
dxLayoutControl1Group2: TdxLayoutGroup;
|
||||||
|
private
|
||||||
|
{ Private declarations }
|
||||||
|
public
|
||||||
|
function GetTotal: Double;
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
frEditorColores: TfrEditorColores;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
{ TfrEditorColores }
|
||||||
|
|
||||||
|
function TfrEditorColores.GetTotal: Double;
|
||||||
|
var
|
||||||
|
Total: Double;
|
||||||
|
begin
|
||||||
|
Total := 0;
|
||||||
|
if not VarIsNull(eColor1.EditValue) then
|
||||||
|
Total := Total + eColor1.EditValue;
|
||||||
|
|
||||||
|
if not VarIsNull(eColor2.EditValue) then
|
||||||
|
Total := Total + eColor2.EditValue;
|
||||||
|
|
||||||
|
if not VarIsNull(eColor3.EditValue) then
|
||||||
|
Total := Total + eColor3.EditValue;
|
||||||
|
|
||||||
|
if not VarIsNull(eColor4.EditValue) then
|
||||||
|
Total := Total + eColor4.EditValue;
|
||||||
|
|
||||||
|
if not VarIsNull(eColor5.EditValue) then
|
||||||
|
Total := Total + eColor5.EditValue;
|
||||||
|
|
||||||
|
if not VarIsNull(eColor6.EditValue) then
|
||||||
|
Total := Total + eColor6.EditValue;
|
||||||
|
|
||||||
|
if not VarIsNull(eColor7.EditValue) then
|
||||||
|
Total := Total + eColor7.EditValue;
|
||||||
|
|
||||||
|
if not VarIsNull(eColor8.EditValue) then
|
||||||
|
Total := Total + eColor8.EditValue;
|
||||||
|
|
||||||
|
if not VarIsNull(eColor9.EditValue) then
|
||||||
|
Total := Total + eColor9.EditValue;
|
||||||
|
|
||||||
|
if not VarIsNull(eColor10.EditValue) then
|
||||||
|
Total := Total + eColor10.EditValue;
|
||||||
|
|
||||||
|
if not VarIsNull(eColor11.EditValue) then
|
||||||
|
Total := Total + eColor11.EditValue;
|
||||||
|
|
||||||
|
if not VarIsNull(eColor12.EditValue) then
|
||||||
|
Total := Total + eColor12.EditValue;
|
||||||
|
|
||||||
|
Result := Total;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
@ -13,4 +13,4 @@ BEGIN
|
|||||||
END
|
END
|
||||||
|
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Controller\AlbaranesCliente_controller.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Controller\AlbaranesCliente_controller.res */
|
||||||
/* E:\temp\dtfAB.tmp */
|
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Controller\AlbaranesCliente_controller.drf */
|
||||||
|
|||||||
@ -13,6 +13,8 @@ type
|
|||||||
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload;
|
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload;
|
||||||
procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable);
|
procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable);
|
||||||
function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
|
function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
|
||||||
|
|
||||||
|
procedure ModificarCantidadColores(ADetalles: IDAStronglyTypedDataTable);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
TDetallesAlbaranClienteController = class(TControllerDetallesArticulos, IDetallesAlbaranClienteController)
|
TDetallesAlbaranClienteController = class(TControllerDetallesArticulos, IDetallesAlbaranClienteController)
|
||||||
@ -33,13 +35,15 @@ type
|
|||||||
public
|
public
|
||||||
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente; const ANuevaFila :Boolean = True; const ACantidad: Integer = 1); overload;
|
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente; const ANuevaFila :Boolean = True; const ACantidad: Integer = 1); overload;
|
||||||
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload;
|
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload;
|
||||||
|
|
||||||
|
procedure ModificarCantidadColores(ADetalles: IDAStronglyTypedDataTable);
|
||||||
constructor Create; override;
|
constructor Create; override;
|
||||||
destructor Destroy; override;
|
destructor Destroy; override;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
uses Dialogs, uDialogUtils, Variants, uControllerDetallesBase,
|
uses Controls, Dialogs, uDialogUtils, Variants, uControllerDetallesBase, uEditorColores,
|
||||||
uCalculosUtils, uDataModuleAlbaranesCliente, uArticulosAlbaranClienteController;
|
uCalculosUtils, uDataModuleAlbaranesCliente, uArticulosAlbaranClienteController;
|
||||||
|
|
||||||
{ TDetallesAlbaranClienteController }
|
{ TDetallesAlbaranClienteController }
|
||||||
@ -134,6 +138,31 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
procedure TDetallesAlbaranClienteController.ModificarCantidadColores(ADetalles: IDAStronglyTypedDataTable);
|
||||||
|
var
|
||||||
|
ADetallesAux: IBizDetallesAlbaranCliente;
|
||||||
|
begin
|
||||||
|
if Assigned(ADetalles) then
|
||||||
|
begin
|
||||||
|
ADetallesAux := (ADetalles as IBizDEtallesAlbaranCliente);
|
||||||
|
with TfrEditorColores.Create(NIL) do
|
||||||
|
begin
|
||||||
|
dsDataTable.DataTable := ADetallesAux.DetalleColores.DataTable;
|
||||||
|
if (showModal = mrOK) then
|
||||||
|
begin
|
||||||
|
ADetallesAux.DetalleColores.DataTable.Post;
|
||||||
|
ADetallesAux.DataTable.Edit;
|
||||||
|
ADetallesAux.CANTIDAD := GetTotal;
|
||||||
|
ADetallesAux.DataTable.post;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
ADetallesAux.DetalleColores.DataTable.Cancel;
|
||||||
|
|
||||||
|
Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TDetallesAlbaranClienteController.RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
|
procedure TDetallesAlbaranClienteController.RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
|
||||||
begin
|
begin
|
||||||
//En Tecsitel no se tiene en cuenta el descuento de cliente para el precio PVP
|
//En Tecsitel no se tiene en cuenta el descuento de cliente para el precio PVP
|
||||||
|
|||||||
@ -12,6 +12,6 @@ STRINGTABLE
|
|||||||
BEGIN
|
BEGIN
|
||||||
END
|
END
|
||||||
|
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Data\uDataModuleAlbaranesCliente.dfm */
|
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Data\uDataModuleAlbaranesCliente.DFM */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Data\AlbaranesCliente_data.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Data\AlbaranesCliente_data.res */
|
||||||
/* E:\temp\dtfA9.tmp */
|
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Data\AlbaranesCliente_data.drf */
|
||||||
|
|||||||
@ -10,12 +10,12 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
|
|||||||
Top = 16
|
Top = 16
|
||||||
end
|
end
|
||||||
object rda_AlbaranesCliente: TDARemoteDataAdapter
|
object rda_AlbaranesCliente: TDARemoteDataAdapter
|
||||||
|
DataStreamer = Bin2DataStreamer
|
||||||
GetSchemaCall.RemoteService = RORemoteService
|
GetSchemaCall.RemoteService = RORemoteService
|
||||||
GetDataCall.RemoteService = RORemoteService
|
GetDataCall.RemoteService = RORemoteService
|
||||||
UpdateDataCall.RemoteService = RORemoteService
|
UpdateDataCall.RemoteService = RORemoteService
|
||||||
GetScriptsCall.RemoteService = RORemoteService
|
GetScriptsCall.RemoteService = RORemoteService
|
||||||
RemoteService = RORemoteService
|
RemoteService = RORemoteService
|
||||||
DataStreamer = Bin2DataStreamer
|
|
||||||
Left = 43
|
Left = 43
|
||||||
Top = 151
|
Top = 151
|
||||||
end
|
end
|
||||||
@ -289,8 +289,6 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
|
|||||||
Params = <>
|
Params = <>
|
||||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||||
RemoteDataAdapter = rda_AlbaranesCliente
|
RemoteDataAdapter = rda_AlbaranesCliente
|
||||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
|
||||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
|
||||||
LogicalName = 'AlbaranesCliente'
|
LogicalName = 'AlbaranesCliente'
|
||||||
IndexDefs = <>
|
IndexDefs = <>
|
||||||
Left = 232
|
Left = 232
|
||||||
@ -408,8 +406,6 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
|
|||||||
MasterSource = ds_AlbaranesCliente
|
MasterSource = ds_AlbaranesCliente
|
||||||
MasterFields = 'ID'
|
MasterFields = 'ID'
|
||||||
DetailFields = 'ID_ALBARAN'
|
DetailFields = 'ID_ALBARAN'
|
||||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
|
||||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
|
||||||
LogicalName = 'AlbaranesCliente_Detalles'
|
LogicalName = 'AlbaranesCliente_Detalles'
|
||||||
IndexDefs = <>
|
IndexDefs = <>
|
||||||
Left = 384
|
Left = 384
|
||||||
@ -432,8 +428,6 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
|
|||||||
Params = <>
|
Params = <>
|
||||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||||
RemoteDataAdapter = rda_AlbaranesCliente
|
RemoteDataAdapter = rda_AlbaranesCliente
|
||||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
|
||||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
|
||||||
LogicalName = 'ListaAnosAlbaranes'
|
LogicalName = 'ListaAnosAlbaranes'
|
||||||
IndexDefs = <>
|
IndexDefs = <>
|
||||||
Left = 232
|
Left = 232
|
||||||
@ -445,4 +439,110 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
|
|||||||
Left = 232
|
Left = 232
|
||||||
Top = 192
|
Top = 192
|
||||||
end
|
end
|
||||||
|
object tbl_AlbaranesCliente_Detalle_Color: TDAMemDataTable
|
||||||
|
RemoteUpdatesOptions = []
|
||||||
|
Fields = <
|
||||||
|
item
|
||||||
|
Name = 'ID'
|
||||||
|
DataType = datAutoInc
|
||||||
|
GeneratorName = 'GEN_ALBARANES_CLI_DET_COLOR_ID'
|
||||||
|
DictionaryEntry = 'AlbaranesCliente_Detalle_Color_ID'
|
||||||
|
InPrimaryKey = True
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_DETALLE'
|
||||||
|
DataType = datInteger
|
||||||
|
DisplayLabel = 'AlbaranesCliente_Detalle_Color_ID_DETALLE'
|
||||||
|
DictionaryEntry = 'AlbaranesCliente_Detalle_Color_ID_DETALLE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR1'
|
||||||
|
DataType = datInteger
|
||||||
|
DisplayLabel = 'AlbaranesCliente_Detalle_Color_COLOR1'
|
||||||
|
DictionaryEntry = 'AlbaranesCliente_Detalle_Color_COLOR1'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR2'
|
||||||
|
DataType = datInteger
|
||||||
|
DisplayLabel = 'AlbaranesCliente_Detalle_Color_COLOR2'
|
||||||
|
DictionaryEntry = 'AlbaranesCliente_Detalle_Color_COLOR2'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR3'
|
||||||
|
DataType = datInteger
|
||||||
|
DisplayLabel = 'AlbaranesCliente_Detalle_Color_COLOR3'
|
||||||
|
DictionaryEntry = 'AlbaranesCliente_Detalle_Color_COLOR3'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR4'
|
||||||
|
DataType = datInteger
|
||||||
|
DisplayLabel = 'AlbaranesCliente_Detalle_Color_COLOR4'
|
||||||
|
DictionaryEntry = 'AlbaranesCliente_Detalle_Color_COLOR4'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR5'
|
||||||
|
DataType = datInteger
|
||||||
|
DisplayLabel = 'AlbaranesCliente_Detalle_Color_COLOR5'
|
||||||
|
DictionaryEntry = 'AlbaranesCliente_Detalle_Color_COLOR5'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR6'
|
||||||
|
DataType = datInteger
|
||||||
|
DisplayLabel = 'AlbaranesCliente_Detalle_Color_COLOR6'
|
||||||
|
DictionaryEntry = 'AlbaranesCliente_Detalle_Color_COLOR6'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR7'
|
||||||
|
DataType = datInteger
|
||||||
|
DisplayLabel = 'AlbaranesCliente_Detalle_Color_COLOR7'
|
||||||
|
DictionaryEntry = 'AlbaranesCliente_Detalle_Color_COLOR7'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR8'
|
||||||
|
DataType = datInteger
|
||||||
|
DisplayLabel = 'AlbaranesCliente_Detalle_Color_COLOR8'
|
||||||
|
DictionaryEntry = 'AlbaranesCliente_Detalle_Color_COLOR8'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR9'
|
||||||
|
DataType = datInteger
|
||||||
|
DisplayLabel = 'AlbaranesCliente_Detalle_Color_COLOR9'
|
||||||
|
DictionaryEntry = 'AlbaranesCliente_Detalle_Color_COLOR9'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR10'
|
||||||
|
DataType = datInteger
|
||||||
|
DisplayLabel = 'AlbaranesCliente_Detalle_Color_COLOR10'
|
||||||
|
DictionaryEntry = 'AlbaranesCliente_Detalle_Color_COLOR10'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR11'
|
||||||
|
DataType = datInteger
|
||||||
|
DisplayLabel = 'AlbaranesCliente_Detalle_Color_COLOR11'
|
||||||
|
DictionaryEntry = 'AlbaranesCliente_Detalle_Color_COLOR11'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR12'
|
||||||
|
DataType = datInteger
|
||||||
|
DisplayLabel = 'AlbaranesCliente_Detalle_Color_COLOR12'
|
||||||
|
DictionaryEntry = 'AlbaranesCliente_Detalle_Color_COLOR12'
|
||||||
|
end>
|
||||||
|
Params = <>
|
||||||
|
MasterMappingMode = mmWhere
|
||||||
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||||
|
RemoteDataAdapter = rda_AlbaranesCliente
|
||||||
|
MasterSource = ds_AlbaranesCliente_Detalles
|
||||||
|
MasterFields = 'ID'
|
||||||
|
DetailFields = 'ID_DETALLE'
|
||||||
|
LogicalName = 'AlbaranesCliente_Detalle_Color'
|
||||||
|
IndexDefs = <>
|
||||||
|
Left = 384
|
||||||
|
Top = 248
|
||||||
|
end
|
||||||
|
object ds_AlbaranesCliente_Detalle_Color: TDADataSource
|
||||||
|
DataSet = tbl_AlbaranesCliente_Detalle_Color.Dataset
|
||||||
|
DataTable = tbl_AlbaranesCliente_Detalle_Color
|
||||||
|
Left = 384
|
||||||
|
Top = 192
|
||||||
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -7,7 +7,7 @@ uses
|
|||||||
uRORemoteService, uROClient, uROBinMessage, uDAScriptingProvider,
|
uRORemoteService, uROClient, uROBinMessage, uDAScriptingProvider,
|
||||||
uDACDSDataTable, uROWinInetHttpChannel, uDADataTable, uDABINAdapter,
|
uDACDSDataTable, uROWinInetHttpChannel, uDADataTable, uDABINAdapter,
|
||||||
|
|
||||||
uIDataModuleAlbaranesCliente, uBizAlbaranesCliente, uBizDetallesAlbaranCliente,
|
uIDataModuleAlbaranesCliente, uBizAlbaranesCliente, uBizDetallesAlbaranCliente, uBizDetalleColoresAlbaranCliente,
|
||||||
uIDataModuleAlbaranesClienteReport, uDataModuleBase, uDABin2DataStreamer, uDAMemDataTable,
|
uIDataModuleAlbaranesClienteReport, uDataModuleBase, uDABin2DataStreamer, uDAMemDataTable,
|
||||||
uDAInterfaces, uDADataStreamer, uDARemoteDataAdapter, uIntegerListUtils;
|
uDAInterfaces, uDADataStreamer, uDARemoteDataAdapter, uIntegerListUtils;
|
||||||
|
|
||||||
@ -22,10 +22,13 @@ type
|
|||||||
ds_AlbaranesCliente_Detalles: TDADataSource;
|
ds_AlbaranesCliente_Detalles: TDADataSource;
|
||||||
tbl_ListaAnosAlbaranes: TDAMemDataTable;
|
tbl_ListaAnosAlbaranes: TDAMemDataTable;
|
||||||
ds_ListaAnosAlbaranes: TDADataSource;
|
ds_ListaAnosAlbaranes: TDADataSource;
|
||||||
|
tbl_AlbaranesCliente_Detalle_Color: TDAMemDataTable;
|
||||||
|
ds_AlbaranesCliente_Detalle_Color: TDADataSource;
|
||||||
procedure DAClientDataModuleCreate(Sender: TObject);
|
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||||
|
|
||||||
private
|
private
|
||||||
function _GetDetalles : IBizDetallesAlbaranCliente;
|
function _GetDetalles : IBizDetallesAlbaranCliente;
|
||||||
|
function _GetDetalleColores : IBizDetalleColoresAlbaranCliente;
|
||||||
|
|
||||||
protected
|
protected
|
||||||
procedure AsignarClaseNegocio(AAlbaran: TDADataTable); virtual;
|
procedure AsignarClaseNegocio(AAlbaran: TDADataTable); virtual;
|
||||||
@ -102,6 +105,24 @@ begin
|
|||||||
Result := GetItem(ID_NULO)
|
Result := GetItem(ID_NULO)
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function TDataModuleAlbaranesCliente._GetDetalleColores: IBizDetalleColoresAlbaranCliente;
|
||||||
|
var
|
||||||
|
ADetalleColores : TDAMemDataTable;
|
||||||
|
begin
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
ADetalleColores := CloneDataTable(tbl_AlbaranesCliente_Detalle_Color);
|
||||||
|
with ADetalleColores do
|
||||||
|
begin
|
||||||
|
BusinessRulesID := BIZ_CLIENT_DETALLE_COLORES_ALBARAN_CLIENTE;
|
||||||
|
DetailOptions := DetailOptions - [dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
|
||||||
|
end;
|
||||||
|
Result := (ADetalleColores as IBizDetalleColoresAlbaranCliente);
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
function TDataModuleAlbaranesCliente._GetDetalles: IBizDetallesAlbaranCliente;
|
function TDataModuleAlbaranesCliente._GetDetalles: IBizDetallesAlbaranCliente;
|
||||||
var
|
var
|
||||||
ADetalles : TDAMemDataTable;
|
ADetalles : TDAMemDataTable;
|
||||||
@ -188,6 +209,7 @@ begin
|
|||||||
with TBizAlbaranCliente(AAlbaran.BusinessEventsObj) do
|
with TBizAlbaranCliente(AAlbaran.BusinessEventsObj) do
|
||||||
begin
|
begin
|
||||||
Detalles := _GetDetalles;
|
Detalles := _GetDetalles;
|
||||||
|
Detalles.DetalleColores := _GetDetalleColores;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
Result := (AAlbaran as IBizAlbaranCliente);
|
Result := (AAlbaran as IBizAlbaranCliente);
|
||||||
|
|||||||
Binary file not shown.
@ -1,4 +1,5 @@
|
|||||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
<PropertyGroup>
|
<PropertyGroup>
|
||||||
<ProjectGuid>{a7225a8d-f40d-4878-9a27-c5de0e7cb638}</ProjectGuid>
|
<ProjectGuid>{a7225a8d-f40d-4878-9a27-c5de0e7cb638}</ProjectGuid>
|
||||||
<MainSource>AlbaranesCliente_model.dpk</MainSource>
|
<MainSource>AlbaranesCliente_model.dpk</MainSource>
|
||||||
@ -51,15 +52,24 @@
|
|||||||
<DelphiCompile Include="AlbaranesCliente_model.dpk">
|
<DelphiCompile Include="AlbaranesCliente_model.dpk">
|
||||||
<MainSource>MainSource</MainSource>
|
<MainSource>MainSource</MainSource>
|
||||||
</DelphiCompile>
|
</DelphiCompile>
|
||||||
|
<DCCReference Include="adortl.dcp" />
|
||||||
<DCCReference Include="ApplicationBase.dcp" />
|
<DCCReference Include="ApplicationBase.dcp" />
|
||||||
<DCCReference Include="Base.dcp" />
|
<DCCReference Include="Base.dcp" />
|
||||||
<DCCReference Include="Contactos_model.dcp" />
|
<DCCReference Include="Contactos_model.dcp" />
|
||||||
|
<DCCReference Include="DataAbstract_Core_D11.dcp" />
|
||||||
<DCCReference Include="Data\uIDataModuleAlbaranesCliente.pas" />
|
<DCCReference Include="Data\uIDataModuleAlbaranesCliente.pas" />
|
||||||
<DCCReference Include="Data\uIDataModuleAlbaranesClienteReport.pas" />
|
<DCCReference Include="Data\uIDataModuleAlbaranesClienteReport.pas" />
|
||||||
|
<DCCReference Include="dbrtl.dcp" />
|
||||||
|
<DCCReference Include="dsnap.dcp" />
|
||||||
|
<DCCReference Include="RemObjects_Core_D11.dcp" />
|
||||||
|
<DCCReference Include="rtl.dcp" />
|
||||||
<DCCReference Include="schAlbaranesClienteClient_Intf.pas" />
|
<DCCReference Include="schAlbaranesClienteClient_Intf.pas" />
|
||||||
<DCCReference Include="schAlbaranesClienteServer_Intf.pas" />
|
<DCCReference Include="schAlbaranesClienteServer_Intf.pas" />
|
||||||
<DCCReference Include="uBizAlbaranesCliente.pas" />
|
<DCCReference Include="uBizAlbaranesCliente.pas" />
|
||||||
|
<DCCReference Include="uBizDetalleColoresAlbaranCliente.pas" />
|
||||||
<DCCReference Include="uBizDetallesAlbaranCliente.pas" />
|
<DCCReference Include="uBizDetallesAlbaranCliente.pas" />
|
||||||
|
<DCCReference Include="vcl.dcp" />
|
||||||
|
<DCCReference Include="vcldb.dcp" />
|
||||||
</ItemGroup>
|
</ItemGroup>
|
||||||
</Project>
|
</Project>
|
||||||
<!-- EurekaLog First Line
|
<!-- EurekaLog First Line
|
||||||
|
|||||||
@ -13,4 +13,4 @@ BEGIN
|
|||||||
END
|
END
|
||||||
|
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Model\AlbaranesCliente_model.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Model\AlbaranesCliente_model.res */
|
||||||
/* E:\temp\dtfA7.tmp */
|
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Model\AlbaranesCliente_model.drf */
|
||||||
|
|||||||
Binary file not shown.
@ -3,19 +3,21 @@ unit schAlbaranesClienteClient_Intf;
|
|||||||
interface
|
interface
|
||||||
|
|
||||||
uses
|
uses
|
||||||
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
|
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
|
||||||
|
|
||||||
const
|
const
|
||||||
{ Data table rules ids
|
{ Data table rules ids
|
||||||
Feel free to change them to something more human readable
|
Feel free to change them to something more human readable
|
||||||
but make sure they are unique in the context of your application }
|
but make sure they are unique in the context of your application }
|
||||||
RID_ListaAnosAlbaranes = '{4E395FAD-6E22-4BEA-8928-852C19481C40}';
|
RID_ListaAnosAlbaranes = '{18C62587-896C-41BC-9E0A-B1BB4BA1536F}';
|
||||||
RID_AlbaranesCliente = '{4B881ADC-1915-43AB-AF50-8E576C19A0A0}';
|
RID_AlbaranesCliente = '{4A620EF8-3CC2-4C5C-B01B-23D8EFE9F1CD}';
|
||||||
RID_AlbaranesCliente_Detalles = '{FF516CED-DDC4-4D70-AC0F-E579F1103F15}';
|
RID_AlbaranesCliente_Detalle_Color = '{3958DA4C-F53F-46EE-9C7A-4ED04455B567}';
|
||||||
|
RID_AlbaranesCliente_Detalles = '{44C711B3-BB9D-467E-856C-D4B1C506ACDC}';
|
||||||
|
|
||||||
{ Data table names }
|
{ Data table names }
|
||||||
nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
|
nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
|
||||||
nme_AlbaranesCliente = 'AlbaranesCliente';
|
nme_AlbaranesCliente = 'AlbaranesCliente';
|
||||||
|
nme_AlbaranesCliente_Detalle_Color = 'AlbaranesCliente_Detalle_Color';
|
||||||
nme_AlbaranesCliente_Detalles = 'AlbaranesCliente_Detalles';
|
nme_AlbaranesCliente_Detalles = 'AlbaranesCliente_Detalles';
|
||||||
|
|
||||||
{ ListaAnosAlbaranes fields }
|
{ ListaAnosAlbaranes fields }
|
||||||
@ -108,6 +110,38 @@ const
|
|||||||
idx_AlbaranesClienteFECHA_ENVIO = 38;
|
idx_AlbaranesClienteFECHA_ENVIO = 38;
|
||||||
idx_AlbaranesClienteFECHA_RECEPCION = 39;
|
idx_AlbaranesClienteFECHA_RECEPCION = 39;
|
||||||
|
|
||||||
|
{ AlbaranesCliente_Detalle_Color fields }
|
||||||
|
fld_AlbaranesCliente_Detalle_ColorID = 'ID';
|
||||||
|
fld_AlbaranesCliente_Detalle_ColorID_DETALLE = 'ID_DETALLE';
|
||||||
|
fld_AlbaranesCliente_Detalle_ColorCOLOR1 = 'COLOR1';
|
||||||
|
fld_AlbaranesCliente_Detalle_ColorCOLOR2 = 'COLOR2';
|
||||||
|
fld_AlbaranesCliente_Detalle_ColorCOLOR3 = 'COLOR3';
|
||||||
|
fld_AlbaranesCliente_Detalle_ColorCOLOR4 = 'COLOR4';
|
||||||
|
fld_AlbaranesCliente_Detalle_ColorCOLOR5 = 'COLOR5';
|
||||||
|
fld_AlbaranesCliente_Detalle_ColorCOLOR6 = 'COLOR6';
|
||||||
|
fld_AlbaranesCliente_Detalle_ColorCOLOR7 = 'COLOR7';
|
||||||
|
fld_AlbaranesCliente_Detalle_ColorCOLOR8 = 'COLOR8';
|
||||||
|
fld_AlbaranesCliente_Detalle_ColorCOLOR9 = 'COLOR9';
|
||||||
|
fld_AlbaranesCliente_Detalle_ColorCOLOR10 = 'COLOR10';
|
||||||
|
fld_AlbaranesCliente_Detalle_ColorCOLOR11 = 'COLOR11';
|
||||||
|
fld_AlbaranesCliente_Detalle_ColorCOLOR12 = 'COLOR12';
|
||||||
|
|
||||||
|
{ AlbaranesCliente_Detalle_Color field indexes }
|
||||||
|
idx_AlbaranesCliente_Detalle_ColorID = 0;
|
||||||
|
idx_AlbaranesCliente_Detalle_ColorID_DETALLE = 1;
|
||||||
|
idx_AlbaranesCliente_Detalle_ColorCOLOR1 = 2;
|
||||||
|
idx_AlbaranesCliente_Detalle_ColorCOLOR2 = 3;
|
||||||
|
idx_AlbaranesCliente_Detalle_ColorCOLOR3 = 4;
|
||||||
|
idx_AlbaranesCliente_Detalle_ColorCOLOR4 = 5;
|
||||||
|
idx_AlbaranesCliente_Detalle_ColorCOLOR5 = 6;
|
||||||
|
idx_AlbaranesCliente_Detalle_ColorCOLOR6 = 7;
|
||||||
|
idx_AlbaranesCliente_Detalle_ColorCOLOR7 = 8;
|
||||||
|
idx_AlbaranesCliente_Detalle_ColorCOLOR8 = 9;
|
||||||
|
idx_AlbaranesCliente_Detalle_ColorCOLOR9 = 10;
|
||||||
|
idx_AlbaranesCliente_Detalle_ColorCOLOR10 = 11;
|
||||||
|
idx_AlbaranesCliente_Detalle_ColorCOLOR11 = 12;
|
||||||
|
idx_AlbaranesCliente_Detalle_ColorCOLOR12 = 13;
|
||||||
|
|
||||||
{ AlbaranesCliente_Detalles fields }
|
{ AlbaranesCliente_Detalles fields }
|
||||||
fld_AlbaranesCliente_DetallesID = 'ID';
|
fld_AlbaranesCliente_DetallesID = 'ID';
|
||||||
fld_AlbaranesCliente_DetallesID_ALBARAN = 'ID_ALBARAN';
|
fld_AlbaranesCliente_DetallesID_ALBARAN = 'ID_ALBARAN';
|
||||||
@ -147,7 +181,7 @@ const
|
|||||||
type
|
type
|
||||||
{ IListaAnosAlbaranes }
|
{ IListaAnosAlbaranes }
|
||||||
IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
|
IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
|
||||||
['{A625E55F-A727-4F88-9DAA-605DD60159D7}']
|
['{DB347C0B-48F1-4CB6-8C0E-8791F39A6D79}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetANOValue: String;
|
function GetANOValue: String;
|
||||||
procedure SetANOValue(const aValue: String);
|
procedure SetANOValue(const aValue: String);
|
||||||
@ -161,7 +195,7 @@ type
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
{ TListaAnosAlbaranesDataTableRules }
|
{ TListaAnosAlbaranesDataTableRules }
|
||||||
TListaAnosAlbaranesDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosAlbaranes)
|
TListaAnosAlbaranesDataTableRules = class(TDADataTableRules, IListaAnosAlbaranes)
|
||||||
private
|
private
|
||||||
protected
|
protected
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
@ -182,7 +216,7 @@ type
|
|||||||
|
|
||||||
{ IAlbaranesCliente }
|
{ IAlbaranesCliente }
|
||||||
IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
|
IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
|
||||||
['{B3652632-A310-4050-B523-49C26C41F857}']
|
['{49752BC5-C457-46FE-8892-31C4E16591C2}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetIDValue: Integer;
|
function GetIDValue: Integer;
|
||||||
procedure SetIDValue(const aValue: Integer);
|
procedure SetIDValue(const aValue: Integer);
|
||||||
@ -428,7 +462,7 @@ type
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
{ TAlbaranesClienteDataTableRules }
|
{ TAlbaranesClienteDataTableRules }
|
||||||
TAlbaranesClienteDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesCliente)
|
TAlbaranesClienteDataTableRules = class(TDADataTableRules, IAlbaranesCliente)
|
||||||
private
|
private
|
||||||
f_OBSERVACIONES: IROStrings;
|
f_OBSERVACIONES: IROStrings;
|
||||||
f_INCIDENCIAS: IROStrings;
|
f_INCIDENCIAS: IROStrings;
|
||||||
@ -683,9 +717,200 @@ type
|
|||||||
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
{ IAlbaranesCliente_Detalle_Color }
|
||||||
|
IAlbaranesCliente_Detalle_Color = interface(IDAStronglyTypedDataTable)
|
||||||
|
['{F6432EB6-CC41-40E8-B0AF-FAC070CF9F7F}']
|
||||||
|
{ Property getters and setters }
|
||||||
|
function GetIDValue: Integer;
|
||||||
|
procedure SetIDValue(const aValue: Integer);
|
||||||
|
function GetIDIsNull: Boolean;
|
||||||
|
procedure SetIDIsNull(const aValue: Boolean);
|
||||||
|
function GetID_DETALLEValue: Integer;
|
||||||
|
procedure SetID_DETALLEValue(const aValue: Integer);
|
||||||
|
function GetID_DETALLEIsNull: Boolean;
|
||||||
|
procedure SetID_DETALLEIsNull(const aValue: Boolean);
|
||||||
|
function GetCOLOR1Value: Integer;
|
||||||
|
procedure SetCOLOR1Value(const aValue: Integer);
|
||||||
|
function GetCOLOR1IsNull: Boolean;
|
||||||
|
procedure SetCOLOR1IsNull(const aValue: Boolean);
|
||||||
|
function GetCOLOR2Value: Integer;
|
||||||
|
procedure SetCOLOR2Value(const aValue: Integer);
|
||||||
|
function GetCOLOR2IsNull: Boolean;
|
||||||
|
procedure SetCOLOR2IsNull(const aValue: Boolean);
|
||||||
|
function GetCOLOR3Value: Integer;
|
||||||
|
procedure SetCOLOR3Value(const aValue: Integer);
|
||||||
|
function GetCOLOR3IsNull: Boolean;
|
||||||
|
procedure SetCOLOR3IsNull(const aValue: Boolean);
|
||||||
|
function GetCOLOR4Value: Integer;
|
||||||
|
procedure SetCOLOR4Value(const aValue: Integer);
|
||||||
|
function GetCOLOR4IsNull: Boolean;
|
||||||
|
procedure SetCOLOR4IsNull(const aValue: Boolean);
|
||||||
|
function GetCOLOR5Value: Integer;
|
||||||
|
procedure SetCOLOR5Value(const aValue: Integer);
|
||||||
|
function GetCOLOR5IsNull: Boolean;
|
||||||
|
procedure SetCOLOR5IsNull(const aValue: Boolean);
|
||||||
|
function GetCOLOR6Value: Integer;
|
||||||
|
procedure SetCOLOR6Value(const aValue: Integer);
|
||||||
|
function GetCOLOR6IsNull: Boolean;
|
||||||
|
procedure SetCOLOR6IsNull(const aValue: Boolean);
|
||||||
|
function GetCOLOR7Value: Integer;
|
||||||
|
procedure SetCOLOR7Value(const aValue: Integer);
|
||||||
|
function GetCOLOR7IsNull: Boolean;
|
||||||
|
procedure SetCOLOR7IsNull(const aValue: Boolean);
|
||||||
|
function GetCOLOR8Value: Integer;
|
||||||
|
procedure SetCOLOR8Value(const aValue: Integer);
|
||||||
|
function GetCOLOR8IsNull: Boolean;
|
||||||
|
procedure SetCOLOR8IsNull(const aValue: Boolean);
|
||||||
|
function GetCOLOR9Value: Integer;
|
||||||
|
procedure SetCOLOR9Value(const aValue: Integer);
|
||||||
|
function GetCOLOR9IsNull: Boolean;
|
||||||
|
procedure SetCOLOR9IsNull(const aValue: Boolean);
|
||||||
|
function GetCOLOR10Value: Integer;
|
||||||
|
procedure SetCOLOR10Value(const aValue: Integer);
|
||||||
|
function GetCOLOR10IsNull: Boolean;
|
||||||
|
procedure SetCOLOR10IsNull(const aValue: Boolean);
|
||||||
|
function GetCOLOR11Value: Integer;
|
||||||
|
procedure SetCOLOR11Value(const aValue: Integer);
|
||||||
|
function GetCOLOR11IsNull: Boolean;
|
||||||
|
procedure SetCOLOR11IsNull(const aValue: Boolean);
|
||||||
|
function GetCOLOR12Value: Integer;
|
||||||
|
procedure SetCOLOR12Value(const aValue: Integer);
|
||||||
|
function GetCOLOR12IsNull: Boolean;
|
||||||
|
procedure SetCOLOR12IsNull(const aValue: Boolean);
|
||||||
|
|
||||||
|
|
||||||
|
{ Properties }
|
||||||
|
property ID: Integer read GetIDValue write SetIDValue;
|
||||||
|
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||||||
|
property ID_DETALLE: Integer read GetID_DETALLEValue write SetID_DETALLEValue;
|
||||||
|
property ID_DETALLEIsNull: Boolean read GetID_DETALLEIsNull write SetID_DETALLEIsNull;
|
||||||
|
property COLOR1: Integer read GetCOLOR1Value write SetCOLOR1Value;
|
||||||
|
property COLOR1IsNull: Boolean read GetCOLOR1IsNull write SetCOLOR1IsNull;
|
||||||
|
property COLOR2: Integer read GetCOLOR2Value write SetCOLOR2Value;
|
||||||
|
property COLOR2IsNull: Boolean read GetCOLOR2IsNull write SetCOLOR2IsNull;
|
||||||
|
property COLOR3: Integer read GetCOLOR3Value write SetCOLOR3Value;
|
||||||
|
property COLOR3IsNull: Boolean read GetCOLOR3IsNull write SetCOLOR3IsNull;
|
||||||
|
property COLOR4: Integer read GetCOLOR4Value write SetCOLOR4Value;
|
||||||
|
property COLOR4IsNull: Boolean read GetCOLOR4IsNull write SetCOLOR4IsNull;
|
||||||
|
property COLOR5: Integer read GetCOLOR5Value write SetCOLOR5Value;
|
||||||
|
property COLOR5IsNull: Boolean read GetCOLOR5IsNull write SetCOLOR5IsNull;
|
||||||
|
property COLOR6: Integer read GetCOLOR6Value write SetCOLOR6Value;
|
||||||
|
property COLOR6IsNull: Boolean read GetCOLOR6IsNull write SetCOLOR6IsNull;
|
||||||
|
property COLOR7: Integer read GetCOLOR7Value write SetCOLOR7Value;
|
||||||
|
property COLOR7IsNull: Boolean read GetCOLOR7IsNull write SetCOLOR7IsNull;
|
||||||
|
property COLOR8: Integer read GetCOLOR8Value write SetCOLOR8Value;
|
||||||
|
property COLOR8IsNull: Boolean read GetCOLOR8IsNull write SetCOLOR8IsNull;
|
||||||
|
property COLOR9: Integer read GetCOLOR9Value write SetCOLOR9Value;
|
||||||
|
property COLOR9IsNull: Boolean read GetCOLOR9IsNull write SetCOLOR9IsNull;
|
||||||
|
property COLOR10: Integer read GetCOLOR10Value write SetCOLOR10Value;
|
||||||
|
property COLOR10IsNull: Boolean read GetCOLOR10IsNull write SetCOLOR10IsNull;
|
||||||
|
property COLOR11: Integer read GetCOLOR11Value write SetCOLOR11Value;
|
||||||
|
property COLOR11IsNull: Boolean read GetCOLOR11IsNull write SetCOLOR11IsNull;
|
||||||
|
property COLOR12: Integer read GetCOLOR12Value write SetCOLOR12Value;
|
||||||
|
property COLOR12IsNull: Boolean read GetCOLOR12IsNull write SetCOLOR12IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ TAlbaranesCliente_Detalle_ColorDataTableRules }
|
||||||
|
TAlbaranesCliente_Detalle_ColorDataTableRules = class(TDADataTableRules, IAlbaranesCliente_Detalle_Color)
|
||||||
|
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_DETALLEValue: Integer; virtual;
|
||||||
|
procedure SetID_DETALLEValue(const aValue: Integer); virtual;
|
||||||
|
function GetID_DETALLEIsNull: Boolean; virtual;
|
||||||
|
procedure SetID_DETALLEIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetCOLOR1Value: Integer; virtual;
|
||||||
|
procedure SetCOLOR1Value(const aValue: Integer); virtual;
|
||||||
|
function GetCOLOR1IsNull: Boolean; virtual;
|
||||||
|
procedure SetCOLOR1IsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetCOLOR2Value: Integer; virtual;
|
||||||
|
procedure SetCOLOR2Value(const aValue: Integer); virtual;
|
||||||
|
function GetCOLOR2IsNull: Boolean; virtual;
|
||||||
|
procedure SetCOLOR2IsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetCOLOR3Value: Integer; virtual;
|
||||||
|
procedure SetCOLOR3Value(const aValue: Integer); virtual;
|
||||||
|
function GetCOLOR3IsNull: Boolean; virtual;
|
||||||
|
procedure SetCOLOR3IsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetCOLOR4Value: Integer; virtual;
|
||||||
|
procedure SetCOLOR4Value(const aValue: Integer); virtual;
|
||||||
|
function GetCOLOR4IsNull: Boolean; virtual;
|
||||||
|
procedure SetCOLOR4IsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetCOLOR5Value: Integer; virtual;
|
||||||
|
procedure SetCOLOR5Value(const aValue: Integer); virtual;
|
||||||
|
function GetCOLOR5IsNull: Boolean; virtual;
|
||||||
|
procedure SetCOLOR5IsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetCOLOR6Value: Integer; virtual;
|
||||||
|
procedure SetCOLOR6Value(const aValue: Integer); virtual;
|
||||||
|
function GetCOLOR6IsNull: Boolean; virtual;
|
||||||
|
procedure SetCOLOR6IsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetCOLOR7Value: Integer; virtual;
|
||||||
|
procedure SetCOLOR7Value(const aValue: Integer); virtual;
|
||||||
|
function GetCOLOR7IsNull: Boolean; virtual;
|
||||||
|
procedure SetCOLOR7IsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetCOLOR8Value: Integer; virtual;
|
||||||
|
procedure SetCOLOR8Value(const aValue: Integer); virtual;
|
||||||
|
function GetCOLOR8IsNull: Boolean; virtual;
|
||||||
|
procedure SetCOLOR8IsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetCOLOR9Value: Integer; virtual;
|
||||||
|
procedure SetCOLOR9Value(const aValue: Integer); virtual;
|
||||||
|
function GetCOLOR9IsNull: Boolean; virtual;
|
||||||
|
procedure SetCOLOR9IsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetCOLOR10Value: Integer; virtual;
|
||||||
|
procedure SetCOLOR10Value(const aValue: Integer); virtual;
|
||||||
|
function GetCOLOR10IsNull: Boolean; virtual;
|
||||||
|
procedure SetCOLOR10IsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetCOLOR11Value: Integer; virtual;
|
||||||
|
procedure SetCOLOR11Value(const aValue: Integer); virtual;
|
||||||
|
function GetCOLOR11IsNull: Boolean; virtual;
|
||||||
|
procedure SetCOLOR11IsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetCOLOR12Value: Integer; virtual;
|
||||||
|
procedure SetCOLOR12Value(const aValue: Integer); virtual;
|
||||||
|
function GetCOLOR12IsNull: Boolean; virtual;
|
||||||
|
procedure SetCOLOR12IsNull(const aValue: Boolean); virtual;
|
||||||
|
|
||||||
|
{ Properties }
|
||||||
|
property ID: Integer read GetIDValue write SetIDValue;
|
||||||
|
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||||||
|
property ID_DETALLE: Integer read GetID_DETALLEValue write SetID_DETALLEValue;
|
||||||
|
property ID_DETALLEIsNull: Boolean read GetID_DETALLEIsNull write SetID_DETALLEIsNull;
|
||||||
|
property COLOR1: Integer read GetCOLOR1Value write SetCOLOR1Value;
|
||||||
|
property COLOR1IsNull: Boolean read GetCOLOR1IsNull write SetCOLOR1IsNull;
|
||||||
|
property COLOR2: Integer read GetCOLOR2Value write SetCOLOR2Value;
|
||||||
|
property COLOR2IsNull: Boolean read GetCOLOR2IsNull write SetCOLOR2IsNull;
|
||||||
|
property COLOR3: Integer read GetCOLOR3Value write SetCOLOR3Value;
|
||||||
|
property COLOR3IsNull: Boolean read GetCOLOR3IsNull write SetCOLOR3IsNull;
|
||||||
|
property COLOR4: Integer read GetCOLOR4Value write SetCOLOR4Value;
|
||||||
|
property COLOR4IsNull: Boolean read GetCOLOR4IsNull write SetCOLOR4IsNull;
|
||||||
|
property COLOR5: Integer read GetCOLOR5Value write SetCOLOR5Value;
|
||||||
|
property COLOR5IsNull: Boolean read GetCOLOR5IsNull write SetCOLOR5IsNull;
|
||||||
|
property COLOR6: Integer read GetCOLOR6Value write SetCOLOR6Value;
|
||||||
|
property COLOR6IsNull: Boolean read GetCOLOR6IsNull write SetCOLOR6IsNull;
|
||||||
|
property COLOR7: Integer read GetCOLOR7Value write SetCOLOR7Value;
|
||||||
|
property COLOR7IsNull: Boolean read GetCOLOR7IsNull write SetCOLOR7IsNull;
|
||||||
|
property COLOR8: Integer read GetCOLOR8Value write SetCOLOR8Value;
|
||||||
|
property COLOR8IsNull: Boolean read GetCOLOR8IsNull write SetCOLOR8IsNull;
|
||||||
|
property COLOR9: Integer read GetCOLOR9Value write SetCOLOR9Value;
|
||||||
|
property COLOR9IsNull: Boolean read GetCOLOR9IsNull write SetCOLOR9IsNull;
|
||||||
|
property COLOR10: Integer read GetCOLOR10Value write SetCOLOR10Value;
|
||||||
|
property COLOR10IsNull: Boolean read GetCOLOR10IsNull write SetCOLOR10IsNull;
|
||||||
|
property COLOR11: Integer read GetCOLOR11Value write SetCOLOR11Value;
|
||||||
|
property COLOR11IsNull: Boolean read GetCOLOR11IsNull write SetCOLOR11IsNull;
|
||||||
|
property COLOR12: Integer read GetCOLOR12Value write SetCOLOR12Value;
|
||||||
|
property COLOR12IsNull: Boolean read GetCOLOR12IsNull write SetCOLOR12IsNull;
|
||||||
|
|
||||||
|
public
|
||||||
|
constructor Create(aDataTable: TDADataTable); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
{ IAlbaranesCliente_Detalles }
|
{ IAlbaranesCliente_Detalles }
|
||||||
IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||||
['{AF2BB21F-76D4-42AD-9190-C2CC3934F6B9}']
|
['{3A0076AC-86DC-4A8E-B575-EBB6C2DAC5E9}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetIDValue: Integer;
|
function GetIDValue: Integer;
|
||||||
procedure SetIDValue(const aValue: Integer);
|
procedure SetIDValue(const aValue: Integer);
|
||||||
@ -789,7 +1014,7 @@ type
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
{ TAlbaranesCliente_DetallesDataTableRules }
|
{ TAlbaranesCliente_DetallesDataTableRules }
|
||||||
TAlbaranesCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesCliente_Detalles)
|
TAlbaranesCliente_DetallesDataTableRules = class(TDADataTableRules, IAlbaranesCliente_Detalles)
|
||||||
private
|
private
|
||||||
protected
|
protected
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
@ -1799,6 +2024,312 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
{ TAlbaranesCliente_Detalle_ColorDataTableRules }
|
||||||
|
constructor TAlbaranesCliente_Detalle_ColorDataTableRules.Create(aDataTable: TDADataTable);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TAlbaranesCliente_Detalle_ColorDataTableRules.Destroy;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorDataTableRules.GetIDValue: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorID].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorDataTableRules.SetIDValue(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorID].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorDataTableRules.GetIDIsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorID].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorDataTableRules.SetIDIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorID].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorDataTableRules.GetID_DETALLEValue: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorID_DETALLE].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorDataTableRules.SetID_DETALLEValue(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorID_DETALLE].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorDataTableRules.GetID_DETALLEIsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorID_DETALLE].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorDataTableRules.SetID_DETALLEIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorID_DETALLE].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorDataTableRules.GetCOLOR1Value: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR1].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorDataTableRules.SetCOLOR1Value(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR1].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorDataTableRules.GetCOLOR1IsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR1].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorDataTableRules.SetCOLOR1IsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR1].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorDataTableRules.GetCOLOR2Value: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR2].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorDataTableRules.SetCOLOR2Value(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR2].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorDataTableRules.GetCOLOR2IsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR2].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorDataTableRules.SetCOLOR2IsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR2].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorDataTableRules.GetCOLOR3Value: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR3].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorDataTableRules.SetCOLOR3Value(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR3].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorDataTableRules.GetCOLOR3IsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR3].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorDataTableRules.SetCOLOR3IsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR3].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorDataTableRules.GetCOLOR4Value: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR4].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorDataTableRules.SetCOLOR4Value(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR4].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorDataTableRules.GetCOLOR4IsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR4].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorDataTableRules.SetCOLOR4IsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR4].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorDataTableRules.GetCOLOR5Value: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR5].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorDataTableRules.SetCOLOR5Value(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR5].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorDataTableRules.GetCOLOR5IsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR5].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorDataTableRules.SetCOLOR5IsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR5].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorDataTableRules.GetCOLOR6Value: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR6].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorDataTableRules.SetCOLOR6Value(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR6].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorDataTableRules.GetCOLOR6IsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR6].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorDataTableRules.SetCOLOR6IsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR6].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorDataTableRules.GetCOLOR7Value: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR7].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorDataTableRules.SetCOLOR7Value(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR7].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorDataTableRules.GetCOLOR7IsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR7].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorDataTableRules.SetCOLOR7IsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR7].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorDataTableRules.GetCOLOR8Value: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR8].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorDataTableRules.SetCOLOR8Value(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR8].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorDataTableRules.GetCOLOR8IsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR8].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorDataTableRules.SetCOLOR8IsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR8].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorDataTableRules.GetCOLOR9Value: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR9].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorDataTableRules.SetCOLOR9Value(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR9].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorDataTableRules.GetCOLOR9IsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR9].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorDataTableRules.SetCOLOR9IsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR9].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorDataTableRules.GetCOLOR10Value: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR10].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorDataTableRules.SetCOLOR10Value(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR10].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorDataTableRules.GetCOLOR10IsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR10].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorDataTableRules.SetCOLOR10IsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR10].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorDataTableRules.GetCOLOR11Value: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR11].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorDataTableRules.SetCOLOR11Value(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR11].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorDataTableRules.GetCOLOR11IsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR11].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorDataTableRules.SetCOLOR11IsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR11].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorDataTableRules.GetCOLOR12Value: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR12].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorDataTableRules.SetCOLOR12Value(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR12].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorDataTableRules.GetCOLOR12IsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR12].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorDataTableRules.SetCOLOR12IsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_AlbaranesCliente_Detalle_ColorCOLOR12].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
{ TAlbaranesCliente_DetallesDataTableRules }
|
{ TAlbaranesCliente_DetallesDataTableRules }
|
||||||
constructor TAlbaranesCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);
|
constructor TAlbaranesCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);
|
||||||
begin
|
begin
|
||||||
@ -2150,6 +2681,7 @@ end;
|
|||||||
initialization
|
initialization
|
||||||
RegisterDataTableRules(RID_ListaAnosAlbaranes, TListaAnosAlbaranesDataTableRules);
|
RegisterDataTableRules(RID_ListaAnosAlbaranes, TListaAnosAlbaranesDataTableRules);
|
||||||
RegisterDataTableRules(RID_AlbaranesCliente, TAlbaranesClienteDataTableRules);
|
RegisterDataTableRules(RID_AlbaranesCliente, TAlbaranesClienteDataTableRules);
|
||||||
|
RegisterDataTableRules(RID_AlbaranesCliente_Detalle_Color, TAlbaranesCliente_Detalle_ColorDataTableRules);
|
||||||
RegisterDataTableRules(RID_AlbaranesCliente_Detalles, TAlbaranesCliente_DetallesDataTableRules);
|
RegisterDataTableRules(RID_AlbaranesCliente_Detalles, TAlbaranesCliente_DetallesDataTableRules);
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|||||||
@ -9,14 +9,15 @@ const
|
|||||||
{ Delta rules ids
|
{ Delta rules ids
|
||||||
Feel free to change them to something more human readable
|
Feel free to change them to something more human readable
|
||||||
but make sure they are unique in the context of your application }
|
but make sure they are unique in the context of your application }
|
||||||
RID_ListaAnosAlbaranesDelta = '{31517BB5-3488-4555-8B2D-2744016505EE}';
|
RID_ListaAnosAlbaranesDelta = '{80722770-25D1-4E97-AAEA-419BB719A5D6}';
|
||||||
RID_AlbaranesClienteDelta = '{1A863DB4-0BF6-4F65-AFA1-52EA357D6529}';
|
RID_AlbaranesClienteDelta = '{3B43A4E8-B21B-4978-A8D1-91FEFBD05A31}';
|
||||||
RID_AlbaranesCliente_DetallesDelta = '{ED26F299-FA26-46E6-9A24-057570AB5D28}';
|
RID_AlbaranesCliente_Detalle_ColorDelta = '{EC828BE2-9AA9-459F-8814-FC87BFF79A9C}';
|
||||||
|
RID_AlbaranesCliente_DetallesDelta = '{3FA86ECC-B57D-4E8D-A7EA-66A2C066A9B5}';
|
||||||
|
|
||||||
type
|
type
|
||||||
{ IListaAnosAlbaranesDelta }
|
{ IListaAnosAlbaranesDelta }
|
||||||
IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
|
IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
|
||||||
['{31517BB5-3488-4555-8B2D-2744016505EE}']
|
['{80722770-25D1-4E97-AAEA-419BB719A5D6}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetOldANOValue : String;
|
function GetOldANOValue : String;
|
||||||
|
|
||||||
@ -50,7 +51,7 @@ type
|
|||||||
|
|
||||||
{ IAlbaranesClienteDelta }
|
{ IAlbaranesClienteDelta }
|
||||||
IAlbaranesClienteDelta = interface(IAlbaranesCliente)
|
IAlbaranesClienteDelta = interface(IAlbaranesCliente)
|
||||||
['{1A863DB4-0BF6-4F65-AFA1-52EA357D6529}']
|
['{3B43A4E8-B21B-4978-A8D1-91FEFBD05A31}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetOldIDValue : Integer;
|
function GetOldIDValue : Integer;
|
||||||
function GetOldID_EMPRESAValue : Integer;
|
function GetOldID_EMPRESAValue : Integer;
|
||||||
@ -552,9 +553,199 @@ type
|
|||||||
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
{ IAlbaranesCliente_Detalle_ColorDelta }
|
||||||
|
IAlbaranesCliente_Detalle_ColorDelta = interface(IAlbaranesCliente_Detalle_Color)
|
||||||
|
['{EC828BE2-9AA9-459F-8814-FC87BFF79A9C}']
|
||||||
|
{ Property getters and setters }
|
||||||
|
function GetOldIDValue : Integer;
|
||||||
|
function GetOldID_DETALLEValue : Integer;
|
||||||
|
function GetOldCOLOR1Value : Integer;
|
||||||
|
function GetOldCOLOR2Value : Integer;
|
||||||
|
function GetOldCOLOR3Value : Integer;
|
||||||
|
function GetOldCOLOR4Value : Integer;
|
||||||
|
function GetOldCOLOR5Value : Integer;
|
||||||
|
function GetOldCOLOR6Value : Integer;
|
||||||
|
function GetOldCOLOR7Value : Integer;
|
||||||
|
function GetOldCOLOR8Value : Integer;
|
||||||
|
function GetOldCOLOR9Value : Integer;
|
||||||
|
function GetOldCOLOR10Value : Integer;
|
||||||
|
function GetOldCOLOR11Value : Integer;
|
||||||
|
function GetOldCOLOR12Value : Integer;
|
||||||
|
|
||||||
|
{ Properties }
|
||||||
|
property OldID : Integer read GetOldIDValue;
|
||||||
|
property OldID_DETALLE : Integer read GetOldID_DETALLEValue;
|
||||||
|
property OldCOLOR1 : Integer read GetOldCOLOR1Value;
|
||||||
|
property OldCOLOR2 : Integer read GetOldCOLOR2Value;
|
||||||
|
property OldCOLOR3 : Integer read GetOldCOLOR3Value;
|
||||||
|
property OldCOLOR4 : Integer read GetOldCOLOR4Value;
|
||||||
|
property OldCOLOR5 : Integer read GetOldCOLOR5Value;
|
||||||
|
property OldCOLOR6 : Integer read GetOldCOLOR6Value;
|
||||||
|
property OldCOLOR7 : Integer read GetOldCOLOR7Value;
|
||||||
|
property OldCOLOR8 : Integer read GetOldCOLOR8Value;
|
||||||
|
property OldCOLOR9 : Integer read GetOldCOLOR9Value;
|
||||||
|
property OldCOLOR10 : Integer read GetOldCOLOR10Value;
|
||||||
|
property OldCOLOR11 : Integer read GetOldCOLOR11Value;
|
||||||
|
property OldCOLOR12 : Integer read GetOldCOLOR12Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ TAlbaranesCliente_Detalle_ColorBusinessProcessorRules }
|
||||||
|
TAlbaranesCliente_Detalle_ColorBusinessProcessorRules = class(TDABusinessProcessorRules, IAlbaranesCliente_Detalle_Color, IAlbaranesCliente_Detalle_ColorDelta)
|
||||||
|
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_DETALLEValue: Integer; virtual;
|
||||||
|
function GetID_DETALLEIsNull: Boolean; virtual;
|
||||||
|
function GetOldID_DETALLEValue: Integer; virtual;
|
||||||
|
function GetOldID_DETALLEIsNull: Boolean; virtual;
|
||||||
|
procedure SetID_DETALLEValue(const aValue: Integer); virtual;
|
||||||
|
procedure SetID_DETALLEIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetCOLOR1Value: Integer; virtual;
|
||||||
|
function GetCOLOR1IsNull: Boolean; virtual;
|
||||||
|
function GetOldCOLOR1Value: Integer; virtual;
|
||||||
|
function GetOldCOLOR1IsNull: Boolean; virtual;
|
||||||
|
procedure SetCOLOR1Value(const aValue: Integer); virtual;
|
||||||
|
procedure SetCOLOR1IsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetCOLOR2Value: Integer; virtual;
|
||||||
|
function GetCOLOR2IsNull: Boolean; virtual;
|
||||||
|
function GetOldCOLOR2Value: Integer; virtual;
|
||||||
|
function GetOldCOLOR2IsNull: Boolean; virtual;
|
||||||
|
procedure SetCOLOR2Value(const aValue: Integer); virtual;
|
||||||
|
procedure SetCOLOR2IsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetCOLOR3Value: Integer; virtual;
|
||||||
|
function GetCOLOR3IsNull: Boolean; virtual;
|
||||||
|
function GetOldCOLOR3Value: Integer; virtual;
|
||||||
|
function GetOldCOLOR3IsNull: Boolean; virtual;
|
||||||
|
procedure SetCOLOR3Value(const aValue: Integer); virtual;
|
||||||
|
procedure SetCOLOR3IsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetCOLOR4Value: Integer; virtual;
|
||||||
|
function GetCOLOR4IsNull: Boolean; virtual;
|
||||||
|
function GetOldCOLOR4Value: Integer; virtual;
|
||||||
|
function GetOldCOLOR4IsNull: Boolean; virtual;
|
||||||
|
procedure SetCOLOR4Value(const aValue: Integer); virtual;
|
||||||
|
procedure SetCOLOR4IsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetCOLOR5Value: Integer; virtual;
|
||||||
|
function GetCOLOR5IsNull: Boolean; virtual;
|
||||||
|
function GetOldCOLOR5Value: Integer; virtual;
|
||||||
|
function GetOldCOLOR5IsNull: Boolean; virtual;
|
||||||
|
procedure SetCOLOR5Value(const aValue: Integer); virtual;
|
||||||
|
procedure SetCOLOR5IsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetCOLOR6Value: Integer; virtual;
|
||||||
|
function GetCOLOR6IsNull: Boolean; virtual;
|
||||||
|
function GetOldCOLOR6Value: Integer; virtual;
|
||||||
|
function GetOldCOLOR6IsNull: Boolean; virtual;
|
||||||
|
procedure SetCOLOR6Value(const aValue: Integer); virtual;
|
||||||
|
procedure SetCOLOR6IsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetCOLOR7Value: Integer; virtual;
|
||||||
|
function GetCOLOR7IsNull: Boolean; virtual;
|
||||||
|
function GetOldCOLOR7Value: Integer; virtual;
|
||||||
|
function GetOldCOLOR7IsNull: Boolean; virtual;
|
||||||
|
procedure SetCOLOR7Value(const aValue: Integer); virtual;
|
||||||
|
procedure SetCOLOR7IsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetCOLOR8Value: Integer; virtual;
|
||||||
|
function GetCOLOR8IsNull: Boolean; virtual;
|
||||||
|
function GetOldCOLOR8Value: Integer; virtual;
|
||||||
|
function GetOldCOLOR8IsNull: Boolean; virtual;
|
||||||
|
procedure SetCOLOR8Value(const aValue: Integer); virtual;
|
||||||
|
procedure SetCOLOR8IsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetCOLOR9Value: Integer; virtual;
|
||||||
|
function GetCOLOR9IsNull: Boolean; virtual;
|
||||||
|
function GetOldCOLOR9Value: Integer; virtual;
|
||||||
|
function GetOldCOLOR9IsNull: Boolean; virtual;
|
||||||
|
procedure SetCOLOR9Value(const aValue: Integer); virtual;
|
||||||
|
procedure SetCOLOR9IsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetCOLOR10Value: Integer; virtual;
|
||||||
|
function GetCOLOR10IsNull: Boolean; virtual;
|
||||||
|
function GetOldCOLOR10Value: Integer; virtual;
|
||||||
|
function GetOldCOLOR10IsNull: Boolean; virtual;
|
||||||
|
procedure SetCOLOR10Value(const aValue: Integer); virtual;
|
||||||
|
procedure SetCOLOR10IsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetCOLOR11Value: Integer; virtual;
|
||||||
|
function GetCOLOR11IsNull: Boolean; virtual;
|
||||||
|
function GetOldCOLOR11Value: Integer; virtual;
|
||||||
|
function GetOldCOLOR11IsNull: Boolean; virtual;
|
||||||
|
procedure SetCOLOR11Value(const aValue: Integer); virtual;
|
||||||
|
procedure SetCOLOR11IsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetCOLOR12Value: Integer; virtual;
|
||||||
|
function GetCOLOR12IsNull: Boolean; virtual;
|
||||||
|
function GetOldCOLOR12Value: Integer; virtual;
|
||||||
|
function GetOldCOLOR12IsNull: Boolean; virtual;
|
||||||
|
procedure SetCOLOR12Value(const aValue: Integer); virtual;
|
||||||
|
procedure SetCOLOR12IsNull(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_DETALLE : Integer read GetID_DETALLEValue write SetID_DETALLEValue;
|
||||||
|
property ID_DETALLEIsNull : Boolean read GetID_DETALLEIsNull write SetID_DETALLEIsNull;
|
||||||
|
property OldID_DETALLE : Integer read GetOldID_DETALLEValue;
|
||||||
|
property OldID_DETALLEIsNull : Boolean read GetOldID_DETALLEIsNull;
|
||||||
|
property COLOR1 : Integer read GetCOLOR1Value write SetCOLOR1Value;
|
||||||
|
property COLOR1IsNull : Boolean read GetCOLOR1IsNull write SetCOLOR1IsNull;
|
||||||
|
property OldCOLOR1 : Integer read GetOldCOLOR1Value;
|
||||||
|
property OldCOLOR1IsNull : Boolean read GetOldCOLOR1IsNull;
|
||||||
|
property COLOR2 : Integer read GetCOLOR2Value write SetCOLOR2Value;
|
||||||
|
property COLOR2IsNull : Boolean read GetCOLOR2IsNull write SetCOLOR2IsNull;
|
||||||
|
property OldCOLOR2 : Integer read GetOldCOLOR2Value;
|
||||||
|
property OldCOLOR2IsNull : Boolean read GetOldCOLOR2IsNull;
|
||||||
|
property COLOR3 : Integer read GetCOLOR3Value write SetCOLOR3Value;
|
||||||
|
property COLOR3IsNull : Boolean read GetCOLOR3IsNull write SetCOLOR3IsNull;
|
||||||
|
property OldCOLOR3 : Integer read GetOldCOLOR3Value;
|
||||||
|
property OldCOLOR3IsNull : Boolean read GetOldCOLOR3IsNull;
|
||||||
|
property COLOR4 : Integer read GetCOLOR4Value write SetCOLOR4Value;
|
||||||
|
property COLOR4IsNull : Boolean read GetCOLOR4IsNull write SetCOLOR4IsNull;
|
||||||
|
property OldCOLOR4 : Integer read GetOldCOLOR4Value;
|
||||||
|
property OldCOLOR4IsNull : Boolean read GetOldCOLOR4IsNull;
|
||||||
|
property COLOR5 : Integer read GetCOLOR5Value write SetCOLOR5Value;
|
||||||
|
property COLOR5IsNull : Boolean read GetCOLOR5IsNull write SetCOLOR5IsNull;
|
||||||
|
property OldCOLOR5 : Integer read GetOldCOLOR5Value;
|
||||||
|
property OldCOLOR5IsNull : Boolean read GetOldCOLOR5IsNull;
|
||||||
|
property COLOR6 : Integer read GetCOLOR6Value write SetCOLOR6Value;
|
||||||
|
property COLOR6IsNull : Boolean read GetCOLOR6IsNull write SetCOLOR6IsNull;
|
||||||
|
property OldCOLOR6 : Integer read GetOldCOLOR6Value;
|
||||||
|
property OldCOLOR6IsNull : Boolean read GetOldCOLOR6IsNull;
|
||||||
|
property COLOR7 : Integer read GetCOLOR7Value write SetCOLOR7Value;
|
||||||
|
property COLOR7IsNull : Boolean read GetCOLOR7IsNull write SetCOLOR7IsNull;
|
||||||
|
property OldCOLOR7 : Integer read GetOldCOLOR7Value;
|
||||||
|
property OldCOLOR7IsNull : Boolean read GetOldCOLOR7IsNull;
|
||||||
|
property COLOR8 : Integer read GetCOLOR8Value write SetCOLOR8Value;
|
||||||
|
property COLOR8IsNull : Boolean read GetCOLOR8IsNull write SetCOLOR8IsNull;
|
||||||
|
property OldCOLOR8 : Integer read GetOldCOLOR8Value;
|
||||||
|
property OldCOLOR8IsNull : Boolean read GetOldCOLOR8IsNull;
|
||||||
|
property COLOR9 : Integer read GetCOLOR9Value write SetCOLOR9Value;
|
||||||
|
property COLOR9IsNull : Boolean read GetCOLOR9IsNull write SetCOLOR9IsNull;
|
||||||
|
property OldCOLOR9 : Integer read GetOldCOLOR9Value;
|
||||||
|
property OldCOLOR9IsNull : Boolean read GetOldCOLOR9IsNull;
|
||||||
|
property COLOR10 : Integer read GetCOLOR10Value write SetCOLOR10Value;
|
||||||
|
property COLOR10IsNull : Boolean read GetCOLOR10IsNull write SetCOLOR10IsNull;
|
||||||
|
property OldCOLOR10 : Integer read GetOldCOLOR10Value;
|
||||||
|
property OldCOLOR10IsNull : Boolean read GetOldCOLOR10IsNull;
|
||||||
|
property COLOR11 : Integer read GetCOLOR11Value write SetCOLOR11Value;
|
||||||
|
property COLOR11IsNull : Boolean read GetCOLOR11IsNull write SetCOLOR11IsNull;
|
||||||
|
property OldCOLOR11 : Integer read GetOldCOLOR11Value;
|
||||||
|
property OldCOLOR11IsNull : Boolean read GetOldCOLOR11IsNull;
|
||||||
|
property COLOR12 : Integer read GetCOLOR12Value write SetCOLOR12Value;
|
||||||
|
property COLOR12IsNull : Boolean read GetCOLOR12IsNull write SetCOLOR12IsNull;
|
||||||
|
property OldCOLOR12 : Integer read GetOldCOLOR12Value;
|
||||||
|
property OldCOLOR12IsNull : Boolean read GetOldCOLOR12IsNull;
|
||||||
|
|
||||||
|
public
|
||||||
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
{ IAlbaranesCliente_DetallesDelta }
|
{ IAlbaranesCliente_DetallesDelta }
|
||||||
IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
|
IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
|
||||||
['{ED26F299-FA26-46E6-9A24-057570AB5D28}']
|
['{3FA86ECC-B57D-4E8D-A7EA-66A2C066A9B5}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetOldIDValue : Integer;
|
function GetOldIDValue : Integer;
|
||||||
function GetOldID_ALBARANValue : Integer;
|
function GetOldID_ALBARANValue : Integer;
|
||||||
@ -2080,6 +2271,452 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
{ TAlbaranesCliente_Detalle_ColorBusinessProcessorRules }
|
||||||
|
constructor TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.Destroy;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetIDValue: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorID];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetIDIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorID]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetOldIDValue: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_Detalle_ColorID];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_Detalle_ColorID]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorID] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorID] := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetID_DETALLEValue: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorID_DETALLE];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetID_DETALLEIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorID_DETALLE]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetOldID_DETALLEValue: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_Detalle_ColorID_DETALLE];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetOldID_DETALLEIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_Detalle_ColorID_DETALLE]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.SetID_DETALLEValue(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorID_DETALLE] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.SetID_DETALLEIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorID_DETALLE] := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR1Value: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR1];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR1IsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR1]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR1Value: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR1];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR1IsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR1]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR1Value(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR1] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR1IsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR1] := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR2Value: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR2];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR2IsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR2]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR2Value: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR2];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR2IsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR2]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR2Value(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR2] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR2IsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR2] := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR3Value: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR3];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR3IsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR3]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR3Value: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR3];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR3IsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR3]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR3Value(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR3] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR3IsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR3] := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR4Value: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR4];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR4IsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR4]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR4Value: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR4];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR4IsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR4]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR4Value(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR4] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR4IsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR4] := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR5Value: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR5];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR5IsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR5]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR5Value: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR5];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR5IsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR5]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR5Value(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR5] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR5IsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR5] := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR6Value: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR6];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR6IsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR6]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR6Value: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR6];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR6IsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR6]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR6Value(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR6] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR6IsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR6] := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR7Value: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR7];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR7IsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR7]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR7Value: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR7];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR7IsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR7]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR7Value(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR7] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR7IsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR7] := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR8Value: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR8];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR8IsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR8]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR8Value: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR8];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR8IsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR8]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR8Value(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR8] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR8IsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR8] := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR9Value: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR9];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR9IsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR9]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR9Value: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR9];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR9IsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR9]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR9Value(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR9] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR9IsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR9] := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR10Value: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR10];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR10IsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR10]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR10Value: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR10];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR10IsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR10]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR10Value(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR10] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR10IsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR10] := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR11Value: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR11];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR11IsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR11]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR11Value: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR11];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR11IsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR11]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR11Value(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR11] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR11IsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR11] := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR12Value: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR12];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetCOLOR12IsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR12]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR12Value: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR12];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.GetOldCOLOR12IsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR12]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR12Value(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR12] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.SetCOLOR12IsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_Detalle_ColorCOLOR12] := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
{ TAlbaranesCliente_DetallesBusinessProcessorRules }
|
{ TAlbaranesCliente_DetallesBusinessProcessorRules }
|
||||||
constructor TAlbaranesCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
constructor TAlbaranesCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||||
begin
|
begin
|
||||||
@ -2591,6 +3228,7 @@ end;
|
|||||||
initialization
|
initialization
|
||||||
RegisterBusinessProcessorRules(RID_ListaAnosAlbaranesDelta, TListaAnosAlbaranesBusinessProcessorRules);
|
RegisterBusinessProcessorRules(RID_ListaAnosAlbaranesDelta, TListaAnosAlbaranesBusinessProcessorRules);
|
||||||
RegisterBusinessProcessorRules(RID_AlbaranesClienteDelta, TAlbaranesClienteBusinessProcessorRules);
|
RegisterBusinessProcessorRules(RID_AlbaranesClienteDelta, TAlbaranesClienteBusinessProcessorRules);
|
||||||
|
RegisterBusinessProcessorRules(RID_AlbaranesCliente_Detalle_ColorDelta, TAlbaranesCliente_Detalle_ColorBusinessProcessorRules);
|
||||||
RegisterBusinessProcessorRules(RID_AlbaranesCliente_DetallesDelta, TAlbaranesCliente_DetallesBusinessProcessorRules);
|
RegisterBusinessProcessorRules(RID_AlbaranesCliente_DetallesDelta, TAlbaranesCliente_DetallesBusinessProcessorRules);
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|||||||
@ -0,0 +1,49 @@
|
|||||||
|
unit uBizDetalleColoresAlbaranCliente;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
uDADataTable, schAlbaranesClienteClient_Intf;
|
||||||
|
|
||||||
|
const
|
||||||
|
BIZ_CLIENT_DETALLE_COLORES_ALBARAN_CLIENTE = 'Client.DetalleColoresAlbaran.Cliente';
|
||||||
|
|
||||||
|
|
||||||
|
type
|
||||||
|
IBizDetalleColoresAlbaranCliente = interface(IAlbaranesCliente_Detalle_Color)
|
||||||
|
['{113DFD59-6E81-42AE-BFCE-216C6E08D207}']
|
||||||
|
end;
|
||||||
|
|
||||||
|
TBizDetalleColoresAlbaranCliente = class(TAlbaranesCliente_Detalle_ColorDataTableRules, IBizDetalleColoresAlbaranCliente)
|
||||||
|
protected
|
||||||
|
procedure OnNewRecord(Sender: TDADataTable); override;
|
||||||
|
procedure BeforeInsert(Sender: TDADataTable); override;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
DB;
|
||||||
|
|
||||||
|
{ TBizDetalleColoresAlbaranCliente }
|
||||||
|
|
||||||
|
procedure TBizDetalleColoresAlbaranCliente.BeforeInsert(Sender: TDADataTable);
|
||||||
|
var
|
||||||
|
AMasterTable : TDADataTable;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
AMasterTable := DataTable.GetMasterDataTable;
|
||||||
|
if Assigned(AMasterTable) and (AMasterTable.State = dsInsert) then
|
||||||
|
AMasterTable.Post;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TBizDetalleColoresAlbaranCliente.OnNewRecord(Sender: TDADataTable);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
COLOR1 := 1; //Para que cuando elijamos varios articulos a añadir en un albarán por defecto es cantidad 1 y definimos por defecto tambien color 1
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
RegisterDataTableRules(BIZ_CLIENT_DETALLE_COLORES_ALBARAN_CLIENTE, TBizDetalleColoresAlbaranCliente);
|
||||||
|
|
||||||
|
end.
|
||||||
@ -3,7 +3,7 @@ unit uBizDetallesAlbaranCliente;
|
|||||||
interface
|
interface
|
||||||
|
|
||||||
uses
|
uses
|
||||||
uDADataTable, schAlbaranesClienteClient_Intf;
|
uDADataTable, schAlbaranesClienteClient_Intf, uBizDetalleColoresAlbaranCliente;
|
||||||
|
|
||||||
const
|
const
|
||||||
BIZ_CLIENT_DETALLES_ALBARAN_CLIENTE = 'Client.DetallesAlbaran.Cliente';
|
BIZ_CLIENT_DETALLES_ALBARAN_CLIENTE = 'Client.DetallesAlbaran.Cliente';
|
||||||
@ -12,18 +12,33 @@ const
|
|||||||
type
|
type
|
||||||
IBizDetallesAlbaranCliente = interface(IAlbaranesCliente_Detalles)
|
IBizDetallesAlbaranCliente = interface(IAlbaranesCliente_Detalles)
|
||||||
['{8EC1F1B2-C00D-4B58-9F97-C74DBADA4980}']
|
['{8EC1F1B2-C00D-4B58-9F97-C74DBADA4980}']
|
||||||
|
function GetDetalleColores: IBizDetalleColoresAlbaranCliente;
|
||||||
|
procedure SetDetalleColores(Value: IBizDetalleColoresAlbaranCliente);
|
||||||
|
property DetalleColores: IBizDetalleColoresAlbaranCliente read GetDetalleColores write SetDetalleColores;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
TBizDetallesAlbaranCliente = class(TAlbaranesCliente_DetallesDataTableRules, IBizDetallesAlbaranCliente)
|
TBizDetallesAlbaranCliente = class(TAlbaranesCliente_DetallesDataTableRules, IBizDetallesAlbaranCliente)
|
||||||
protected
|
protected
|
||||||
|
FDetalleColores : IBizDetalleColoresAlbaranCliente;
|
||||||
|
FDetalleColoresLink : TDADataSource;
|
||||||
|
|
||||||
|
function GetDetalleColores: IBizDetalleColoresAlbaranCliente;
|
||||||
|
procedure SetDetalleColores(Value: IBizDetalleColoresAlbaranCliente);
|
||||||
|
|
||||||
procedure OnNewRecord(Sender: TDADataTable); override;
|
procedure OnNewRecord(Sender: TDADataTable); override;
|
||||||
procedure BeforeInsert(Sender: TDADataTable); override;
|
procedure BeforeInsert(Sender: TDADataTable); override;
|
||||||
|
|
||||||
|
public
|
||||||
|
property DetalleColores: IBizDetalleColoresAlbaranCliente read GetDetalleColores write SetDetalleColores;
|
||||||
|
|
||||||
|
constructor Create(aDataTable: TDADataTable); override;
|
||||||
|
destructor Destroy; override;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
uses
|
uses
|
||||||
DB;
|
Classes, DB, uDataTableUtils;
|
||||||
|
|
||||||
{ TBizDetallesAlbaranCliente }
|
{ TBizDetallesAlbaranCliente }
|
||||||
|
|
||||||
@ -37,12 +52,38 @@ begin
|
|||||||
AMasterTable.Post;
|
AMasterTable.Post;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
constructor TBizDetallesAlbaranCliente.Create(aDataTable: TDADataTable);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
FDetalleColoresLink := TDADataSource.Create(NIL);
|
||||||
|
FDetalleColoresLink.DataTable := aDataTable;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TBizDetallesAlbaranCliente.Destroy;
|
||||||
|
begin
|
||||||
|
FDetalleColores := NIL;
|
||||||
|
FDetalleColoresLink.Free;
|
||||||
|
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TBizDetallesAlbaranCliente.GetDetalleColores: IBizDetalleColoresAlbaranCliente;
|
||||||
|
begin
|
||||||
|
Result := FDetalleColores;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TBizDetallesAlbaranCliente.OnNewRecord(Sender: TDADataTable);
|
procedure TBizDetallesAlbaranCliente.OnNewRecord(Sender: TDADataTable);
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
VISIBLE := 1;
|
VISIBLE := 1;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TBizDetallesAlbaranCliente.SetDetalleColores(Value: IBizDetalleColoresAlbaranCliente);
|
||||||
|
begin
|
||||||
|
FDetalleColores := Value;
|
||||||
|
EnlazarMaestroDetalle(FDetalleColoresLink, FDetalleColores);
|
||||||
|
end;
|
||||||
|
|
||||||
initialization
|
initialization
|
||||||
RegisterDataTableRules(BIZ_CLIENT_DETALLES_ALBARAN_CLIENTE, TBizDetallesAlbaranCliente);
|
RegisterDataTableRules(BIZ_CLIENT_DETALLES_ALBARAN_CLIENTE, TBizDetallesAlbaranCliente);
|
||||||
|
|
||||||
|
|||||||
@ -14,4 +14,4 @@ END
|
|||||||
|
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Plugin\uPluginAlbaranesCliente.dfm */
|
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Plugin\uPluginAlbaranesCliente.dfm */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Plugin\AlbaranesCliente_plugin.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Plugin\AlbaranesCliente_plugin.res */
|
||||||
/* E:\temp\dtf101.tmp */
|
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Plugin\AlbaranesCliente_plugin.drf */
|
||||||
|
|||||||
@ -435,6 +435,152 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
|||||||
DictionaryEntry = 'AlbaranesCliente_FECHA_RECEPCION'
|
DictionaryEntry = 'AlbaranesCliente_FECHA_RECEPCION'
|
||||||
end>
|
end>
|
||||||
end
|
end
|
||||||
|
item
|
||||||
|
Params = <>
|
||||||
|
Statements = <
|
||||||
|
item
|
||||||
|
Connection = 'IBX'
|
||||||
|
ConnectionType = 'Interbase'
|
||||||
|
Default = True
|
||||||
|
Name = 'IBX'
|
||||||
|
SQL =
|
||||||
|
'SELECT ID, ID_DETALLE, COLOR1, COLOR2, COLOR3, COLOR4, COLOR5, C' +
|
||||||
|
'OLOR6, COLOR7, COLOR8,'#10' COLOR9, COLOR10, COLOR11, COLOR12'#10 +
|
||||||
|
'FROM ALBARANES_CLIENTE_DETALLE_COLOR'#10'where {where}'#10
|
||||||
|
StatementType = stSQL
|
||||||
|
ColumnMappings = <
|
||||||
|
item
|
||||||
|
DatasetField = 'ID'
|
||||||
|
TableField = 'ID'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'ID_DETALLE'
|
||||||
|
TableField = 'ID_DETALLE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'COLOR1'
|
||||||
|
TableField = 'COLOR1'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'COLOR2'
|
||||||
|
TableField = 'COLOR2'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'COLOR3'
|
||||||
|
TableField = 'COLOR3'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'COLOR4'
|
||||||
|
TableField = 'COLOR4'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'COLOR5'
|
||||||
|
TableField = 'COLOR5'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'COLOR6'
|
||||||
|
TableField = 'COLOR6'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'COLOR7'
|
||||||
|
TableField = 'COLOR7'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'COLOR8'
|
||||||
|
TableField = 'COLOR8'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'COLOR9'
|
||||||
|
TableField = 'COLOR9'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'COLOR10'
|
||||||
|
TableField = 'COLOR10'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'COLOR11'
|
||||||
|
TableField = 'COLOR11'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'COLOR12'
|
||||||
|
TableField = 'COLOR12'
|
||||||
|
end>
|
||||||
|
end>
|
||||||
|
Name = 'AlbaranesCliente_Detalle_Color'
|
||||||
|
Fields = <
|
||||||
|
item
|
||||||
|
Name = 'ID'
|
||||||
|
DataType = datAutoInc
|
||||||
|
GeneratorName = 'GEN_ALBARANES_CLI_DET_COLOR_ID'
|
||||||
|
DictionaryEntry = 'AlbaranesCliente_Detalle_Color_ID'
|
||||||
|
InPrimaryKey = True
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_DETALLE'
|
||||||
|
DataType = datInteger
|
||||||
|
DictionaryEntry = 'AlbaranesCliente_Detalle_Color_ID_DETALLE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR1'
|
||||||
|
DataType = datInteger
|
||||||
|
DictionaryEntry = 'AlbaranesCliente_Detalle_Color_COLOR1'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR2'
|
||||||
|
DataType = datInteger
|
||||||
|
DictionaryEntry = 'AlbaranesCliente_Detalle_Color_COLOR2'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR3'
|
||||||
|
DataType = datInteger
|
||||||
|
DictionaryEntry = 'AlbaranesCliente_Detalle_Color_COLOR3'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR4'
|
||||||
|
DataType = datInteger
|
||||||
|
DictionaryEntry = 'AlbaranesCliente_Detalle_Color_COLOR4'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR5'
|
||||||
|
DataType = datInteger
|
||||||
|
DictionaryEntry = 'AlbaranesCliente_Detalle_Color_COLOR5'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR6'
|
||||||
|
DataType = datInteger
|
||||||
|
DictionaryEntry = 'AlbaranesCliente_Detalle_Color_COLOR6'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR7'
|
||||||
|
DataType = datInteger
|
||||||
|
DictionaryEntry = 'AlbaranesCliente_Detalle_Color_COLOR7'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR8'
|
||||||
|
DataType = datInteger
|
||||||
|
DictionaryEntry = 'AlbaranesCliente_Detalle_Color_COLOR8'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR9'
|
||||||
|
DataType = datInteger
|
||||||
|
DictionaryEntry = 'AlbaranesCliente_Detalle_Color_COLOR9'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR10'
|
||||||
|
DataType = datInteger
|
||||||
|
DictionaryEntry = 'AlbaranesCliente_Detalle_Color_COLOR10'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR11'
|
||||||
|
DataType = datInteger
|
||||||
|
DictionaryEntry = 'AlbaranesCliente_Detalle_Color_COLOR11'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR12'
|
||||||
|
DataType = datInteger
|
||||||
|
DictionaryEntry = 'AlbaranesCliente_Detalle_Color_COLOR12'
|
||||||
|
end>
|
||||||
|
end
|
||||||
item
|
item
|
||||||
Params = <>
|
Params = <>
|
||||||
Statements = <
|
Statements = <
|
||||||
@ -1152,8 +1298,218 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
|||||||
ColumnMappings = <>
|
ColumnMappings = <>
|
||||||
end>
|
end>
|
||||||
Name = 'Update_AlbaranesCliente_Detalles'
|
Name = 'Update_AlbaranesCliente_Detalles'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Params = <
|
||||||
|
item
|
||||||
|
Name = 'ID'
|
||||||
|
DataType = datAutoInc
|
||||||
|
GeneratorName = 'GEN_ALBARANES_CLI_DET_COLOR_ID'
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_DETALLE'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR1'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR2'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR3'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR4'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR5'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR6'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR7'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR8'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR9'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR10'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR11'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR12'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end>
|
||||||
|
Statements = <
|
||||||
|
item
|
||||||
|
Connection = 'IBX'
|
||||||
|
Default = True
|
||||||
|
TargetTable = 'ALBARANES_CLIENTE_DETALLE_COLOR'
|
||||||
|
SQL =
|
||||||
|
'INSERT'#10' INTO ALBARANES_CLIENTE_DETALLE_COLOR'#10' (ID, ID_DETALLE,' +
|
||||||
|
' COLOR1, COLOR2, COLOR3, COLOR4, COLOR5, COLOR6, COLOR7, COLOR8,' +
|
||||||
|
#10' COLOR9, COLOR10, COLOR11, COLOR12)'#10#10' VALUES'#10' (:ID, :ID_DE' +
|
||||||
|
'TALLE, :COLOR1, :COLOR2, :COLOR3, :COLOR4, :COLOR5, :COLOR6, :CO' +
|
||||||
|
'LOR7, :COLOR8,'#10' :COLOR9, :COLOR10, :COLOR11, :COLOR12)'#10#10
|
||||||
|
StatementType = stSQL
|
||||||
|
ColumnMappings = <>
|
||||||
|
end>
|
||||||
|
Name = 'Insert_AlbaranesCliente_DetalleColor'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Params = <
|
||||||
|
item
|
||||||
|
Name = 'ID'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_DETALLE'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR1'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR2'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR3'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR4'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR5'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR6'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR7'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR8'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR9'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR10'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR11'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'COLOR12'
|
||||||
|
DataType = datInteger
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'OLD_ID'
|
||||||
|
Value = ''
|
||||||
|
end>
|
||||||
|
Statements = <
|
||||||
|
item
|
||||||
|
Connection = 'IBX'
|
||||||
|
Default = True
|
||||||
|
TargetTable = 'ALBARANES_CLIENTE_DETALLE_COLOR'
|
||||||
|
SQL =
|
||||||
|
'UPDATE ALBARANES_CLIENTE_DETALLE_COLOR'#10' SET '#10' ID = :ID,'#10' ID' +
|
||||||
|
'_DETALLE = :ID_DETALLE,'#10' COLOR1 = :COLOR1,'#10' COLOR2 = :COLOR2' +
|
||||||
|
','#10' COLOR3 = :COLOR3,'#10' COLOR4 = :COLOR4,'#10' COLOR5 = :COLOR5,' +
|
||||||
|
#10' COLOR6 = :COLOR6,'#10' COLOR7 = :COLOR7,'#10' COLOR8 = :COLOR8,'#10 +
|
||||||
|
' COLOR9 = :COLOR9,'#10' COLOR10 = :COLOR10,'#10' COLOR11 = :COLOR1' +
|
||||||
|
'1,'#10' COLOR12 = :COLOR12'#10' WHERE'#10' (ID = :OLD_ID)'#10
|
||||||
|
StatementType = stSQL
|
||||||
|
ColumnMappings = <>
|
||||||
|
end>
|
||||||
|
Name = 'Update_AlbaranesCliente_DetalleColor'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Params = <
|
||||||
|
item
|
||||||
|
Name = 'OLD_ID'
|
||||||
|
DataType = datAutoInc
|
||||||
|
Value = ''
|
||||||
|
end>
|
||||||
|
Statements = <
|
||||||
|
item
|
||||||
|
Connection = 'IBX'
|
||||||
|
Default = True
|
||||||
|
TargetTable = 'ALBARANES_CLIENTE_DETALLE_COLOR'
|
||||||
|
SQL =
|
||||||
|
'DELETE '#10' FROM'#10' ALBARANES_CLIENTE_DETALLE_COLOR'#10' WHERE'#10' (' +
|
||||||
|
'ID = :OLD_ID)'#10
|
||||||
|
StatementType = stSQL
|
||||||
|
ColumnMappings = <>
|
||||||
|
end>
|
||||||
|
Name = 'Delete_AlbaranesCliente_DetalleColor'
|
||||||
end>
|
end>
|
||||||
RelationShips = <
|
RelationShips = <
|
||||||
|
item
|
||||||
|
Name = 'FK_AlbaranesCliente_DetallesColor'
|
||||||
|
MasterDatasetName = 'AlbaranesCliente_Detalles'
|
||||||
|
MasterFields = 'ID'
|
||||||
|
DetailDatasetName = 'AlbaranesCliente_Detalle_Color'
|
||||||
|
DetailFields = 'ID_DETALLE'
|
||||||
|
RelationshipType = rtForeignKey
|
||||||
|
end
|
||||||
item
|
item
|
||||||
Name = 'FK_AlbaranesCliente_Detalles'
|
Name = 'FK_AlbaranesCliente_Detalles'
|
||||||
MasterDatasetName = 'AlbaranesCliente'
|
MasterDatasetName = 'AlbaranesCliente'
|
||||||
@ -1563,6 +1919,64 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
|||||||
Name = 'AlbaranesCliente_REFERENCIA_CLIENTE'
|
Name = 'AlbaranesCliente_REFERENCIA_CLIENTE'
|
||||||
DataType = datString
|
DataType = datString
|
||||||
Size = 255
|
Size = 255
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'AlbaranesCliente_Detalle_Color_ID'
|
||||||
|
DataType = datAutoInc
|
||||||
|
GeneratorName = 'GEN_ALBARANES_CLI_DET_COLOR_ID'
|
||||||
|
DisplayLabel = 'ID'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'AlbaranesCliente_Detalle_Color_ID_DETALLE'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'AlbaranesCliente_Detalle_Color_COLOR1'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'AlbaranesCliente_Detalle_Color_COLOR2'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'AlbaranesCliente_Detalle_Color_COLOR3'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'AlbaranesCliente_Detalle_Color_COLOR4'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'AlbaranesCliente_Detalle_Color_COLOR5'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'AlbaranesCliente_Detalle_Color_COLOR6'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'AlbaranesCliente_Detalle_Color_COLOR7'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'AlbaranesCliente_Detalle_Color_COLOR8'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'AlbaranesCliente_Detalle_Color_COLOR9'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'AlbaranesCliente_Detalle_Color_COLOR10'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'AlbaranesCliente_Detalle_Color_COLOR11'
|
||||||
|
DataType = datInteger
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'AlbaranesCliente_Detalle_Color_COLOR12'
|
||||||
|
DataType = datInteger
|
||||||
end>
|
end>
|
||||||
Left = 56
|
Left = 56
|
||||||
Top = 144
|
Top = 144
|
||||||
@ -1571,4 +1985,15 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
|||||||
Left = 56
|
Left = 56
|
||||||
Top = 80
|
Top = 80
|
||||||
end
|
end
|
||||||
|
object bpAlbaranesCliente_DetalleColor: TDABusinessProcessor
|
||||||
|
Schema = schAlbaranesCliente
|
||||||
|
InsertCommandName = 'Insert_AlbaranesCliente_DetalleColor'
|
||||||
|
DeleteCommandName = 'Delete_AlbaranesCliente_DetalleColor'
|
||||||
|
UpdateCommandName = 'Update_AlbaranesCliente_DetalleColor'
|
||||||
|
ReferencedDataset = 'AlbaranesCliente_Detalle_Color'
|
||||||
|
ProcessorOptions = [poPrepareCommands]
|
||||||
|
UpdateMode = updWhereKeyOnly
|
||||||
|
Left = 224
|
||||||
|
Top = 144
|
||||||
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -27,6 +27,7 @@ type
|
|||||||
Bin2DataStreamer: TDABin2DataStreamer;
|
Bin2DataStreamer: TDABin2DataStreamer;
|
||||||
schAlbaranesCliente: TDASchema;
|
schAlbaranesCliente: TDASchema;
|
||||||
DADataDictionary: TDADataDictionary;
|
DADataDictionary: TDADataDictionary;
|
||||||
|
bpAlbaranesCliente_DetalleColor: TDABusinessProcessor;
|
||||||
procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string);
|
procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string);
|
||||||
procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset; const IncludeSchema: Boolean; const MaxRecords: Integer);
|
procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset; const IncludeSchema: Boolean; const MaxRecords: Integer);
|
||||||
procedure DARemoteServiceCreate(Sender: TObject);
|
procedure DARemoteServiceCreate(Sender: TObject);
|
||||||
|
|||||||
@ -32,7 +32,25 @@ requires
|
|||||||
AlbaranesCliente_controller,
|
AlbaranesCliente_controller,
|
||||||
Articulos_view,
|
Articulos_view,
|
||||||
Almacenes_controller,
|
Almacenes_controller,
|
||||||
AlbCli_FacCli_relation;
|
AlbCli_FacCli_relation,
|
||||||
|
rtl,
|
||||||
|
vcl,
|
||||||
|
dbrtl,
|
||||||
|
cxLibraryD11,
|
||||||
|
dxThemeD11,
|
||||||
|
dxGDIPlusD11,
|
||||||
|
dxCoreD11,
|
||||||
|
vclx,
|
||||||
|
cxEditorsD11,
|
||||||
|
cxDataD11,
|
||||||
|
vcljpg,
|
||||||
|
vcldb,
|
||||||
|
DataAbstract_Core_D11,
|
||||||
|
dsnap,
|
||||||
|
adortl,
|
||||||
|
RemObjects_Core_D11,
|
||||||
|
dxLayoutControlD11,
|
||||||
|
dxComnD11;
|
||||||
|
|
||||||
contains
|
contains
|
||||||
uAlbaranesClienteViewRegister in 'uAlbaranesClienteViewRegister.pas',
|
uAlbaranesClienteViewRegister in 'uAlbaranesClienteViewRegister.pas',
|
||||||
|
|||||||
@ -43,6 +43,14 @@
|
|||||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||||
<BorlandProject>
|
<BorlandProject>
|
||||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl not found</Excluded_Packages>
|
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl not found</Excluded_Packages>
|
||||||
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl not found</Excluded_Packages>
|
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl not found</Excluded_Packages>
|
||||||
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl not found</Excluded_Packages>
|
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl not found</Excluded_Packages>
|
||||||
@ -54,14 +62,28 @@
|
|||||||
<DelphiCompile Include="AlbaranesCliente_view.dpk">
|
<DelphiCompile Include="AlbaranesCliente_view.dpk">
|
||||||
<MainSource>MainSource</MainSource>
|
<MainSource>MainSource</MainSource>
|
||||||
</DelphiCompile>
|
</DelphiCompile>
|
||||||
<DCCReference Include="..\..\Albaranes de proveedor\AlbaranesCliente_controller.dcp" />
|
<DCCReference Include="adortl.dcp" />
|
||||||
<DCCReference Include="..\..\Albaranes de proveedor\AlbaranesCliente_model.dcp" />
|
<DCCReference Include="AlbaranesCliente_controller.dcp" />
|
||||||
<DCCReference Include="..\..\Albaranes de proveedor\AlbCli_FacCli_relation.dcp" />
|
<DCCReference Include="AlbaranesCliente_model.dcp" />
|
||||||
<DCCReference Include="..\..\Albaranes de proveedor\Almacenes_controller.dcp" />
|
<DCCReference Include="AlbCli_FacCli_relation.dcp" />
|
||||||
<DCCReference Include="..\..\Albaranes de proveedor\ApplicationBase.dcp" />
|
<DCCReference Include="Almacenes_controller.dcp" />
|
||||||
<DCCReference Include="..\..\Albaranes de proveedor\Articulos_view.dcp" />
|
<DCCReference Include="ApplicationBase.dcp" />
|
||||||
<DCCReference Include="..\..\Albaranes de proveedor\Base.dcp" />
|
<DCCReference Include="Articulos_view.dcp" />
|
||||||
<DCCReference Include="..\..\Albaranes de proveedor\GUIBase.dcp" />
|
<DCCReference Include="Base.dcp" />
|
||||||
|
<DCCReference Include="cxDataD11.dcp" />
|
||||||
|
<DCCReference Include="cxEditorsD11.dcp" />
|
||||||
|
<DCCReference Include="cxLibraryD11.dcp" />
|
||||||
|
<DCCReference Include="DataAbstract_Core_D11.dcp" />
|
||||||
|
<DCCReference Include="dbrtl.dcp" />
|
||||||
|
<DCCReference Include="dsnap.dcp" />
|
||||||
|
<DCCReference Include="dxComnD11.dcp" />
|
||||||
|
<DCCReference Include="dxCoreD11.dcp" />
|
||||||
|
<DCCReference Include="dxGDIPlusD11.dcp" />
|
||||||
|
<DCCReference Include="dxLayoutControlD11.dcp" />
|
||||||
|
<DCCReference Include="dxThemeD11.dcp" />
|
||||||
|
<DCCReference Include="GUIBase.dcp" />
|
||||||
|
<DCCReference Include="RemObjects_Core_D11.dcp" />
|
||||||
|
<DCCReference Include="rtl.dcp" />
|
||||||
<DCCReference Include="uAlbaranesClienteViewRegister.pas" />
|
<DCCReference Include="uAlbaranesClienteViewRegister.pas" />
|
||||||
<DCCReference Include="uEditorAlbaranCliente.pas">
|
<DCCReference Include="uEditorAlbaranCliente.pas">
|
||||||
<Form>fEditorAlbaranCliente</Form>
|
<Form>fEditorAlbaranCliente</Form>
|
||||||
@ -123,6 +145,10 @@
|
|||||||
<Form>frViewElegirArticulosAlbaranesCliente</Form>
|
<Form>frViewElegirArticulosAlbaranesCliente</Form>
|
||||||
<DesignClass>TFrame</DesignClass>
|
<DesignClass>TFrame</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
|
<DCCReference Include="vcl.dcp" />
|
||||||
|
<DCCReference Include="vcldb.dcp" />
|
||||||
|
<DCCReference Include="vcljpg.dcp" />
|
||||||
|
<DCCReference Include="vclx.dcp" />
|
||||||
</ItemGroup>
|
</ItemGroup>
|
||||||
</Project>
|
</Project>
|
||||||
<!-- EurekaLog First Line
|
<!-- EurekaLog First Line
|
||||||
|
|||||||
@ -28,4 +28,4 @@ END
|
|||||||
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Views\uViewAlbaranDevCliente.dfm */
|
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Views\uViewAlbaranDevCliente.dfm */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Views\uEditorAlbaranDevCliente.dfm */
|
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Views\uEditorAlbaranDevCliente.dfm */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Views\AlbaranesCliente_view.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Views\AlbaranesCliente_view.res */
|
||||||
/* E:\temp\dtfFF.tmp */
|
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Views\AlbaranesCliente_view.drf */
|
||||||
|
|||||||
Binary file not shown.
Binary file not shown.
@ -165,6 +165,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
|||||||
inherited pgPaginas: TPageControl
|
inherited pgPaginas: TPageControl
|
||||||
Width = 759
|
Width = 759
|
||||||
Height = 439
|
Height = 439
|
||||||
|
ActivePage = pagContenido
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
OnChanging = pgPaginasChanging
|
OnChanging = pgPaginasChanging
|
||||||
ExplicitWidth = 759
|
ExplicitWidth = 759
|
||||||
@ -210,17 +211,16 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
|||||||
ExplicitLeft = 278
|
ExplicitLeft = 278
|
||||||
ExplicitTop = 0
|
ExplicitTop = 0
|
||||||
end
|
end
|
||||||
inherited ToolButton14: TToolButton
|
inherited FontName: TJvFontComboBox
|
||||||
Left = 334
|
Left = 334
|
||||||
Top = 0
|
Top = 0
|
||||||
Wrap = False
|
|
||||||
ExplicitLeft = 334
|
ExplicitLeft = 334
|
||||||
ExplicitTop = 0
|
ExplicitTop = 0
|
||||||
end
|
end
|
||||||
inherited FontName: TJvFontComboBox
|
inherited ToolButton14: TToolButton
|
||||||
Left = 399
|
Left = 479
|
||||||
Top = 0
|
Top = 0
|
||||||
ExplicitLeft = 399
|
ExplicitLeft = 479
|
||||||
ExplicitTop = 0
|
ExplicitTop = 0
|
||||||
end
|
end
|
||||||
inherited FontSize: TEdit
|
inherited FontSize: TEdit
|
||||||
@ -245,46 +245,49 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
|
|||||||
ExplicitLeft = 0
|
ExplicitLeft = 0
|
||||||
ExplicitTop = 27
|
ExplicitTop = 27
|
||||||
end
|
end
|
||||||
inherited ToolButton6: TToolButton
|
inherited ToolButton11: TToolButton
|
||||||
Left = 17
|
Left = 17
|
||||||
Top = 27
|
Top = 27
|
||||||
ExplicitLeft = 17
|
ExplicitLeft = 17
|
||||||
ExplicitTop = 27
|
ExplicitTop = 27
|
||||||
end
|
end
|
||||||
inherited ToolButton7: TToolButton
|
|
||||||
Left = 83
|
|
||||||
Top = 27
|
|
||||||
ExplicitLeft = 83
|
|
||||||
ExplicitTop = 27
|
|
||||||
end
|
|
||||||
inherited ToolButton8: TToolButton
|
|
||||||
Left = 150
|
|
||||||
Top = 27
|
|
||||||
ExplicitLeft = 150
|
|
||||||
ExplicitTop = 27
|
|
||||||
end
|
|
||||||
inherited ToolButton12: TToolButton
|
inherited ToolButton12: TToolButton
|
||||||
Left = 233
|
Left = 158
|
||||||
Top = 27
|
Top = 27
|
||||||
ExplicitLeft = 233
|
Wrap = False
|
||||||
|
ExplicitLeft = 158
|
||||||
ExplicitTop = 27
|
ExplicitTop = 27
|
||||||
|
ExplicitHeight = 22
|
||||||
end
|
end
|
||||||
inherited ToolButton9: TToolButton
|
inherited ToolButton9: TToolButton
|
||||||
Left = 241
|
Left = 166
|
||||||
Top = 27
|
Top = 27
|
||||||
ExplicitLeft = 241
|
ExplicitLeft = 166
|
||||||
ExplicitTop = 27
|
ExplicitTop = 27
|
||||||
end
|
end
|
||||||
inherited ToolButton10: TToolButton
|
inherited ToolButton10: TToolButton
|
||||||
Left = 386
|
Left = 311
|
||||||
Top = 27
|
Top = 27
|
||||||
ExplicitLeft = 386
|
ExplicitLeft = 311
|
||||||
ExplicitTop = 27
|
ExplicitTop = 27
|
||||||
end
|
end
|
||||||
inherited ToolButton11: TToolButton
|
inherited ToolButton6: TToolButton
|
||||||
Left = 511
|
Left = 436
|
||||||
Top = 27
|
Top = 27
|
||||||
ExplicitLeft = 511
|
ExplicitLeft = 436
|
||||||
|
ExplicitTop = 27
|
||||||
|
end
|
||||||
|
inherited ToolButton7: TToolButton
|
||||||
|
Left = 502
|
||||||
|
Top = 27
|
||||||
|
Wrap = False
|
||||||
|
ExplicitLeft = 502
|
||||||
|
ExplicitTop = 27
|
||||||
|
end
|
||||||
|
inherited ToolButton8: TToolButton
|
||||||
|
Left = 569
|
||||||
|
Top = 27
|
||||||
|
ExplicitLeft = 569
|
||||||
ExplicitTop = 27
|
ExplicitTop = 27
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -14,7 +14,7 @@ uses
|
|||||||
dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, uViewTotales,
|
dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, uViewTotales,
|
||||||
uIEditorAlbaranCliente, uBizAlbaranesCliente, uViewAlbaranCliente,
|
uIEditorAlbaranCliente, uBizAlbaranesCliente, uViewAlbaranCliente,
|
||||||
uViewDetallesDTO, uViewDetallesArticulos, uDAInterfaces,
|
uViewDetallesDTO, uViewDetallesArticulos, uDAInterfaces,
|
||||||
uViewDetallesArticulosParaVenta, cxLabel;
|
uViewDetallesArticulosParaVenta, cxLabel, Grids, DBGrids;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfEditorAlbaranCliente = class(TfEditorDBItem, IEditorAlbaranCliente)
|
TfEditorAlbaranCliente = class(TfEditorDBItem, IEditorAlbaranCliente)
|
||||||
|
|||||||
@ -15,7 +15,6 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
|||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
TabStop = False
|
TabStop = False
|
||||||
AutoContentSizes = [acsWidth, acsHeight]
|
AutoContentSizes = [acsWidth, acsHeight]
|
||||||
ExplicitHeight = 550
|
|
||||||
DesignSize = (
|
DesignSize = (
|
||||||
903
|
903
|
||||||
506)
|
506)
|
||||||
@ -780,7 +779,6 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
|
|||||||
end
|
end
|
||||||
object dxLayoutControl1Group11: TdxLayoutGroup
|
object dxLayoutControl1Group11: TdxLayoutGroup
|
||||||
Caption = 'Almac'#233'n de origen'
|
Caption = 'Almac'#233'n de origen'
|
||||||
Visible = False
|
|
||||||
object dxLayoutControl1Group10: TdxLayoutGroup
|
object dxLayoutControl1Group10: TdxLayoutGroup
|
||||||
ShowCaption = False
|
ShowCaption = False
|
||||||
Hidden = True
|
Hidden = True
|
||||||
|
|||||||
@ -1,94 +1,84 @@
|
|||||||
inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente
|
inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente
|
||||||
inherited ToolBar1: TToolBar
|
inherited ToolBar1: TToolBar
|
||||||
Height = 95
|
inherited ToolButton9: TToolButton [3]
|
||||||
ExplicitHeight = 95
|
Left = 278
|
||||||
inherited FontName: TJvFontComboBox [4]
|
Top = 0
|
||||||
Left = 56
|
ExplicitLeft = 278
|
||||||
Top = 22
|
ExplicitTop = 0
|
||||||
ExplicitLeft = 56
|
|
||||||
ExplicitTop = 22
|
|
||||||
end
|
end
|
||||||
inherited ToolButton14: TToolButton [5]
|
inherited ToolButton4: TToolButton [4]
|
||||||
Left = 201
|
Left = 423
|
||||||
Wrap = False
|
Wrap = False
|
||||||
ExplicitLeft = 201
|
ExplicitLeft = 423
|
||||||
end
|
end
|
||||||
inherited FontSize: TEdit
|
inherited ToolButton12: TToolButton [5]
|
||||||
Left = 266
|
Top = 0
|
||||||
Top = 22
|
ExplicitTop = 0
|
||||||
ExplicitLeft = 266
|
|
||||||
ExplicitTop = 22
|
|
||||||
end
|
end
|
||||||
inherited UpDown1: TUpDown
|
inherited ToolButton14: TToolButton [6]
|
||||||
Left = 308
|
|
||||||
Top = 22
|
|
||||||
ExplicitLeft = 308
|
|
||||||
ExplicitTop = 22
|
|
||||||
end
|
|
||||||
inherited ToolButton13: TToolButton
|
|
||||||
Left = 325
|
|
||||||
Top = 22
|
|
||||||
ExplicitLeft = 325
|
|
||||||
ExplicitTop = 22
|
|
||||||
end
|
|
||||||
inherited ToolButton11: TToolButton [9]
|
|
||||||
Left = 333
|
|
||||||
Top = 22
|
|
||||||
ExplicitLeft = 333
|
|
||||||
ExplicitTop = 22
|
|
||||||
end
|
|
||||||
inherited ToolButton12: TToolButton [10]
|
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 22
|
Top = 27
|
||||||
Wrap = True
|
|
||||||
ExplicitLeft = 0
|
ExplicitLeft = 0
|
||||||
ExplicitTop = 22
|
|
||||||
ExplicitHeight = 27
|
|
||||||
end
|
end
|
||||||
inherited ToolButton9: TToolButton [11]
|
inherited FontName: TJvFontComboBox [7]
|
||||||
Left = 0
|
|
||||||
Top = 49
|
|
||||||
ExplicitLeft = 0
|
|
||||||
ExplicitTop = 49
|
|
||||||
end
|
end
|
||||||
inherited ToolButton10: TToolButton [12]
|
inherited ToolButton13: TToolButton [8]
|
||||||
Left = 145
|
Left = 145
|
||||||
Top = 49
|
Top = 49
|
||||||
ExplicitLeft = 145
|
ExplicitLeft = 145
|
||||||
ExplicitTop = 49
|
ExplicitTop = 49
|
||||||
end
|
end
|
||||||
inherited ToolButton6: TToolButton [13]
|
inherited ToolButton10: TToolButton
|
||||||
Left = 270
|
Left = 153
|
||||||
Top = 49
|
ExplicitLeft = 153
|
||||||
ExplicitLeft = 270
|
|
||||||
ExplicitTop = 49
|
|
||||||
end
|
end
|
||||||
inherited ToolButton7: TToolButton [14]
|
inherited ToolButton7: TToolButton
|
||||||
Left = 336
|
Left = 278
|
||||||
Top = 49
|
ExplicitLeft = 278
|
||||||
Wrap = True
|
|
||||||
ExplicitLeft = 336
|
|
||||||
ExplicitTop = 49
|
|
||||||
end
|
end
|
||||||
inherited ToolButton8: TToolButton [15]
|
inherited ToolButton8: TToolButton [12]
|
||||||
Left = 0
|
Left = 17
|
||||||
Top = 71
|
ExplicitLeft = 17
|
||||||
ExplicitLeft = 0
|
end
|
||||||
ExplicitTop = 71
|
inherited ToolButton6: TToolButton
|
||||||
|
Left = 100
|
||||||
|
ExplicitLeft = 100
|
||||||
|
end
|
||||||
|
inherited ToolButton11: TToolButton [14]
|
||||||
|
Left = 166
|
||||||
|
ExplicitLeft = 166
|
||||||
|
end
|
||||||
|
inherited FontSize: TEdit
|
||||||
|
Width = 58
|
||||||
|
ExplicitWidth = 58
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited cxGrid: TcxGrid
|
inherited cxGrid: TcxGrid
|
||||||
Top = 121
|
ExplicitTop = 121
|
||||||
Height = 183
|
|
||||||
inherited cxGridView: TcxGridDBTableView
|
inherited cxGridView: TcxGridDBTableView
|
||||||
inherited cxGridViewTIPO: TcxGridDBColumn
|
inherited cxGridViewTIPO: TcxGridDBColumn
|
||||||
Visible = False
|
Visible = False
|
||||||
VisibleForCustomization = False
|
VisibleForCustomization = False
|
||||||
end
|
end
|
||||||
|
inherited cxGridViewCANTIDAD: TcxGridDBColumn
|
||||||
|
Properties.ReadOnly = True
|
||||||
|
end
|
||||||
|
object cxGridViewCANTIDAD2: TcxGridDBColumn [10]
|
||||||
|
Caption = 'Cantidad'
|
||||||
|
DataBinding.FieldName = 'CANTIDAD'
|
||||||
|
PropertiesClassName = 'TcxButtonEditProperties'
|
||||||
|
Properties.Buttons = <
|
||||||
|
item
|
||||||
|
Default = True
|
||||||
|
Kind = bkEllipsis
|
||||||
|
end>
|
||||||
|
Properties.ReadOnly = True
|
||||||
|
Properties.OnButtonClick = cxGridViewCANTIDAD2PropertiesButtonClick
|
||||||
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXDock1: TTBXDock
|
inherited TBXDock1: TTBXDock
|
||||||
Top = 95
|
ExplicitTop = 100
|
||||||
inherited TBXToolbar1: TTBXToolbar
|
inherited TBXToolbar1: TTBXToolbar
|
||||||
DockPos = 0
|
DockPos = 0
|
||||||
inherited TBXSubmenuItem1: TTBXSubmenuItem
|
inherited TBXSubmenuItem1: TTBXSubmenuItem
|
||||||
|
|||||||
@ -29,6 +29,9 @@ type
|
|||||||
N2: TMenuItem;
|
N2: TMenuItem;
|
||||||
Aadirartculos1: TMenuItem;
|
Aadirartculos1: TMenuItem;
|
||||||
TBXItem18: TTBXItem;
|
TBXItem18: TTBXItem;
|
||||||
|
cxGridViewCANTIDAD2: TcxGridDBColumn;
|
||||||
|
procedure cxGridViewCANTIDAD2PropertiesButtonClick(Sender: TObject;
|
||||||
|
AButtonIndex: Integer);
|
||||||
protected
|
protected
|
||||||
FAlbaran: IBizAlbaranCliente;
|
FAlbaran: IBizAlbaranCliente;
|
||||||
function GetAlbaran: IBizAlbaranCliente;
|
function GetAlbaran: IBizAlbaranCliente;
|
||||||
@ -55,6 +58,8 @@ begin
|
|||||||
Result := (Controller as IDetallesAlbaranClienteController).AnadirArticulo(Detalles, pReferencia, TipoReferencia, Albaran.Cliente.ID, -1)
|
Result := (Controller as IDetallesAlbaranClienteController).AnadirArticulo(Detalles, pReferencia, TipoReferencia, Albaran.Cliente.ID, -1)
|
||||||
else
|
else
|
||||||
Result := (Controller as IDetallesAlbaranClienteController).AnadirArticulo(Detalles, pReferencia, TipoReferencia, Albaran.Cliente.ID);
|
Result := (Controller as IDetallesAlbaranClienteController).AnadirArticulo(Detalles, pReferencia, TipoReferencia, Albaran.Cliente.ID);
|
||||||
|
|
||||||
|
(Controller as IDetallesAlbaranClienteController).ModificarCantidadColores(Detalles);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewDetallesAlbaranCliente.AnadirArticulosInterno;
|
procedure TfrViewDetallesAlbaranCliente.AnadirArticulosInterno;
|
||||||
@ -62,7 +67,14 @@ begin
|
|||||||
if (Albaran.TIPO = CTE_TIPO_ALBARAN_DEV) then
|
if (Albaran.TIPO = CTE_TIPO_ALBARAN_DEV) then
|
||||||
(Controller as IDetallesAlbaranClienteController).AnadirArticulos(Detalles, Albaran.Cliente, true, -1)
|
(Controller as IDetallesAlbaranClienteController).AnadirArticulos(Detalles, Albaran.Cliente, true, -1)
|
||||||
else
|
else
|
||||||
(Controller as IDetallesAlbaranClienteController).AnadirArticulos(Detalles, Albaran.Cliente);
|
(Controller as IDetallesAlbaranClienteController).AnadirArticulos(Detalles, Albaran.Cliente, true, 0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewDetallesAlbaranCliente.cxGridViewCANTIDAD2PropertiesButtonClick(
|
||||||
|
Sender: TObject; AButtonIndex: Integer);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
(Controller as IDetallesAlbaranClienteController).ModificarCantidadColores(Detalles);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TfrViewDetallesAlbaranCliente.GetAlbaran: IBizAlbaranCliente;
|
function TfrViewDetallesAlbaranCliente.GetAlbaran: IBizAlbaranCliente;
|
||||||
|
|||||||
@ -13,4 +13,4 @@ BEGIN
|
|||||||
END
|
END
|
||||||
|
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Controller\AlbaranesProveedor_controller.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Controller\AlbaranesProveedor_controller.res */
|
||||||
/* E:\temp\dtfD5.tmp */
|
/* E:\temp\dtfCB.tmp */
|
||||||
|
|||||||
@ -14,4 +14,4 @@ END
|
|||||||
|
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Data\uDataModuleAlbaranesProveedor.dfm */
|
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Data\uDataModuleAlbaranesProveedor.dfm */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Data\AlbaranesProveedor_data.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Data\AlbaranesProveedor_data.res */
|
||||||
/* E:\temp\dtfD3.tmp */
|
/* E:\temp\dtfC9.tmp */
|
||||||
|
|||||||
@ -13,4 +13,4 @@ BEGIN
|
|||||||
END
|
END
|
||||||
|
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Model\AlbaranesProveedor_model.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Model\AlbaranesProveedor_model.res */
|
||||||
/* E:\temp\dtfD1.tmp */
|
/* E:\temp\dtfC7.tmp */
|
||||||
|
|||||||
@ -14,4 +14,4 @@ END
|
|||||||
|
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Plugin\uPluginAlbaranesProveedor.dfm */
|
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Plugin\uPluginAlbaranesProveedor.dfm */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Plugin\AlbaranesProveedor_plugin.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Plugin\AlbaranesProveedor_plugin.res */
|
||||||
/* E:\temp\dtf115.tmp */
|
/* E:\temp\dtf10B.tmp */
|
||||||
|
|||||||
@ -29,4 +29,4 @@ END
|
|||||||
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Views\uEditorAlbaranDevProveedor.dfm */
|
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Views\uEditorAlbaranDevProveedor.dfm */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Views\uEditorAlbaranesProveedorReport.dfm */
|
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Views\uEditorAlbaranesProveedorReport.dfm */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Views\AlbaranesProveedor_view.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Views\AlbaranesProveedor_view.res */
|
||||||
/* E:\temp\dtf113.tmp */
|
/* E:\temp\dtf109.tmp */
|
||||||
|
|||||||
@ -14,12 +14,12 @@ inherited DataModuleArticulos: TDataModuleArticulos
|
|||||||
Top = 84
|
Top = 84
|
||||||
end
|
end
|
||||||
object rda_Articulos: TDARemoteDataAdapter
|
object rda_Articulos: TDARemoteDataAdapter
|
||||||
|
DataStreamer = Bin2DataStreamer
|
||||||
GetSchemaCall.RemoteService = RORemoteService
|
GetSchemaCall.RemoteService = RORemoteService
|
||||||
GetDataCall.RemoteService = RORemoteService
|
GetDataCall.RemoteService = RORemoteService
|
||||||
UpdateDataCall.RemoteService = RORemoteService
|
UpdateDataCall.RemoteService = RORemoteService
|
||||||
GetScriptsCall.RemoteService = RORemoteService
|
GetScriptsCall.RemoteService = RORemoteService
|
||||||
RemoteService = RORemoteService
|
RemoteService = RORemoteService
|
||||||
DataStreamer = Bin2DataStreamer
|
|
||||||
Left = 51
|
Left = 51
|
||||||
Top = 151
|
Top = 151
|
||||||
end
|
end
|
||||||
@ -192,12 +192,29 @@ inherited DataModuleArticulos: TDataModuleArticulos
|
|||||||
Alignment = taRightJustify
|
Alignment = taRightJustify
|
||||||
ServerAutoRefresh = True
|
ServerAutoRefresh = True
|
||||||
DictionaryEntry = 'Articulos_PRECIO_PVP_TOTAL'
|
DictionaryEntry = 'Articulos_PRECIO_PVP_TOTAL'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'CAMPOTECNICO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 200
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'CODIGOTECNICO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 15
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'DISENOTECNICO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 6
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'PRECIO'
|
||||||
|
DataType = datCurrency
|
||||||
end>
|
end>
|
||||||
Params = <>
|
Params = <>
|
||||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||||
RemoteDataAdapter = rda_Articulos
|
RemoteDataAdapter = rda_Articulos
|
||||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
|
||||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
|
||||||
LogicalName = 'Articulos'
|
LogicalName = 'Articulos'
|
||||||
IndexDefs = <>
|
IndexDefs = <>
|
||||||
Left = 232
|
Left = 232
|
||||||
@ -229,8 +246,6 @@ inherited DataModuleArticulos: TDataModuleArticulos
|
|||||||
end>
|
end>
|
||||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||||
RemoteDataAdapter = rda_Articulos
|
RemoteDataAdapter = rda_Articulos
|
||||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
|
||||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
|
||||||
LogicalName = 'ProveedoresConArticulos'
|
LogicalName = 'ProveedoresConArticulos'
|
||||||
IndexDefs = <>
|
IndexDefs = <>
|
||||||
Left = 232
|
Left = 232
|
||||||
@ -313,8 +328,6 @@ inherited DataModuleArticulos: TDataModuleArticulos
|
|||||||
MasterSource = ds_Articulos
|
MasterSource = ds_Articulos
|
||||||
MasterFields = 'ID'
|
MasterFields = 'ID'
|
||||||
DetailFields = 'ID_ARTICULO'
|
DetailFields = 'ID_ARTICULO'
|
||||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
|
||||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
|
||||||
LogicalName = 'Articulos_Proveedores'
|
LogicalName = 'Articulos_Proveedores'
|
||||||
IndexDefs = <>
|
IndexDefs = <>
|
||||||
Left = 368
|
Left = 368
|
||||||
@ -512,8 +525,6 @@ inherited DataModuleArticulos: TDataModuleArticulos
|
|||||||
Params = <>
|
Params = <>
|
||||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||||
RemoteDataAdapter = rda_Articulos
|
RemoteDataAdapter = rda_Articulos
|
||||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
|
||||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
|
||||||
LogicalName = 'ArticulosParaCompra'
|
LogicalName = 'ArticulosParaCompra'
|
||||||
IndexDefs = <>
|
IndexDefs = <>
|
||||||
Left = 416
|
Left = 416
|
||||||
|
|||||||
@ -3,16 +3,16 @@ unit schArticulosClient_Intf;
|
|||||||
interface
|
interface
|
||||||
|
|
||||||
uses
|
uses
|
||||||
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
|
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
|
||||||
|
|
||||||
const
|
const
|
||||||
{ Data table rules ids
|
{ Data table rules ids
|
||||||
Feel free to change them to something more human readable
|
Feel free to change them to something more human readable
|
||||||
but make sure they are unique in the context of your application }
|
but make sure they are unique in the context of your application }
|
||||||
RID_ProveedoresConArticulos = '{5C4B513D-A09F-4964-93E6-DD87A4AAA324}';
|
RID_ProveedoresConArticulos = '{379657B4-60F9-4869-8118-D64DDB75F498}';
|
||||||
RID_Articulos_Proveedores = '{C23E90C0-7019-447D-ACD4-12687E51658B}';
|
RID_Articulos_Proveedores = '{635679F2-8A86-4BD7-9618-266ACE873E9E}';
|
||||||
RID_Articulos = '{730B578C-0743-43FF-87A3-1D580A528918}';
|
RID_Articulos = '{7639CA52-0BFC-4310-803D-83E8E87B60B2}';
|
||||||
RID_ArticulosParaCompra = '{CF8E3694-1AA8-41E9-B4D8-0A3A002BDCB9}';
|
RID_ArticulosParaCompra = '{004BCA46-82E3-457F-B022-A3FD38B0657E}';
|
||||||
|
|
||||||
{ Data table names }
|
{ Data table names }
|
||||||
nme_ProveedoresConArticulos = 'ProveedoresConArticulos';
|
nme_ProveedoresConArticulos = 'ProveedoresConArticulos';
|
||||||
@ -79,6 +79,10 @@ const
|
|||||||
fld_ArticulosPARAM_TIEMPO = 'PARAM_TIEMPO';
|
fld_ArticulosPARAM_TIEMPO = 'PARAM_TIEMPO';
|
||||||
fld_ArticulosMANO_OBRA = 'MANO_OBRA';
|
fld_ArticulosMANO_OBRA = 'MANO_OBRA';
|
||||||
fld_ArticulosPRECIO_PVP_TOTAL = 'PRECIO_PVP_TOTAL';
|
fld_ArticulosPRECIO_PVP_TOTAL = 'PRECIO_PVP_TOTAL';
|
||||||
|
fld_ArticulosCAMPOTECNICO = 'CAMPOTECNICO';
|
||||||
|
fld_ArticulosCODIGOTECNICO = 'CODIGOTECNICO';
|
||||||
|
fld_ArticulosDISENOTECNICO = 'DISENOTECNICO';
|
||||||
|
fld_ArticulosPRECIO = 'PRECIO';
|
||||||
|
|
||||||
{ Articulos field indexes }
|
{ Articulos field indexes }
|
||||||
idx_ArticulosID = 0;
|
idx_ArticulosID = 0;
|
||||||
@ -107,6 +111,10 @@ const
|
|||||||
idx_ArticulosPARAM_TIEMPO = 23;
|
idx_ArticulosPARAM_TIEMPO = 23;
|
||||||
idx_ArticulosMANO_OBRA = 24;
|
idx_ArticulosMANO_OBRA = 24;
|
||||||
idx_ArticulosPRECIO_PVP_TOTAL = 25;
|
idx_ArticulosPRECIO_PVP_TOTAL = 25;
|
||||||
|
idx_ArticulosCAMPOTECNICO = 26;
|
||||||
|
idx_ArticulosCODIGOTECNICO = 27;
|
||||||
|
idx_ArticulosDISENOTECNICO = 28;
|
||||||
|
idx_ArticulosPRECIO = 29;
|
||||||
|
|
||||||
{ ArticulosParaCompra fields }
|
{ ArticulosParaCompra fields }
|
||||||
fld_ArticulosParaCompraID = 'ID';
|
fld_ArticulosParaCompraID = 'ID';
|
||||||
@ -173,7 +181,7 @@ const
|
|||||||
type
|
type
|
||||||
{ IProveedoresConArticulos }
|
{ IProveedoresConArticulos }
|
||||||
IProveedoresConArticulos = interface(IDAStronglyTypedDataTable)
|
IProveedoresConArticulos = interface(IDAStronglyTypedDataTable)
|
||||||
['{EE9B47ED-6CFF-405D-A2B1-027A58BF0562}']
|
['{4215D7A1-8D56-455F-9C17-805F5314F50A}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetID_PROVEEDORValue: Integer;
|
function GetID_PROVEEDORValue: Integer;
|
||||||
procedure SetID_PROVEEDORValue(const aValue: Integer);
|
procedure SetID_PROVEEDORValue(const aValue: Integer);
|
||||||
@ -220,7 +228,7 @@ type
|
|||||||
|
|
||||||
{ IArticulos_Proveedores }
|
{ IArticulos_Proveedores }
|
||||||
IArticulos_Proveedores = interface(IDAStronglyTypedDataTable)
|
IArticulos_Proveedores = interface(IDAStronglyTypedDataTable)
|
||||||
['{202E2D67-E014-4CC6-8E1A-60E915C329A7}']
|
['{C71C6CA0-947C-4626-94E1-C78CFDE009EA}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetIDValue: Integer;
|
function GetIDValue: Integer;
|
||||||
procedure SetIDValue(const aValue: Integer);
|
procedure SetIDValue(const aValue: Integer);
|
||||||
@ -363,7 +371,7 @@ type
|
|||||||
|
|
||||||
{ IArticulos }
|
{ IArticulos }
|
||||||
IArticulos = interface(IDAStronglyTypedDataTable)
|
IArticulos = interface(IDAStronglyTypedDataTable)
|
||||||
['{92E42697-A92B-46A4-9A19-3214D8C788E6}']
|
['{E78CD6D0-3E58-4560-B23C-84A4495CB1EA}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetIDValue: Integer;
|
function GetIDValue: Integer;
|
||||||
procedure SetIDValue(const aValue: Integer);
|
procedure SetIDValue(const aValue: Integer);
|
||||||
@ -468,6 +476,22 @@ type
|
|||||||
procedure SetPRECIO_PVP_TOTALValue(const aValue: Currency);
|
procedure SetPRECIO_PVP_TOTALValue(const aValue: Currency);
|
||||||
function GetPRECIO_PVP_TOTALIsNull: Boolean;
|
function GetPRECIO_PVP_TOTALIsNull: Boolean;
|
||||||
procedure SetPRECIO_PVP_TOTALIsNull(const aValue: Boolean);
|
procedure SetPRECIO_PVP_TOTALIsNull(const aValue: Boolean);
|
||||||
|
function GetCAMPOTECNICOValue: String;
|
||||||
|
procedure SetCAMPOTECNICOValue(const aValue: String);
|
||||||
|
function GetCAMPOTECNICOIsNull: Boolean;
|
||||||
|
procedure SetCAMPOTECNICOIsNull(const aValue: Boolean);
|
||||||
|
function GetCODIGOTECNICOValue: String;
|
||||||
|
procedure SetCODIGOTECNICOValue(const aValue: String);
|
||||||
|
function GetCODIGOTECNICOIsNull: Boolean;
|
||||||
|
procedure SetCODIGOTECNICOIsNull(const aValue: Boolean);
|
||||||
|
function GetDISENOTECNICOValue: String;
|
||||||
|
procedure SetDISENOTECNICOValue(const aValue: String);
|
||||||
|
function GetDISENOTECNICOIsNull: Boolean;
|
||||||
|
procedure SetDISENOTECNICOIsNull(const aValue: Boolean);
|
||||||
|
function GetPRECIOValue: Currency;
|
||||||
|
procedure SetPRECIOValue(const aValue: Currency);
|
||||||
|
function GetPRECIOIsNull: Boolean;
|
||||||
|
procedure SetPRECIOIsNull(const aValue: Boolean);
|
||||||
|
|
||||||
|
|
||||||
{ Properties }
|
{ Properties }
|
||||||
@ -523,6 +547,14 @@ type
|
|||||||
property MANO_OBRAIsNull: Boolean read GetMANO_OBRAIsNull write SetMANO_OBRAIsNull;
|
property MANO_OBRAIsNull: Boolean read GetMANO_OBRAIsNull write SetMANO_OBRAIsNull;
|
||||||
property PRECIO_PVP_TOTAL: Currency read GetPRECIO_PVP_TOTALValue write SetPRECIO_PVP_TOTALValue;
|
property PRECIO_PVP_TOTAL: Currency read GetPRECIO_PVP_TOTALValue write SetPRECIO_PVP_TOTALValue;
|
||||||
property PRECIO_PVP_TOTALIsNull: Boolean read GetPRECIO_PVP_TOTALIsNull write SetPRECIO_PVP_TOTALIsNull;
|
property PRECIO_PVP_TOTALIsNull: Boolean read GetPRECIO_PVP_TOTALIsNull write SetPRECIO_PVP_TOTALIsNull;
|
||||||
|
property CAMPOTECNICO: String read GetCAMPOTECNICOValue write SetCAMPOTECNICOValue;
|
||||||
|
property CAMPOTECNICOIsNull: Boolean read GetCAMPOTECNICOIsNull write SetCAMPOTECNICOIsNull;
|
||||||
|
property CODIGOTECNICO: String read GetCODIGOTECNICOValue write SetCODIGOTECNICOValue;
|
||||||
|
property CODIGOTECNICOIsNull: Boolean read GetCODIGOTECNICOIsNull write SetCODIGOTECNICOIsNull;
|
||||||
|
property DISENOTECNICO: String read GetDISENOTECNICOValue write SetDISENOTECNICOValue;
|
||||||
|
property DISENOTECNICOIsNull: Boolean read GetDISENOTECNICOIsNull write SetDISENOTECNICOIsNull;
|
||||||
|
property PRECIO: Currency read GetPRECIOValue write SetPRECIOValue;
|
||||||
|
property PRECIOIsNull: Boolean read GetPRECIOIsNull write SetPRECIOIsNull;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{ TArticulosDataTableRules }
|
{ TArticulosDataTableRules }
|
||||||
@ -635,6 +667,22 @@ type
|
|||||||
procedure SetPRECIO_PVP_TOTALValue(const aValue: Currency); virtual;
|
procedure SetPRECIO_PVP_TOTALValue(const aValue: Currency); virtual;
|
||||||
function GetPRECIO_PVP_TOTALIsNull: Boolean; virtual;
|
function GetPRECIO_PVP_TOTALIsNull: Boolean; virtual;
|
||||||
procedure SetPRECIO_PVP_TOTALIsNull(const aValue: Boolean); virtual;
|
procedure SetPRECIO_PVP_TOTALIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetCAMPOTECNICOValue: String; virtual;
|
||||||
|
procedure SetCAMPOTECNICOValue(const aValue: String); virtual;
|
||||||
|
function GetCAMPOTECNICOIsNull: Boolean; virtual;
|
||||||
|
procedure SetCAMPOTECNICOIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetCODIGOTECNICOValue: String; virtual;
|
||||||
|
procedure SetCODIGOTECNICOValue(const aValue: String); virtual;
|
||||||
|
function GetCODIGOTECNICOIsNull: Boolean; virtual;
|
||||||
|
procedure SetCODIGOTECNICOIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetDISENOTECNICOValue: String; virtual;
|
||||||
|
procedure SetDISENOTECNICOValue(const aValue: String); virtual;
|
||||||
|
function GetDISENOTECNICOIsNull: Boolean; virtual;
|
||||||
|
procedure SetDISENOTECNICOIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetPRECIOValue: Currency; virtual;
|
||||||
|
procedure SetPRECIOValue(const aValue: Currency); virtual;
|
||||||
|
function GetPRECIOIsNull: Boolean; virtual;
|
||||||
|
procedure SetPRECIOIsNull(const aValue: Boolean); virtual;
|
||||||
|
|
||||||
{ Properties }
|
{ Properties }
|
||||||
property ID: Integer read GetIDValue write SetIDValue;
|
property ID: Integer read GetIDValue write SetIDValue;
|
||||||
@ -689,6 +737,14 @@ type
|
|||||||
property MANO_OBRAIsNull: Boolean read GetMANO_OBRAIsNull write SetMANO_OBRAIsNull;
|
property MANO_OBRAIsNull: Boolean read GetMANO_OBRAIsNull write SetMANO_OBRAIsNull;
|
||||||
property PRECIO_PVP_TOTAL: Currency read GetPRECIO_PVP_TOTALValue write SetPRECIO_PVP_TOTALValue;
|
property PRECIO_PVP_TOTAL: Currency read GetPRECIO_PVP_TOTALValue write SetPRECIO_PVP_TOTALValue;
|
||||||
property PRECIO_PVP_TOTALIsNull: Boolean read GetPRECIO_PVP_TOTALIsNull write SetPRECIO_PVP_TOTALIsNull;
|
property PRECIO_PVP_TOTALIsNull: Boolean read GetPRECIO_PVP_TOTALIsNull write SetPRECIO_PVP_TOTALIsNull;
|
||||||
|
property CAMPOTECNICO: String read GetCAMPOTECNICOValue write SetCAMPOTECNICOValue;
|
||||||
|
property CAMPOTECNICOIsNull: Boolean read GetCAMPOTECNICOIsNull write SetCAMPOTECNICOIsNull;
|
||||||
|
property CODIGOTECNICO: String read GetCODIGOTECNICOValue write SetCODIGOTECNICOValue;
|
||||||
|
property CODIGOTECNICOIsNull: Boolean read GetCODIGOTECNICOIsNull write SetCODIGOTECNICOIsNull;
|
||||||
|
property DISENOTECNICO: String read GetDISENOTECNICOValue write SetDISENOTECNICOValue;
|
||||||
|
property DISENOTECNICOIsNull: Boolean read GetDISENOTECNICOIsNull write SetDISENOTECNICOIsNull;
|
||||||
|
property PRECIO: Currency read GetPRECIOValue write SetPRECIOValue;
|
||||||
|
property PRECIOIsNull: Boolean read GetPRECIOIsNull write SetPRECIOIsNull;
|
||||||
|
|
||||||
public
|
public
|
||||||
constructor Create(aDataTable: TDADataTable); override;
|
constructor Create(aDataTable: TDADataTable); override;
|
||||||
@ -701,7 +757,7 @@ type
|
|||||||
}
|
}
|
||||||
{ IArticulosParaCompra }
|
{ IArticulosParaCompra }
|
||||||
IArticulosParaCompra = interface(IDAStronglyTypedDataTable)
|
IArticulosParaCompra = interface(IDAStronglyTypedDataTable)
|
||||||
['{3D547837-FB04-4E59-AD87-C00D844EE481}']
|
['{0AD09829-8805-4658-9A87-86A073704946}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetIDValue: Integer;
|
function GetIDValue: Integer;
|
||||||
procedure SetIDValue(const aValue: Integer);
|
procedure SetIDValue(const aValue: Integer);
|
||||||
@ -1918,6 +1974,90 @@ begin
|
|||||||
DataTable.Fields[idx_ArticulosPRECIO_PVP_TOTAL].AsVariant := Null;
|
DataTable.Fields[idx_ArticulosPRECIO_PVP_TOTAL].AsVariant := Null;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function TArticulosDataTableRules.GetCAMPOTECNICOValue: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_ArticulosCAMPOTECNICO].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TArticulosDataTableRules.SetCAMPOTECNICOValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_ArticulosCAMPOTECNICO].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TArticulosDataTableRules.GetCAMPOTECNICOIsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_ArticulosCAMPOTECNICO].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TArticulosDataTableRules.SetCAMPOTECNICOIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_ArticulosCAMPOTECNICO].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TArticulosDataTableRules.GetCODIGOTECNICOValue: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_ArticulosCODIGOTECNICO].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TArticulosDataTableRules.SetCODIGOTECNICOValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_ArticulosCODIGOTECNICO].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TArticulosDataTableRules.GetCODIGOTECNICOIsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_ArticulosCODIGOTECNICO].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TArticulosDataTableRules.SetCODIGOTECNICOIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_ArticulosCODIGOTECNICO].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TArticulosDataTableRules.GetDISENOTECNICOValue: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_ArticulosDISENOTECNICO].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TArticulosDataTableRules.SetDISENOTECNICOValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_ArticulosDISENOTECNICO].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TArticulosDataTableRules.GetDISENOTECNICOIsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_ArticulosDISENOTECNICO].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TArticulosDataTableRules.SetDISENOTECNICOIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_ArticulosDISENOTECNICO].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TArticulosDataTableRules.GetPRECIOValue: Currency;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_ArticulosPRECIO].AsCurrency;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TArticulosDataTableRules.SetPRECIOValue(const aValue: Currency);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_ArticulosPRECIO].AsCurrency := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TArticulosDataTableRules.GetPRECIOIsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_ArticulosPRECIO].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TArticulosDataTableRules.SetPRECIOIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_ArticulosPRECIO].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
{ TArticulosParaCompraDataTableRules }
|
{ TArticulosParaCompraDataTableRules }
|
||||||
constructor TArticulosParaCompraDataTableRules.Create(aDataTable: TDADataTable);
|
constructor TArticulosParaCompraDataTableRules.Create(aDataTable: TDADataTable);
|
||||||
|
|||||||
@ -9,15 +9,15 @@ const
|
|||||||
{ Delta rules ids
|
{ Delta rules ids
|
||||||
Feel free to change them to something more human readable
|
Feel free to change them to something more human readable
|
||||||
but make sure they are unique in the context of your application }
|
but make sure they are unique in the context of your application }
|
||||||
RID_ProveedoresConArticulosDelta = '{6C804022-5DF5-4E60-A6EC-E3C04900D4FC}';
|
RID_ProveedoresConArticulosDelta = '{342C2B73-2FD6-40F3-9498-6DE88CEEA239}';
|
||||||
RID_Articulos_ProveedoresDelta = '{C38F7153-6FAD-4064-8EAC-D97A9F9780AE}';
|
RID_Articulos_ProveedoresDelta = '{7FD24128-05D2-44BA-94D8-8D2B98E60A83}';
|
||||||
RID_ArticulosDelta = '{132D6F55-09CD-4018-A2CB-1D2552713417}';
|
RID_ArticulosDelta = '{EEF4A94E-9960-44F5-83C1-A99DE6DD445A}';
|
||||||
RID_ArticulosParaCompraDelta = '{F30257BA-3AC6-486E-B33C-0F429FBA0D62}';
|
RID_ArticulosParaCompraDelta = '{2175FE52-BCEC-425E-A13A-9A1AAFC395EC}';
|
||||||
|
|
||||||
type
|
type
|
||||||
{ IProveedoresConArticulosDelta }
|
{ IProveedoresConArticulosDelta }
|
||||||
IProveedoresConArticulosDelta = interface(IProveedoresConArticulos)
|
IProveedoresConArticulosDelta = interface(IProveedoresConArticulos)
|
||||||
['{6C804022-5DF5-4E60-A6EC-E3C04900D4FC}']
|
['{342C2B73-2FD6-40F3-9498-6DE88CEEA239}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetOldID_PROVEEDORValue : Integer;
|
function GetOldID_PROVEEDORValue : Integer;
|
||||||
function GetOldNOMBREValue : String;
|
function GetOldNOMBREValue : String;
|
||||||
@ -63,7 +63,7 @@ type
|
|||||||
|
|
||||||
{ IArticulos_ProveedoresDelta }
|
{ IArticulos_ProveedoresDelta }
|
||||||
IArticulos_ProveedoresDelta = interface(IArticulos_Proveedores)
|
IArticulos_ProveedoresDelta = interface(IArticulos_Proveedores)
|
||||||
['{C38F7153-6FAD-4064-8EAC-D97A9F9780AE}']
|
['{7FD24128-05D2-44BA-94D8-8D2B98E60A83}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetOldIDValue : Integer;
|
function GetOldIDValue : Integer;
|
||||||
function GetOldID_ARTICULOValue : Integer;
|
function GetOldID_ARTICULOValue : Integer;
|
||||||
@ -205,7 +205,7 @@ type
|
|||||||
|
|
||||||
{ IArticulosDelta }
|
{ IArticulosDelta }
|
||||||
IArticulosDelta = interface(IArticulos)
|
IArticulosDelta = interface(IArticulos)
|
||||||
['{132D6F55-09CD-4018-A2CB-1D2552713417}']
|
['{EEF4A94E-9960-44F5-83C1-A99DE6DD445A}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetOldIDValue : Integer;
|
function GetOldIDValue : Integer;
|
||||||
function GetOldID_EMPRESAValue : Integer;
|
function GetOldID_EMPRESAValue : Integer;
|
||||||
@ -233,6 +233,10 @@ type
|
|||||||
function GetOldPARAM_TIEMPOValue : Float;
|
function GetOldPARAM_TIEMPOValue : Float;
|
||||||
function GetOldMANO_OBRAValue : Currency;
|
function GetOldMANO_OBRAValue : Currency;
|
||||||
function GetOldPRECIO_PVP_TOTALValue : Currency;
|
function GetOldPRECIO_PVP_TOTALValue : Currency;
|
||||||
|
function GetOldCAMPOTECNICOValue : String;
|
||||||
|
function GetOldCODIGOTECNICOValue : String;
|
||||||
|
function GetOldDISENOTECNICOValue : String;
|
||||||
|
function GetOldPRECIOValue : Currency;
|
||||||
|
|
||||||
{ Properties }
|
{ Properties }
|
||||||
property OldID : Integer read GetOldIDValue;
|
property OldID : Integer read GetOldIDValue;
|
||||||
@ -261,6 +265,10 @@ type
|
|||||||
property OldPARAM_TIEMPO : Float read GetOldPARAM_TIEMPOValue;
|
property OldPARAM_TIEMPO : Float read GetOldPARAM_TIEMPOValue;
|
||||||
property OldMANO_OBRA : Currency read GetOldMANO_OBRAValue;
|
property OldMANO_OBRA : Currency read GetOldMANO_OBRAValue;
|
||||||
property OldPRECIO_PVP_TOTAL : Currency read GetOldPRECIO_PVP_TOTALValue;
|
property OldPRECIO_PVP_TOTAL : Currency read GetOldPRECIO_PVP_TOTALValue;
|
||||||
|
property OldCAMPOTECNICO : String read GetOldCAMPOTECNICOValue;
|
||||||
|
property OldCODIGOTECNICO : String read GetOldCODIGOTECNICOValue;
|
||||||
|
property OldDISENOTECNICO : String read GetOldDISENOTECNICOValue;
|
||||||
|
property OldPRECIO : Currency read GetOldPRECIOValue;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{ TArticulosBusinessProcessorRules }
|
{ TArticulosBusinessProcessorRules }
|
||||||
@ -425,6 +433,30 @@ type
|
|||||||
function GetOldPRECIO_PVP_TOTALIsNull: Boolean; virtual;
|
function GetOldPRECIO_PVP_TOTALIsNull: Boolean; virtual;
|
||||||
procedure SetPRECIO_PVP_TOTALValue(const aValue: Currency); virtual;
|
procedure SetPRECIO_PVP_TOTALValue(const aValue: Currency); virtual;
|
||||||
procedure SetPRECIO_PVP_TOTALIsNull(const aValue: Boolean); virtual;
|
procedure SetPRECIO_PVP_TOTALIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetCAMPOTECNICOValue: String; virtual;
|
||||||
|
function GetCAMPOTECNICOIsNull: Boolean; virtual;
|
||||||
|
function GetOldCAMPOTECNICOValue: String; virtual;
|
||||||
|
function GetOldCAMPOTECNICOIsNull: Boolean; virtual;
|
||||||
|
procedure SetCAMPOTECNICOValue(const aValue: String); virtual;
|
||||||
|
procedure SetCAMPOTECNICOIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetCODIGOTECNICOValue: String; virtual;
|
||||||
|
function GetCODIGOTECNICOIsNull: Boolean; virtual;
|
||||||
|
function GetOldCODIGOTECNICOValue: String; virtual;
|
||||||
|
function GetOldCODIGOTECNICOIsNull: Boolean; virtual;
|
||||||
|
procedure SetCODIGOTECNICOValue(const aValue: String); virtual;
|
||||||
|
procedure SetCODIGOTECNICOIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetDISENOTECNICOValue: String; virtual;
|
||||||
|
function GetDISENOTECNICOIsNull: Boolean; virtual;
|
||||||
|
function GetOldDISENOTECNICOValue: String; virtual;
|
||||||
|
function GetOldDISENOTECNICOIsNull: Boolean; virtual;
|
||||||
|
procedure SetDISENOTECNICOValue(const aValue: String); virtual;
|
||||||
|
procedure SetDISENOTECNICOIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetPRECIOValue: Currency; virtual;
|
||||||
|
function GetPRECIOIsNull: Boolean; virtual;
|
||||||
|
function GetOldPRECIOValue: Currency; virtual;
|
||||||
|
function GetOldPRECIOIsNull: Boolean; virtual;
|
||||||
|
procedure SetPRECIOValue(const aValue: Currency); virtual;
|
||||||
|
procedure SetPRECIOIsNull(const aValue: Boolean); virtual;
|
||||||
|
|
||||||
{ Properties }
|
{ Properties }
|
||||||
property ID : Integer read GetIDValue write SetIDValue;
|
property ID : Integer read GetIDValue write SetIDValue;
|
||||||
@ -531,6 +563,22 @@ type
|
|||||||
property PRECIO_PVP_TOTALIsNull : Boolean read GetPRECIO_PVP_TOTALIsNull write SetPRECIO_PVP_TOTALIsNull;
|
property PRECIO_PVP_TOTALIsNull : Boolean read GetPRECIO_PVP_TOTALIsNull write SetPRECIO_PVP_TOTALIsNull;
|
||||||
property OldPRECIO_PVP_TOTAL : Currency read GetOldPRECIO_PVP_TOTALValue;
|
property OldPRECIO_PVP_TOTAL : Currency read GetOldPRECIO_PVP_TOTALValue;
|
||||||
property OldPRECIO_PVP_TOTALIsNull : Boolean read GetOldPRECIO_PVP_TOTALIsNull;
|
property OldPRECIO_PVP_TOTALIsNull : Boolean read GetOldPRECIO_PVP_TOTALIsNull;
|
||||||
|
property CAMPOTECNICO : String read GetCAMPOTECNICOValue write SetCAMPOTECNICOValue;
|
||||||
|
property CAMPOTECNICOIsNull : Boolean read GetCAMPOTECNICOIsNull write SetCAMPOTECNICOIsNull;
|
||||||
|
property OldCAMPOTECNICO : String read GetOldCAMPOTECNICOValue;
|
||||||
|
property OldCAMPOTECNICOIsNull : Boolean read GetOldCAMPOTECNICOIsNull;
|
||||||
|
property CODIGOTECNICO : String read GetCODIGOTECNICOValue write SetCODIGOTECNICOValue;
|
||||||
|
property CODIGOTECNICOIsNull : Boolean read GetCODIGOTECNICOIsNull write SetCODIGOTECNICOIsNull;
|
||||||
|
property OldCODIGOTECNICO : String read GetOldCODIGOTECNICOValue;
|
||||||
|
property OldCODIGOTECNICOIsNull : Boolean read GetOldCODIGOTECNICOIsNull;
|
||||||
|
property DISENOTECNICO : String read GetDISENOTECNICOValue write SetDISENOTECNICOValue;
|
||||||
|
property DISENOTECNICOIsNull : Boolean read GetDISENOTECNICOIsNull write SetDISENOTECNICOIsNull;
|
||||||
|
property OldDISENOTECNICO : String read GetOldDISENOTECNICOValue;
|
||||||
|
property OldDISENOTECNICOIsNull : Boolean read GetOldDISENOTECNICOIsNull;
|
||||||
|
property PRECIO : Currency read GetPRECIOValue write SetPRECIOValue;
|
||||||
|
property PRECIOIsNull : Boolean read GetPRECIOIsNull write SetPRECIOIsNull;
|
||||||
|
property OldPRECIO : Currency read GetOldPRECIOValue;
|
||||||
|
property OldPRECIOIsNull : Boolean read GetOldPRECIOIsNull;
|
||||||
|
|
||||||
public
|
public
|
||||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||||
@ -540,7 +588,7 @@ type
|
|||||||
|
|
||||||
{ IArticulosParaCompraDelta }
|
{ IArticulosParaCompraDelta }
|
||||||
IArticulosParaCompraDelta = interface(IArticulosParaCompra)
|
IArticulosParaCompraDelta = interface(IArticulosParaCompra)
|
||||||
['{F30257BA-3AC6-486E-B33C-0F429FBA0D62}']
|
['{2175FE52-BCEC-425E-A13A-9A1AAFC395EC}']
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
function GetOldIDValue : Integer;
|
function GetOldIDValue : Integer;
|
||||||
function GetOldID_EMPRESAValue : Integer;
|
function GetOldID_EMPRESAValue : Integer;
|
||||||
@ -1329,7 +1377,7 @@ end;
|
|||||||
|
|
||||||
procedure TArticulosBusinessProcessorRules.IMAGEN_OnChange(Sender: TObject);
|
procedure TArticulosBusinessProcessorRules.IMAGEN_OnChange(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosIMAGEN] := VariantBinaryFromBinary((TROStream(Sender) as IROStream).Stream);
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosIMAGEN] := BinaryToBlobVariant((TROStream(Sender) as IROStream).Stream);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TArticulosBusinessProcessorRules.GetIDValue: Integer;
|
function TArticulosBusinessProcessorRules.GetIDValue: Integer;
|
||||||
@ -1523,7 +1571,7 @@ begin
|
|||||||
result := f_IMAGEN;
|
result := f_IMAGEN;
|
||||||
result.Position := 0;
|
result.Position := 0;
|
||||||
if not Result.InUpdateMode then begin
|
if not Result.InUpdateMode then begin
|
||||||
WriteVariantBinaryToBinary(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosIMAGEN], result.Stream);
|
BlobVariantToBinary(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosIMAGEN], result.Stream);
|
||||||
result.Position := 0;
|
result.Position := 0;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
@ -1536,7 +1584,7 @@ end;
|
|||||||
function TArticulosBusinessProcessorRules.GetOldIMAGENValue: IROStream;
|
function TArticulosBusinessProcessorRules.GetOldIMAGENValue: IROStream;
|
||||||
begin
|
begin
|
||||||
result := NewROStream();
|
result := NewROStream();
|
||||||
WriteVariantBinaryToBinary(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosIMAGEN], result.Stream);
|
BlobVariantToBinary(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosIMAGEN], result.Stream);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TArticulosBusinessProcessorRules.GetOldIMAGENIsNull: Boolean;
|
function TArticulosBusinessProcessorRules.GetOldIMAGENIsNull: Boolean;
|
||||||
@ -2139,6 +2187,130 @@ begin
|
|||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PVP_TOTAL] := Null;
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PVP_TOTAL] := Null;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function TArticulosBusinessProcessorRules.GetCAMPOTECNICOValue: String;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosCAMPOTECNICO];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TArticulosBusinessProcessorRules.GetCAMPOTECNICOIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosCAMPOTECNICO]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TArticulosBusinessProcessorRules.GetOldCAMPOTECNICOValue: String;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosCAMPOTECNICO];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TArticulosBusinessProcessorRules.GetOldCAMPOTECNICOIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosCAMPOTECNICO]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TArticulosBusinessProcessorRules.SetCAMPOTECNICOValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosCAMPOTECNICO] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TArticulosBusinessProcessorRules.SetCAMPOTECNICOIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosCAMPOTECNICO] := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TArticulosBusinessProcessorRules.GetCODIGOTECNICOValue: String;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosCODIGOTECNICO];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TArticulosBusinessProcessorRules.GetCODIGOTECNICOIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosCODIGOTECNICO]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TArticulosBusinessProcessorRules.GetOldCODIGOTECNICOValue: String;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosCODIGOTECNICO];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TArticulosBusinessProcessorRules.GetOldCODIGOTECNICOIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosCODIGOTECNICO]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TArticulosBusinessProcessorRules.SetCODIGOTECNICOValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosCODIGOTECNICO] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TArticulosBusinessProcessorRules.SetCODIGOTECNICOIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosCODIGOTECNICO] := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TArticulosBusinessProcessorRules.GetDISENOTECNICOValue: String;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosDISENOTECNICO];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TArticulosBusinessProcessorRules.GetDISENOTECNICOIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosDISENOTECNICO]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TArticulosBusinessProcessorRules.GetOldDISENOTECNICOValue: String;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosDISENOTECNICO];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TArticulosBusinessProcessorRules.GetOldDISENOTECNICOIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosDISENOTECNICO]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TArticulosBusinessProcessorRules.SetDISENOTECNICOValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosDISENOTECNICO] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TArticulosBusinessProcessorRules.SetDISENOTECNICOIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosDISENOTECNICO] := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TArticulosBusinessProcessorRules.GetPRECIOValue: Currency;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TArticulosBusinessProcessorRules.GetPRECIOIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TArticulosBusinessProcessorRules.GetOldPRECIOValue: Currency;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPRECIO];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TArticulosBusinessProcessorRules.GetOldPRECIOIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPRECIO]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TArticulosBusinessProcessorRules.SetPRECIOValue(const aValue: Currency);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TArticulosBusinessProcessorRules.SetPRECIOIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO] := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
{ TArticulosParaCompraBusinessProcessorRules }
|
{ TArticulosParaCompraBusinessProcessorRules }
|
||||||
constructor TArticulosParaCompraBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
constructor TArticulosParaCompraBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||||
@ -2159,7 +2331,7 @@ end;
|
|||||||
|
|
||||||
procedure TArticulosParaCompraBusinessProcessorRules.IMAGEN_OnChange(Sender: TObject);
|
procedure TArticulosParaCompraBusinessProcessorRules.IMAGEN_OnChange(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraIMAGEN] := VariantBinaryFromBinary((TROStream(Sender) as IROStream).Stream);
|
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraIMAGEN] := BinaryToBlobVariant((TROStream(Sender) as IROStream).Stream);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TArticulosParaCompraBusinessProcessorRules.GetIDValue: Integer;
|
function TArticulosParaCompraBusinessProcessorRules.GetIDValue: Integer;
|
||||||
@ -2353,7 +2525,7 @@ begin
|
|||||||
result := f_IMAGEN;
|
result := f_IMAGEN;
|
||||||
result.Position := 0;
|
result.Position := 0;
|
||||||
if not Result.InUpdateMode then begin
|
if not Result.InUpdateMode then begin
|
||||||
WriteVariantBinaryToBinary(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraIMAGEN], result.Stream);
|
BlobVariantToBinary(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraIMAGEN], result.Stream);
|
||||||
result.Position := 0;
|
result.Position := 0;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
@ -2366,7 +2538,7 @@ end;
|
|||||||
function TArticulosParaCompraBusinessProcessorRules.GetOldIMAGENValue: IROStream;
|
function TArticulosParaCompraBusinessProcessorRules.GetOldIMAGENValue: IROStream;
|
||||||
begin
|
begin
|
||||||
result := NewROStream();
|
result := NewROStream();
|
||||||
WriteVariantBinaryToBinary(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraIMAGEN], result.Stream);
|
BlobVariantToBinary(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraIMAGEN], result.Stream);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TArticulosParaCompraBusinessProcessorRules.GetOldIMAGENIsNull: Boolean;
|
function TArticulosParaCompraBusinessProcessorRules.GetOldIMAGENIsNull: Boolean;
|
||||||
|
|||||||
@ -441,6 +441,22 @@ object srvArticulos: TsrvArticulos
|
|||||||
item
|
item
|
||||||
DatasetField = 'PRECIO_PVP_TOTAL'
|
DatasetField = 'PRECIO_PVP_TOTAL'
|
||||||
TableField = 'PRECIO_PVP_TOTAL'
|
TableField = 'PRECIO_PVP_TOTAL'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'CAMPOTECNICO'
|
||||||
|
TableField = 'CAMPOTECNICO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'CODIGOTECNICO'
|
||||||
|
TableField = 'CODIGOTECNICO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'DISENOTECNICO'
|
||||||
|
TableField = 'DISENOTECNICO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'PRECIO'
|
||||||
|
TableField = 'PRECIO'
|
||||||
end>
|
end>
|
||||||
end>
|
end>
|
||||||
Name = 'Articulos'
|
Name = 'Articulos'
|
||||||
@ -587,6 +603,25 @@ object srvArticulos: TsrvArticulos
|
|||||||
DataType = datCurrency
|
DataType = datCurrency
|
||||||
ServerAutoRefresh = True
|
ServerAutoRefresh = True
|
||||||
DictionaryEntry = 'Articulos_PRECIO_PVP_TOTAL'
|
DictionaryEntry = 'Articulos_PRECIO_PVP_TOTAL'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'CAMPOTECNICO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 200
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'CODIGOTECNICO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 15
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'DISENOTECNICO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 6
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'PRECIO'
|
||||||
|
DataType = datCurrency
|
||||||
end>
|
end>
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
@ -889,74 +924,122 @@ object srvArticulos: TsrvArticulos
|
|||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'ID_EMPRESA'
|
Name = 'ID_EMPRESA'
|
||||||
|
DataType = datInteger
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'REFERENCIA'
|
Name = 'REFERENCIA'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'DESCRIPCION'
|
Name = 'DESCRIPCION'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'UNIDAD_MEDIDA'
|
Name = 'UNIDAD_MEDIDA'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'FAMILIA'
|
Name = 'FAMILIA'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'IMAGEN'
|
Name = 'IMAGEN'
|
||||||
|
DataType = datBlob
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'COMISIONABLE'
|
Name = 'COMISIONABLE'
|
||||||
|
DataType = datSmallInt
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'FECHA_ALTA'
|
Name = 'FECHA_ALTA'
|
||||||
|
DataType = datDateTime
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'FECHA_MODIFICACION'
|
Name = 'FECHA_MODIFICACION'
|
||||||
|
DataType = datDateTime
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'USUARIO'
|
Name = 'USUARIO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 30
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'INVENTARIABLE'
|
Name = 'INVENTARIABLE'
|
||||||
|
DataType = datSmallInt
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'ELIMINADO'
|
Name = 'ELIMINADO'
|
||||||
|
DataType = datSmallInt
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'FABRICANTE'
|
Name = 'FABRICANTE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'REFERENCIA_FABR'
|
Name = 'REFERENCIA_FABR'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'PARAM_MARGEN'
|
Name = 'PARAM_MARGEN'
|
||||||
|
DataType = datFloat
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'TIEMPO'
|
Name = 'TIEMPO'
|
||||||
|
DataType = datInteger
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'PARAM_TIEMPO'
|
Name = 'PARAM_TIEMPO'
|
||||||
|
DataType = datFloat
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'MANO_OBRA'
|
Name = 'MANO_OBRA'
|
||||||
|
DataType = datCurrency
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'CAMPOTECNICO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 200
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'CODIGOTECNICO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 15
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'DISENOTECNICO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 6
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'PRECIO'
|
||||||
|
DataType = datCurrency
|
||||||
Value = ''
|
Value = ''
|
||||||
end>
|
end>
|
||||||
Statements = <
|
Statements = <
|
||||||
@ -968,11 +1051,13 @@ object srvArticulos: TsrvArticulos
|
|||||||
'CION, UNIDAD_MEDIDA, FAMILIA, IMAGEN,'#10' COMISIONABLE, FECHA_A' +
|
'CION, UNIDAD_MEDIDA, FAMILIA, IMAGEN,'#10' COMISIONABLE, FECHA_A' +
|
||||||
'LTA, FECHA_MODIFICACION, USUARIO, '#10' INVENTARIABLE, ELIMINADO' +
|
'LTA, FECHA_MODIFICACION, USUARIO, '#10' INVENTARIABLE, ELIMINADO' +
|
||||||
', FABRICANTE, REFERENCIA_FABR, PARAM_MARGEN, TIEMPO,'#10' PARAM_' +
|
', FABRICANTE, REFERENCIA_FABR, PARAM_MARGEN, TIEMPO,'#10' PARAM_' +
|
||||||
'TIEMPO, MANO_OBRA)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFERENCIA, ' +
|
'TIEMPO, MANO_OBRA,'#10' CAMPOTECNICO, CODIGOTECNICO, DISENOTECNI' +
|
||||||
':DESCRIPCION, :UNIDAD_MEDIDA, :FAMILIA,'#10' :IMAGEN, :COMISIONA' +
|
'CO, PRECIO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFERENCIA, :DESCRI' +
|
||||||
'BLE, :FECHA_ALTA, :FECHA_MODIFICACION, '#10' :USUARIO, :INVENTAR' +
|
'PCION, :UNIDAD_MEDIDA, :FAMILIA,'#10' :IMAGEN, :COMISIONABLE, :F' +
|
||||||
'IABLE, :ELIMINADO, :FABRICANTE, :REFERENCIA_FABR, :PARAM_MARGEN,' +
|
'ECHA_ALTA, :FECHA_MODIFICACION, '#10' :USUARIO, :INVENTARIABLE, ' +
|
||||||
#10' :TIEMPO, :PARAM_TIEMPO, :MANO_OBRA)'#10
|
':ELIMINADO, :FABRICANTE, :REFERENCIA_FABR, :PARAM_MARGEN,'#10' :' +
|
||||||
|
'TIEMPO, :PARAM_TIEMPO, :MANO_OBRA,'#10' :CAMPOTECNICO, :CODIGOTE' +
|
||||||
|
'CNICO, :DISENOTECNICO, :PRECIO)'#10
|
||||||
StatementType = stSQL
|
StatementType = stSQL
|
||||||
ColumnMappings = <>
|
ColumnMappings = <>
|
||||||
end>
|
end>
|
||||||
@ -1000,74 +1085,122 @@ object srvArticulos: TsrvArticulos
|
|||||||
Params = <
|
Params = <
|
||||||
item
|
item
|
||||||
Name = 'ID_EMPRESA'
|
Name = 'ID_EMPRESA'
|
||||||
|
DataType = datInteger
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'REFERENCIA'
|
Name = 'REFERENCIA'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'DESCRIPCION'
|
Name = 'DESCRIPCION'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'UNIDAD_MEDIDA'
|
Name = 'UNIDAD_MEDIDA'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'FAMILIA'
|
Name = 'FAMILIA'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'IMAGEN'
|
Name = 'IMAGEN'
|
||||||
|
DataType = datBlob
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'COMISIONABLE'
|
Name = 'COMISIONABLE'
|
||||||
|
DataType = datSmallInt
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'FECHA_ALTA'
|
Name = 'FECHA_ALTA'
|
||||||
|
DataType = datDateTime
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'FECHA_MODIFICACION'
|
Name = 'FECHA_MODIFICACION'
|
||||||
|
DataType = datDateTime
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'USUARIO'
|
Name = 'USUARIO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 30
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'INVENTARIABLE'
|
Name = 'INVENTARIABLE'
|
||||||
|
DataType = datSmallInt
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'ELIMINADO'
|
Name = 'ELIMINADO'
|
||||||
|
DataType = datSmallInt
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'FABRICANTE'
|
Name = 'FABRICANTE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'REFERENCIA_FABR'
|
Name = 'REFERENCIA_FABR'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'PARAM_MARGEN'
|
Name = 'PARAM_MARGEN'
|
||||||
|
DataType = datFloat
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'TIEMPO'
|
Name = 'TIEMPO'
|
||||||
|
DataType = datInteger
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'PARAM_TIEMPO'
|
Name = 'PARAM_TIEMPO'
|
||||||
|
DataType = datFloat
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
Name = 'MANO_OBRA'
|
Name = 'MANO_OBRA'
|
||||||
|
DataType = datCurrency
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'CAMPOTECNICO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 200
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'CODIGOTECNICO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 15
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'DISENOTECNICO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 6
|
||||||
|
Value = ''
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'PRECIO'
|
||||||
|
DataType = datCurrency
|
||||||
Value = ''
|
Value = ''
|
||||||
end
|
end
|
||||||
item
|
item
|
||||||
@ -1088,7 +1221,9 @@ object srvArticulos: TsrvArticulos
|
|||||||
'INADO = :ELIMINADO,'#10' FABRICANTE = :FABRICANTE,'#10' REFERENCIA' +
|
'INADO = :ELIMINADO,'#10' FABRICANTE = :FABRICANTE,'#10' REFERENCIA' +
|
||||||
'_FABR = :REFERENCIA_FABR,'#10' PARAM_MARGEN = :PARAM_MARGEN,'#10' ' +
|
'_FABR = :REFERENCIA_FABR,'#10' PARAM_MARGEN = :PARAM_MARGEN,'#10' ' +
|
||||||
'TIEMPO = :TIEMPO,'#10' PARAM_TIEMPO = :PARAM_TIEMPO,'#10' MANO_OBR' +
|
'TIEMPO = :TIEMPO,'#10' PARAM_TIEMPO = :PARAM_TIEMPO,'#10' MANO_OBR' +
|
||||||
'A = :MANO_OBRA'#10' WHERE'#10' (ID = :OLD_ID)'#10
|
'A = :MANO_OBRA,'#10' CAMPOTECNICO = :CAMPOTECNICO,'#10' CODIGOTECN' +
|
||||||
|
'ICO = :CODIGOTECNICO,'#10' DISENOTECNICO = :DISENOTECNICO,'#10' PR' +
|
||||||
|
'ECIO = :PRECIO'#10#10' WHERE'#10' (ID = :OLD_ID)'#10
|
||||||
StatementType = stSQL
|
StatementType = stSQL
|
||||||
ColumnMappings = <>
|
ColumnMappings = <>
|
||||||
end>
|
end>
|
||||||
|
|||||||
Binary file not shown.
@ -112,238 +112,6 @@ inherited fEditorArticulo: TfEditorArticulo
|
|||||||
ExplicitWidth = 891
|
ExplicitWidth = 891
|
||||||
ExplicitHeight = 376
|
ExplicitHeight = 376
|
||||||
end
|
end
|
||||||
object TabSheet1: TTabSheet
|
|
||||||
Caption = 'Precios'
|
|
||||||
ImageIndex = 1
|
|
||||||
inline frViewArticulosProveedores1: TfrViewArticulosProveedores
|
|
||||||
Left = 0
|
|
||||||
Top = 97
|
|
||||||
Width = 891
|
|
||||||
Height = 279
|
|
||||||
Align = alClient
|
|
||||||
Font.Charset = DEFAULT_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -11
|
|
||||||
Font.Name = 'Tahoma'
|
|
||||||
Font.Style = []
|
|
||||||
ParentFont = False
|
|
||||||
TabOrder = 0
|
|
||||||
ReadOnly = False
|
|
||||||
ExplicitTop = 97
|
|
||||||
ExplicitWidth = 891
|
|
||||||
ExplicitHeight = 279
|
|
||||||
inherited cxGrid: TcxGrid
|
|
||||||
Width = 891
|
|
||||||
Height = 254
|
|
||||||
ExplicitWidth = 891
|
|
||||||
ExplicitHeight = 254
|
|
||||||
inherited cxGridView: TcxGridDBTableView
|
|
||||||
inherited cxGridViewPRECIO_COSTE: TcxGridDBColumn
|
|
||||||
PropertiesClassName = 'TcxCurrencyEditProperties'
|
|
||||||
Properties.Alignment.Horz = taRightJustify
|
|
||||||
FooterAlignmentHorz = taRightJustify
|
|
||||||
GroupSummaryAlignment = taRightJustify
|
|
||||||
HeaderAlignmentHorz = taRightJustify
|
|
||||||
end
|
|
||||||
inherited cxGridViewDESCUENTO: TcxGridDBColumn
|
|
||||||
Properties.Alignment.Horz = taRightJustify
|
|
||||||
GroupSummaryAlignment = taRightJustify
|
|
||||||
end
|
|
||||||
inherited cxGridViewPRECIO_NETO: TcxGridDBColumn
|
|
||||||
PropertiesClassName = 'TcxCurrencyEditProperties'
|
|
||||||
Properties.Alignment.Horz = taRightJustify
|
|
||||||
FooterAlignmentHorz = taRightJustify
|
|
||||||
GroupSummaryAlignment = taRightJustify
|
|
||||||
HeaderAlignmentHorz = taRightJustify
|
|
||||||
end
|
|
||||||
inherited cxGridViewPRECIO_PORTE: TcxGridDBColumn
|
|
||||||
PropertiesClassName = 'TcxCurrencyEditProperties'
|
|
||||||
Properties.Alignment.Horz = taRightJustify
|
|
||||||
FooterAlignmentHorz = taRightJustify
|
|
||||||
GroupSummaryAlignment = taRightJustify
|
|
||||||
HeaderAlignmentHorz = taRightJustify
|
|
||||||
end
|
|
||||||
inherited cxGridViewPRECIO_PVP_VENTA: TcxGridDBColumn
|
|
||||||
PropertiesClassName = 'TcxCurrencyEditProperties'
|
|
||||||
Properties.Alignment.Horz = taRightJustify
|
|
||||||
FooterAlignmentHorz = taRightJustify
|
|
||||||
GroupSummaryAlignment = taRightJustify
|
|
||||||
HeaderAlignmentHorz = taRightJustify
|
|
||||||
end
|
|
||||||
inherited cxGridViewPRECIO_PVP_TOTAL: TcxGridDBColumn
|
|
||||||
PropertiesClassName = 'TcxCurrencyEditProperties'
|
|
||||||
Properties.Alignment.Horz = taRightJustify
|
|
||||||
FooterAlignmentHorz = taRightJustify
|
|
||||||
GroupSummaryAlignment = taRightJustify
|
|
||||||
HeaderAlignmentHorz = taRightJustify
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
inherited ToolBar1: TToolBar
|
|
||||||
Width = 891
|
|
||||||
ExplicitWidth = 891
|
|
||||||
end
|
|
||||||
end
|
|
||||||
object dxLayoutControl1: TdxLayoutControl
|
|
||||||
Left = 0
|
|
||||||
Top = 0
|
|
||||||
Width = 891
|
|
||||||
Height = 97
|
|
||||||
Align = alTop
|
|
||||||
TabOrder = 1
|
|
||||||
TabStop = False
|
|
||||||
AutoContentSizes = [acsWidth, acsHeight]
|
|
||||||
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
|
||||||
object eParamMargen: TcxDBSpinEdit
|
|
||||||
Left = 118
|
|
||||||
Top = 30
|
|
||||||
DataBinding.DataField = 'PARAM_MARGEN'
|
|
||||||
DataBinding.DataSource = dsDataTable
|
|
||||||
Properties.Alignment.Horz = taRightJustify
|
|
||||||
Properties.AssignedValues.EditFormat = True
|
|
||||||
Properties.DisplayFormat = ',0.00 %;-,0.00 %'
|
|
||||||
Properties.ImmediatePost = True
|
|
||||||
Properties.MaxValue = 100.000000000000000000
|
|
||||||
Style.BorderColor = clWindowFrame
|
|
||||||
Style.BorderStyle = ebs3D
|
|
||||||
Style.HotTrack = False
|
|
||||||
Style.LookAndFeel.Kind = lfStandard
|
|
||||||
Style.LookAndFeel.NativeStyle = True
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
Style.ButtonStyle = bts3D
|
|
||||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
|
||||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
|
||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
TabOrder = 0
|
|
||||||
Width = 100
|
|
||||||
end
|
|
||||||
object eTiempo: TcxDBSpinEdit
|
|
||||||
Left = 118
|
|
||||||
Top = 57
|
|
||||||
DataBinding.DataField = 'TIEMPO'
|
|
||||||
DataBinding.DataSource = dsDataTable
|
|
||||||
Properties.Alignment.Horz = taRightJustify
|
|
||||||
Properties.ImmediatePost = True
|
|
||||||
Properties.MaxValue = 100000.000000000000000000
|
|
||||||
Style.BorderColor = clWindowFrame
|
|
||||||
Style.BorderStyle = ebs3D
|
|
||||||
Style.HotTrack = False
|
|
||||||
Style.LookAndFeel.Kind = lfStandard
|
|
||||||
Style.LookAndFeel.NativeStyle = True
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
Style.ButtonStyle = bts3D
|
|
||||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
|
||||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
|
||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
TabOrder = 1
|
|
||||||
Width = 100
|
|
||||||
end
|
|
||||||
object eParamTiempo: TcxDBCurrencyEdit
|
|
||||||
Left = 300
|
|
||||||
Top = 57
|
|
||||||
DataBinding.DataField = 'PARAM_TIEMPO'
|
|
||||||
DataBinding.DataSource = dsDataTable
|
|
||||||
Properties.Alignment.Horz = taRightJustify
|
|
||||||
Style.BorderColor = clWindowFrame
|
|
||||||
Style.BorderStyle = ebs3D
|
|
||||||
Style.HotTrack = False
|
|
||||||
Style.LookAndFeel.Kind = lfStandard
|
|
||||||
Style.LookAndFeel.NativeStyle = True
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
|
||||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
|
||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
TabOrder = 2
|
|
||||||
Width = 150
|
|
||||||
end
|
|
||||||
object eManoObra: TcxDBSpinEdit
|
|
||||||
Left = 545
|
|
||||||
Top = 57
|
|
||||||
DataBinding.DataField = 'MANO_OBRA'
|
|
||||||
DataBinding.DataSource = dsDataTable
|
|
||||||
Enabled = False
|
|
||||||
Properties.Alignment.Horz = taRightJustify
|
|
||||||
Properties.DisplayFormat = ',0.00 '#8364';-,0.00 '#8364
|
|
||||||
Properties.ImmediatePost = True
|
|
||||||
Properties.MaxValue = 100.000000000000000000
|
|
||||||
Properties.SpinButtons.Visible = False
|
|
||||||
Style.BorderColor = clWindowFrame
|
|
||||||
Style.BorderStyle = ebs3D
|
|
||||||
Style.HotTrack = False
|
|
||||||
Style.LookAndFeel.Kind = lfStandard
|
|
||||||
Style.LookAndFeel.NativeStyle = True
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
Style.ButtonStyle = bts3D
|
|
||||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
|
||||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
|
||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
TabOrder = 3
|
|
||||||
Width = 200
|
|
||||||
end
|
|
||||||
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
|
||||||
ShowCaption = False
|
|
||||||
Hidden = True
|
|
||||||
LayoutDirection = ldHorizontal
|
|
||||||
ShowBorder = False
|
|
||||||
object dxLayoutControl1Group1: TdxLayoutGroup
|
|
||||||
AutoAligns = []
|
|
||||||
AlignHorz = ahClient
|
|
||||||
Caption = 'Par'#225'metros de precio'
|
|
||||||
object dxLayoutControl1Item1: TdxLayoutItem
|
|
||||||
AutoAligns = [aaVertical]
|
|
||||||
Caption = 'Margen coste (%):'
|
|
||||||
Control = eParamMargen
|
|
||||||
ControlOptions.ShowBorder = False
|
|
||||||
end
|
|
||||||
object dxLayoutControl1Group3: TdxLayoutGroup
|
|
||||||
ShowCaption = False
|
|
||||||
Hidden = True
|
|
||||||
LayoutDirection = ldHorizontal
|
|
||||||
ShowBorder = False
|
|
||||||
object dxLayoutControl1Item2: TdxLayoutItem
|
|
||||||
Caption = 'Tiempo min.:'
|
|
||||||
Control = eTiempo
|
|
||||||
ControlOptions.ShowBorder = False
|
|
||||||
end
|
|
||||||
object dxLayoutControl1Item3: TdxLayoutItem
|
|
||||||
Caption = ' Precio min.:'
|
|
||||||
Control = eParamTiempo
|
|
||||||
ControlOptions.ShowBorder = False
|
|
||||||
end
|
|
||||||
object dxLayoutControl1Item4: TdxLayoutItem
|
|
||||||
Caption = ' Mano de obra'
|
|
||||||
Control = eManoObra
|
|
||||||
ControlOptions.ShowBorder = False
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
end
|
||||||
inherited StatusBar: TJvStatusBar
|
inherited StatusBar: TJvStatusBar
|
||||||
Top = 486
|
Top = 486
|
||||||
|
|||||||
@ -27,20 +27,6 @@ type
|
|||||||
TBXItem33: TTBXItem;
|
TBXItem33: TTBXItem;
|
||||||
actFamilias: TAction;
|
actFamilias: TAction;
|
||||||
TBXSeparatorItem6: TTBXSeparatorItem;
|
TBXSeparatorItem6: TTBXSeparatorItem;
|
||||||
TabSheet1: TTabSheet;
|
|
||||||
frViewArticulosProveedores1: TfrViewArticulosProveedores;
|
|
||||||
dxLayoutControl1Group_Root: TdxLayoutGroup;
|
|
||||||
dxLayoutControl1: TdxLayoutControl;
|
|
||||||
dxLayoutControl1Item1: TdxLayoutItem;
|
|
||||||
eParamMargen: TcxDBSpinEdit;
|
|
||||||
dxLayoutControl1Item2: TdxLayoutItem;
|
|
||||||
eTiempo: TcxDBSpinEdit;
|
|
||||||
dxLayoutControl1Item3: TdxLayoutItem;
|
|
||||||
eParamTiempo: TcxDBCurrencyEdit;
|
|
||||||
dxLayoutControl1Item4: TdxLayoutItem;
|
|
||||||
eManoObra: TcxDBSpinEdit;
|
|
||||||
dxLayoutControl1Group1: TdxLayoutGroup;
|
|
||||||
dxLayoutControl1Group3: TdxLayoutGroup;
|
|
||||||
procedure FormShow(Sender: TObject);
|
procedure FormShow(Sender: TObject);
|
||||||
procedure dsDataTableDataChange(Sender: TObject; Field: TField);
|
procedure dsDataTableDataChange(Sender: TObject; Field: TField);
|
||||||
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
|
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
|
||||||
@ -131,7 +117,7 @@ begin
|
|||||||
if Assigned(FViewArticulo) and Assigned(Articulo) then
|
if Assigned(FViewArticulo) and Assigned(Articulo) then
|
||||||
begin
|
begin
|
||||||
FViewArticulo.Articulo := Articulo;
|
FViewArticulo.Articulo := Articulo;
|
||||||
frViewArticulosProveedores1.Articulo := Articulo;
|
// frViewArticulosProveedores1.Articulo := Articulo;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -141,7 +127,7 @@ begin
|
|||||||
if Assigned(FController) then
|
if Assigned(FController) then
|
||||||
begin
|
begin
|
||||||
(ViewArticulo as IViewArticulo).Controller := (FController as IArticulosController);
|
(ViewArticulo as IViewArticulo).Controller := (FController as IArticulosController);
|
||||||
frViewArticulosProveedores1.Controller := FController;
|
// frViewArticulosProveedores1.Controller := FController;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|||||||
@ -36,15 +36,22 @@ inherited fEditorArticulos: TfEditorArticulos
|
|||||||
ExplicitWidth = 632
|
ExplicitWidth = 632
|
||||||
end
|
end
|
||||||
inherited tbxFiltro: TTBXToolbar
|
inherited tbxFiltro: TTBXToolbar
|
||||||
|
ExplicitWidth = 269
|
||||||
inherited tbxEditFiltro: TTBXEditItem
|
inherited tbxEditFiltro: TTBXEditItem
|
||||||
EditOptions = [tboUseEditWhenVertical]
|
EditOptions = [tboUseEditWhenVertical]
|
||||||
end
|
end
|
||||||
|
inherited TBXItem37: TTBXItem
|
||||||
|
Enabled = False
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
end
|
end
|
||||||
inherited tbxMenu: TTBXToolbar
|
inherited tbxMenu: TTBXToolbar
|
||||||
ExplicitWidth = 657
|
ExplicitWidth = 657
|
||||||
end
|
end
|
||||||
inherited TBXTMain2: TTBXToolbar
|
inherited TBXTMain2: TTBXToolbar
|
||||||
|
Left = 269
|
||||||
DockPos = 267
|
DockPos = 267
|
||||||
|
ExplicitLeft = 269
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited StatusBar: TJvStatusBar
|
inherited StatusBar: TJvStatusBar
|
||||||
@ -63,115 +70,6 @@ inherited fEditorArticulos: TfEditorArticulos
|
|||||||
OnChange = pgPaginasChange
|
OnChange = pgPaginasChange
|
||||||
object pagArticulos: TTabSheet
|
object pagArticulos: TTabSheet
|
||||||
Caption = 'Todos los art'#237'culos'
|
Caption = 'Todos los art'#237'culos'
|
||||||
inline frViewArticulos1: TfrViewArticulos
|
|
||||||
Left = 0
|
|
||||||
Top = 0
|
|
||||||
Width = 643
|
|
||||||
Height = 349
|
|
||||||
Align = alClient
|
|
||||||
Font.Charset = DEFAULT_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -11
|
|
||||||
Font.Name = 'Tahoma'
|
|
||||||
Font.Style = []
|
|
||||||
ParentFont = False
|
|
||||||
TabOrder = 0
|
|
||||||
ReadOnly = False
|
|
||||||
ExplicitWidth = 643
|
|
||||||
ExplicitHeight = 349
|
|
||||||
inherited cxGrid: TcxGrid
|
|
||||||
Width = 643
|
|
||||||
Height = 221
|
|
||||||
ExplicitWidth = 643
|
|
||||||
ExplicitHeight = 221
|
|
||||||
inherited cxGridView: TcxGridDBTableView
|
|
||||||
DataController.Summary.FooterSummaryItems = <
|
|
||||||
item
|
|
||||||
Format = '0 Art'#237'culos'
|
|
||||||
Kind = skCount
|
|
||||||
Column = frViewArticulos1.cxGridViewDESCRIPCION
|
|
||||||
end>
|
|
||||||
end
|
|
||||||
end
|
|
||||||
inherited frViewFiltroBase1: TfrViewFiltroBase
|
|
||||||
Width = 643
|
|
||||||
ExplicitWidth = 643
|
|
||||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
|
||||||
ExplicitWidth = 643
|
|
||||||
inherited dxLayoutControl1: TdxLayoutControl
|
|
||||||
Width = 643
|
|
||||||
ExplicitWidth = 643
|
|
||||||
inherited txtFiltroTodo: TcxTextEdit
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitWidth = 567
|
|
||||||
Width = 567
|
|
||||||
end
|
|
||||||
inherited edtFechaIniFiltro: TcxDateEdit
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
end
|
|
||||||
inherited edtFechaFinFiltro: TcxDateEdit
|
|
||||||
Left = 363
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 363
|
|
||||||
end
|
|
||||||
inherited eLista: TcxComboBox
|
|
||||||
Left = 613
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 613
|
|
||||||
ExplicitWidth = 20
|
|
||||||
Width = 20
|
|
||||||
end
|
|
||||||
end
|
|
||||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
|
||||||
Width = 643
|
|
||||||
ExplicitWidth = 643
|
|
||||||
inherited tbxBotones: TTBXToolbar
|
|
||||||
Width = 633
|
|
||||||
ExplicitWidth = 633
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
inherited pnlAgrupaciones: TTBXDockablePanel
|
|
||||||
Top = 323
|
|
||||||
ExplicitTop = 323
|
|
||||||
ExplicitWidth = 643
|
|
||||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
|
||||||
Width = 643
|
|
||||||
ExplicitWidth = 643
|
|
||||||
inherited TBXToolbar1: TTBXToolbar
|
|
||||||
Width = 633
|
|
||||||
ExplicitWidth = 633
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
inherited dxComponentPrinter: TdxComponentPrinter
|
|
||||||
inherited dxComponentPrinterLink: TdxGridReportLink
|
|
||||||
ReportDocument.CreationDate = 39632.498140370370000000
|
|
||||||
BuiltInReportLink = True
|
|
||||||
end
|
|
||||||
end
|
|
||||||
inherited cxViewGridPopupMenu: TcxGridPopupMenu
|
|
||||||
PopupMenus = <
|
|
||||||
item
|
|
||||||
GridView = frViewArticulos1.cxGridView
|
|
||||||
HitTypes = [gvhtCell]
|
|
||||||
Index = 0
|
|
||||||
end>
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
end
|
||||||
object pagArticulosPorProveedor: TTabSheet
|
object pagArticulosPorProveedor: TTabSheet
|
||||||
Caption = 'Art'#237'culos por proveedor'
|
Caption = 'Art'#237'culos por proveedor'
|
||||||
@ -229,22 +127,26 @@ inherited fEditorArticulos: TfEditorArticulos
|
|||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitWidth = 166
|
||||||
|
Width = 166
|
||||||
end
|
end
|
||||||
inherited edtFechaFinFiltro: TcxDateEdit
|
inherited edtFechaFinFiltro: TcxDateEdit
|
||||||
Left = 363
|
Left = 353
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitLeft = 363
|
ExplicitLeft = 353
|
||||||
|
ExplicitWidth = 150
|
||||||
|
Width = 150
|
||||||
end
|
end
|
||||||
inherited eLista: TcxComboBox
|
inherited eLista: TcxComboBox
|
||||||
Left = 613
|
Left = 595
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
ExplicitLeft = 613
|
ExplicitLeft = 595
|
||||||
ExplicitWidth = 20
|
ExplicitWidth = 20
|
||||||
Width = 20
|
Width = 20
|
||||||
end
|
end
|
||||||
@ -289,7 +191,116 @@ inherited fEditorArticulos: TfEditorArticulos
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited EditorActionList: TActionList
|
inline frViewArticulos1: TfrViewArticulos [4]
|
||||||
|
Left = 0
|
||||||
|
Top = 102
|
||||||
|
Width = 657
|
||||||
|
Height = 383
|
||||||
|
Align = alClient
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 4
|
||||||
|
ReadOnly = False
|
||||||
|
ExplicitWidth = 643
|
||||||
|
ExplicitHeight = 349
|
||||||
|
inherited cxGrid: TcxGrid
|
||||||
|
Width = 657
|
||||||
|
Height = 255
|
||||||
|
ExplicitWidth = 643
|
||||||
|
ExplicitHeight = 221
|
||||||
|
inherited cxGridView: TcxGridDBTableView
|
||||||
|
DataController.Summary.FooterSummaryItems = <
|
||||||
|
item
|
||||||
|
Format = '0 Art'#237'culos'
|
||||||
|
Kind = skCount
|
||||||
|
Column = frViewArticulos1.cxGridViewDESCRIPCION
|
||||||
|
end>
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||||
|
Width = 657
|
||||||
|
ExplicitWidth = 643
|
||||||
|
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||||
|
ExplicitWidth = 643
|
||||||
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
|
Width = 657
|
||||||
|
ExplicitWidth = 643
|
||||||
|
inherited txtFiltroTodo: TcxTextEdit
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitWidth = 567
|
||||||
|
Width = 567
|
||||||
|
end
|
||||||
|
inherited edtFechaIniFiltro: TcxDateEdit
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
end
|
||||||
|
inherited edtFechaFinFiltro: TcxDateEdit
|
||||||
|
Left = 372
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 372
|
||||||
|
end
|
||||||
|
inherited eLista: TcxComboBox
|
||||||
|
Left = 627
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 627
|
||||||
|
ExplicitWidth = 20
|
||||||
|
Width = 20
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||||
|
Width = 657
|
||||||
|
ExplicitWidth = 643
|
||||||
|
inherited tbxBotones: TTBXToolbar
|
||||||
|
Width = 647
|
||||||
|
ExplicitWidth = 633
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited pnlAgrupaciones: TTBXDockablePanel
|
||||||
|
Top = 357
|
||||||
|
ExplicitTop = 323
|
||||||
|
ExplicitWidth = 643
|
||||||
|
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||||
|
Width = 657
|
||||||
|
ExplicitWidth = 643
|
||||||
|
inherited TBXToolbar1: TTBXToolbar
|
||||||
|
Width = 647
|
||||||
|
ExplicitWidth = 633
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited dxComponentPrinter: TdxComponentPrinter
|
||||||
|
inherited dxComponentPrinterLink: TdxGridReportLink
|
||||||
|
ReportDocument.CreationDate = 39632.498140370370000000
|
||||||
|
BuiltInReportLink = True
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited cxViewGridPopupMenu: TcxGridPopupMenu
|
||||||
|
PopupMenus = <
|
||||||
|
item
|
||||||
|
GridView = frViewArticulos1.cxGridView
|
||||||
|
HitTypes = [gvhtCell]
|
||||||
|
Index = 0
|
||||||
|
end>
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited EditorActionList: TActionList [5]
|
||||||
Left = 8
|
Left = 8
|
||||||
Top = 160
|
Top = 160
|
||||||
inherited actNuevo: TAction
|
inherited actNuevo: TAction
|
||||||
@ -319,7 +330,7 @@ inherited fEditorArticulos: TfEditorArticulos
|
|||||||
OnExecute = actFamiliasExecute
|
OnExecute = actFamiliasExecute
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited SmallImages: TPngImageList
|
inherited SmallImages: TPngImageList [6]
|
||||||
PngImages = <
|
PngImages = <
|
||||||
item
|
item
|
||||||
PngImage.Data = {
|
PngImage.Data = {
|
||||||
@ -872,7 +883,7 @@ inherited fEditorArticulos: TfEditorArticulos
|
|||||||
end>
|
end>
|
||||||
Bitmap = {}
|
Bitmap = {}
|
||||||
end
|
end
|
||||||
inherited LargeImages: TPngImageList
|
inherited LargeImages: TPngImageList [7]
|
||||||
PngImages = <
|
PngImages = <
|
||||||
item
|
item
|
||||||
PngImage.Data = {
|
PngImage.Data = {
|
||||||
@ -1681,10 +1692,16 @@ inherited fEditorArticulos: TfEditorArticulos
|
|||||||
end>
|
end>
|
||||||
Bitmap = {}
|
Bitmap = {}
|
||||||
end
|
end
|
||||||
inherited dsDataTable: TDADataSource
|
inherited JvFormStorage: TJvFormStorage [8]
|
||||||
|
end
|
||||||
|
inherited dsDataTable: TDADataSource [9]
|
||||||
Left = 8
|
Left = 8
|
||||||
Top = 128
|
Top = 128
|
||||||
end
|
end
|
||||||
|
inherited JvAppRegistryStorage: TJvAppRegistryStorage [10]
|
||||||
|
end
|
||||||
|
inherited StatusBarImages: TPngImageList [11]
|
||||||
|
end
|
||||||
inherited GridPopupMenu: TPopupMenu
|
inherited GridPopupMenu: TPopupMenu
|
||||||
Left = 40
|
Left = 40
|
||||||
Top = 128
|
Top = 128
|
||||||
|
|||||||
@ -1,6 +1,6 @@
|
|||||||
inherited frViewArticulo: TfrViewArticulo
|
inherited frViewArticulo: TfrViewArticulo
|
||||||
Width = 666
|
Width = 987
|
||||||
Height = 419
|
Height = 548
|
||||||
Align = alClient
|
Align = alClient
|
||||||
OnCreate = CustomViewCreate
|
OnCreate = CustomViewCreate
|
||||||
OnDestroy = CustomViewDestroy
|
OnDestroy = CustomViewDestroy
|
||||||
@ -9,8 +9,8 @@ inherited frViewArticulo: TfrViewArticulo
|
|||||||
object dxLayoutControlArticulo: TdxLayoutControl
|
object dxLayoutControlArticulo: TdxLayoutControl
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 666
|
Width = 987
|
||||||
Height = 419
|
Height = 548
|
||||||
Align = alClient
|
Align = alClient
|
||||||
ParentBackground = True
|
ParentBackground = True
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
@ -19,11 +19,11 @@ inherited frViewArticulo: TfrViewArticulo
|
|||||||
ExplicitWidth = 451
|
ExplicitWidth = 451
|
||||||
ExplicitHeight = 304
|
ExplicitHeight = 304
|
||||||
DesignSize = (
|
DesignSize = (
|
||||||
666
|
987
|
||||||
419)
|
548)
|
||||||
object PngSpeedButton2: TPngSpeedButton
|
object PngSpeedButton2: TPngSpeedButton
|
||||||
Left = 604
|
Left = 942
|
||||||
Top = 304
|
Top = 358
|
||||||
Width = 23
|
Width = 23
|
||||||
Height = 22
|
Height = 22
|
||||||
Action = actAnadir
|
Action = actAnadir
|
||||||
@ -49,8 +49,8 @@ inherited frViewArticulo: TfrViewArticulo
|
|||||||
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
|
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
|
||||||
end
|
end
|
||||||
object PngSpeedButton1: TPngSpeedButton
|
object PngSpeedButton1: TPngSpeedButton
|
||||||
Left = 604
|
Left = 942
|
||||||
Top = 332
|
Top = 386
|
||||||
Width = 23
|
Width = 23
|
||||||
Height = 22
|
Height = 22
|
||||||
Action = actEliminar
|
Action = actEliminar
|
||||||
@ -62,7 +62,6 @@ inherited frViewArticulo: TfrViewArticulo
|
|||||||
Anchors = [akLeft, akTop, akRight]
|
Anchors = [akLeft, akTop, akRight]
|
||||||
DataBinding.DataField = 'REFERENCIA'
|
DataBinding.DataField = 'REFERENCIA'
|
||||||
DataBinding.DataSource = dsViewArticulo
|
DataBinding.DataSource = dsViewArticulo
|
||||||
Enabled = False
|
|
||||||
Style.BorderColor = clWindowFrame
|
Style.BorderColor = clWindowFrame
|
||||||
Style.BorderStyle = ebs3D
|
Style.BorderStyle = ebs3D
|
||||||
Style.Color = clWindow
|
Style.Color = clWindow
|
||||||
@ -103,12 +102,12 @@ inherited frViewArticulo: TfrViewArticulo
|
|||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
TabOrder = 1
|
TabOrder = 2
|
||||||
Width = 290
|
Width = 290
|
||||||
end
|
end
|
||||||
object eNoComisionable: TcxDBCheckBox
|
object eNoComisionable: TcxDBCheckBox
|
||||||
Left = 122
|
Left = 122
|
||||||
Top = 163
|
Top = 217
|
||||||
Caption = 'Art'#237'culo no comisionable'
|
Caption = 'Art'#237'culo no comisionable'
|
||||||
DataBinding.DataField = 'COMISIONABLE'
|
DataBinding.DataField = 'COMISIONABLE'
|
||||||
DataBinding.DataSource = dsViewArticulo
|
DataBinding.DataSource = dsViewArticulo
|
||||||
@ -131,12 +130,12 @@ inherited frViewArticulo: TfrViewArticulo
|
|||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
TabOrder = 5
|
TabOrder = 9
|
||||||
Width = 290
|
Width = 290
|
||||||
end
|
end
|
||||||
object eImagen: TcxImage
|
object eImagen: TcxImage
|
||||||
Left = 28
|
Left = 28
|
||||||
Top = 304
|
Top = 358
|
||||||
Properties.GraphicClassName = 'TJPEGImage'
|
Properties.GraphicClassName = 'TJPEGImage'
|
||||||
Properties.ImmediatePost = True
|
Properties.ImmediatePost = True
|
||||||
Properties.PopupMenuLayout.MenuItems = []
|
Properties.PopupMenuLayout.MenuItems = []
|
||||||
@ -156,13 +155,13 @@ inherited frViewArticulo: TfrViewArticulo
|
|||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
TabOrder = 8
|
TabOrder = 12
|
||||||
Height = 98
|
Height = 98
|
||||||
Width = 355
|
Width = 355
|
||||||
end
|
end
|
||||||
object cbFamilia: TcxDBComboBox
|
object cbFamilia: TcxDBComboBox
|
||||||
Left = 122
|
Left = 122
|
||||||
Top = 82
|
Top = 136
|
||||||
DataBinding.DataField = 'FAMILIA'
|
DataBinding.DataField = 'FAMILIA'
|
||||||
DataBinding.DataSource = dsViewArticulo
|
DataBinding.DataSource = dsViewArticulo
|
||||||
Properties.DropDownRows = 16
|
Properties.DropDownRows = 16
|
||||||
@ -185,12 +184,12 @@ inherited frViewArticulo: TfrViewArticulo
|
|||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
TabOrder = 2
|
TabOrder = 6
|
||||||
Width = 290
|
Width = 290
|
||||||
end
|
end
|
||||||
object cbNoInventariable: TcxDBCheckBox
|
object cbNoInventariable: TcxDBCheckBox
|
||||||
Left = 122
|
Left = 122
|
||||||
Top = 136
|
Top = 190
|
||||||
Caption = 'Art'#237'culo no inventariable'
|
Caption = 'Art'#237'culo no inventariable'
|
||||||
DataBinding.DataField = 'INVENTARIABLE'
|
DataBinding.DataField = 'INVENTARIABLE'
|
||||||
DataBinding.DataSource = dsViewArticulo
|
DataBinding.DataSource = dsViewArticulo
|
||||||
@ -213,12 +212,12 @@ inherited frViewArticulo: TfrViewArticulo
|
|||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
TabOrder = 4
|
TabOrder = 8
|
||||||
Width = 290
|
Width = 290
|
||||||
end
|
end
|
||||||
object cbUnidadMedida: TcxDBComboBox
|
object cbUnidadMedida: TcxDBComboBox
|
||||||
Left = 122
|
Left = 122
|
||||||
Top = 109
|
Top = 163
|
||||||
DataBinding.DataField = 'UNIDAD_MEDIDA'
|
DataBinding.DataField = 'UNIDAD_MEDIDA'
|
||||||
DataBinding.DataSource = dsViewArticulo
|
DataBinding.DataSource = dsViewArticulo
|
||||||
Properties.DropDownRows = 16
|
Properties.DropDownRows = 16
|
||||||
@ -241,12 +240,12 @@ inherited frViewArticulo: TfrViewArticulo
|
|||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
TabOrder = 3
|
TabOrder = 7
|
||||||
Width = 290
|
Width = 290
|
||||||
end
|
end
|
||||||
object cbFabricante: TcxDBComboBox
|
object cbFabricante: TcxDBComboBox
|
||||||
Left = 122
|
Left = 122
|
||||||
Top = 220
|
Top = 274
|
||||||
DataBinding.DataField = 'FABRICANTE'
|
DataBinding.DataField = 'FABRICANTE'
|
||||||
DataBinding.DataSource = dsViewArticulo
|
DataBinding.DataSource = dsViewArticulo
|
||||||
Properties.DropDownRows = 16
|
Properties.DropDownRows = 16
|
||||||
@ -269,12 +268,12 @@ inherited frViewArticulo: TfrViewArticulo
|
|||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
TabOrder = 6
|
TabOrder = 10
|
||||||
Width = 290
|
Width = 290
|
||||||
end
|
end
|
||||||
object eReferenciaFabr: TcxDBTextEdit
|
object eReferenciaFabr: TcxDBTextEdit
|
||||||
Left = 122
|
Left = 122
|
||||||
Top = 247
|
Top = 301
|
||||||
Anchors = [akLeft, akTop, akRight]
|
Anchors = [akLeft, akTop, akRight]
|
||||||
DataBinding.DataField = 'REFERENCIA_FABR'
|
DataBinding.DataField = 'REFERENCIA_FABR'
|
||||||
DataBinding.DataSource = dsViewArticulo
|
DataBinding.DataSource = dsViewArticulo
|
||||||
@ -295,9 +294,105 @@ inherited frViewArticulo: TfrViewArticulo
|
|||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
TabOrder = 7
|
TabOrder = 11
|
||||||
Width = 171
|
Width = 171
|
||||||
end
|
end
|
||||||
|
object eCodigo: TcxDBTextEdit
|
||||||
|
Left = 568
|
||||||
|
Top = 28
|
||||||
|
DataBinding.DataField = 'CODIGOTECNICO'
|
||||||
|
DataBinding.DataSource = dsViewArticulo
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.Color = 14745599
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
TabOrder = 1
|
||||||
|
Width = 300
|
||||||
|
end
|
||||||
|
object eCampoTecnico: TcxDBTextEdit
|
||||||
|
Left = 122
|
||||||
|
Top = 82
|
||||||
|
DataBinding.DataField = 'CAMPOTECNICO'
|
||||||
|
DataBinding.DataSource = dsViewArticulo
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.Color = clWindow
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
TabOrder = 3
|
||||||
|
Width = 727
|
||||||
|
end
|
||||||
|
object ePrecio: TcxDBCurrencyEdit
|
||||||
|
Left = 735
|
||||||
|
Top = 109
|
||||||
|
DataBinding.DataField = 'PRECIO'
|
||||||
|
DataBinding.DataSource = dsViewArticulo
|
||||||
|
Properties.Alignment.Horz = taRightJustify
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
TabOrder = 5
|
||||||
|
Width = 300
|
||||||
|
end
|
||||||
|
object eDiseno: TcxDBTextEdit
|
||||||
|
Left = 122
|
||||||
|
Top = 109
|
||||||
|
DataBinding.DataField = 'DISENOTECNICO'
|
||||||
|
DataBinding.DataSource = dsViewArticulo
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.Color = clWindow
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.LookAndFeel.SkinName = ''
|
||||||
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
TabOrder = 4
|
||||||
|
Width = 744
|
||||||
|
end
|
||||||
object dxLayoutControlArticuloGroup_Root: TdxLayoutGroup
|
object dxLayoutControlArticuloGroup_Root: TdxLayoutGroup
|
||||||
ShowCaption = False
|
ShowCaption = False
|
||||||
Hidden = True
|
Hidden = True
|
||||||
@ -320,20 +415,58 @@ inherited frViewArticulo: TfrViewArticulo
|
|||||||
AutoAligns = []
|
AutoAligns = []
|
||||||
AlignHorz = ahClient
|
AlignHorz = ahClient
|
||||||
Caption = 'Datos del art'#237'culo'
|
Caption = 'Datos del art'#237'culo'
|
||||||
object dxLayoutControlArticuloItem3: TdxLayoutItem
|
object dxLayoutControlArticuloGroup8: TdxLayoutGroup
|
||||||
AutoAligns = [aaVertical]
|
ShowCaption = False
|
||||||
AlignHorz = ahClient
|
Hidden = True
|
||||||
Caption = 'Referencia:'
|
LayoutDirection = ldHorizontal
|
||||||
Control = eReferencia
|
ShowBorder = False
|
||||||
ControlOptions.ShowBorder = False
|
object dxLayoutControlArticuloItem3: TdxLayoutItem
|
||||||
|
AutoAligns = [aaVertical]
|
||||||
|
AlignHorz = ahClient
|
||||||
|
Caption = 'Referencia:'
|
||||||
|
Control = eReferencia
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControlArticuloItem12: TdxLayoutItem
|
||||||
|
AutoAligns = [aaVertical]
|
||||||
|
AlignHorz = ahClient
|
||||||
|
Caption = 'C'#243'digo:'
|
||||||
|
Control = eCodigo
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object dxLayoutControlArticuloItem8: TdxLayoutItem
|
object dxLayoutControlArticuloItem8: TdxLayoutItem
|
||||||
AutoAligns = [aaVertical]
|
AutoAligns = [aaVertical]
|
||||||
AlignHorz = ahClient
|
AlignHorz = ahClient
|
||||||
Caption = 'Descripci'#243'n:'
|
Caption = 'Nombre:'
|
||||||
Control = eDescripcion
|
Control = eDescripcion
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
|
object dxLayoutControlArticuloItem13: TdxLayoutItem
|
||||||
|
Caption = 'Campo t'#233'cnico:'
|
||||||
|
Control = eCampoTecnico
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControlArticuloGroup7: TdxLayoutGroup
|
||||||
|
ShowCaption = False
|
||||||
|
Hidden = True
|
||||||
|
LayoutDirection = ldHorizontal
|
||||||
|
ShowBorder = False
|
||||||
|
object dxLayoutControlArticuloItem15: TdxLayoutItem
|
||||||
|
AutoAligns = [aaVertical]
|
||||||
|
AlignHorz = ahClient
|
||||||
|
Caption = 'Dise'#241'o:'
|
||||||
|
Control = eDiseno
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControlArticuloItem14: TdxLayoutItem
|
||||||
|
AutoAligns = [aaVertical]
|
||||||
|
AlignHorz = ahClient
|
||||||
|
Caption = 'Precio:'
|
||||||
|
Control = ePrecio
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
end
|
||||||
object dxLayoutControlArticuloGroup4: TdxLayoutGroup
|
object dxLayoutControlArticuloGroup4: TdxLayoutGroup
|
||||||
ShowCaption = False
|
ShowCaption = False
|
||||||
Hidden = True
|
Hidden = True
|
||||||
@ -379,6 +512,7 @@ inherited frViewArticulo: TfrViewArticulo
|
|||||||
end
|
end
|
||||||
object dxLayoutControlArticuloGroup10: TdxLayoutGroup
|
object dxLayoutControlArticuloGroup10: TdxLayoutGroup
|
||||||
Caption = 'Datos del fabricante'
|
Caption = 'Datos del fabricante'
|
||||||
|
Visible = False
|
||||||
object dxLayoutControlArticuloItem10: TdxLayoutItem
|
object dxLayoutControlArticuloItem10: TdxLayoutItem
|
||||||
Caption = 'Fabricante:'
|
Caption = 'Fabricante:'
|
||||||
Visible = False
|
Visible = False
|
||||||
|
|||||||
@ -63,6 +63,16 @@ type
|
|||||||
eReferenciaFabr: TcxDBTextEdit;
|
eReferenciaFabr: TcxDBTextEdit;
|
||||||
dxLayoutControlArticuloGroup10: TdxLayoutGroup;
|
dxLayoutControlArticuloGroup10: TdxLayoutGroup;
|
||||||
dxLayoutControlArticuloGroup14: TdxLayoutGroup;
|
dxLayoutControlArticuloGroup14: TdxLayoutGroup;
|
||||||
|
dxLayoutControlArticuloItem12: TdxLayoutItem;
|
||||||
|
eCodigo: TcxDBTextEdit;
|
||||||
|
dxLayoutControlArticuloItem13: TdxLayoutItem;
|
||||||
|
eCampoTecnico: TcxDBTextEdit;
|
||||||
|
dxLayoutControlArticuloItem14: TdxLayoutItem;
|
||||||
|
ePrecio: TcxDBCurrencyEdit;
|
||||||
|
dxLayoutControlArticuloItem15: TdxLayoutItem;
|
||||||
|
eDiseno: TcxDBTextEdit;
|
||||||
|
dxLayoutControlArticuloGroup7: TdxLayoutGroup;
|
||||||
|
dxLayoutControlArticuloGroup8: TdxLayoutGroup;
|
||||||
procedure actEliminarExecute(Sender: TObject);
|
procedure actEliminarExecute(Sender: TObject);
|
||||||
procedure actAnadirExecute(Sender: TObject);
|
procedure actAnadirExecute(Sender: TObject);
|
||||||
procedure cbFamiliaPropertiesInitPopup(Sender: TObject);
|
procedure cbFamiliaPropertiesInitPopup(Sender: TObject);
|
||||||
|
|||||||
@ -41,26 +41,44 @@ inherited frViewArticulos: TfrViewArticulos
|
|||||||
SortIndex = 0
|
SortIndex = 0
|
||||||
SortOrder = soAscending
|
SortOrder = soAscending
|
||||||
end
|
end
|
||||||
|
object cxGridViewCODIGO: TcxGridDBColumn
|
||||||
|
Caption = 'C'#243'digo'
|
||||||
|
DataBinding.FieldName = 'CODIGOTECNICO'
|
||||||
|
end
|
||||||
|
object cxGridViewDISENO: TcxGridDBColumn
|
||||||
|
Caption = 'Dise'#241'o'
|
||||||
|
DataBinding.FieldName = 'DISENOTECNICO'
|
||||||
|
end
|
||||||
object cxGridViewDESCRIPCION: TcxGridDBColumn
|
object cxGridViewDESCRIPCION: TcxGridDBColumn
|
||||||
DataBinding.FieldName = 'DESCRIPCION'
|
DataBinding.FieldName = 'DESCRIPCION'
|
||||||
end
|
end
|
||||||
object cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn
|
object cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn
|
||||||
DataBinding.FieldName = 'UNIDAD_MEDIDA'
|
DataBinding.FieldName = 'UNIDAD_MEDIDA'
|
||||||
|
Visible = False
|
||||||
|
VisibleForCustomization = False
|
||||||
end
|
end
|
||||||
object cxGridViewFAMILIA: TcxGridDBColumn
|
object cxGridViewFAMILIA: TcxGridDBColumn
|
||||||
DataBinding.FieldName = 'FAMILIA'
|
DataBinding.FieldName = 'FAMILIA'
|
||||||
|
Visible = False
|
||||||
|
VisibleForCustomization = False
|
||||||
end
|
end
|
||||||
object cxGridViewFABRICANTE: TcxGridDBColumn
|
object cxGridViewFABRICANTE: TcxGridDBColumn
|
||||||
DataBinding.FieldName = 'FABRICANTE'
|
DataBinding.FieldName = 'FABRICANTE'
|
||||||
|
Visible = False
|
||||||
|
VisibleForCustomization = False
|
||||||
end
|
end
|
||||||
object cxGridViewREFERENCIA_FABR: TcxGridDBColumn
|
object cxGridViewREFERENCIA_FABR: TcxGridDBColumn
|
||||||
DataBinding.FieldName = 'REFERENCIA_FABR'
|
DataBinding.FieldName = 'REFERENCIA_FABR'
|
||||||
|
Visible = False
|
||||||
|
VisibleForCustomization = False
|
||||||
end
|
end
|
||||||
object cxGridViewPRECIO_PVP_VENTA: TcxGridDBColumn
|
object cxGridViewCAMPOTECNICO: TcxGridDBColumn
|
||||||
DataBinding.FieldName = 'PRECIO_PVP_VENTA'
|
Caption = 'Campo t'#233'cnico'
|
||||||
|
DataBinding.FieldName = 'CAMPOTECNICO'
|
||||||
end
|
end
|
||||||
object cxGridViewPRECIO_PVP_TOTAL: TcxGridDBColumn
|
object cxGridViewPRECIO: TcxGridDBColumn
|
||||||
DataBinding.FieldName = 'PRECIO_PVP_TOTAL'
|
Caption = 'Precio'
|
||||||
|
DataBinding.FieldName = 'PRECIO'
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited cxGridLevel: TcxGridLevel
|
inherited cxGridLevel: TcxGridLevel
|
||||||
@ -88,20 +106,28 @@ inherited frViewArticulos: TfrViewArticulos
|
|||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitWidth = 272
|
||||||
|
Width = 272
|
||||||
end
|
end
|
||||||
inherited edtFechaFinFiltro: TcxDateEdit
|
inherited edtFechaFinFiltro: TcxDateEdit
|
||||||
|
Left = 376
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 376
|
||||||
|
ExplicitWidth = 221
|
||||||
|
Width = 221
|
||||||
end
|
end
|
||||||
inherited eLista: TcxComboBox
|
inherited eLista: TcxComboBox
|
||||||
|
Left = 634
|
||||||
Properties.DropDownRows = 20
|
Properties.DropDownRows = 20
|
||||||
Properties.OnChange = frViewFiltroBase1eListaPropertiesChange
|
Properties.OnChange = frViewFiltroBase1eListaPropertiesChange
|
||||||
Style.LookAndFeel.SkinName = ''
|
Style.LookAndFeel.SkinName = ''
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
StyleDisabled.LookAndFeel.SkinName = ''
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
StyleFocused.LookAndFeel.SkinName = ''
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
StyleHot.LookAndFeel.SkinName = ''
|
||||||
|
ExplicitLeft = 634
|
||||||
ExplicitWidth = 71
|
ExplicitWidth = 71
|
||||||
Width = 71
|
Width = 71
|
||||||
end
|
end
|
||||||
|
|||||||
@ -45,8 +45,10 @@ type
|
|||||||
cxGridViewFAMILIA: TcxGridDBColumn;
|
cxGridViewFAMILIA: TcxGridDBColumn;
|
||||||
cxGridViewFABRICANTE: TcxGridDBColumn;
|
cxGridViewFABRICANTE: TcxGridDBColumn;
|
||||||
cxGridViewREFERENCIA_FABR: TcxGridDBColumn;
|
cxGridViewREFERENCIA_FABR: TcxGridDBColumn;
|
||||||
cxGridViewPRECIO_PVP_VENTA: TcxGridDBColumn;
|
cxGridViewPRECIO: TcxGridDBColumn;
|
||||||
cxGridViewPRECIO_PVP_TOTAL: TcxGridDBColumn;
|
cxGridViewCODIGO: TcxGridDBColumn;
|
||||||
|
cxGridViewDISENO: TcxGridDBColumn;
|
||||||
|
cxGridViewCAMPOTECNICO: TcxGridDBColumn;
|
||||||
procedure actFamiliaExecute(Sender: TObject);
|
procedure actFamiliaExecute(Sender: TObject);
|
||||||
procedure actFamiliaUpdate(Sender: TObject);
|
procedure actFamiliaUpdate(Sender: TObject);
|
||||||
procedure actFabricanteExecute(Sender: TObject);
|
procedure actFabricanteExecute(Sender: TObject);
|
||||||
|
|||||||
@ -13,4 +13,4 @@ BEGIN
|
|||||||
END
|
END
|
||||||
|
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Controller\Contactos_controller.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Controller\Contactos_controller.res */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Controller\Contactos_controller.drf */
|
/* E:\temp\dtf47.tmp */
|
||||||
|
|||||||
Binary file not shown.
@ -12,10 +12,10 @@ STRINGTABLE
|
|||||||
BEGIN
|
BEGIN
|
||||||
END
|
END
|
||||||
|
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Data\uDataModuleContactos.DFM */
|
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Data\uDataModuleContactos.dfm */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Data\uDataModuleClientes.dfm */
|
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Data\uDataModuleClientes.dfm */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Data\uDataModuleProveedores.dfm */
|
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Data\uDataModuleProveedores.dfm */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Data\uDataModuleEmpleados.dfm */
|
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Data\uDataModuleEmpleados.dfm */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Data\uDataModuleVendedores.dfm */
|
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Data\uDataModuleVendedores.dfm */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Data\Contactos_data.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Data\Contactos_data.res */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Data\Contactos_data.drf */
|
/* E:\temp\dtf45.tmp */
|
||||||
|
|||||||
Binary file not shown.
@ -13,4 +13,4 @@ BEGIN
|
|||||||
END
|
END
|
||||||
|
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Model\Contactos_model.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Model\Contactos_model.res */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Model\Contactos_model.drf */
|
/* E:\temp\dtf43.tmp */
|
||||||
|
|||||||
Binary file not shown.
@ -3,7 +3,7 @@ unit schContactosClient_Intf;
|
|||||||
interface
|
interface
|
||||||
|
|
||||||
uses
|
uses
|
||||||
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
|
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
|
||||||
|
|
||||||
const
|
const
|
||||||
{ Data table rules ids
|
{ Data table rules ids
|
||||||
@ -710,7 +710,7 @@ type
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
{ TContactosDataTableRules }
|
{ TContactosDataTableRules }
|
||||||
TContactosDataTableRules = class(TDADataTableRules, IContactos)
|
TContactosDataTableRules = class(TIntfObjectDADataTableRules, IContactos)
|
||||||
private
|
private
|
||||||
f_NOTAS: IROStrings;
|
f_NOTAS: IROStrings;
|
||||||
procedure NOTAS_OnChange(Sender: TObject);
|
procedure NOTAS_OnChange(Sender: TObject);
|
||||||
@ -890,7 +890,7 @@ type
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
{ TGruposClienteDataTableRules }
|
{ TGruposClienteDataTableRules }
|
||||||
TGruposClienteDataTableRules = class(TDADataTableRules, IGruposCliente)
|
TGruposClienteDataTableRules = class(TIntfObjectDADataTableRules, IGruposCliente)
|
||||||
private
|
private
|
||||||
protected
|
protected
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
@ -979,7 +979,7 @@ type
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
{ TDatosBancariosDataTableRules }
|
{ TDatosBancariosDataTableRules }
|
||||||
TDatosBancariosDataTableRules = class(TDADataTableRules, IDatosBancarios)
|
TDatosBancariosDataTableRules = class(TIntfObjectDADataTableRules, IDatosBancarios)
|
||||||
private
|
private
|
||||||
protected
|
protected
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
@ -1199,7 +1199,7 @@ type
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
{ TVendedoresDataTableRules }
|
{ TVendedoresDataTableRules }
|
||||||
TVendedoresDataTableRules = class(TDADataTableRules, IVendedores)
|
TVendedoresDataTableRules = class(TIntfObjectDADataTableRules, IVendedores)
|
||||||
private
|
private
|
||||||
f_NOTAS: IROStrings;
|
f_NOTAS: IROStrings;
|
||||||
procedure NOTAS_OnChange(Sender: TObject);
|
procedure NOTAS_OnChange(Sender: TObject);
|
||||||
@ -1594,7 +1594,7 @@ type
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
{ TClientesDataTableRules }
|
{ TClientesDataTableRules }
|
||||||
TClientesDataTableRules = class(TDADataTableRules, IClientes)
|
TClientesDataTableRules = class(TIntfObjectDADataTableRules, IClientes)
|
||||||
private
|
private
|
||||||
f_NOTAS: IROStrings;
|
f_NOTAS: IROStrings;
|
||||||
procedure NOTAS_OnChange(Sender: TObject);
|
procedure NOTAS_OnChange(Sender: TObject);
|
||||||
@ -2067,7 +2067,7 @@ type
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
{ TProveedoresDataTableRules }
|
{ TProveedoresDataTableRules }
|
||||||
TProveedoresDataTableRules = class(TDADataTableRules, IProveedores)
|
TProveedoresDataTableRules = class(TIntfObjectDADataTableRules, IProveedores)
|
||||||
private
|
private
|
||||||
f_NOTAS: IROStrings;
|
f_NOTAS: IROStrings;
|
||||||
procedure NOTAS_OnChange(Sender: TObject);
|
procedure NOTAS_OnChange(Sender: TObject);
|
||||||
@ -2512,7 +2512,7 @@ type
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
{ TEmpleadosDataTableRules }
|
{ TEmpleadosDataTableRules }
|
||||||
TEmpleadosDataTableRules = class(TDADataTableRules, IEmpleados)
|
TEmpleadosDataTableRules = class(TIntfObjectDADataTableRules, IEmpleados)
|
||||||
private
|
private
|
||||||
f_NOTAS: IROStrings;
|
f_NOTAS: IROStrings;
|
||||||
f_FORMACION_BASE: IROStrings;
|
f_FORMACION_BASE: IROStrings;
|
||||||
@ -2839,7 +2839,7 @@ type
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
{ TDireccionesContactoDataTableRules }
|
{ TDireccionesContactoDataTableRules }
|
||||||
TDireccionesContactoDataTableRules = class(TDADataTableRules, IDireccionesContacto)
|
TDireccionesContactoDataTableRules = class(TIntfObjectDADataTableRules, IDireccionesContacto)
|
||||||
private
|
private
|
||||||
f_NOTAS: IROStrings;
|
f_NOTAS: IROStrings;
|
||||||
procedure NOTAS_OnChange(Sender: TObject);
|
procedure NOTAS_OnChange(Sender: TObject);
|
||||||
@ -2989,7 +2989,7 @@ type
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
{ TClientesDescuentosDataTableRules }
|
{ TClientesDescuentosDataTableRules }
|
||||||
TClientesDescuentosDataTableRules = class(TDADataTableRules, IClientesDescuentos)
|
TClientesDescuentosDataTableRules = class(TIntfObjectDADataTableRules, IClientesDescuentos)
|
||||||
private
|
private
|
||||||
protected
|
protected
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
@ -3054,7 +3054,7 @@ type
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
{ TGruposProveedorDataTableRules }
|
{ TGruposProveedorDataTableRules }
|
||||||
TGruposProveedorDataTableRules = class(TDADataTableRules, IGruposProveedor)
|
TGruposProveedorDataTableRules = class(TIntfObjectDADataTableRules, IGruposProveedor)
|
||||||
private
|
private
|
||||||
protected
|
protected
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
@ -3101,7 +3101,7 @@ type
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
{ TGruposEmpleadoDataTableRules }
|
{ TGruposEmpleadoDataTableRules }
|
||||||
TGruposEmpleadoDataTableRules = class(TDADataTableRules, IGruposEmpleado)
|
TGruposEmpleadoDataTableRules = class(TIntfObjectDADataTableRules, IGruposEmpleado)
|
||||||
private
|
private
|
||||||
protected
|
protected
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
@ -3267,7 +3267,7 @@ type
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
{ TContactos_RefreshDataTableRules }
|
{ TContactos_RefreshDataTableRules }
|
||||||
TContactos_RefreshDataTableRules = class(TDADataTableRules, IContactos_Refresh)
|
TContactos_RefreshDataTableRules = class(TIntfObjectDADataTableRules, IContactos_Refresh)
|
||||||
private
|
private
|
||||||
f_NOTAS: IROStrings;
|
f_NOTAS: IROStrings;
|
||||||
procedure NOTAS_OnChange(Sender: TObject);
|
procedure NOTAS_OnChange(Sender: TObject);
|
||||||
@ -3429,7 +3429,7 @@ type
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
{ TContratosEmpleadosDataTableRules }
|
{ TContratosEmpleadosDataTableRules }
|
||||||
TContratosEmpleadosDataTableRules = class(TDADataTableRules, IContratosEmpleados)
|
TContratosEmpleadosDataTableRules = class(TIntfObjectDADataTableRules, IContratosEmpleados)
|
||||||
private
|
private
|
||||||
protected
|
protected
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
@ -3464,7 +3464,7 @@ type
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
{ TDescripcionesProveedoresDataTableRules }
|
{ TDescripcionesProveedoresDataTableRules }
|
||||||
TDescripcionesProveedoresDataTableRules = class(TDADataTableRules, IDescripcionesProveedores)
|
TDescripcionesProveedoresDataTableRules = class(TIntfObjectDADataTableRules, IDescripcionesProveedores)
|
||||||
private
|
private
|
||||||
protected
|
protected
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
@ -3553,7 +3553,7 @@ type
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
{ TPersonalContactoDataTableRules }
|
{ TPersonalContactoDataTableRules }
|
||||||
TPersonalContactoDataTableRules = class(TDADataTableRules, IPersonalContacto)
|
TPersonalContactoDataTableRules = class(TIntfObjectDADataTableRules, IPersonalContacto)
|
||||||
private
|
private
|
||||||
protected
|
protected
|
||||||
{ Property getters and setters }
|
{ Property getters and setters }
|
||||||
|
|||||||
@ -14,4 +14,4 @@ END
|
|||||||
|
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Plugin\uPluginContactos.dfm */
|
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Plugin\uPluginContactos.dfm */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Plugin\Contactos_plugin.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Plugin\Contactos_plugin.res */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Plugin\Contactos_plugin.drf */
|
/* E:\temp\dtf4B.tmp */
|
||||||
|
|||||||
@ -56,4 +56,4 @@ END
|
|||||||
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Views\uViewDatosYSeleccionCliente.dfm */
|
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Views\uViewDatosYSeleccionCliente.dfm */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Views\uViewDatosYSeleccionClienteBase.dfm */
|
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Views\uViewDatosYSeleccionClienteBase.dfm */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Views\Contactos_view.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Views\Contactos_view.res */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Views\Contactos_view.drf */
|
/* E:\temp\dtf49.tmp */
|
||||||
|
|||||||
Binary file not shown.
@ -14,4 +14,4 @@ END
|
|||||||
|
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Fabricantes\Data\uDataModuleFabricantes.dfm */
|
/* C:\Codigo Noviseda\Source\Modulos\Fabricantes\Data\uDataModuleFabricantes.dfm */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Fabricantes\Data\Fabricantes_data.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Fabricantes\Data\Fabricantes_data.res */
|
||||||
/* E:\temp\dtf63.tmp */
|
/* E:\temp\dtf59.tmp */
|
||||||
|
|||||||
@ -13,4 +13,4 @@ BEGIN
|
|||||||
END
|
END
|
||||||
|
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Fabricantes\Model\Fabricantes_model.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Fabricantes\Model\Fabricantes_model.res */
|
||||||
/* E:\temp\dtf61.tmp */
|
/* E:\temp\dtf57.tmp */
|
||||||
|
|||||||
@ -13,4 +13,4 @@ BEGIN
|
|||||||
END
|
END
|
||||||
|
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Controller\FacturasCliente_controller.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Controller\FacturasCliente_controller.res */
|
||||||
/* E:\temp\dtfB1.tmp */
|
/* E:\temp\dtfA7.tmp */
|
||||||
|
|||||||
@ -14,4 +14,4 @@ END
|
|||||||
|
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Data\uDataModuleFacturasCliente.dfm */
|
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Data\uDataModuleFacturasCliente.dfm */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Data\FacturasCliente_data.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Data\FacturasCliente_data.res */
|
||||||
/* E:\temp\dtfAF.tmp */
|
/* E:\temp\dtfA5.tmp */
|
||||||
|
|||||||
@ -13,4 +13,4 @@ BEGIN
|
|||||||
END
|
END
|
||||||
|
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Model\FacturasCliente_model.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Model\FacturasCliente_model.res */
|
||||||
/* E:\temp\dtfAD.tmp */
|
/* E:\temp\dtfA3.tmp */
|
||||||
|
|||||||
@ -14,4 +14,4 @@ END
|
|||||||
|
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Plugin\uPluginFacturasCliente.dfm */
|
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Plugin\uPluginFacturasCliente.dfm */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Plugin\FacturasCliente_plugin.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Plugin\FacturasCliente_plugin.res */
|
||||||
/* E:\temp\dtf105.tmp */
|
/* E:\temp\dtfFB.tmp */
|
||||||
|
|||||||
@ -24,4 +24,4 @@ END
|
|||||||
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Views\uEditorElegirArticulosFacturaCliente.dfm */
|
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Views\uEditorElegirArticulosFacturaCliente.dfm */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Views\uEditorElegirFacturasCliente.dfm */
|
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Views\uEditorElegirFacturasCliente.dfm */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Views\FacturasCliente_view.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Views\FacturasCliente_view.res */
|
||||||
/* E:\temp\dtf103.tmp */
|
/* E:\temp\dtfF9.tmp */
|
||||||
|
|||||||
@ -13,4 +13,4 @@ BEGIN
|
|||||||
END
|
END
|
||||||
|
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Facturas de proveedor\Controller\FacturasProveedor_controller.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Facturas de proveedor\Controller\FacturasProveedor_controller.res */
|
||||||
/* E:\temp\dtfDB.tmp */
|
/* E:\temp\dtfD1.tmp */
|
||||||
|
|||||||
@ -14,4 +14,4 @@ END
|
|||||||
|
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Facturas de proveedor\Data\uDataModuleFacturasProveedor.dfm */
|
/* C:\Codigo Noviseda\Source\Modulos\Facturas de proveedor\Data\uDataModuleFacturasProveedor.dfm */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Facturas de proveedor\Data\FacturasProveedor_data.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Facturas de proveedor\Data\FacturasProveedor_data.res */
|
||||||
/* E:\temp\dtfD9.tmp */
|
/* E:\temp\dtfCF.tmp */
|
||||||
|
|||||||
@ -13,4 +13,4 @@ BEGIN
|
|||||||
END
|
END
|
||||||
|
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Facturas de proveedor\Model\FacturasProveedor_model.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Facturas de proveedor\Model\FacturasProveedor_model.res */
|
||||||
/* E:\temp\dtfD7.tmp */
|
/* E:\temp\dtfCD.tmp */
|
||||||
|
|||||||
@ -14,4 +14,4 @@ END
|
|||||||
|
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Facturas de proveedor\Plugin\uPluginFacturasProveedor.dfm */
|
/* C:\Codigo Noviseda\Source\Modulos\Facturas de proveedor\Plugin\uPluginFacturasProveedor.dfm */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Facturas de proveedor\Plugin\FacturasProveedor_plugin.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Facturas de proveedor\Plugin\FacturasProveedor_plugin.res */
|
||||||
/* E:\temp\dtf119.tmp */
|
/* E:\temp\dtf10F.tmp */
|
||||||
|
|||||||
@ -13,4 +13,4 @@ BEGIN
|
|||||||
END
|
END
|
||||||
|
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Gestion de documentos\Controller\GestorDocumentos_Controller.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Gestion de documentos\Controller\GestorDocumentos_Controller.res */
|
||||||
/* E:\temp\dtf6D.tmp */
|
/* E:\temp\dtf63.tmp */
|
||||||
|
|||||||
@ -14,4 +14,4 @@ END
|
|||||||
|
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Gestion de documentos\Data\uDataModuleGestorDocumentos.dfm */
|
/* C:\Codigo Noviseda\Source\Modulos\Gestion de documentos\Data\uDataModuleGestorDocumentos.dfm */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Gestion de documentos\Data\GestorDocumentos_data.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Gestion de documentos\Data\GestorDocumentos_data.res */
|
||||||
/* E:\temp\dtf6B.tmp */
|
/* E:\temp\dtf61.tmp */
|
||||||
|
|||||||
@ -13,4 +13,4 @@ BEGIN
|
|||||||
END
|
END
|
||||||
|
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Controller\PedidosProveedor_controller.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Controller\PedidosProveedor_controller.res */
|
||||||
/* E:\temp\dtfB7.tmp */
|
/* E:\temp\dtfAD.tmp */
|
||||||
|
|||||||
@ -14,4 +14,4 @@ END
|
|||||||
|
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Data\uDataModulePedidosProveedor.dfm */
|
/* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Data\uDataModulePedidosProveedor.dfm */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Data\PedidosProveedor_data.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Data\PedidosProveedor_data.res */
|
||||||
/* E:\temp\dtfB5.tmp */
|
/* E:\temp\dtfAB.tmp */
|
||||||
|
|||||||
@ -13,4 +13,4 @@ BEGIN
|
|||||||
END
|
END
|
||||||
|
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Model\PedidosProveedor_model.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Model\PedidosProveedor_model.res */
|
||||||
/* E:\temp\dtfB3.tmp */
|
/* E:\temp\dtfA9.tmp */
|
||||||
|
|||||||
@ -14,4 +14,4 @@ END
|
|||||||
|
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Plugin\uPluginPedidosProveedor.dfm */
|
/* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Plugin\uPluginPedidosProveedor.dfm */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Plugin\PedidosProveedor_plugin.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Plugin\PedidosProveedor_plugin.res */
|
||||||
/* E:\temp\dtf111.tmp */
|
/* E:\temp\dtf107.tmp */
|
||||||
|
|||||||
@ -30,4 +30,4 @@ END
|
|||||||
/* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Views\uEditorDireccionEntregaPedidoProveedor.dfm */
|
/* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Views\uEditorDireccionEntregaPedidoProveedor.dfm */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Views\uEditorSituacionPedidoProveedor.dfm */
|
/* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Views\uEditorSituacionPedidoProveedor.dfm */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Views\PedidosProveedor_view.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Views\PedidosProveedor_view.res */
|
||||||
/* E:\temp\dtf10F.tmp */
|
/* E:\temp\dtf105.tmp */
|
||||||
|
|||||||
@ -13,4 +13,4 @@ BEGIN
|
|||||||
END
|
END
|
||||||
|
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Presupuestos de cliente\Controller\PresupuestosCliente_controller.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Presupuestos de cliente\Controller\PresupuestosCliente_controller.res */
|
||||||
/* E:\temp\dtfA5.tmp */
|
/* E:\temp\dtf9B.tmp */
|
||||||
|
|||||||
@ -14,4 +14,4 @@ END
|
|||||||
|
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Presupuestos de cliente\Data\uDataModulePresupuestosCliente.dfm */
|
/* C:\Codigo Noviseda\Source\Modulos\Presupuestos de cliente\Data\uDataModulePresupuestosCliente.dfm */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Presupuestos de cliente\Data\PresupuestosCliente_data.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Presupuestos de cliente\Data\PresupuestosCliente_data.res */
|
||||||
/* E:\temp\dtfA3.tmp */
|
/* E:\temp\dtf99.tmp */
|
||||||
|
|||||||
@ -13,4 +13,4 @@ BEGIN
|
|||||||
END
|
END
|
||||||
|
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Presupuestos de cliente\Model\PresupuestosCliente_model.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Presupuestos de cliente\Model\PresupuestosCliente_model.res */
|
||||||
/* E:\temp\dtfA1.tmp */
|
/* E:\temp\dtf97.tmp */
|
||||||
|
|||||||
@ -14,4 +14,4 @@ END
|
|||||||
|
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Presupuestos de cliente\Plugin\uPluginPresupuestosCliente.dfm */
|
/* C:\Codigo Noviseda\Source\Modulos\Presupuestos de cliente\Plugin\uPluginPresupuestosCliente.dfm */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Presupuestos de cliente\Plugin\PresupuestosCliente_plugin.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Presupuestos de cliente\Plugin\PresupuestosCliente_plugin.res */
|
||||||
/* E:\temp\dtfFD.tmp */
|
/* E:\temp\dtfF3.tmp */
|
||||||
|
|||||||
@ -28,4 +28,4 @@ END
|
|||||||
/* C:\Codigo Noviseda\Source\Modulos\Presupuestos de cliente\Views\uEditorPresupuestosClienteReport.dfm */
|
/* C:\Codigo Noviseda\Source\Modulos\Presupuestos de cliente\Views\uEditorPresupuestosClienteReport.dfm */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Presupuestos de cliente\Views\uEditorAsignarDescuento.dfm */
|
/* C:\Codigo Noviseda\Source\Modulos\Presupuestos de cliente\Views\uEditorAsignarDescuento.dfm */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Presupuestos de cliente\Views\PresupuestosCliente_view.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Presupuestos de cliente\Views\PresupuestosCliente_view.res */
|
||||||
/* E:\temp\dtfFB.tmp */
|
/* E:\temp\dtfF1.tmp */
|
||||||
|
|||||||
@ -14,4 +14,4 @@ END
|
|||||||
|
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Recibos de cliente\Data\uDataModuleRecibosCliente.dfm */
|
/* C:\Codigo Noviseda\Source\Modulos\Recibos de cliente\Data\uDataModuleRecibosCliente.dfm */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Recibos de cliente\Data\RecibosCliente_data.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Recibos de cliente\Data\RecibosCliente_data.res */
|
||||||
/* E:\temp\dtf8F.tmp */
|
/* E:\temp\dtf85.tmp */
|
||||||
|
|||||||
@ -14,4 +14,4 @@ END
|
|||||||
|
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Recibos de cliente\Plugin\uPluginRecibosCliente.dfm */
|
/* C:\Codigo Noviseda\Source\Modulos\Recibos de cliente\Plugin\uPluginRecibosCliente.dfm */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Recibos de cliente\Plugin\RecibosCliente_plugin.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Recibos de cliente\Plugin\RecibosCliente_plugin.res */
|
||||||
/* E:\temp\dtf95.tmp */
|
/* E:\temp\dtf8B.tmp */
|
||||||
|
|||||||
@ -14,4 +14,4 @@ END
|
|||||||
|
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Recibos de proveedor\Data\uDataModuleRecibosProveedor.dfm */
|
/* C:\Codigo Noviseda\Source\Modulos\Recibos de proveedor\Data\uDataModuleRecibosProveedor.dfm */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Recibos de proveedor\Data\RecibosProveedor_data.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Recibos de proveedor\Data\RecibosProveedor_data.res */
|
||||||
/* E:\temp\dtfBB.tmp */
|
/* E:\temp\dtfB1.tmp */
|
||||||
|
|||||||
@ -14,4 +14,4 @@ END
|
|||||||
|
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Recibos de proveedor\Plugin\uPluginRecibosProveedor.dfm */
|
/* C:\Codigo Noviseda\Source\Modulos\Recibos de proveedor\Plugin\uPluginRecibosProveedor.dfm */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Recibos de proveedor\Plugin\RecibosProveedor_plugin.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Recibos de proveedor\Plugin\RecibosProveedor_plugin.res */
|
||||||
/* E:\temp\dtfC1.tmp */
|
/* E:\temp\dtfB7.tmp */
|
||||||
|
|||||||
@ -14,4 +14,4 @@ END
|
|||||||
|
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Tipos de IVA\Data\uDataModuleTiposIVA.dfm */
|
/* C:\Codigo Noviseda\Source\Modulos\Tipos de IVA\Data\uDataModuleTiposIVA.dfm */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Tipos de IVA\Data\TiposIVA_data.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Tipos de IVA\Data\TiposIVA_data.res */
|
||||||
/* E:\temp\dtf31.tmp */
|
/* E:\temp\dtf27.tmp */
|
||||||
|
|||||||
@ -13,4 +13,4 @@ BEGIN
|
|||||||
END
|
END
|
||||||
|
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Tipos de IVA\Model\TiposIVA_model.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Tipos de IVA\Model\TiposIVA_model.res */
|
||||||
/* E:\temp\dtf2F.tmp */
|
/* E:\temp\dtf25.tmp */
|
||||||
|
|||||||
@ -14,4 +14,4 @@ END
|
|||||||
|
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Unidades de medida\Data\uDataModuleUnidadesMedida.dfm */
|
/* C:\Codigo Noviseda\Source\Modulos\Unidades de medida\Data\uDataModuleUnidadesMedida.dfm */
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Unidades de medida\Data\UnidadesMedida_data.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Unidades de medida\Data\UnidadesMedida_data.res */
|
||||||
/* E:\temp\dtf45.tmp */
|
/* E:\temp\dtf3B.tmp */
|
||||||
|
|||||||
@ -13,4 +13,4 @@ BEGIN
|
|||||||
END
|
END
|
||||||
|
|
||||||
/* C:\Codigo Noviseda\Source\Modulos\Unidades de medida\Model\UnidadesMedida_model.res */
|
/* C:\Codigo Noviseda\Source\Modulos\Unidades de medida\Model\UnidadesMedida_model.res */
|
||||||
/* E:\temp\dtf43.tmp */
|
/* E:\temp\dtf39.tmp */
|
||||||
|
|||||||
Binary file not shown.
@ -97,15 +97,11 @@ uses
|
|||||||
uBizEmpresasServer in '..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas',
|
uBizEmpresasServer in '..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas',
|
||||||
schAlmacenesClient_Intf in '..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas',
|
schAlmacenesClient_Intf in '..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas',
|
||||||
schAlmacenesServer_Intf in '..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas',
|
schAlmacenesServer_Intf in '..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas',
|
||||||
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
|
|
||||||
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
|
|
||||||
uRptPresupuestosCliente_Server in '..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas' {RptPresupuestosCliente: TDataModule},
|
uRptPresupuestosCliente_Server in '..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas' {RptPresupuestosCliente: TDataModule},
|
||||||
uRptWordPresupuestoCliente in '..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas' {RptWordPresupuestoCliente: TDataModule},
|
uRptWordPresupuestoCliente in '..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas' {RptWordPresupuestoCliente: TDataModule},
|
||||||
srvGestorDocumentos_Impl in '..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas' {srvGestorDocumentos: TDataAbstractService},
|
srvGestorDocumentos_Impl in '..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas' {srvGestorDocumentos: TDataAbstractService},
|
||||||
schHistoricoMovimientosClient_Intf in '..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas',
|
schHistoricoMovimientosClient_Intf in '..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas',
|
||||||
schHistoricoMovimientosServer_Intf in '..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas',
|
schHistoricoMovimientosServer_Intf in '..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas',
|
||||||
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
|
|
||||||
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
|
|
||||||
schUsuariosClient_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas',
|
schUsuariosClient_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas',
|
||||||
schUsuariosServer_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas',
|
schUsuariosServer_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas',
|
||||||
srvGestorInformes_Impl in '..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas' {srvGestorInformes: TDataAbstractService},
|
srvGestorInformes_Impl in '..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas' {srvGestorInformes: TDataAbstractService},
|
||||||
@ -136,7 +132,11 @@ uses
|
|||||||
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
|
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
|
||||||
uBizVendedoresServer in '..\Modulos\Contactos\Model\uBizVendedoresServer.pas',
|
uBizVendedoresServer in '..\Modulos\Contactos\Model\uBizVendedoresServer.pas',
|
||||||
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
|
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
|
||||||
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas';
|
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
|
||||||
|
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
|
||||||
|
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
|
||||||
|
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
|
||||||
|
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas';
|
||||||
|
|
||||||
{$R *.res}
|
{$R *.res}
|
||||||
{$R ..\Servicios\RODLFile.res}
|
{$R ..\Servicios\RODLFile.res}
|
||||||
|
|||||||
Binary file not shown.
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user