Archivado/Noviseda_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Primera adaptacion de albaranes de cliente

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@10 f33bb606-9f5c-448d-9c99-757f00063c96
This commit is contained in:
roberto 2010-01-11 18:07:39 +00:00
parent 5c11095e87
commit 636b736c6e
101 changed files with 3563 additions and 684 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
Database/scripts/factuges.sql
View File

@ -82,6 +82,9 @@ VARCHAR(30);
CREATE GENERATOR GEN_ALBARANES_CLI_DETALLES_ID;
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;
SET GENERATOR GEN_ALBARANES_CLI_ID TO 1;
@ -310,6 +313,23 @@ CREATE TABLE ALBARANES_CLIENTE_DETALLES (
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 (
ID TIPO_ID NOT NULL,
ID_EMPRESA TIPO_ID,
@ -405,7 +425,11 @@ CREATE TABLE ARTICULOS (
PARAM_MARGEN FLOAT,
TIEMPO INTEGER,
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 (
@ -1624,7 +1648,13 @@ CREATE VIEW V_ARTICULOS_PARA_VENTA(
TIEMPO,
PARAM_TIEMPO,
MANO_OBRA,
PRECIO_PVP_TOTAL)
PRECIO_PVP_TOTAL,
CAMPOTECNICO,
CODIGOTECNICO,
DISENOTECNICO,
PRECIO
)
AS
SELECT ARTICULOS.ID, ARTICULOS.ID_EMPRESA, ARTICULOS.REFERENCIA, ARTICULOS.DESCRIPCION,
ARTICULOS.UNIDAD_MEDIDA, ARTICULOS.FAMILIA, ARTICULOS.IMAGEN,
@ -1647,7 +1677,12 @@ SELECT ARTICULOS.ID, ARTICULOS.ID_EMPRESA, ARTICULOS.REFERENCIA, ARTICULOS.DESCR
ARTICULOS.TIEMPO,
ARTICULOS.PARAM_TIEMPO,
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
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_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_DETALLES ADD CONSTRAINT PK_ALBARANES_PROVEEDOR_DETALLES PRIMARY KEY (ID);
ALTER TABLE ALMACENES ADD CONSTRAINT PK_ALMACENES PRIMARY KEY (ID);

BIN
Source/Base/Base.res
View File

Binary file not shown.

BIN
Source/Cliente/FactuGES.identcache
View File

Binary file not shown.

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Noviseda\Resources\Iconos\Factuges.ico"
1 VERSIONINFO
FILEVERSION 1,7,8,0
PRODUCTVERSION 1,7,8,0
FILEVERSION 2,0,0,0
PRODUCTVERSION 2,0,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "1.7.8.0\0"
VALUE "FileVersion", "2.0.0.0\0"
VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "1.7.8.0\0"
VALUE "ProductVersion", "2.0.0.0\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

8
Source/Cliente/uBootStrap.pas
View File

@ -23,7 +23,7 @@ begin
LoadModule('Referencias_plugin.bpl');
LoadModule('FormasPago_plugin.bpl');
LoadModule('TiposIVA_plugin.bpl');
LoadModule('Familias_plugin.bpl');
// LoadModule('Familias_plugin.bpl');
// LoadModule('Fabricantes_plugin.bpl');
// LoadModule('UnidadesMedida_plugin.bpl');
@ -34,7 +34,7 @@ begin
LoadModule('Articulos_plugin.bpl');
// LoadModule(MODULENAME_PRESUPUESTOS_CLIENTE);
// LoadModule(MODULENAME_ALBARANES_CLIENTE);
LoadModule(MODULENAME_ALBARANES_CLIENTE);
// LoadModule('RecibosCliente_plugin.bpl');
// LoadModule(MODULENAME_FACTURAS_CLIENTE);
@ -48,8 +48,8 @@ begin
// LoadModule('RemesasCliente_plugin.bpl');
// LoadModule('RemesasProveedor_plugin.bpl');
// LoadModule('Inventario_plugin.bpl');
// LoadModule('HistoricoMovimientos_plugin.bpl');
LoadModule('Inventario_plugin.bpl');
LoadModule('HistoricoMovimientos_plugin.bpl');
// LoadModule('GestorInformes_plugin.bpl');
end;

3
Source/GUIBase/GUIBase.dpk
View File

@ -76,6 +76,7 @@ contains
uViewGrid in 'uViewGrid.pas' {frViewGrid: TFrame},
uViewRichEditor in 'uViewRichEditor.pas' {frViewRichEditor: TCustomView},
uDialogElegirEMail in 'uDialogElegirEMail.pas' {fDialogElegirEMail},
uViewDocumentos in 'uViewDocumentos.pas' {frViewDocumentos: TCustomView};
uViewDocumentos in 'uViewDocumentos.pas' {frViewDocumentos: TCustomView},
uEditorColores in 'uEditorColores.pas' {frEditorColores};
end.

51
Source/GUIBase/GUIBase.dproj
View File

@ -59,30 +59,30 @@
<DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxTreeListD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxBarD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxBarExtItemsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxComnD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\Base.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\cxTreeListD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\dxBarD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\dxBarExtItemsD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\dxComnD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\frx11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\frxe11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\fs11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\rtl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\vcl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\vcldb.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\vclx.dcp" />
<DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form>
</DCCReference>
@ -96,6 +96,9 @@
<DCCReference Include="uEditorBasico.pas">
<Form>fEditorBasico</Form>
</DCCReference>
<DCCReference Include="uEditorColores.pas">
<Form>frEditorColores</Form>
</DCCReference>
<DCCReference Include="uEditorDBBase.pas">
<Form>fEditorDBBase</Form>
<DesignClass>TCustomEditor</DesignClass>

1
Source/GUIBase/GUIBase.drc
View File

@ -37,5 +37,6 @@ END
/* C:\Codigo Noviseda\Source\GUIBase\uViewRichEditor.dfm */
/* C:\Codigo Noviseda\Source\GUIBase\uDialogElegirEMail.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.drf */

BIN
Source/GUIBase/GUIBase.identcache
View File

Binary file not shown.

BIN
Source/GUIBase/GUIBase.res
View File

Binary file not shown.

439
Source/GUIBase/uEditorColores.dfm Normal file
View 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
View 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.

2
Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* 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 */

31
Source/Modulos/Albaranes de cliente/Controller/uDetallesAlbaranClienteController.pas
View File

@ -13,6 +13,8 @@ type
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload;
procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable);
function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
procedure ModificarCantidadColores(ADetalles: IDAStronglyTypedDataTable);
end;
TDetallesAlbaranClienteController = class(TControllerDetallesArticulos, IDetallesAlbaranClienteController)
@ -33,13 +35,15 @@ type
public
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente; const ANuevaFila :Boolean = True; const ACantidad: Integer = 1); overload;
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; ACliente: IBizCliente); overload;
procedure ModificarCantidadColores(ADetalles: IDAStronglyTypedDataTable);
constructor Create; override;
destructor Destroy; override;
end;
implementation
uses Dialogs, uDialogUtils, Variants, uControllerDetallesBase,
uses Controls, Dialogs, uDialogUtils, Variants, uControllerDetallesBase, uEditorColores,
uCalculosUtils, uDataModuleAlbaranesCliente, uArticulosAlbaranClienteController;
{ TDetallesAlbaranClienteController }
@ -134,6 +138,31 @@ begin
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);
begin
//En Tecsitel no se tiene en cuenta el descuento de cliente para el precio PVP

4
Source/Modulos/Albaranes de cliente/Data/AlbaranesCliente_data.drc
View File

@ -12,6 +12,6 @@ STRINGTABLE
BEGIN
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 */
/* E:\temp\dtfA9.tmp */
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Data\AlbaranesCliente_data.drf */

114
Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm
View File

@ -10,12 +10,12 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
Top = 16
end
object rda_AlbaranesCliente: TDARemoteDataAdapter
DataStreamer = Bin2DataStreamer
GetSchemaCall.RemoteService = RORemoteService
GetDataCall.RemoteService = RORemoteService
UpdateDataCall.RemoteService = RORemoteService
GetScriptsCall.RemoteService = RORemoteService
RemoteService = RORemoteService
DataStreamer = Bin2DataStreamer
Left = 43
Top = 151
end
@ -289,8 +289,6 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_AlbaranesCliente
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'AlbaranesCliente'
IndexDefs = <>
Left = 232
@ -408,8 +406,6 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
MasterSource = ds_AlbaranesCliente
MasterFields = 'ID'
DetailFields = 'ID_ALBARAN'
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'AlbaranesCliente_Detalles'
IndexDefs = <>
Left = 384
@ -432,8 +428,6 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_AlbaranesCliente
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'ListaAnosAlbaranes'
IndexDefs = <>
Left = 232
@ -445,4 +439,110 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
Left = 232
Top = 192
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

24
Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.pas
View File

@ -7,7 +7,7 @@ uses
uRORemoteService, uROClient, uROBinMessage, uDAScriptingProvider,
uDACDSDataTable, uROWinInetHttpChannel, uDADataTable, uDABINAdapter,
uIDataModuleAlbaranesCliente, uBizAlbaranesCliente, uBizDetallesAlbaranCliente,
uIDataModuleAlbaranesCliente, uBizAlbaranesCliente, uBizDetallesAlbaranCliente, uBizDetalleColoresAlbaranCliente,
uIDataModuleAlbaranesClienteReport, uDataModuleBase, uDABin2DataStreamer, uDAMemDataTable,
uDAInterfaces, uDADataStreamer, uDARemoteDataAdapter, uIntegerListUtils;
@ -22,10 +22,13 @@ type
ds_AlbaranesCliente_Detalles: TDADataSource;
tbl_ListaAnosAlbaranes: TDAMemDataTable;
ds_ListaAnosAlbaranes: TDADataSource;
tbl_AlbaranesCliente_Detalle_Color: TDAMemDataTable;
ds_AlbaranesCliente_Detalle_Color: TDADataSource;
procedure DAClientDataModuleCreate(Sender: TObject);
private
function _GetDetalles : IBizDetallesAlbaranCliente;
function _GetDetalleColores : IBizDetalleColoresAlbaranCliente;
protected
procedure AsignarClaseNegocio(AAlbaran: TDADataTable); virtual;
@ -102,6 +105,24 @@ begin
Result := GetItem(ID_NULO)
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;
var
ADetalles : TDAMemDataTable;
@ -188,6 +209,7 @@ begin
with TBizAlbaranCliente(AAlbaran.BusinessEventsObj) do
begin
Detalles := _GetDetalles;
Detalles.DetalleColores := _GetDetalleColores;
end;
Result := (AAlbaran as IBizAlbaranCliente);

BIN
Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.dpk
View File

Binary file not shown.

12
Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.dproj
View File

@ -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>
<ProjectGuid>{a7225a8d-f40d-4878-9a27-c5de0e7cb638}</ProjectGuid>
<MainSource>AlbaranesCliente_model.dpk</MainSource>
@ -51,15 +52,24 @@
<DelphiCompile Include="AlbaranesCliente_model.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="adortl.dcp" />
<DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="Base.dcp" />
<DCCReference Include="Contactos_model.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="Data\uIDataModuleAlbaranesCliente.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="schAlbaranesClienteServer_Intf.pas" />
<DCCReference Include="uBizAlbaranesCliente.pas" />
<DCCReference Include="uBizDetalleColoresAlbaranCliente.pas" />
<DCCReference Include="uBizDetallesAlbaranCliente.pas" />
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

2
Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* 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 */

BIN
Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.res
View File

Binary file not shown.

552
Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas
View File

@ -3,19 +3,21 @@ unit schAlbaranesClienteClient_Intf;
interface
uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosAlbaranes = '{4E395FAD-6E22-4BEA-8928-852C19481C40}';
RID_AlbaranesCliente = '{4B881ADC-1915-43AB-AF50-8E576C19A0A0}';
RID_AlbaranesCliente_Detalles = '{FF516CED-DDC4-4D70-AC0F-E579F1103F15}';
RID_ListaAnosAlbaranes = '{18C62587-896C-41BC-9E0A-B1BB4BA1536F}';
RID_AlbaranesCliente = '{4A620EF8-3CC2-4C5C-B01B-23D8EFE9F1CD}';
RID_AlbaranesCliente_Detalle_Color = '{3958DA4C-F53F-46EE-9C7A-4ED04455B567}';
RID_AlbaranesCliente_Detalles = '{44C711B3-BB9D-467E-856C-D4B1C506ACDC}';
{ Data table names }
nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
nme_AlbaranesCliente = 'AlbaranesCliente';
nme_AlbaranesCliente_Detalle_Color = 'AlbaranesCliente_Detalle_Color';
nme_AlbaranesCliente_Detalles = 'AlbaranesCliente_Detalles';
{ ListaAnosAlbaranes fields }
@ -108,6 +110,38 @@ const
idx_AlbaranesClienteFECHA_ENVIO = 38;
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 }
fld_AlbaranesCliente_DetallesID = 'ID';
fld_AlbaranesCliente_DetallesID_ALBARAN = 'ID_ALBARAN';
@ -147,7 +181,7 @@ const
type
{ IListaAnosAlbaranes }
IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
['{A625E55F-A727-4F88-9DAA-605DD60159D7}']
['{DB347C0B-48F1-4CB6-8C0E-8791F39A6D79}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -161,7 +195,7 @@ type
end;
{ TListaAnosAlbaranesDataTableRules }
TListaAnosAlbaranesDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosAlbaranes)
TListaAnosAlbaranesDataTableRules = class(TDADataTableRules, IListaAnosAlbaranes)
private
protected
{ Property getters and setters }
@ -182,7 +216,7 @@ type
{ IAlbaranesCliente }
IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
['{B3652632-A310-4050-B523-49C26C41F857}']
['{49752BC5-C457-46FE-8892-31C4E16591C2}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -428,7 +462,7 @@ type
end;
{ TAlbaranesClienteDataTableRules }
TAlbaranesClienteDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesCliente)
TAlbaranesClienteDataTableRules = class(TDADataTableRules, IAlbaranesCliente)
private
f_OBSERVACIONES: IROStrings;
f_INCIDENCIAS: IROStrings;
@ -683,9 +717,200 @@ type
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 = interface(IDAStronglyTypedDataTable)
['{AF2BB21F-76D4-42AD-9190-C2CC3934F6B9}']
['{3A0076AC-86DC-4A8E-B575-EBB6C2DAC5E9}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -789,7 +1014,7 @@ type
end;
{ TAlbaranesCliente_DetallesDataTableRules }
TAlbaranesCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesCliente_Detalles)
TAlbaranesCliente_DetallesDataTableRules = class(TDADataTableRules, IAlbaranesCliente_Detalles)
private
protected
{ Property getters and setters }
@ -1799,6 +2024,312 @@ begin
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 }
constructor TAlbaranesCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);
begin
@ -2150,6 +2681,7 @@ end;
initialization
RegisterDataTableRules(RID_ListaAnosAlbaranes, TListaAnosAlbaranesDataTableRules);
RegisterDataTableRules(RID_AlbaranesCliente, TAlbaranesClienteDataTableRules);
RegisterDataTableRules(RID_AlbaranesCliente_Detalle_Color, TAlbaranesCliente_Detalle_ColorDataTableRules);
RegisterDataTableRules(RID_AlbaranesCliente_Detalles, TAlbaranesCliente_DetallesDataTableRules);
end.

650
Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas
View File

@ -9,14 +9,15 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosAlbaranesDelta = '{31517BB5-3488-4555-8B2D-2744016505EE}';
RID_AlbaranesClienteDelta = '{1A863DB4-0BF6-4F65-AFA1-52EA357D6529}';
RID_AlbaranesCliente_DetallesDelta = '{ED26F299-FA26-46E6-9A24-057570AB5D28}';
RID_ListaAnosAlbaranesDelta = '{80722770-25D1-4E97-AAEA-419BB719A5D6}';
RID_AlbaranesClienteDelta = '{3B43A4E8-B21B-4978-A8D1-91FEFBD05A31}';
RID_AlbaranesCliente_Detalle_ColorDelta = '{EC828BE2-9AA9-459F-8814-FC87BFF79A9C}';
RID_AlbaranesCliente_DetallesDelta = '{3FA86ECC-B57D-4E8D-A7EA-66A2C066A9B5}';
type
{ IListaAnosAlbaranesDelta }
IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
['{31517BB5-3488-4555-8B2D-2744016505EE}']
['{80722770-25D1-4E97-AAEA-419BB719A5D6}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -50,7 +51,7 @@ type
{ IAlbaranesClienteDelta }
IAlbaranesClienteDelta = interface(IAlbaranesCliente)
['{1A863DB4-0BF6-4F65-AFA1-52EA357D6529}']
['{3B43A4E8-B21B-4978-A8D1-91FEFBD05A31}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -552,9 +553,199 @@ type
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 = interface(IAlbaranesCliente_Detalles)
['{ED26F299-FA26-46E6-9A24-057570AB5D28}']
['{3FA86ECC-B57D-4E8D-A7EA-66A2C066A9B5}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;
@ -2080,6 +2271,452 @@ begin
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 }
constructor TAlbaranesCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
@ -2591,6 +3228,7 @@ end;
initialization
RegisterBusinessProcessorRules(RID_ListaAnosAlbaranesDelta, TListaAnosAlbaranesBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_AlbaranesClienteDelta, TAlbaranesClienteBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_AlbaranesCliente_Detalle_ColorDelta, TAlbaranesCliente_Detalle_ColorBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_AlbaranesCliente_DetallesDelta, TAlbaranesCliente_DetallesBusinessProcessorRules);
end.

49
Source/Modulos/Albaranes de cliente/Model/uBizDetalleColoresAlbaranCliente.pas Normal file
View File

@ -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.

45
Source/Modulos/Albaranes de cliente/Model/uBizDetallesAlbaranCliente.pas
View File

@ -3,7 +3,7 @@ unit uBizDetallesAlbaranCliente;
interface
uses
uDADataTable, schAlbaranesClienteClient_Intf;
uDADataTable, schAlbaranesClienteClient_Intf, uBizDetalleColoresAlbaranCliente;
const
BIZ_CLIENT_DETALLES_ALBARAN_CLIENTE = 'Client.DetallesAlbaran.Cliente';
@ -12,18 +12,33 @@ const
type
IBizDetallesAlbaranCliente = interface(IAlbaranesCliente_Detalles)
['{8EC1F1B2-C00D-4B58-9F97-C74DBADA4980}']
function GetDetalleColores: IBizDetalleColoresAlbaranCliente;
procedure SetDetalleColores(Value: IBizDetalleColoresAlbaranCliente);
property DetalleColores: IBizDetalleColoresAlbaranCliente read GetDetalleColores write SetDetalleColores;
end;
TBizDetallesAlbaranCliente = class(TAlbaranesCliente_DetallesDataTableRules, IBizDetallesAlbaranCliente)
protected
FDetalleColores : IBizDetalleColoresAlbaranCliente;
FDetalleColoresLink : TDADataSource;
function GetDetalleColores: IBizDetalleColoresAlbaranCliente;
procedure SetDetalleColores(Value: IBizDetalleColoresAlbaranCliente);
procedure OnNewRecord(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;
implementation
uses
DB;
Classes, DB, uDataTableUtils;
{ TBizDetallesAlbaranCliente }
@ -37,12 +52,38 @@ begin
AMasterTable.Post;
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);
begin
inherited;
VISIBLE := 1;
end;
procedure TBizDetallesAlbaranCliente.SetDetalleColores(Value: IBizDetalleColoresAlbaranCliente);
begin
FDetalleColores := Value;
EnlazarMaestroDetalle(FDetalleColoresLink, FDetalleColores);
end;
initialization
RegisterDataTableRules(BIZ_CLIENT_DETALLES_ALBARAN_CLIENTE, TBizDetallesAlbaranCliente);

2
Source/Modulos/Albaranes de cliente/Plugin/AlbaranesCliente_plugin.drc
View File

@ -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\AlbaranesCliente_plugin.res */
/* E:\temp\dtf101.tmp */
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Plugin\AlbaranesCliente_plugin.drf */

425
Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm
View File

@ -435,6 +435,152 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
DictionaryEntry = 'AlbaranesCliente_FECHA_RECEPCION'
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
Params = <>
Statements = <
@ -1152,8 +1298,218 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
ColumnMappings = <>
end>
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>
RelationShips = <
item
Name = 'FK_AlbaranesCliente_DetallesColor'
MasterDatasetName = 'AlbaranesCliente_Detalles'
MasterFields = 'ID'
DetailDatasetName = 'AlbaranesCliente_Detalle_Color'
DetailFields = 'ID_DETALLE'
RelationshipType = rtForeignKey
end
item
Name = 'FK_AlbaranesCliente_Detalles'
MasterDatasetName = 'AlbaranesCliente'
@ -1563,6 +1919,64 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Name = 'AlbaranesCliente_REFERENCIA_CLIENTE'
DataType = datString
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>
Left = 56
Top = 144
@ -1571,4 +1985,15 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Left = 56
Top = 80
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

1
Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas
View File

@ -27,6 +27,7 @@ type
Bin2DataStreamer: TDABin2DataStreamer;
schAlbaranesCliente: TDASchema;
DADataDictionary: TDADataDictionary;
bpAlbaranesCliente_DetalleColor: TDABusinessProcessor;
procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string);
procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset; const IncludeSchema: Boolean; const MaxRecords: Integer);
procedure DARemoteServiceCreate(Sender: TObject);

20
Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dpk
View File

@ -32,7 +32,25 @@ requires
AlbaranesCliente_controller,
Articulos_view,
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
uAlbaranesClienteViewRegister in 'uAlbaranesClienteViewRegister.pas',

42
Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj
View File

@ -43,6 +43,14 @@
<Borland.ProjectType>Package</Borland.ProjectType>
<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>
<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\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">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Albaranes de proveedor\AlbaranesCliente_controller.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\AlbaranesCliente_model.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\AlbCli_FacCli_relation.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\Almacenes_controller.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\ApplicationBase.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\Articulos_view.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\Base.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\GUIBase.dcp" />
<DCCReference Include="adortl.dcp" />
<DCCReference Include="AlbaranesCliente_controller.dcp" />
<DCCReference Include="AlbaranesCliente_model.dcp" />
<DCCReference Include="AlbCli_FacCli_relation.dcp" />
<DCCReference Include="Almacenes_controller.dcp" />
<DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="Articulos_view.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="uEditorAlbaranCliente.pas">
<Form>fEditorAlbaranCliente</Form>
@ -123,6 +145,10 @@
<Form>frViewElegirArticulosAlbaranesCliente</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vcljpg.dcp" />
<DCCReference Include="vclx.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

2
Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.drc
View File

@ -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\uEditorAlbaranDevCliente.dfm */
/* 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 */

BIN
Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.identcache
View File

Binary file not shown.

BIN
Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.res
View File

Binary file not shown.

57
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm
View File

@ -165,6 +165,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
inherited pgPaginas: TPageControl
Width = 759
Height = 439
ActivePage = pagContenido
TabOrder = 1
OnChanging = pgPaginasChanging
ExplicitWidth = 759
@ -210,17 +211,16 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ExplicitLeft = 278
ExplicitTop = 0
end
inherited ToolButton14: TToolButton
inherited FontName: TJvFontComboBox
Left = 334
Top = 0
Wrap = False
ExplicitLeft = 334
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox
Left = 399
inherited ToolButton14: TToolButton
Left = 479
Top = 0
ExplicitLeft = 399
ExplicitLeft = 479
ExplicitTop = 0
end
inherited FontSize: TEdit
@ -245,46 +245,49 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ExplicitLeft = 0
ExplicitTop = 27
end
inherited ToolButton6: TToolButton
inherited ToolButton11: TToolButton
Left = 17
Top = 27
ExplicitLeft = 17
ExplicitTop = 27
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
Left = 233
Left = 158
Top = 27
ExplicitLeft = 233
Wrap = False
ExplicitLeft = 158
ExplicitTop = 27
ExplicitHeight = 22
end
inherited ToolButton9: TToolButton
Left = 241
Left = 166
Top = 27
ExplicitLeft = 241
ExplicitLeft = 166
ExplicitTop = 27
end
inherited ToolButton10: TToolButton
Left = 386
Left = 311
Top = 27
ExplicitLeft = 386
ExplicitLeft = 311
ExplicitTop = 27
end
inherited ToolButton11: TToolButton
Left = 511
inherited ToolButton6: TToolButton
Left = 436
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
end
end

4
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas
View File

@ -14,7 +14,7 @@ uses
dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, uViewTotales,
uIEditorAlbaranCliente, uBizAlbaranesCliente, uViewAlbaranCliente,
uViewDetallesDTO, uViewDetallesArticulos, uDAInterfaces,
uViewDetallesArticulosParaVenta, cxLabel;
uViewDetallesArticulosParaVenta, cxLabel, Grids, DBGrids;
type
TfEditorAlbaranCliente = class(TfEditorDBItem, IEditorAlbaranCliente)
@ -31,7 +31,7 @@ type
TBXItem33: TTBXItem;
TBXSeparatorItem6: TTBXSeparatorItem;
procedure FormShow(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
procedure pgPaginasChanging(Sender: TObject; var AllowChange: Boolean);
procedure frViewTotales1ePortePropertiesValidate(Sender: TObject;

2
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm
View File

@ -15,7 +15,6 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
ExplicitHeight = 550
DesignSize = (
903
506)
@ -780,7 +779,6 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end
object dxLayoutControl1Group11: TdxLayoutGroup
Caption = 'Almac'#233'n de origen'
Visible = False
object dxLayoutControl1Group10: TdxLayoutGroup
ShowCaption = False
Hidden = True

116
Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm
View File

@ -1,94 +1,84 @@
inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente
inherited ToolBar1: TToolBar
Height = 95
ExplicitHeight = 95
inherited FontName: TJvFontComboBox [4]
Left = 56
Top = 22
ExplicitLeft = 56
ExplicitTop = 22
inherited ToolButton9: TToolButton [3]
Left = 278
Top = 0
ExplicitLeft = 278
ExplicitTop = 0
end
inherited ToolButton14: TToolButton [5]
Left = 201
inherited ToolButton4: TToolButton [4]
Left = 423
Wrap = False
ExplicitLeft = 201
ExplicitLeft = 423
end
inherited FontSize: TEdit
Left = 266
Top = 22
ExplicitLeft = 266
ExplicitTop = 22
inherited ToolButton12: TToolButton [5]
Top = 0
ExplicitTop = 0
end
inherited UpDown1: TUpDown
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]
inherited ToolButton14: TToolButton [6]
Left = 0
Top = 22
Wrap = True
Top = 27
ExplicitLeft = 0
ExplicitTop = 22
ExplicitHeight = 27
end
inherited ToolButton9: TToolButton [11]
Left = 0
Top = 49
ExplicitLeft = 0
ExplicitTop = 49
inherited FontName: TJvFontComboBox [7]
end
inherited ToolButton10: TToolButton [12]
inherited ToolButton13: TToolButton [8]
Left = 145
Top = 49
ExplicitLeft = 145
ExplicitTop = 49
end
inherited ToolButton6: TToolButton [13]
Left = 270
Top = 49
ExplicitLeft = 270
ExplicitTop = 49
inherited ToolButton10: TToolButton
Left = 153
ExplicitLeft = 153
end
inherited ToolButton7: TToolButton [14]
Left = 336
Top = 49
Wrap = True
ExplicitLeft = 336
ExplicitTop = 49
inherited ToolButton7: TToolButton
Left = 278
ExplicitLeft = 278
end
inherited ToolButton8: TToolButton [15]
Left = 0
Top = 71
ExplicitLeft = 0
ExplicitTop = 71
inherited ToolButton8: TToolButton [12]
Left = 17
ExplicitLeft = 17
end
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
inherited cxGrid: TcxGrid
Top = 121
Height = 183
ExplicitTop = 121
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewTIPO: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
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
inherited TBXDock1: TTBXDock
Top = 95
ExplicitTop = 100
inherited TBXToolbar1: TTBXToolbar
DockPos = 0
inherited TBXSubmenuItem1: TTBXSubmenuItem

14
Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.pas
View File

@ -29,6 +29,9 @@ type
N2: TMenuItem;
Aadirartculos1: TMenuItem;
TBXItem18: TTBXItem;
cxGridViewCANTIDAD2: TcxGridDBColumn;
procedure cxGridViewCANTIDAD2PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
protected
FAlbaran: IBizAlbaranCliente;
function GetAlbaran: IBizAlbaranCliente;
@ -55,6 +58,8 @@ begin
Result := (Controller as IDetallesAlbaranClienteController).AnadirArticulo(Detalles, pReferencia, TipoReferencia, Albaran.Cliente.ID, -1)
else
Result := (Controller as IDetallesAlbaranClienteController).AnadirArticulo(Detalles, pReferencia, TipoReferencia, Albaran.Cliente.ID);
(Controller as IDetallesAlbaranClienteController).ModificarCantidadColores(Detalles);
end;
procedure TfrViewDetallesAlbaranCliente.AnadirArticulosInterno;
@ -62,7 +67,14 @@ begin
if (Albaran.TIPO = CTE_TIPO_ALBARAN_DEV) then
(Controller as IDetallesAlbaranClienteController).AnadirArticulos(Detalles, Albaran.Cliente, true, -1)
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;
function TfrViewDetallesAlbaranCliente.GetAlbaran: IBizAlbaranCliente;

2
Source/Modulos/Albaranes de proveedor/Controller/AlbaranesProveedor_controller.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Controller\AlbaranesProveedor_controller.res */
/* E:\temp\dtfD5.tmp */
/* E:\temp\dtfCB.tmp */

2
Source/Modulos/Albaranes de proveedor/Data/AlbaranesProveedor_data.drc
View File

@ -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\AlbaranesProveedor_data.res */
/* E:\temp\dtfD3.tmp */
/* E:\temp\dtfC9.tmp */

2
Source/Modulos/Albaranes de proveedor/Model/AlbaranesProveedor_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Model\AlbaranesProveedor_model.res */
/* E:\temp\dtfD1.tmp */
/* E:\temp\dtfC7.tmp */

2
Source/Modulos/Albaranes de proveedor/Plugin/AlbaranesProveedor_plugin.drc
View File

@ -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\AlbaranesProveedor_plugin.res */
/* E:\temp\dtf115.tmp */
/* E:\temp\dtf10B.tmp */

2
Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.drc
View File

@ -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\uEditorAlbaranesProveedorReport.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Views\AlbaranesProveedor_view.res */
/* E:\temp\dtf113.tmp */
/* E:\temp\dtf109.tmp */

29
Source/Modulos/Articulos/Data/uDataModuleArticulos.dfm
View File

@ -14,12 +14,12 @@ inherited DataModuleArticulos: TDataModuleArticulos
Top = 84
end
object rda_Articulos: TDARemoteDataAdapter
DataStreamer = Bin2DataStreamer
GetSchemaCall.RemoteService = RORemoteService
GetDataCall.RemoteService = RORemoteService
UpdateDataCall.RemoteService = RORemoteService
GetScriptsCall.RemoteService = RORemoteService
RemoteService = RORemoteService
DataStreamer = Bin2DataStreamer
Left = 51
Top = 151
end
@ -192,12 +192,29 @@ inherited DataModuleArticulos: TDataModuleArticulos
Alignment = taRightJustify
ServerAutoRefresh = True
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>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Articulos
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Articulos'
IndexDefs = <>
Left = 232
@ -229,8 +246,6 @@ inherited DataModuleArticulos: TDataModuleArticulos
end>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Articulos
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'ProveedoresConArticulos'
IndexDefs = <>
Left = 232
@ -313,8 +328,6 @@ inherited DataModuleArticulos: TDataModuleArticulos
MasterSource = ds_Articulos
MasterFields = 'ID'
DetailFields = 'ID_ARTICULO'
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Articulos_Proveedores'
IndexDefs = <>
Left = 368
@ -512,8 +525,6 @@ inherited DataModuleArticulos: TDataModuleArticulos
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Articulos
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'ArticulosParaCompra'
IndexDefs = <>
Left = 416

158
Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas
View File

@ -3,16 +3,16 @@ unit schArticulosClient_Intf;
interface
uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ProveedoresConArticulos = '{5C4B513D-A09F-4964-93E6-DD87A4AAA324}';
RID_Articulos_Proveedores = '{C23E90C0-7019-447D-ACD4-12687E51658B}';
RID_Articulos = '{730B578C-0743-43FF-87A3-1D580A528918}';
RID_ArticulosParaCompra = '{CF8E3694-1AA8-41E9-B4D8-0A3A002BDCB9}';
RID_ProveedoresConArticulos = '{379657B4-60F9-4869-8118-D64DDB75F498}';
RID_Articulos_Proveedores = '{635679F2-8A86-4BD7-9618-266ACE873E9E}';
RID_Articulos = '{7639CA52-0BFC-4310-803D-83E8E87B60B2}';
RID_ArticulosParaCompra = '{004BCA46-82E3-457F-B022-A3FD38B0657E}';
{ Data table names }
nme_ProveedoresConArticulos = 'ProveedoresConArticulos';
@ -79,6 +79,10 @@ const
fld_ArticulosPARAM_TIEMPO = 'PARAM_TIEMPO';
fld_ArticulosMANO_OBRA = 'MANO_OBRA';
fld_ArticulosPRECIO_PVP_TOTAL = 'PRECIO_PVP_TOTAL';
fld_ArticulosCAMPOTECNICO = 'CAMPOTECNICO';
fld_ArticulosCODIGOTECNICO = 'CODIGOTECNICO';
fld_ArticulosDISENOTECNICO = 'DISENOTECNICO';
fld_ArticulosPRECIO = 'PRECIO';
{ Articulos field indexes }
idx_ArticulosID = 0;
@ -107,6 +111,10 @@ const
idx_ArticulosPARAM_TIEMPO = 23;
idx_ArticulosMANO_OBRA = 24;
idx_ArticulosPRECIO_PVP_TOTAL = 25;
idx_ArticulosCAMPOTECNICO = 26;
idx_ArticulosCODIGOTECNICO = 27;
idx_ArticulosDISENOTECNICO = 28;
idx_ArticulosPRECIO = 29;
{ ArticulosParaCompra fields }
fld_ArticulosParaCompraID = 'ID';
@ -173,7 +181,7 @@ const
type
{ IProveedoresConArticulos }
IProveedoresConArticulos = interface(IDAStronglyTypedDataTable)
['{EE9B47ED-6CFF-405D-A2B1-027A58BF0562}']
['{4215D7A1-8D56-455F-9C17-805F5314F50A}']
{ Property getters and setters }
function GetID_PROVEEDORValue: Integer;
procedure SetID_PROVEEDORValue(const aValue: Integer);
@ -220,7 +228,7 @@ type
{ IArticulos_Proveedores }
IArticulos_Proveedores = interface(IDAStronglyTypedDataTable)
['{202E2D67-E014-4CC6-8E1A-60E915C329A7}']
['{C71C6CA0-947C-4626-94E1-C78CFDE009EA}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -363,7 +371,7 @@ type
{ IArticulos }
IArticulos = interface(IDAStronglyTypedDataTable)
['{92E42697-A92B-46A4-9A19-3214D8C788E6}']
['{E78CD6D0-3E58-4560-B23C-84A4495CB1EA}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -468,6 +476,22 @@ type
procedure SetPRECIO_PVP_TOTALValue(const aValue: Currency);
function GetPRECIO_PVP_TOTALIsNull: 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 }
@ -523,6 +547,14 @@ type
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_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;
{ TArticulosDataTableRules }
@ -635,6 +667,22 @@ type
procedure SetPRECIO_PVP_TOTALValue(const aValue: Currency); virtual;
function GetPRECIO_PVP_TOTALIsNull: 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 }
property ID: Integer read GetIDValue write SetIDValue;
@ -689,6 +737,14 @@ type
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_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
constructor Create(aDataTable: TDADataTable); override;
@ -701,7 +757,7 @@ type
}
{ IArticulosParaCompra }
IArticulosParaCompra = interface(IDAStronglyTypedDataTable)
['{3D547837-FB04-4E59-AD87-C00D844EE481}']
['{0AD09829-8805-4658-9A87-86A073704946}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1918,6 +1974,90 @@ begin
DataTable.Fields[idx_ArticulosPRECIO_PVP_TOTAL].AsVariant := Null;
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 }
constructor TArticulosParaCompraDataTableRules.Create(aDataTable: TDADataTable);

200
Source/Modulos/Articulos/Model/schArticulosServer_Intf.pas
View File

@ -9,15 +9,15 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ProveedoresConArticulosDelta = '{6C804022-5DF5-4E60-A6EC-E3C04900D4FC}';
RID_Articulos_ProveedoresDelta = '{C38F7153-6FAD-4064-8EAC-D97A9F9780AE}';
RID_ArticulosDelta = '{132D6F55-09CD-4018-A2CB-1D2552713417}';
RID_ArticulosParaCompraDelta = '{F30257BA-3AC6-486E-B33C-0F429FBA0D62}';
RID_ProveedoresConArticulosDelta = '{342C2B73-2FD6-40F3-9498-6DE88CEEA239}';
RID_Articulos_ProveedoresDelta = '{7FD24128-05D2-44BA-94D8-8D2B98E60A83}';
RID_ArticulosDelta = '{EEF4A94E-9960-44F5-83C1-A99DE6DD445A}';
RID_ArticulosParaCompraDelta = '{2175FE52-BCEC-425E-A13A-9A1AAFC395EC}';
type
{ IProveedoresConArticulosDelta }
IProveedoresConArticulosDelta = interface(IProveedoresConArticulos)
['{6C804022-5DF5-4E60-A6EC-E3C04900D4FC}']
['{342C2B73-2FD6-40F3-9498-6DE88CEEA239}']
{ Property getters and setters }
function GetOldID_PROVEEDORValue : Integer;
function GetOldNOMBREValue : String;
@ -63,7 +63,7 @@ type
{ IArticulos_ProveedoresDelta }
IArticulos_ProveedoresDelta = interface(IArticulos_Proveedores)
['{C38F7153-6FAD-4064-8EAC-D97A9F9780AE}']
['{7FD24128-05D2-44BA-94D8-8D2B98E60A83}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ARTICULOValue : Integer;
@ -205,7 +205,7 @@ type
{ IArticulosDelta }
IArticulosDelta = interface(IArticulos)
['{132D6F55-09CD-4018-A2CB-1D2552713417}']
['{EEF4A94E-9960-44F5-83C1-A99DE6DD445A}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -233,6 +233,10 @@ type
function GetOldPARAM_TIEMPOValue : Float;
function GetOldMANO_OBRAValue : Currency;
function GetOldPRECIO_PVP_TOTALValue : Currency;
function GetOldCAMPOTECNICOValue : String;
function GetOldCODIGOTECNICOValue : String;
function GetOldDISENOTECNICOValue : String;
function GetOldPRECIOValue : Currency;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -261,6 +265,10 @@ type
property OldPARAM_TIEMPO : Float read GetOldPARAM_TIEMPOValue;
property OldMANO_OBRA : Currency read GetOldMANO_OBRAValue;
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;
{ TArticulosBusinessProcessorRules }
@ -425,6 +433,30 @@ type
function GetOldPRECIO_PVP_TOTALIsNull: Boolean; virtual;
procedure SetPRECIO_PVP_TOTALValue(const aValue: Currency); 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 }
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 OldPRECIO_PVP_TOTAL : Currency read GetOldPRECIO_PVP_TOTALValue;
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
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -540,7 +588,7 @@ type
{ IArticulosParaCompraDelta }
IArticulosParaCompraDelta = interface(IArticulosParaCompra)
['{F30257BA-3AC6-486E-B33C-0F429FBA0D62}']
['{2175FE52-BCEC-425E-A13A-9A1AAFC395EC}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -1329,7 +1377,7 @@ end;
procedure TArticulosBusinessProcessorRules.IMAGEN_OnChange(Sender: TObject);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosIMAGEN] := VariantBinaryFromBinary((TROStream(Sender) as IROStream).Stream);
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosIMAGEN] := BinaryToBlobVariant((TROStream(Sender) as IROStream).Stream);
end;
function TArticulosBusinessProcessorRules.GetIDValue: Integer;
@ -1523,7 +1571,7 @@ begin
result := f_IMAGEN;
result.Position := 0;
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;
end;
end;
@ -1536,7 +1584,7 @@ end;
function TArticulosBusinessProcessorRules.GetOldIMAGENValue: IROStream;
begin
result := NewROStream();
WriteVariantBinaryToBinary(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosIMAGEN], result.Stream);
BlobVariantToBinary(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosIMAGEN], result.Stream);
end;
function TArticulosBusinessProcessorRules.GetOldIMAGENIsNull: Boolean;
@ -2139,6 +2187,130 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PVP_TOTAL] := Null;
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 }
constructor TArticulosParaCompraBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@ -2159,7 +2331,7 @@ end;
procedure TArticulosParaCompraBusinessProcessorRules.IMAGEN_OnChange(Sender: TObject);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraIMAGEN] := VariantBinaryFromBinary((TROStream(Sender) as IROStream).Stream);
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraIMAGEN] := BinaryToBlobVariant((TROStream(Sender) as IROStream).Stream);
end;
function TArticulosParaCompraBusinessProcessorRules.GetIDValue: Integer;
@ -2353,7 +2525,7 @@ begin
result := f_IMAGEN;
result.Position := 0;
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;
end;
end;
@ -2366,7 +2538,7 @@ end;
function TArticulosParaCompraBusinessProcessorRules.GetOldIMAGENValue: IROStream;
begin
result := NewROStream();
WriteVariantBinaryToBinary(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraIMAGEN], result.Stream);
BlobVariantToBinary(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraIMAGEN], result.Stream);
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldIMAGENIsNull: Boolean;

147
Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm
View File

@ -441,6 +441,22 @@ object srvArticulos: TsrvArticulos
item
DatasetField = '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>
Name = 'Articulos'
@ -587,6 +603,25 @@ object srvArticulos: TsrvArticulos
DataType = datCurrency
ServerAutoRefresh = True
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
item
@ -889,74 +924,122 @@ object srvArticulos: TsrvArticulos
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
Value = ''
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'UNIDAD_MEDIDA'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'FAMILIA'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'IMAGEN'
DataType = datBlob
Value = ''
end
item
Name = 'COMISIONABLE'
DataType = datSmallInt
Value = ''
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
Value = ''
end
item
Name = 'USUARIO'
DataType = datString
Size = 30
Value = ''
end
item
Name = 'INVENTARIABLE'
DataType = datSmallInt
Value = ''
end
item
Name = 'ELIMINADO'
DataType = datSmallInt
Value = ''
end
item
Name = 'FABRICANTE'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'REFERENCIA_FABR'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'PARAM_MARGEN'
DataType = datFloat
Value = ''
end
item
Name = 'TIEMPO'
DataType = datInteger
Value = ''
end
item
Name = 'PARAM_TIEMPO'
DataType = datFloat
Value = ''
end
item
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 = ''
end>
Statements = <
@ -968,11 +1051,13 @@ object srvArticulos: TsrvArticulos
'CION, UNIDAD_MEDIDA, FAMILIA, IMAGEN,'#10' COMISIONABLE, FECHA_A' +
'LTA, FECHA_MODIFICACION, USUARIO, '#10' INVENTARIABLE, ELIMINADO' +
', FABRICANTE, REFERENCIA_FABR, PARAM_MARGEN, TIEMPO,'#10' PARAM_' +
'TIEMPO, MANO_OBRA)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFERENCIA, ' +
':DESCRIPCION, :UNIDAD_MEDIDA, :FAMILIA,'#10' :IMAGEN, :COMISIONA' +
'BLE, :FECHA_ALTA, :FECHA_MODIFICACION, '#10' :USUARIO, :INVENTAR' +
'IABLE, :ELIMINADO, :FABRICANTE, :REFERENCIA_FABR, :PARAM_MARGEN,' +
#10' :TIEMPO, :PARAM_TIEMPO, :MANO_OBRA)'#10
'TIEMPO, MANO_OBRA,'#10' CAMPOTECNICO, CODIGOTECNICO, DISENOTECNI' +
'CO, PRECIO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFERENCIA, :DESCRI' +
'PCION, :UNIDAD_MEDIDA, :FAMILIA,'#10' :IMAGEN, :COMISIONABLE, :F' +
'ECHA_ALTA, :FECHA_MODIFICACION, '#10' :USUARIO, :INVENTARIABLE, ' +
':ELIMINADO, :FABRICANTE, :REFERENCIA_FABR, :PARAM_MARGEN,'#10' :' +
'TIEMPO, :PARAM_TIEMPO, :MANO_OBRA,'#10' :CAMPOTECNICO, :CODIGOTE' +
'CNICO, :DISENOTECNICO, :PRECIO)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -1000,74 +1085,122 @@ object srvArticulos: TsrvArticulos
Params = <
item
Name = 'ID_EMPRESA'
DataType = datInteger
Value = ''
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'UNIDAD_MEDIDA'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'FAMILIA'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'IMAGEN'
DataType = datBlob
Value = ''
end
item
Name = 'COMISIONABLE'
DataType = datSmallInt
Value = ''
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
Value = ''
end
item
Name = 'USUARIO'
DataType = datString
Size = 30
Value = ''
end
item
Name = 'INVENTARIABLE'
DataType = datSmallInt
Value = ''
end
item
Name = 'ELIMINADO'
DataType = datSmallInt
Value = ''
end
item
Name = 'FABRICANTE'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'REFERENCIA_FABR'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'PARAM_MARGEN'
DataType = datFloat
Value = ''
end
item
Name = 'TIEMPO'
DataType = datInteger
Value = ''
end
item
Name = 'PARAM_TIEMPO'
DataType = datFloat
Value = ''
end
item
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 = ''
end
item
@ -1088,7 +1221,9 @@ object srvArticulos: TsrvArticulos
'INADO = :ELIMINADO,'#10' FABRICANTE = :FABRICANTE,'#10' REFERENCIA' +
'_FABR = :REFERENCIA_FABR,'#10' PARAM_MARGEN = :PARAM_MARGEN,'#10' ' +
'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
ColumnMappings = <>
end>

BIN
Source/Modulos/Articulos/Views/Articulos_view.identcache
View File

Binary file not shown.

232
Source/Modulos/Articulos/Views/uEditorArticulo.dfm
View File

@ -112,238 +112,6 @@ inherited fEditorArticulo: TfEditorArticulo
ExplicitWidth = 891
ExplicitHeight = 376
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
inherited StatusBar: TJvStatusBar
Top = 486

18
Source/Modulos/Articulos/Views/uEditorArticulo.pas
View File

@ -27,20 +27,6 @@ type
TBXItem33: TTBXItem;
actFamilias: TAction;
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 dsDataTableDataChange(Sender: TObject; Field: TField);
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
@ -131,7 +117,7 @@ begin
if Assigned(FViewArticulo) and Assigned(Articulo) then
begin
FViewArticulo.Articulo := Articulo;
frViewArticulosProveedores1.Articulo := Articulo;
// frViewArticulosProveedores1.Articulo := Articulo;
end;
end;
@ -141,7 +127,7 @@ begin
if Assigned(FController) then
begin
(ViewArticulo as IViewArticulo).Controller := (FController as IArticulosController);
frViewArticulosProveedores1.Controller := FController;
// frViewArticulosProveedores1.Controller := FController;
end;
end;

251
Source/Modulos/Articulos/Views/uEditorArticulos.dfm
View File

@ -36,15 +36,22 @@ inherited fEditorArticulos: TfEditorArticulos
ExplicitWidth = 632
end
inherited tbxFiltro: TTBXToolbar
ExplicitWidth = 269
inherited tbxEditFiltro: TTBXEditItem
EditOptions = [tboUseEditWhenVertical]
end
inherited TBXItem37: TTBXItem
Enabled = False
Visible = False
end
end
inherited tbxMenu: TTBXToolbar
ExplicitWidth = 657
end
inherited TBXTMain2: TTBXToolbar
Left = 269
DockPos = 267
ExplicitLeft = 269
end
end
inherited StatusBar: TJvStatusBar
@ -63,115 +70,6 @@ inherited fEditorArticulos: TfEditorArticulos
OnChange = pgPaginasChange
object pagArticulos: TTabSheet
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
object pagArticulosPorProveedor: TTabSheet
Caption = 'Art'#237'culos por proveedor'
@ -229,22 +127,26 @@ inherited fEditorArticulos: TfEditorArticulos
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 166
Width = 166
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 363
Left = 353
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 363
ExplicitLeft = 353
ExplicitWidth = 150
Width = 150
end
inherited eLista: TcxComboBox
Left = 613
Left = 595
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 613
ExplicitLeft = 595
ExplicitWidth = 20
Width = 20
end
@ -289,7 +191,116 @@ inherited fEditorArticulos: TfEditorArticulos
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
Top = 160
inherited actNuevo: TAction
@ -319,7 +330,7 @@ inherited fEditorArticulos: TfEditorArticulos
OnExecute = actFamiliasExecute
end
end
inherited SmallImages: TPngImageList
inherited SmallImages: TPngImageList [6]
PngImages = <
item
PngImage.Data = {
@ -872,7 +883,7 @@ inherited fEditorArticulos: TfEditorArticulos
end>
Bitmap = {}
end
inherited LargeImages: TPngImageList
inherited LargeImages: TPngImageList [7]
PngImages = <
item
PngImage.Data = {
@ -1681,10 +1692,16 @@ inherited fEditorArticulos: TfEditorArticulos
end>
Bitmap = {}
end
inherited dsDataTable: TDADataSource
inherited JvFormStorage: TJvFormStorage [8]
end
inherited dsDataTable: TDADataSource [9]
Left = 8
Top = 128
end
inherited JvAppRegistryStorage: TJvAppRegistryStorage [10]
end
inherited StatusBarImages: TPngImageList [11]
end
inherited GridPopupMenu: TPopupMenu
Left = 40
Top = 128

200
Source/Modulos/Articulos/Views/uViewArticulo.dfm
View File

@ -1,6 +1,6 @@
inherited frViewArticulo: TfrViewArticulo
Width = 666
Height = 419
Width = 987
Height = 548
Align = alClient
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
@ -9,8 +9,8 @@ inherited frViewArticulo: TfrViewArticulo
object dxLayoutControlArticulo: TdxLayoutControl
Left = 0
Top = 0
Width = 666
Height = 419
Width = 987
Height = 548
Align = alClient
ParentBackground = True
TabOrder = 0
@ -19,11 +19,11 @@ inherited frViewArticulo: TfrViewArticulo
ExplicitWidth = 451
ExplicitHeight = 304
DesignSize = (
666
419)
987
548)
object PngSpeedButton2: TPngSpeedButton
Left = 604
Top = 304
Left = 942
Top = 358
Width = 23
Height = 22
Action = actAnadir
@ -49,8 +49,8 @@ inherited frViewArticulo: TfrViewArticulo
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
end
object PngSpeedButton1: TPngSpeedButton
Left = 604
Top = 332
Left = 942
Top = 386
Width = 23
Height = 22
Action = actEliminar
@ -62,7 +62,6 @@ inherited frViewArticulo: TfrViewArticulo
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA'
DataBinding.DataSource = dsViewArticulo
Enabled = False
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clWindow
@ -103,12 +102,12 @@ inherited frViewArticulo: TfrViewArticulo
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 1
TabOrder = 2
Width = 290
end
object eNoComisionable: TcxDBCheckBox
Left = 122
Top = 163
Top = 217
Caption = 'Art'#237'culo no comisionable'
DataBinding.DataField = 'COMISIONABLE'
DataBinding.DataSource = dsViewArticulo
@ -131,12 +130,12 @@ inherited frViewArticulo: TfrViewArticulo
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 5
TabOrder = 9
Width = 290
end
object eImagen: TcxImage
Left = 28
Top = 304
Top = 358
Properties.GraphicClassName = 'TJPEGImage'
Properties.ImmediatePost = True
Properties.PopupMenuLayout.MenuItems = []
@ -156,13 +155,13 @@ inherited frViewArticulo: TfrViewArticulo
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8
TabOrder = 12
Height = 98
Width = 355
end
object cbFamilia: TcxDBComboBox
Left = 122
Top = 82
Top = 136
DataBinding.DataField = 'FAMILIA'
DataBinding.DataSource = dsViewArticulo
Properties.DropDownRows = 16
@ -185,12 +184,12 @@ inherited frViewArticulo: TfrViewArticulo
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 2
TabOrder = 6
Width = 290
end
object cbNoInventariable: TcxDBCheckBox
Left = 122
Top = 136
Top = 190
Caption = 'Art'#237'culo no inventariable'
DataBinding.DataField = 'INVENTARIABLE'
DataBinding.DataSource = dsViewArticulo
@ -213,12 +212,12 @@ inherited frViewArticulo: TfrViewArticulo
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 4
TabOrder = 8
Width = 290
end
object cbUnidadMedida: TcxDBComboBox
Left = 122
Top = 109
Top = 163
DataBinding.DataField = 'UNIDAD_MEDIDA'
DataBinding.DataSource = dsViewArticulo
Properties.DropDownRows = 16
@ -241,12 +240,12 @@ inherited frViewArticulo: TfrViewArticulo
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 3
TabOrder = 7
Width = 290
end
object cbFabricante: TcxDBComboBox
Left = 122
Top = 220
Top = 274
DataBinding.DataField = 'FABRICANTE'
DataBinding.DataSource = dsViewArticulo
Properties.DropDownRows = 16
@ -269,12 +268,12 @@ inherited frViewArticulo: TfrViewArticulo
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 6
TabOrder = 10
Width = 290
end
object eReferenciaFabr: TcxDBTextEdit
Left = 122
Top = 247
Top = 301
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'REFERENCIA_FABR'
DataBinding.DataSource = dsViewArticulo
@ -295,9 +294,105 @@ inherited frViewArticulo: TfrViewArticulo
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7
TabOrder = 11
Width = 171
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
ShowCaption = False
Hidden = True
@ -320,20 +415,58 @@ inherited frViewArticulo: TfrViewArticulo
AutoAligns = []
AlignHorz = ahClient
Caption = 'Datos del art'#237'culo'
object dxLayoutControlArticuloItem3: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Referencia:'
Control = eReferencia
ControlOptions.ShowBorder = False
object dxLayoutControlArticuloGroup8: TdxLayoutGroup
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
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
object dxLayoutControlArticuloItem8: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
Caption = 'Descripci'#243'n:'
Caption = 'Nombre:'
Control = eDescripcion
ControlOptions.ShowBorder = False
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
ShowCaption = False
Hidden = True
@ -379,6 +512,7 @@ inherited frViewArticulo: TfrViewArticulo
end
object dxLayoutControlArticuloGroup10: TdxLayoutGroup
Caption = 'Datos del fabricante'
Visible = False
object dxLayoutControlArticuloItem10: TdxLayoutItem
Caption = 'Fabricante:'
Visible = False

10
Source/Modulos/Articulos/Views/uViewArticulo.pas
View File

@ -63,6 +63,16 @@ type
eReferenciaFabr: TcxDBTextEdit;
dxLayoutControlArticuloGroup10: 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 actAnadirExecute(Sender: TObject);
procedure cbFamiliaPropertiesInitPopup(Sender: TObject);

34
Source/Modulos/Articulos/Views/uViewArticulos.dfm
View File

@ -41,26 +41,44 @@ inherited frViewArticulos: TfrViewArticulos
SortIndex = 0
SortOrder = soAscending
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
DataBinding.FieldName = 'DESCRIPCION'
end
object cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn
DataBinding.FieldName = 'UNIDAD_MEDIDA'
Visible = False
VisibleForCustomization = False
end
object cxGridViewFAMILIA: TcxGridDBColumn
DataBinding.FieldName = 'FAMILIA'
Visible = False
VisibleForCustomization = False
end
object cxGridViewFABRICANTE: TcxGridDBColumn
DataBinding.FieldName = 'FABRICANTE'
Visible = False
VisibleForCustomization = False
end
object cxGridViewREFERENCIA_FABR: TcxGridDBColumn
DataBinding.FieldName = 'REFERENCIA_FABR'
Visible = False
VisibleForCustomization = False
end
object cxGridViewPRECIO_PVP_VENTA: TcxGridDBColumn
DataBinding.FieldName = 'PRECIO_PVP_VENTA'
object cxGridViewCAMPOTECNICO: TcxGridDBColumn
Caption = 'Campo t'#233'cnico'
DataBinding.FieldName = 'CAMPOTECNICO'
end
object cxGridViewPRECIO_PVP_TOTAL: TcxGridDBColumn
DataBinding.FieldName = 'PRECIO_PVP_TOTAL'
object cxGridViewPRECIO: TcxGridDBColumn
Caption = 'Precio'
DataBinding.FieldName = 'PRECIO'
end
end
inherited cxGridLevel: TcxGridLevel
@ -88,20 +106,28 @@ inherited frViewArticulos: TfrViewArticulos
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 272
Width = 272
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 376
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 376
ExplicitWidth = 221
Width = 221
end
inherited eLista: TcxComboBox
Left = 634
Properties.DropDownRows = 20
Properties.OnChange = frViewFiltroBase1eListaPropertiesChange
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 634
ExplicitWidth = 71
Width = 71
end

6
Source/Modulos/Articulos/Views/uViewArticulos.pas
View File

@ -45,8 +45,10 @@ type
cxGridViewFAMILIA: TcxGridDBColumn;
cxGridViewFABRICANTE: TcxGridDBColumn;
cxGridViewREFERENCIA_FABR: TcxGridDBColumn;
cxGridViewPRECIO_PVP_VENTA: TcxGridDBColumn;
cxGridViewPRECIO_PVP_TOTAL: TcxGridDBColumn;
cxGridViewPRECIO: TcxGridDBColumn;
cxGridViewCODIGO: TcxGridDBColumn;
cxGridViewDISENO: TcxGridDBColumn;
cxGridViewCAMPOTECNICO: TcxGridDBColumn;
procedure actFamiliaExecute(Sender: TObject);
procedure actFamiliaUpdate(Sender: TObject);
procedure actFabricanteExecute(Sender: TObject);

2
Source/Modulos/Contactos/Controller/Contactos_controller.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Controller\Contactos_controller.res */
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Controller\Contactos_controller.drf */
/* E:\temp\dtf47.tmp */

BIN
Source/Modulos/Contactos/Controller/Contactos_controller.res
View File

Binary file not shown.

4
Source/Modulos/Contactos/Data/Contactos_data.drc
View File

@ -12,10 +12,10 @@ STRINGTABLE
BEGIN
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\uDataModuleProveedores.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\Contactos_data.res */
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Data\Contactos_data.drf */
/* E:\temp\dtf45.tmp */

BIN
Source/Modulos/Contactos/Data/Contactos_data.res
View File

Binary file not shown.

2
Source/Modulos/Contactos/Model/Contactos_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Model\Contactos_model.res */
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Model\Contactos_model.drf */
/* E:\temp\dtf43.tmp */

BIN
Source/Modulos/Contactos/Model/Contactos_model.res
View File

Binary file not shown.

32
Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
View File

@ -3,7 +3,7 @@ unit schContactosClient_Intf;
interface
uses
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
@ -710,7 +710,7 @@ type
end;
{ TContactosDataTableRules }
TContactosDataTableRules = class(TDADataTableRules, IContactos)
TContactosDataTableRules = class(TIntfObjectDADataTableRules, IContactos)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);
@ -890,7 +890,7 @@ type
end;
{ TGruposClienteDataTableRules }
TGruposClienteDataTableRules = class(TDADataTableRules, IGruposCliente)
TGruposClienteDataTableRules = class(TIntfObjectDADataTableRules, IGruposCliente)
private
protected
{ Property getters and setters }
@ -979,7 +979,7 @@ type
end;
{ TDatosBancariosDataTableRules }
TDatosBancariosDataTableRules = class(TDADataTableRules, IDatosBancarios)
TDatosBancariosDataTableRules = class(TIntfObjectDADataTableRules, IDatosBancarios)
private
protected
{ Property getters and setters }
@ -1199,7 +1199,7 @@ type
end;
{ TVendedoresDataTableRules }
TVendedoresDataTableRules = class(TDADataTableRules, IVendedores)
TVendedoresDataTableRules = class(TIntfObjectDADataTableRules, IVendedores)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);
@ -1594,7 +1594,7 @@ type
end;
{ TClientesDataTableRules }
TClientesDataTableRules = class(TDADataTableRules, IClientes)
TClientesDataTableRules = class(TIntfObjectDADataTableRules, IClientes)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);
@ -2067,7 +2067,7 @@ type
end;
{ TProveedoresDataTableRules }
TProveedoresDataTableRules = class(TDADataTableRules, IProveedores)
TProveedoresDataTableRules = class(TIntfObjectDADataTableRules, IProveedores)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);
@ -2512,7 +2512,7 @@ type
end;
{ TEmpleadosDataTableRules }
TEmpleadosDataTableRules = class(TDADataTableRules, IEmpleados)
TEmpleadosDataTableRules = class(TIntfObjectDADataTableRules, IEmpleados)
private
f_NOTAS: IROStrings;
f_FORMACION_BASE: IROStrings;
@ -2839,7 +2839,7 @@ type
end;
{ TDireccionesContactoDataTableRules }
TDireccionesContactoDataTableRules = class(TDADataTableRules, IDireccionesContacto)
TDireccionesContactoDataTableRules = class(TIntfObjectDADataTableRules, IDireccionesContacto)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);
@ -2989,7 +2989,7 @@ type
end;
{ TClientesDescuentosDataTableRules }
TClientesDescuentosDataTableRules = class(TDADataTableRules, IClientesDescuentos)
TClientesDescuentosDataTableRules = class(TIntfObjectDADataTableRules, IClientesDescuentos)
private
protected
{ Property getters and setters }
@ -3054,7 +3054,7 @@ type
end;
{ TGruposProveedorDataTableRules }
TGruposProveedorDataTableRules = class(TDADataTableRules, IGruposProveedor)
TGruposProveedorDataTableRules = class(TIntfObjectDADataTableRules, IGruposProveedor)
private
protected
{ Property getters and setters }
@ -3101,7 +3101,7 @@ type
end;
{ TGruposEmpleadoDataTableRules }
TGruposEmpleadoDataTableRules = class(TDADataTableRules, IGruposEmpleado)
TGruposEmpleadoDataTableRules = class(TIntfObjectDADataTableRules, IGruposEmpleado)
private
protected
{ Property getters and setters }
@ -3267,7 +3267,7 @@ type
end;
{ TContactos_RefreshDataTableRules }
TContactos_RefreshDataTableRules = class(TDADataTableRules, IContactos_Refresh)
TContactos_RefreshDataTableRules = class(TIntfObjectDADataTableRules, IContactos_Refresh)
private
f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject);
@ -3429,7 +3429,7 @@ type
end;
{ TContratosEmpleadosDataTableRules }
TContratosEmpleadosDataTableRules = class(TDADataTableRules, IContratosEmpleados)
TContratosEmpleadosDataTableRules = class(TIntfObjectDADataTableRules, IContratosEmpleados)
private
protected
{ Property getters and setters }
@ -3464,7 +3464,7 @@ type
end;
{ TDescripcionesProveedoresDataTableRules }
TDescripcionesProveedoresDataTableRules = class(TDADataTableRules, IDescripcionesProveedores)
TDescripcionesProveedoresDataTableRules = class(TIntfObjectDADataTableRules, IDescripcionesProveedores)
private
protected
{ Property getters and setters }
@ -3553,7 +3553,7 @@ type
end;
{ TPersonalContactoDataTableRules }
TPersonalContactoDataTableRules = class(TDADataTableRules, IPersonalContacto)
TPersonalContactoDataTableRules = class(TIntfObjectDADataTableRules, IPersonalContacto)
private
protected
{ Property getters and setters }

2
Source/Modulos/Contactos/Plugin/Contactos_plugin.drc
View File

@ -14,4 +14,4 @@ END
/* 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.drf */
/* E:\temp\dtf4B.tmp */

2
Source/Modulos/Contactos/Views/Contactos_view.drc
View File

@ -56,4 +56,4 @@ END
/* 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\Contactos_view.res */
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Views\Contactos_view.drf */
/* E:\temp\dtf49.tmp */

BIN
Source/Modulos/Contactos/Views/Contactos_view.res
View File

Binary file not shown.

2
Source/Modulos/Fabricantes/Data/Fabricantes_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Noviseda\Source\Modulos\Fabricantes\Data\uDataModuleFabricantes.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Fabricantes\Data\Fabricantes_data.res */
/* E:\temp\dtf63.tmp */
/* E:\temp\dtf59.tmp */

2
Source/Modulos/Fabricantes/Model/Fabricantes_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo Noviseda\Source\Modulos\Fabricantes\Model\Fabricantes_model.res */
/* E:\temp\dtf61.tmp */
/* E:\temp\dtf57.tmp */

2
Source/Modulos/Facturas de cliente/Controller/FacturasCliente_controller.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Controller\FacturasCliente_controller.res */
/* E:\temp\dtfB1.tmp */
/* E:\temp\dtfA7.tmp */

2
Source/Modulos/Facturas de cliente/Data/FacturasCliente_data.drc
View File

@ -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\FacturasCliente_data.res */
/* E:\temp\dtfAF.tmp */
/* E:\temp\dtfA5.tmp */

2
Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Model\FacturasCliente_model.res */
/* E:\temp\dtfAD.tmp */
/* E:\temp\dtfA3.tmp */

2
Source/Modulos/Facturas de cliente/Plugin/FacturasCliente_plugin.drc
View File

@ -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\FacturasCliente_plugin.res */
/* E:\temp\dtf105.tmp */
/* E:\temp\dtfFB.tmp */

2
Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.drc
View File

@ -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\uEditorElegirFacturasCliente.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Views\FacturasCliente_view.res */
/* E:\temp\dtf103.tmp */
/* E:\temp\dtfF9.tmp */

2
Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo Noviseda\Source\Modulos\Facturas de proveedor\Controller\FacturasProveedor_controller.res */
/* E:\temp\dtfDB.tmp */
/* E:\temp\dtfD1.tmp */

2
Source/Modulos/Facturas de proveedor/Data/FacturasProveedor_data.drc
View File

@ -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\FacturasProveedor_data.res */
/* E:\temp\dtfD9.tmp */
/* E:\temp\dtfCF.tmp */

2
Source/Modulos/Facturas de proveedor/Model/FacturasProveedor_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo Noviseda\Source\Modulos\Facturas de proveedor\Model\FacturasProveedor_model.res */
/* E:\temp\dtfD7.tmp */
/* E:\temp\dtfCD.tmp */

2
Source/Modulos/Facturas de proveedor/Plugin/FacturasProveedor_plugin.drc
View File

@ -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\FacturasProveedor_plugin.res */
/* E:\temp\dtf119.tmp */
/* E:\temp\dtf10F.tmp */

2
Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo Noviseda\Source\Modulos\Gestion de documentos\Controller\GestorDocumentos_Controller.res */
/* E:\temp\dtf6D.tmp */
/* E:\temp\dtf63.tmp */

2
Source/Modulos/Gestion de documentos/Data/GestorDocumentos_data.drc
View File

@ -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\GestorDocumentos_data.res */
/* E:\temp\dtf6B.tmp */
/* E:\temp\dtf61.tmp */

2
Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Controller\PedidosProveedor_controller.res */
/* E:\temp\dtfB7.tmp */
/* E:\temp\dtfAD.tmp */

2
Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.drc
View File

@ -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\PedidosProveedor_data.res */
/* E:\temp\dtfB5.tmp */
/* E:\temp\dtfAB.tmp */

2
Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Model\PedidosProveedor_model.res */
/* E:\temp\dtfB3.tmp */
/* E:\temp\dtfA9.tmp */

2
Source/Modulos/Pedidos a proveedor/Plugin/PedidosProveedor_plugin.drc
View File

@ -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\PedidosProveedor_plugin.res */
/* E:\temp\dtf111.tmp */
/* E:\temp\dtf107.tmp */

2
Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.drc
View File

@ -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\uEditorSituacionPedidoProveedor.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Views\PedidosProveedor_view.res */
/* E:\temp\dtf10F.tmp */
/* E:\temp\dtf105.tmp */

2
Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo Noviseda\Source\Modulos\Presupuestos de cliente\Controller\PresupuestosCliente_controller.res */
/* E:\temp\dtfA5.tmp */
/* E:\temp\dtf9B.tmp */

2
Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.drc
View File

@ -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\PresupuestosCliente_data.res */
/* E:\temp\dtfA3.tmp */
/* E:\temp\dtf99.tmp */

2
Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo Noviseda\Source\Modulos\Presupuestos de cliente\Model\PresupuestosCliente_model.res */
/* E:\temp\dtfA1.tmp */
/* E:\temp\dtf97.tmp */

2
Source/Modulos/Presupuestos de cliente/Plugin/PresupuestosCliente_plugin.drc
View File

@ -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\PresupuestosCliente_plugin.res */
/* E:\temp\dtfFD.tmp */
/* E:\temp\dtfF3.tmp */

2
Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.drc
View File

@ -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\uEditorAsignarDescuento.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Presupuestos de cliente\Views\PresupuestosCliente_view.res */
/* E:\temp\dtfFB.tmp */
/* E:\temp\dtfF1.tmp */

2
Source/Modulos/Recibos de cliente/Data/RecibosCliente_data.drc
View File

@ -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\RecibosCliente_data.res */
/* E:\temp\dtf8F.tmp */
/* E:\temp\dtf85.tmp */

2
Source/Modulos/Recibos de cliente/Plugin/RecibosCliente_plugin.drc
View File

@ -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\RecibosCliente_plugin.res */
/* E:\temp\dtf95.tmp */
/* E:\temp\dtf8B.tmp */

2
Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.drc
View File

@ -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\RecibosProveedor_data.res */
/* E:\temp\dtfBB.tmp */
/* E:\temp\dtfB1.tmp */

2
Source/Modulos/Recibos de proveedor/Plugin/RecibosProveedor_plugin.drc
View File

@ -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\RecibosProveedor_plugin.res */
/* E:\temp\dtfC1.tmp */
/* E:\temp\dtfB7.tmp */

2
Source/Modulos/Tipos de IVA/Data/TiposIVA_data.drc
View File

@ -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\TiposIVA_data.res */
/* E:\temp\dtf31.tmp */
/* E:\temp\dtf27.tmp */

2
Source/Modulos/Tipos de IVA/Model/TiposIVA_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo Noviseda\Source\Modulos\Tipos de IVA\Model\TiposIVA_model.res */
/* E:\temp\dtf2F.tmp */
/* E:\temp\dtf25.tmp */

2
Source/Modulos/Unidades de medida/Data/UnidadesMedida_data.drc
View File

@ -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\UnidadesMedida_data.res */
/* E:\temp\dtf45.tmp */
/* E:\temp\dtf3B.tmp */

2
Source/Modulos/Unidades de medida/Model/UnidadesMedida_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo Noviseda\Source\Modulos\Unidades de medida\Model\UnidadesMedida_model.res */
/* E:\temp\dtf43.tmp */
/* E:\temp\dtf39.tmp */

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

10
Source/Servidor/FactuGES_Server.dpr
View File

@ -97,15 +97,11 @@ uses
uBizEmpresasServer in '..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas',
schAlmacenesClient_Intf in '..\Modulos\Almacenes\Model\schAlmacenesClient_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},
uRptWordPresupuestoCliente in '..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas' {RptWordPresupuestoCliente: TDataModule},
srvGestorDocumentos_Impl in '..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas' {srvGestorDocumentos: TDataAbstractService},
schHistoricoMovimientosClient_Intf in '..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_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',
schUsuariosServer_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas',
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',
uBizVendedoresServer in '..\Modulos\Contactos\Model\uBizVendedoresServer.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 ..\Servicios\RODLFile.res}

BIN
Source/Servidor/FactuGES_Server.identcache
View File

Binary file not shown.

Some files were not shown because too many files have changed in this diff Show More