diff --git a/Source/Base/Base.res b/Source/Base/Base.res
index 1641339f..8b251f31 100644
Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ
diff --git a/Source/Cliente/uBootStrap.pas b/Source/Cliente/uBootStrap.pas
index 86dd8ef0..be5b59a7 100644
--- a/Source/Cliente/uBootStrap.pas
+++ b/Source/Cliente/uBootStrap.pas
@@ -34,7 +34,9 @@ begin
LoadModule('RecibosCliente_plugin.bpl');
LoadModule('FacturasCliente_plugin.bpl');
- LoadModule('PedidosProveedor_plugin.bpl');
+ LoadModule('PedidosProveedor_plugin.bpl');
+ LoadModule('AlbaranesProveedor_plugin.bpl');
+
LoadModule('RecibosProveedor_plugin.bpl');
end;
diff --git a/Source/Modulos/Albaranes de proveedor/Controller/AlbaranesProveedor_controller.dpk b/Source/Modulos/Albaranes de proveedor/Controller/AlbaranesProveedor_controller.dpk
index a01dc1ed..3483d773 100644
--- a/Source/Modulos/Albaranes de proveedor/Controller/AlbaranesProveedor_controller.dpk
+++ b/Source/Modulos/Albaranes de proveedor/Controller/AlbaranesProveedor_controller.dpk
@@ -22,29 +22,16 @@ package AlbaranesProveedor_controller;
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
-{$IMPLICITBUILD OFF}
+{$IMPLICITBUILD ON}
requires
- rtl,
- vcl,
- dbrtl,
- cxLibraryD10,
- dxThemeD10,
GUIBase,
- ControllerBase,
- Contactos_controller,
- dsnap,
- vcldb,
- adortl,
- Articulos_controller,
- Inventario_model,
- Inventario_controller,
AlbaranesProveedor_model,
AlbaranesProveedor_data,
+ Contactos_controller,
+ Articulos_controller,
PedidosProveedor_model,
- PedidosProveedor_controller,
- Articulos_model,
- Articulos_controller;
+ PedidosProveedor_controller;
contains
uAlbaranesProveedorController in 'uAlbaranesProveedorController.pas',
diff --git a/Source/Modulos/Albaranes de proveedor/Controller/AlbaranesProveedor_controller.dproj b/Source/Modulos/Albaranes de proveedor/Controller/AlbaranesProveedor_controller.dproj
index 59c48ae0..a3146d32 100644
--- a/Source/Modulos/Albaranes de proveedor/Controller/AlbaranesProveedor_controller.dproj
+++ b/Source/Modulos/Albaranes de proveedor/Controller/AlbaranesProveedor_controller.dproj
@@ -36,78 +36,25 @@
..\..\..\Lib;..\..\Lib
..\..\..\Lib;..\..\Lib
..\..\..\Lib;..\..\Lib
- DEBUG
Delphi.Personality
Package
-
- False
- True
- False
-
-
- False
- False
- False
-
-
- True
- False
- 1
- 0
- 0
- 0
- False
- False
- False
- False
- False
- 3082
- 1252
-
-
-
-
- 1.0.0.0
-
-
-
-
-
- 1.0.0.0
-
-
-
- AlbaranesProveedor_controller.dpk
-
-
+FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0AlbaranesProveedor_controller.dpk
-
+
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
@@ -121,5 +68,488 @@
-
-
\ No newline at end of file
+
+
+
diff --git a/Source/Modulos/Albaranes de proveedor/Controller/AlbaranesProveedor_controller.rc b/Source/Modulos/Albaranes de proveedor/Controller/AlbaranesProveedor_controller.rc
index e69de29b..153736af 100644
--- a/Source/Modulos/Albaranes de proveedor/Controller/AlbaranesProveedor_controller.rc
+++ b/Source/Modulos/Albaranes de proveedor/Controller/AlbaranesProveedor_controller.rc
@@ -0,0 +1,22 @@
+1 VERSIONINFO
+FILEVERSION 1,0,0,0
+PRODUCTVERSION 1,0,0,0
+FILEFLAGSMASK 0x3FL
+FILEFLAGS 0x00L
+FILEOS 0x40004L
+FILETYPE 0x1L
+FILESUBTYPE 0x0L
+BEGIN
+ BLOCK "StringFileInfo"
+ BEGIN
+ BLOCK "0C0A04E4"
+ BEGIN
+ VALUE "FileVersion", "1.0.0.0\0"
+ VALUE "ProductVersion", "1.0.0.0\0"
+ END
+ END
+ BLOCK "VarFileInfo"
+ BEGIN
+ VALUE "Translation", 0x0C0A, 1252
+ END
+END
diff --git a/Source/Modulos/Albaranes de proveedor/Controller/AlbaranesProveedor_controller.res b/Source/Modulos/Albaranes de proveedor/Controller/AlbaranesProveedor_controller.res
index 86c94e6a..8b251f31 100644
Binary files a/Source/Modulos/Albaranes de proveedor/Controller/AlbaranesProveedor_controller.res and b/Source/Modulos/Albaranes de proveedor/Controller/AlbaranesProveedor_controller.res differ
diff --git a/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas b/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas
index 019ee544..cbc72e1a 100644
--- a/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas
+++ b/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas
@@ -7,7 +7,8 @@ uses
SysUtils, uDADataTable, uEditorDBItem,
uControllerBase, uIDataModuleAlbaranesProveedor, uProveedoresController,
uDetallesAlbaranProveedorController, uBizAlbaranesProveedor,
- uBizDireccionesContacto, uBizInventario;
+ uBizDireccionesContacto;
+ //, uBizInventario;
type
IAlbaranesProveedorController = interface(IObservador)
@@ -32,7 +33,7 @@ type
function Nuevo : IBizAlbaranProveedor;
function Anadir(AAlbaran : IBizAlbaranProveedor) : Boolean; overload;
function AnadirAlbaranDev(AAlbaran : IBizAlbaranProveedor) : Boolean;
- function Anadir(AAlbaran : IBizAlbaranProveedor; const IDPedido : Integer; AInventarioRecibido: IBizInventario): Boolean; overload;
+// function Anadir(AAlbaran : IBizAlbaranProveedor; const IDPedido : Integer; AInventarioRecibido: IBizInventario): Boolean; overload;
function Eliminar(const ID : Integer): Boolean; overload;
function Eliminar(AAlbaran : IBizAlbaranProveedor; AllItems: Boolean = false): Boolean; overload;
@@ -74,7 +75,6 @@ type
procedure RecuperarObjetos(AAlbaran: IBizAlbaranProveedor); virtual;
procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
- procedure AsignarID(AAlbaran: IBizAlbaranProveedor; const IDNuevo : Integer);
function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
procedure FiltrarEmpresa(AAlbaran: IBizAlbaranProveedor);
function _Vacio : IBizAlbaranProveedor;
@@ -94,7 +94,7 @@ type
function Existe(const ID: Integer) : Boolean; virtual;
function Anadir(AAlbaran : IBizAlbaranProveedor) : Boolean; overload;
function AnadirAlbaranDev(AAlbaran : IBizAlbaranProveedor) : Boolean;
- function Anadir(AAlbaran : IBizAlbaranProveedor; const IDPedido : Integer; AInventarioRecibido: IBizInventario): Boolean; overload;
+// function Anadir(AAlbaran : IBizAlbaranProveedor; const IDPedido : Integer; AInventarioRecibido: IBizInventario): Boolean; overload;
function Buscar(const ID: Integer): IBizAlbaranProveedor;
function BuscarTodos: IBizAlbaranProveedor;
function BuscarAlbaranesNormales: IBizAlbaranProveedor;
@@ -129,8 +129,9 @@ uses
uBizDetallesAlbaranProveedor, uBizContactos, uDataTableUtils, uDataModuleUsuarios,
schAlbaranesProveedorClient_Intf, uDAInterfaces, uDateUtils, uIEditorAlbaranProveedor,
uIEditorElegirAlbaranesProveedor, uIEditorDireccionEntregaAlbaranProveedor,
- schContactosClient_Intf, Forms, schPedidosProveedorClient_Intf,
- uBizPedidosProveedor, uPedidosProveedorController, schInventarioClient_Intf,
+ schContactosClient_Intf, Forms, schPedidosProveedorClient_Intf,
+ uBizPedidosProveedor, uPedidosProveedorController,
+// schInventarioClient_Intf,
uArticulosController, uBizArticulos, uControllerDetallesBase, Classes,
schArticulosClient_Intf, uControllerDetallesArticulos, Variants, uDialogUtils,
uIEditorAlbaranDevProveedor, uAlbaranesProveedorReportController;
@@ -171,6 +172,7 @@ begin
AAlbaran.ID_ALMACEN := APedido.ID_ALMACEN;
end;
+{
procedure CopiarArticulosAAlbaran(APedido: IBizPedidoProveedor; AAlbaran: IBizAlbaranProveedor;
AInventarioRecibido: IBizInventario);
var
@@ -214,7 +216,7 @@ begin
ADetalles.Edit;
APedido.Detalles.First;
-//Se cambia porque puede haber articulos del pedido que no tengan referencia de proveedor
+//Se cambia porque puede haber articulos del pedido que no tengan referencia de proveedor
// if not APedido.Detalles.DataTable.Locate(fld_ArticulosREFERENCIA, ADetalles.REFERENCIA, []) then
if not APedido.Detalles.DataTable.Locate(fld_INVENTARIOID_ARTICULO, ADetalles.ID_ARTICULO, []) then
raise Exception.Create(Format('No se ha encontrado el artículo del pedido con REFERENCIA %s (CopiarArticulosAAlbaran)', [ADetalles.REFERENCIA]));
@@ -222,7 +224,7 @@ begin
ADetalles.DESCUENTO := APedido.Detalles.DESCUENTO;
ADetalles.IMPORTE_PORTE := APedido.Detalles.IMPORTE_PORTE;
- ADetalles.CANTIDAD := AInventarioRecibido.CANTIDAD;
+ ADetalles.CANTIDAD := AInventarioRecibido.CANTIDAD;
ADetalles.Post;
end;
@@ -269,6 +271,7 @@ begin
end;
end;
end;
+}
{ TAlbaranesProveedorController }
@@ -284,6 +287,7 @@ begin
Result := True;
end;
+{
function TAlbaranesProveedorController.Anadir(AAlbaran: IBizAlbaranProveedor;
const IDPedido: Integer;
AInventarioRecibido: IBizInventario): Boolean;
@@ -335,6 +339,7 @@ begin
Application.ProcessMessages;
end;
end;
+}
function TAlbaranesProveedorController.AnadirAlbaranDev(AAlbaran: IBizAlbaranProveedor): Boolean;
begin
@@ -347,28 +352,6 @@ begin
FDataModule := TDataModuleAlbaranesProveedor.Create(Nil);
end;
-procedure TAlbaranesProveedorController.AsignarID(AAlbaran: IBizAlbaranProveedor; const IDNuevo : Integer);
-begin
- if not Assigned(AAlbaran) then
- raise Exception.Create ('Albarán no asignado');
-
- if not Assigned(AAlbaran.Detalles) then
- raise Exception.Create ('Detalles de albarán no asignados');
-
- if not Assigned(FDetallesController) then
- raise Exception.Create ('Controller detalles no asignado');
-
- { Los detalles siempre hay que comprobarlos }
- FDetallesController.AsignarID(AAlbaran.Detalles, IDNuevo, AAlbaran.EsNuevo);
-
- if AAlbaran.EsNuevo then
- begin
- AAlbaran.Edit;
- AAlbaran.ID := IDNuevo;
- AAlbaran.Post;
- end;
-end;
-
function TAlbaranesProveedorController.Buscar(const ID: Integer): IBizAlbaranProveedor;
begin
Result := FDataModule.GetItem(ID);
@@ -376,17 +359,22 @@ begin
end;
function TAlbaranesProveedorController.BuscarAlbaranesDevolucion: IBizAlbaranProveedor;
+var
+ Condicion: TDAWhereExpression;
begin
ShowHourglassCursor;
try
Result := BuscarTodos;
- with Result.DataTable.Where do
+
+ with Result.DataTable.DynamicWhere do
begin
- if NotEmpty then
- AddOperator(opAND);
- OpenBraket;
- AddCondition(fld_AlbaranesProveedorIMPORTE_TOTAL, cLess, 0);
- CloseBraket;
+ // (IMPORTE_TOTAL < 0)
+ Condicion := NewBinaryExpression(NewField('', fld_AlbaranesProveedorIMPORTE_TOTAL), NewConstant(0, datCurrency), dboLess);
+
+ if IsEmpty then
+ Expression := Condicion
+ else
+ Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
finally
HideHourglassCursor;
@@ -394,18 +382,24 @@ begin
end;
function TAlbaranesProveedorController.BuscarAlbaranesNormales: IBizAlbaranProveedor;
+var
+ Condicion: TDAWhereExpression;
begin
ShowHourglassCursor;
try
Result := BuscarTodos;
- with Result.DataTable.Where do
+
+ with Result.DataTable.DynamicWhere do
begin
- if NotEmpty then
- AddOperator(opAND);
- OpenBraket;
- AddCondition(fld_AlbaranesProveedorIMPORTE_TOTAL, cMajorOrEqual, 0);
- CloseBraket;
+ // (IMPORTE_TOTAL >= 0)
+ Condicion := NewBinaryExpression(NewField('', fld_AlbaranesProveedorIMPORTE_TOTAL), NewConstant(0, datCurrency), dboGreaterOrEqual);
+
+ if IsEmpty then
+ Expression := Condicion
+ else
+ Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
+
finally
HideHourglassCursor;
end;
@@ -418,18 +412,24 @@ begin
end;
function TAlbaranesProveedorController.BuscarSinFacturar: IBizAlbaranProveedor;
+var
+ Condicion: TDAWhereExpression;
begin
ShowHourglassCursor;
try
Result := BuscarAlbaranesNormales;
- with Result.DataTable.Where do
+
+ with Result.DataTable.DynamicWhere do
begin
- if NotEmpty then
- AddOperator(opAND);
- OpenBraket;
- AddText(fld_AlbaranesProveedorID_FACTURA + ' is null');
- CloseBraket;
+ // (ID_FACTURA = NULL)
+ Condicion := NewBinaryExpression(NewField('', fld_AlbaranesProveedorID_FACTURA), NewNull(), dboEqual);
+
+ if IsEmpty then
+ Expression := Condicion
+ else
+ Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
+
finally
HideHourglassCursor;
end;
@@ -525,8 +525,8 @@ begin
Result.Edit;
with Result do
begin
- ID_EMPRESA := dmUsuarios.IDEmpresaActual;
- USUARIO := dmUsuarios.LoginInfo.Usuario;
+ ID_EMPRESA := 1; //dmUsuarios.IDEmpresaActual;
+// USUARIO := dmUsuarios.LoginInfo.Usuario;
FECHA_ALBARAN := DateOf(Now);
INCIDENCIAS_ACTIVAS := 0;
REFERENCIA := '';
@@ -589,7 +589,7 @@ begin
en MODIFICACIÓN como en INSERCIÓN. }
AAlbaran.Edit;
try
- AAlbaran.USUARIO := dmUsuarios.LoginInfo.Usuario;
+// AAlbaran.USUARIO := dmUsuarios.LoginInfo.Usuario;
if Assigned(AAlbaran.Proveedor)
and (AAlbaran.ID_PROVEEDOR <> AAlbaran.Proveedor.ID) then
@@ -902,12 +902,12 @@ begin
AAlbaran.DataTable.Active := False;
// Filtrar los presupuestos actuales por empresa
- with AAlbaran.DataTable.Where do
- begin
- if NotEmpty then
- AddOperator(opAND);
- AddCondition(fld_AlbaranesProveedorID_EMPRESA, cEqual, dmUsuarios.IDEmpresaActual);
- end;
+// with AAlbaran.DataTable.Where do
+// begin
+// if NotEmpty then
+// AddOperator(opAND);
+// AddCondition(fld_AlbaranesProveedorID_EMPRESA, cEqual, dmUsuarios.IDEmpresaActual);
+// end;
end;
procedure TAlbaranesProveedorController.SetProveedorController(const Value: IProveedoresController);
@@ -940,12 +940,6 @@ begin
RecalcularImportes(AAlbaran);
try
- if (AAlbaran.EsNuevo) then
- IDNuevo := FDataModule.GetNextID(AAlbaran.DataTable.LogicalName)
- else
- IDNuevo := AAlbaran.ID;
-
- AsignarID(AAlbaran, IDNuevo);
AAlbaran.DataTable.ApplyUpdates;
Result := True;
finally
diff --git a/Source/Modulos/Albaranes de proveedor/Controller/uDetallesAlbaranProveedorController.pas b/Source/Modulos/Albaranes de proveedor/Controller/uDetallesAlbaranProveedorController.pas
index a7cd0ec9..b94a5020 100644
--- a/Source/Modulos/Albaranes de proveedor/Controller/uDetallesAlbaranProveedorController.pas
+++ b/Source/Modulos/Albaranes de proveedor/Controller/uDetallesAlbaranProveedorController.pas
@@ -20,7 +20,6 @@ type
FDataModule : IDataModuleAlbaranesProveedor;
protected
- procedure AsignarDatos(ADetalles: IDAStronglyTypedDataTable; IDCabecera: Integer); override;
procedure RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); override;
procedure RellenarImportes(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo); override;
@@ -83,19 +82,6 @@ begin
FArticulosController := TArticulosAlbaranProveedorController.Create;
end;
-procedure TDetallesAlbaranProveedorController.AsignarDatos(ADetalles: IDAStronglyTypedDataTable; IDCabecera: Integer);
-begin
- inherited;
-
- with (ADetalles as IBizDetallesAlbaranProveedor) do
- begin
- Edit;
- ID := FDataModule.GetNextID(DataTable.LogicalName);
- ID_ALBARAN := IDCabecera;
- Post
- end;
-end;
-
function TDetallesAlbaranProveedorController.CalcularImporteTotalConcepto(DataTable: TDADataTable): Double;
begin
Result := CalcularLineaConcepto(DataTable);
diff --git a/Source/Modulos/Albaranes de proveedor/Data/AlbaranesProveedor_data.dpk b/Source/Modulos/Albaranes de proveedor/Data/AlbaranesProveedor_data.dpk
index 0686e22d..d871fcc7 100644
--- a/Source/Modulos/Albaranes de proveedor/Data/AlbaranesProveedor_data.dpk
+++ b/Source/Modulos/Albaranes de proveedor/Data/AlbaranesProveedor_data.dpk
@@ -22,17 +22,9 @@ package AlbaranesProveedor_data;
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
-{$IMPLICITBUILD OFF}
+{$IMPLICITBUILD ON}
requires
- rtl,
- dbrtl,
- cxLibraryD10,
- dxThemeD10,
- vcl,
- dsnap,
- vcldb,
- adortl,
AlbaranesProveedor_model;
contains
diff --git a/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm b/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm
index 8df81c7e..ca646582 100644
--- a/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm
+++ b/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm
@@ -2,6 +2,8 @@ inherited DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
OnCreate = DAClientDataModuleCreate
Width = 462
object RORemoteService: TRORemoteService
+ Message = dmConexion.ROMessage
+ Channel = dmConexion.ROChannel
ServiceName = 'srvAlbaranesProveedor'
Left = 48
Top = 32
@@ -20,4 +22,367 @@ inherited DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
Left = 51
Top = 151
end
+ object tbl_AlbaranesProveedor: TDAMemDataTable
+ RemoteUpdatesOptions = []
+ Fields = <
+ item
+ Name = 'ID'
+ DataType = datAutoInc
+ GeneratorName = 'GEN_ALBARANES_PRO_ID'
+ Required = True
+ ServerAutoRefresh = True
+ DictionaryEntry = 'AlbaranesProveedor_ID'
+ InPrimaryKey = True
+ end
+ item
+ Name = 'ID_EMPRESA'
+ DataType = datInteger
+ DictionaryEntry = 'AlbaranesProveedor_ID_EMPRESA'
+ end
+ item
+ Name = 'ID_PROVEEDOR'
+ DataType = datInteger
+ DictionaryEntry = 'AlbaranesProveedor_ID_PROVEEDOR'
+ end
+ item
+ Name = 'NOMBRE'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'Proveedor'
+ DictionaryEntry = 'AlbaranesProveedor_NOMBRE'
+ end
+ item
+ Name = 'FECHA_ALBARAN'
+ DataType = datDateTime
+ DisplayLabel = 'Fecha albar'#195#161'n'
+ DictionaryEntry = 'AlbaranesProveedor_FECHA_ALBARAN'
+ end
+ item
+ Name = 'REFERENCIA'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'Referencia'
+ DictionaryEntry = 'AlbaranesProveedor_REFERENCIA'
+ end
+ item
+ Name = 'REFERENCIA_PROVEEDOR'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'Ref. provedor'
+ DictionaryEntry = 'AlbaranesProveedor_REFERENCIA_PROVEEDOR'
+ end
+ item
+ Name = 'TIPO'
+ DataType = datString
+ Size = 1
+ DisplayLabel = 'Tipo'
+ DictionaryEntry = 'AlbaranesProveedor_TIPO'
+ end
+ item
+ Name = 'ID_ALMACEN'
+ DataType = datInteger
+ DictionaryEntry = 'AlbaranesProveedor_ID_ALMACEN'
+ end
+ item
+ Name = 'NOMBRE_ALMACEN'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'Almac'#195#169'n'
+ DictionaryEntry = 'AlbaranesProveedor_NOMBRE_ALMACEN'
+ end
+ item
+ Name = 'ID_PEDIDO'
+ DataType = datInteger
+ DictionaryEntry = 'AlbaranesProveedor_ID_PEDIDO'
+ end
+ item
+ Name = 'REF_PED_PROVEEDOR'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'Ped. proveedor'
+ DictionaryEntry = 'AlbaranesProveedor_REF_PED_PROVEEDOR'
+ end
+ item
+ Name = 'ID_FACTURA'
+ DataType = datInteger
+ DictionaryEntry = 'AlbaranesProveedor_ID_FACTURA'
+ end
+ item
+ Name = 'REF_FACTURA'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'Referencia factura'
+ DictionaryEntry = 'AlbaranesProveedor_REF_FACTURA'
+ end
+ item
+ Name = 'REF_FACTURA_PROV'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'Ref. factura prov'
+ DictionaryEntry = 'AlbaranesProveedor_REF_FACTURA_PROV'
+ end
+ item
+ Name = 'CALLE'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'Calle'
+ DictionaryEntry = 'AlbaranesProveedor_CALLE'
+ end
+ item
+ Name = 'CODIGO_POSTAL'
+ DataType = datString
+ Size = 10
+ DisplayLabel = 'C'#195#179'd. postal'
+ DictionaryEntry = 'AlbaranesProveedor_CODIGO_POSTAL'
+ end
+ item
+ Name = 'POBLACION'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'Poblaci'#195#179'n'
+ DictionaryEntry = 'AlbaranesProveedor_POBLACION'
+ end
+ item
+ Name = 'PROVINCIA'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'Provincia'
+ DictionaryEntry = 'AlbaranesProveedor_PROVINCIA'
+ end
+ item
+ Name = 'PERSONA_CONTACTO'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'Persona de contacto'
+ DictionaryEntry = 'AlbaranesProveedor_PERSONA_CONTACTO'
+ end
+ item
+ Name = 'TELEFONO'
+ DataType = datString
+ Size = 25
+ DisplayLabel = 'Tel'#195#169'fono'
+ DictionaryEntry = 'AlbaranesProveedor_TELEFONO'
+ end
+ item
+ Name = 'IMPORTE_NETO'
+ DataType = datCurrency
+ DisplayLabel = 'Importe neto'
+ Alignment = taRightJustify
+ DictionaryEntry = 'AlbaranesProveedor_IMPORTE_NETO'
+ end
+ item
+ Name = 'IMPORTE_PORTE'
+ DataType = datCurrency
+ DisplayLabel = 'Importe del porte'
+ Alignment = taRightJustify
+ DictionaryEntry = 'AlbaranesProveedor_IMPORTE_PORTE'
+ end
+ item
+ Name = 'DESCUENTO'
+ DataType = datFloat
+ DisplayLabel = 'Descuento'
+ DisplayFormat = ',0.00 %;-,0.00 %'
+ Alignment = taRightJustify
+ DictionaryEntry = 'AlbaranesProveedor_DESCUENTO'
+ end
+ item
+ Name = 'IMPORTE_DESCUENTO'
+ DataType = datCurrency
+ DisplayLabel = 'Importe dto.'
+ Alignment = taRightJustify
+ DictionaryEntry = 'AlbaranesProveedor_IMPORTE_DESCUENTO'
+ end
+ item
+ Name = 'BASE_IMPONIBLE'
+ DataType = datCurrency
+ DisplayLabel = 'Base imponible'
+ Alignment = taRightJustify
+ DictionaryEntry = 'AlbaranesProveedor_BASE_IMPONIBLE'
+ end
+ item
+ Name = 'IVA'
+ DataType = datFloat
+ DisplayFormat = ',0.00 %;-,0.00 %'
+ Alignment = taRightJustify
+ DictionaryEntry = 'AlbaranesProveedor_IVA'
+ end
+ item
+ Name = 'IMPORTE_IVA'
+ DataType = datCurrency
+ DisplayLabel = 'Importe IVA'
+ Alignment = taRightJustify
+ DictionaryEntry = 'AlbaranesProveedor_IMPORTE_IVA'
+ end
+ item
+ Name = 'IMPORTE_TOTAL'
+ DataType = datCurrency
+ DisplayLabel = 'Importe total'
+ Alignment = taRightJustify
+ DictionaryEntry = 'AlbaranesProveedor_IMPORTE_TOTAL'
+ end
+ item
+ Name = 'OBSERVACIONES'
+ DataType = datMemo
+ DisplayLabel = 'Observaciones'
+ DictionaryEntry = 'AlbaranesProveedor_OBSERVACIONES'
+ end
+ item
+ Name = 'INCIDENCIAS'
+ DataType = datMemo
+ DictionaryEntry = 'AlbaranesProveedor_INCIDENCIAS'
+ end
+ item
+ Name = 'INCIDENCIAS_ACTIVAS'
+ DataType = datInteger
+ DictionaryEntry = 'AlbaranesProveedor_INCIDENCIAS_ACTIVAS'
+ end
+ item
+ Name = 'FECHA_ALTA'
+ DataType = datDateTime
+ DictionaryEntry = 'AlbaranesProveedor_FECHA_ALTA'
+ end
+ item
+ Name = 'FECHA_MODIFICACION'
+ DataType = datDateTime
+ DictionaryEntry = 'AlbaranesProveedor_FECHA_MODIFICACION'
+ end
+ item
+ Name = 'USUARIO'
+ DataType = datString
+ Size = 20
+ DictionaryEntry = 'AlbaranesProveedor_USUARIO'
+ end
+ item
+ Name = 'ID_FORMA_PAGO'
+ DataType = datInteger
+ DictionaryEntry = 'AlbaranesProveedor_ID_FORMA_PAGO'
+ end>
+ Params = <>
+ StreamingOptions = [soDisableEventsWhileStreaming]
+ RemoteDataAdapter = rda_AlbaranesProveedor
+ DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+ MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+ LogicalName = 'AlbaranesProveedor'
+ IndexDefs = <>
+ Left = 168
+ Top = 104
+ end
+ object ds_AlbaranesProveedor: TDADataSource
+ DataSet = tbl_AlbaranesProveedor.Dataset
+ DataTable = tbl_AlbaranesProveedor
+ Left = 168
+ Top = 40
+ end
+ object tbl_AlbaranesProveedor_Detalles: TDAMemDataTable
+ RemoteUpdatesOptions = []
+ Fields = <
+ item
+ Name = 'ID'
+ DataType = datAutoInc
+ GeneratorName = 'GEN_ALBARANES_PRO_DETALLES_ID'
+ Required = True
+ ServerAutoRefresh = True
+ DictionaryEntry = 'AlbaranesProveedor_Detalles_ID'
+ InPrimaryKey = True
+ end
+ item
+ Name = 'ID_ALBARAN'
+ DataType = datInteger
+ DictionaryEntry = 'AlbaranesProveedor_Detalles_ID_ALBARAN'
+ end
+ item
+ Name = 'POSICION'
+ DataType = datInteger
+ DictionaryEntry = 'POSICIONCONCEPTO'
+ end
+ item
+ Name = 'TIPO_DETALLE'
+ DataType = datString
+ Size = 10
+ DictionaryEntry = 'AlbaranesProveedor_Detalles_TIPO_DETALLE'
+ end
+ item
+ Name = 'CONCEPTO'
+ DataType = datString
+ Size = 2000
+ DictionaryEntry = 'AlbaranesProveedor_Detalles_CONCEPTO'
+ end
+ item
+ Name = 'CANTIDAD'
+ DataType = datInteger
+ DictionaryEntry = 'CANTIDAD'
+ end
+ item
+ Name = 'IMPORTE_UNIDAD'
+ DataType = datCurrency
+ DisplayLabel = 'Importe unidad'
+ Alignment = taRightJustify
+ DictionaryEntry = 'AlbaranesProveedor_Detalles_IMPORTE_UNIDAD'
+ end
+ item
+ Name = 'IMPORTE_TOTAL'
+ DataType = datCurrency
+ DisplayLabel = 'Importe total'
+ Alignment = taRightJustify
+ DictionaryEntry = 'AlbaranesProveedor_Detalles_IMPORTE_TOTAL'
+ end
+ item
+ Name = 'VISIBLE'
+ DataType = datInteger
+ DictionaryEntry = 'AlbaranesProveedor_Detalles_VISIBLE'
+ end
+ item
+ Name = 'ID_ARTICULO'
+ DataType = datInteger
+ DictionaryEntry = 'AlbaranesProveedor_Detalles_ID_ARTICULO'
+ end
+ item
+ Name = 'DESCUENTO'
+ DataType = datFloat
+ DisplayLabel = 'Descuento'
+ DisplayFormat = ',0.00 %;-,0.00 %'
+ Alignment = taRightJustify
+ DictionaryEntry = 'AlbaranesProveedor_Detalles_DESCUENTO'
+ end
+ item
+ Name = 'IMPORTE_PORTE'
+ DataType = datCurrency
+ DisplayLabel = 'Importe porte'
+ Alignment = taRightJustify
+ DictionaryEntry = 'AlbaranesProveedor_Detalles_IMPORTE_PORTE'
+ end
+ item
+ Name = 'REFERENCIA'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'Referencia'
+ DictionaryEntry = 'AlbaranesProveedor_Detalles_REFERENCIA'
+ end
+ item
+ Name = 'REFERENCIA_PROVEEDOR'
+ DataType = datString
+ Size = 255
+ DisplayLabel = 'Ref. proveedor'
+ DictionaryEntry = 'AlbaranesProveedor_Detalles_REFERENCIA_PROVEEDOR'
+ end>
+ Params = <>
+ MasterMappingMode = mmWhere
+ StreamingOptions = [soDisableEventsWhileStreaming]
+ RemoteDataAdapter = rda_AlbaranesProveedor
+ MasterSource = ds_AlbaranesProveedor
+ MasterFields = 'ID'
+ DetailFields = 'ID_ALBARAN'
+ DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+ MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+ LogicalName = 'AlbaranesProveedor_Detalles'
+ IndexDefs = <>
+ Left = 328
+ Top = 104
+ end
+ object ds_AlbaranesProveedor_Detalles: TDADataSource
+ DataSet = tbl_AlbaranesProveedor_Detalles.Dataset
+ DataTable = tbl_AlbaranesProveedor_Detalles
+ Left = 328
+ Top = 40
+ end
end
diff --git a/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.pas b/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.pas
index e253109e..3e2474ba 100644
--- a/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.pas
+++ b/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.pas
@@ -8,20 +8,25 @@ uses
uDACDSDataTable, uROWinInetHttpChannel, uDADataTable, uDABINAdapter,
uDAClientDataModule, uROTypes, uIDataModuleAlbaranesProveedorReport, uDataModuleBase,
uIDataModuleAlbaranesProveedor, uBizAlbaranesProveedor, uBizDetallesAlbaranProveedor,
- uDARemoteDataAdapter, uDADataStreamer, uDABin2DataStreamer;
+ uDARemoteDataAdapter, uDADataStreamer, uDABin2DataStreamer, uDAInterfaces,
+ uDAMemDataTable;
type
TDataModuleAlbaranesProveedor = class(TDataModuleBase, IDataModuleAlbaranesProveedor, IDataModuleAlbaranesProveedorReport)
RORemoteService: TRORemoteService;
Bin2DataStreamer: TDABin2DataStreamer;
rda_AlbaranesProveedor: TDARemoteDataAdapter;
+ tbl_AlbaranesProveedor: TDAMemDataTable;
+ ds_AlbaranesProveedor: TDADataSource;
+ tbl_AlbaranesProveedor_Detalles: TDAMemDataTable;
+ ds_AlbaranesProveedor_Detalles: TDADataSource;
procedure DAClientDataModuleCreate(Sender: TObject);
private
function _GetDetalles : IBizDetallesAlbaranProveedor;
protected
- procedure AsignarClaseNegocio(var APedido: TDACDSDataTable); virtual;
+ procedure AsignarClaseNegocio(var APedido: TDAMemDataTable); virtual;
public
function GetItems : IBizAlbaranProveedor; virtual;
@@ -37,12 +42,12 @@ implementation
{$R *.DFM}
uses
- cxControls, FactuGES_Intf, uDAInterfaces, uDataModuleConexion,
+ cxControls, FactuGES_Intf, uDataModuleConexion,
uDataTableUtils, schAlbaranesProveedorClient_Intf, uBizContactos;
{ TdmAlbaranesProveedor }
-procedure TDataModuleAlbaranesProveedor.AsignarClaseNegocio(var APedido: TDACDSDataTable);
+procedure TDataModuleAlbaranesProveedor.AsignarClaseNegocio(var APedido: TDAMemDataTable);
begin
APedido.BusinessRulesID := BIZ_CLIENT_ALBARAN_PROVEEDOR;
end;
diff --git a/Source/Modulos/Albaranes de proveedor/Model/AlbaranesProveedor_model.dpk b/Source/Modulos/Albaranes de proveedor/Model/AlbaranesProveedor_model.dpk
index ca84110b..eef7c303 100644
--- a/Source/Modulos/Albaranes de proveedor/Model/AlbaranesProveedor_model.dpk
+++ b/Source/Modulos/Albaranes de proveedor/Model/AlbaranesProveedor_model.dpk
@@ -22,22 +22,11 @@ package AlbaranesProveedor_model;
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
-{$IMPLICITBUILD OFF}
-{%TogetherDiagram 'ModelSupport_AlbaranesProveedor_model\default.txaPackage'}
+{$IMPLICITBUILD ON}
requires
- DataAbstract_D10,
Base,
- Usuarios,
- Empresas_controller,
- Contactos_model,
- GUIBase,
- rtl,
- dbrtl,
- vcl,
- dsnap,
- vcldb,
- adortl;
+ Contactos_model;
contains
uIDataModuleAlbaranesProveedor in 'Data\uIDataModuleAlbaranesProveedor.pas',
diff --git a/Source/Modulos/Albaranes de proveedor/Model/Data/uIDataModuleAlbaranesProveedor.pas b/Source/Modulos/Albaranes de proveedor/Model/Data/uIDataModuleAlbaranesProveedor.pas
index edc4246f..169b0e0f 100644
--- a/Source/Modulos/Albaranes de proveedor/Model/Data/uIDataModuleAlbaranesProveedor.pas
+++ b/Source/Modulos/Albaranes de proveedor/Model/Data/uIDataModuleAlbaranesProveedor.pas
@@ -10,7 +10,6 @@ type
['{2BAD8B3B-B57D-475C-B528-F82B320B2332}']
function GetItems: IBizAlbaranProveedor;
function GetItem(const ID : Integer) : IBizAlbaranProveedor;
- function GetNextID(const DataSetName : String) : Integer;
function NewItem : IBizAlbaranProveedor;
end;
diff --git a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas
index ef87838a..d7a3411a 100644
--- a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas
+++ b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas
@@ -9,18 +9,14 @@ 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_DarReferencia = '{1632FB46-0CE5-4B1A-9BB4-B5E7CA3318FD}';
- RID_AlbaranesProveedor = '{6F8C2E4B-0DE5-4A06-ACA9-C865CD8C5C56}';
- RID_AlbaranesProveedor_Detalles = '{B9FA2559-01E2-4CC3-B226-EF314BBC528B}';
- RID_AlbaranesProveedor_Detalles_Refresh = '{A3AC16F8-3B09-4B2D-A8B0-876E3171B985}';
- RID_AlbaranesProveedor_Refresh = '{138FB0C8-87C6-4B21-A58B-1034D9DA8B82}';
+ RID_DarReferencia = '{E264DAAA-A65A-4F97-8399-054CD6715754}';
+ RID_AlbaranesProveedor = '{8070DE55-5BC2-4DCA-B26F-B6E77353CD13}';
+ RID_AlbaranesProveedor_Detalles = '{B5916447-B176-439A-8E99-A6CDA1527B86}';
{ Data table names }
nme_DarReferencia = 'DarReferencia';
nme_AlbaranesProveedor = 'AlbaranesProveedor';
nme_AlbaranesProveedor_Detalles = 'AlbaranesProveedor_Detalles';
- nme_AlbaranesProveedor_Detalles_Refresh = 'AlbaranesProveedor_Detalles_Refresh';
- nme_AlbaranesProveedor_Refresh = 'AlbaranesProveedor_Refresh';
{ DarReferencia fields }
fld_DarReferenciaVALOR = 'VALOR';
@@ -109,15 +105,15 @@ const
fld_AlbaranesProveedor_DetallesID_ALBARAN = 'ID_ALBARAN';
fld_AlbaranesProveedor_DetallesPOSICION = 'POSICION';
fld_AlbaranesProveedor_DetallesTIPO_DETALLE = 'TIPO_DETALLE';
- fld_AlbaranesProveedor_DetallesREFERENCIA = 'REFERENCIA';
- fld_AlbaranesProveedor_DetallesID_ARTICULO = 'ID_ARTICULO';
fld_AlbaranesProveedor_DetallesCONCEPTO = 'CONCEPTO';
fld_AlbaranesProveedor_DetallesCANTIDAD = 'CANTIDAD';
fld_AlbaranesProveedor_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD';
fld_AlbaranesProveedor_DetallesIMPORTE_TOTAL = 'IMPORTE_TOTAL';
+ fld_AlbaranesProveedor_DetallesVISIBLE = 'VISIBLE';
+ fld_AlbaranesProveedor_DetallesID_ARTICULO = 'ID_ARTICULO';
fld_AlbaranesProveedor_DetallesDESCUENTO = 'DESCUENTO';
fld_AlbaranesProveedor_DetallesIMPORTE_PORTE = 'IMPORTE_PORTE';
- fld_AlbaranesProveedor_DetallesVISIBLE = 'VISIBLE';
+ fld_AlbaranesProveedor_DetallesREFERENCIA = 'REFERENCIA';
fld_AlbaranesProveedor_DetallesREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR';
{ AlbaranesProveedor_Detalles field indexes }
@@ -125,129 +121,21 @@ const
idx_AlbaranesProveedor_DetallesID_ALBARAN = 1;
idx_AlbaranesProveedor_DetallesPOSICION = 2;
idx_AlbaranesProveedor_DetallesTIPO_DETALLE = 3;
- idx_AlbaranesProveedor_DetallesREFERENCIA = 4;
- idx_AlbaranesProveedor_DetallesID_ARTICULO = 5;
- idx_AlbaranesProveedor_DetallesCONCEPTO = 6;
- idx_AlbaranesProveedor_DetallesCANTIDAD = 7;
- idx_AlbaranesProveedor_DetallesIMPORTE_UNIDAD = 8;
- idx_AlbaranesProveedor_DetallesIMPORTE_TOTAL = 9;
+ idx_AlbaranesProveedor_DetallesCONCEPTO = 4;
+ idx_AlbaranesProveedor_DetallesCANTIDAD = 5;
+ idx_AlbaranesProveedor_DetallesIMPORTE_UNIDAD = 6;
+ idx_AlbaranesProveedor_DetallesIMPORTE_TOTAL = 7;
+ idx_AlbaranesProveedor_DetallesVISIBLE = 8;
+ idx_AlbaranesProveedor_DetallesID_ARTICULO = 9;
idx_AlbaranesProveedor_DetallesDESCUENTO = 10;
idx_AlbaranesProveedor_DetallesIMPORTE_PORTE = 11;
- idx_AlbaranesProveedor_DetallesVISIBLE = 12;
+ idx_AlbaranesProveedor_DetallesREFERENCIA = 12;
idx_AlbaranesProveedor_DetallesREFERENCIA_PROVEEDOR = 13;
- { AlbaranesProveedor_Detalles_Refresh fields }
- fld_AlbaranesProveedor_Detalles_RefreshID = 'ID';
- fld_AlbaranesProveedor_Detalles_RefreshID_ALBARAN = 'ID_ALBARAN';
- fld_AlbaranesProveedor_Detalles_RefreshPOSICION = 'POSICION';
- fld_AlbaranesProveedor_Detalles_RefreshTIPO_DETALLE = 'TIPO_DETALLE';
- fld_AlbaranesProveedor_Detalles_RefreshREFERENCIA = 'REFERENCIA';
- fld_AlbaranesProveedor_Detalles_RefreshID_ARTICULO = 'ID_ARTICULO';
- fld_AlbaranesProveedor_Detalles_RefreshCONCEPTO = 'CONCEPTO';
- fld_AlbaranesProveedor_Detalles_RefreshCANTIDAD = 'CANTIDAD';
- fld_AlbaranesProveedor_Detalles_RefreshIMPORTE_UNIDAD = 'IMPORTE_UNIDAD';
- fld_AlbaranesProveedor_Detalles_RefreshIMPORTE_TOTAL = 'IMPORTE_TOTAL';
- fld_AlbaranesProveedor_Detalles_RefreshDESCUENTO = 'DESCUENTO';
- fld_AlbaranesProveedor_Detalles_RefreshIMPORTE_PORTE = 'IMPORTE_PORTE';
- fld_AlbaranesProveedor_Detalles_RefreshVISIBLE = 'VISIBLE';
- fld_AlbaranesProveedor_Detalles_RefreshREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR';
-
- { AlbaranesProveedor_Detalles_Refresh field indexes }
- idx_AlbaranesProveedor_Detalles_RefreshID = 0;
- idx_AlbaranesProveedor_Detalles_RefreshID_ALBARAN = 1;
- idx_AlbaranesProveedor_Detalles_RefreshPOSICION = 2;
- idx_AlbaranesProveedor_Detalles_RefreshTIPO_DETALLE = 3;
- idx_AlbaranesProveedor_Detalles_RefreshREFERENCIA = 4;
- idx_AlbaranesProveedor_Detalles_RefreshID_ARTICULO = 5;
- idx_AlbaranesProveedor_Detalles_RefreshCONCEPTO = 6;
- idx_AlbaranesProveedor_Detalles_RefreshCANTIDAD = 7;
- idx_AlbaranesProveedor_Detalles_RefreshIMPORTE_UNIDAD = 8;
- idx_AlbaranesProveedor_Detalles_RefreshIMPORTE_TOTAL = 9;
- idx_AlbaranesProveedor_Detalles_RefreshDESCUENTO = 10;
- idx_AlbaranesProveedor_Detalles_RefreshIMPORTE_PORTE = 11;
- idx_AlbaranesProveedor_Detalles_RefreshVISIBLE = 12;
- idx_AlbaranesProveedor_Detalles_RefreshREFERENCIA_PROVEEDOR = 13;
-
- { AlbaranesProveedor_Refresh fields }
- fld_AlbaranesProveedor_RefreshID = 'ID';
- fld_AlbaranesProveedor_RefreshID_EMPRESA = 'ID_EMPRESA';
- fld_AlbaranesProveedor_RefreshID_PROVEEDOR = 'ID_PROVEEDOR';
- fld_AlbaranesProveedor_RefreshNOMBRE = 'NOMBRE';
- fld_AlbaranesProveedor_RefreshFECHA_ALBARAN = 'FECHA_ALBARAN';
- fld_AlbaranesProveedor_RefreshREFERENCIA = 'REFERENCIA';
- fld_AlbaranesProveedor_RefreshREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR';
- fld_AlbaranesProveedor_RefreshTIPO = 'TIPO';
- fld_AlbaranesProveedor_RefreshID_ALMACEN = 'ID_ALMACEN';
- fld_AlbaranesProveedor_RefreshNOMBRE_ALMACEN = 'NOMBRE_ALMACEN';
- fld_AlbaranesProveedor_RefreshID_PEDIDO = 'ID_PEDIDO';
- fld_AlbaranesProveedor_RefreshREF_PED_PROVEEDOR = 'REF_PED_PROVEEDOR';
- fld_AlbaranesProveedor_RefreshID_FACTURA = 'ID_FACTURA';
- fld_AlbaranesProveedor_RefreshREF_FACTURA = 'REF_FACTURA';
- fld_AlbaranesProveedor_RefreshREF_FACTURA_PROV = 'REF_FACTURA_PROV';
- fld_AlbaranesProveedor_RefreshCALLE = 'CALLE';
- fld_AlbaranesProveedor_RefreshCODIGO_POSTAL = 'CODIGO_POSTAL';
- fld_AlbaranesProveedor_RefreshPOBLACION = 'POBLACION';
- fld_AlbaranesProveedor_RefreshPROVINCIA = 'PROVINCIA';
- fld_AlbaranesProveedor_RefreshPERSONA_CONTACTO = 'PERSONA_CONTACTO';
- fld_AlbaranesProveedor_RefreshTELEFONO = 'TELEFONO';
- fld_AlbaranesProveedor_RefreshIMPORTE_NETO = 'IMPORTE_NETO';
- fld_AlbaranesProveedor_RefreshIMPORTE_PORTE = 'IMPORTE_PORTE';
- fld_AlbaranesProveedor_RefreshDESCUENTO = 'DESCUENTO';
- fld_AlbaranesProveedor_RefreshIMPORTE_DESCUENTO = 'IMPORTE_DESCUENTO';
- fld_AlbaranesProveedor_RefreshBASE_IMPONIBLE = 'BASE_IMPONIBLE';
- fld_AlbaranesProveedor_RefreshIVA = 'IVA';
- fld_AlbaranesProveedor_RefreshIMPORTE_IVA = 'IMPORTE_IVA';
- fld_AlbaranesProveedor_RefreshIMPORTE_TOTAL = 'IMPORTE_TOTAL';
- fld_AlbaranesProveedor_RefreshOBSERVACIONES = 'OBSERVACIONES';
- fld_AlbaranesProveedor_RefreshINCIDENCIAS = 'INCIDENCIAS';
- fld_AlbaranesProveedor_RefreshINCIDENCIAS_ACTIVAS = 'INCIDENCIAS_ACTIVAS';
- fld_AlbaranesProveedor_RefreshFECHA_ALTA = 'FECHA_ALTA';
- fld_AlbaranesProveedor_RefreshFECHA_MODIFICACION = 'FECHA_MODIFICACION';
- fld_AlbaranesProveedor_RefreshUSUARIO = 'USUARIO';
- fld_AlbaranesProveedor_RefreshID_FORMA_PAGO = 'ID_FORMA_PAGO';
-
- { AlbaranesProveedor_Refresh field indexes }
- idx_AlbaranesProveedor_RefreshID = 0;
- idx_AlbaranesProveedor_RefreshID_EMPRESA = 1;
- idx_AlbaranesProveedor_RefreshID_PROVEEDOR = 2;
- idx_AlbaranesProveedor_RefreshNOMBRE = 3;
- idx_AlbaranesProveedor_RefreshFECHA_ALBARAN = 4;
- idx_AlbaranesProveedor_RefreshREFERENCIA = 5;
- idx_AlbaranesProveedor_RefreshREFERENCIA_PROVEEDOR = 6;
- idx_AlbaranesProveedor_RefreshTIPO = 7;
- idx_AlbaranesProveedor_RefreshID_ALMACEN = 8;
- idx_AlbaranesProveedor_RefreshNOMBRE_ALMACEN = 9;
- idx_AlbaranesProveedor_RefreshID_PEDIDO = 10;
- idx_AlbaranesProveedor_RefreshREF_PED_PROVEEDOR = 11;
- idx_AlbaranesProveedor_RefreshID_FACTURA = 12;
- idx_AlbaranesProveedor_RefreshREF_FACTURA = 13;
- idx_AlbaranesProveedor_RefreshREF_FACTURA_PROV = 14;
- idx_AlbaranesProveedor_RefreshCALLE = 15;
- idx_AlbaranesProveedor_RefreshCODIGO_POSTAL = 16;
- idx_AlbaranesProveedor_RefreshPOBLACION = 17;
- idx_AlbaranesProveedor_RefreshPROVINCIA = 18;
- idx_AlbaranesProveedor_RefreshPERSONA_CONTACTO = 19;
- idx_AlbaranesProveedor_RefreshTELEFONO = 20;
- idx_AlbaranesProveedor_RefreshIMPORTE_NETO = 21;
- idx_AlbaranesProveedor_RefreshIMPORTE_PORTE = 22;
- idx_AlbaranesProveedor_RefreshDESCUENTO = 23;
- idx_AlbaranesProveedor_RefreshIMPORTE_DESCUENTO = 24;
- idx_AlbaranesProveedor_RefreshBASE_IMPONIBLE = 25;
- idx_AlbaranesProveedor_RefreshIVA = 26;
- idx_AlbaranesProveedor_RefreshIMPORTE_IVA = 27;
- idx_AlbaranesProveedor_RefreshIMPORTE_TOTAL = 28;
- idx_AlbaranesProveedor_RefreshOBSERVACIONES = 29;
- idx_AlbaranesProveedor_RefreshINCIDENCIAS = 30;
- idx_AlbaranesProveedor_RefreshINCIDENCIAS_ACTIVAS = 31;
- idx_AlbaranesProveedor_RefreshFECHA_ALTA = 32;
- idx_AlbaranesProveedor_RefreshFECHA_MODIFICACION = 33;
- idx_AlbaranesProveedor_RefreshUSUARIO = 34;
- idx_AlbaranesProveedor_RefreshID_FORMA_PAGO = 35;
-
type
{ IDarReferencia }
IDarReferencia = interface(IDAStronglyTypedDataTable)
- ['{0DB97F48-C116-42F3-8FDE-9E40C7D9738F}']
+ ['{87BCEB3E-3FAF-44FF-A992-70B549FF79CE}']
{ Property getters and setters }
function GetVALORValue: String;
procedure SetVALORValue(const aValue: String);
@@ -282,7 +170,7 @@ type
{ IAlbaranesProveedor }
IAlbaranesProveedor = interface(IDAStronglyTypedDataTable)
- ['{9DF2A567-3ECE-447B-807B-BB4E55A529AA}']
+ ['{91E3DC89-DDB4-4727-88A3-1931B49B7F08}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -737,7 +625,7 @@ type
{ IAlbaranesProveedor_Detalles }
IAlbaranesProveedor_Detalles = interface(IDAStronglyTypedDataTable)
- ['{FC935DC1-A5A1-46FA-8466-3D84D9A0807E}']
+ ['{A644C742-27E7-449C-9A6B-ED24143E13CD}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -755,14 +643,6 @@ type
procedure SetTIPO_DETALLEValue(const aValue: String);
function GetTIPO_DETALLEIsNull: Boolean;
procedure SetTIPO_DETALLEIsNull(const aValue: Boolean);
- function GetREFERENCIAValue: String;
- procedure SetREFERENCIAValue(const aValue: String);
- function GetREFERENCIAIsNull: Boolean;
- procedure SetREFERENCIAIsNull(const aValue: Boolean);
- function GetID_ARTICULOValue: Integer;
- procedure SetID_ARTICULOValue(const aValue: Integer);
- function GetID_ARTICULOIsNull: Boolean;
- procedure SetID_ARTICULOIsNull(const aValue: Boolean);
function GetCONCEPTOValue: String;
procedure SetCONCEPTOValue(const aValue: String);
function GetCONCEPTOIsNull: Boolean;
@@ -779,6 +659,14 @@ type
procedure SetIMPORTE_TOTALValue(const aValue: Currency);
function GetIMPORTE_TOTALIsNull: Boolean;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean);
+ function GetVISIBLEValue: Integer;
+ procedure SetVISIBLEValue(const aValue: Integer);
+ function GetVISIBLEIsNull: Boolean;
+ procedure SetVISIBLEIsNull(const aValue: Boolean);
+ function GetID_ARTICULOValue: Integer;
+ procedure SetID_ARTICULOValue(const aValue: Integer);
+ function GetID_ARTICULOIsNull: Boolean;
+ procedure SetID_ARTICULOIsNull(const aValue: Boolean);
function GetDESCUENTOValue: Float;
procedure SetDESCUENTOValue(const aValue: Float);
function GetDESCUENTOIsNull: Boolean;
@@ -787,10 +675,10 @@ type
procedure SetIMPORTE_PORTEValue(const aValue: Currency);
function GetIMPORTE_PORTEIsNull: Boolean;
procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean);
- function GetVISIBLEValue: Integer;
- procedure SetVISIBLEValue(const aValue: Integer);
- function GetVISIBLEIsNull: Boolean;
- procedure SetVISIBLEIsNull(const aValue: Boolean);
+ function GetREFERENCIAValue: String;
+ procedure SetREFERENCIAValue(const aValue: String);
+ function GetREFERENCIAIsNull: Boolean;
+ procedure SetREFERENCIAIsNull(const aValue: Boolean);
function GetREFERENCIA_PROVEEDORValue: String;
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String);
function GetREFERENCIA_PROVEEDORIsNull: Boolean;
@@ -806,10 +694,6 @@ type
property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull;
property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue;
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
- property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
- property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
- property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
- property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
@@ -818,12 +702,16 @@ type
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
+ property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
+ property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
+ property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
+ property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
- property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
- property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
+ property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
+ property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
end;
@@ -849,14 +737,6 @@ type
procedure SetTIPO_DETALLEValue(const aValue: String); virtual;
function GetTIPO_DETALLEIsNull: Boolean; virtual;
procedure SetTIPO_DETALLEIsNull(const aValue: Boolean); virtual;
- function GetREFERENCIAValue: String; virtual;
- procedure SetREFERENCIAValue(const aValue: String); virtual;
- function GetREFERENCIAIsNull: Boolean; virtual;
- procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
- function GetID_ARTICULOValue: Integer; virtual;
- procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
- function GetID_ARTICULOIsNull: Boolean; virtual;
- procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual;
function GetCONCEPTOValue: String; virtual;
procedure SetCONCEPTOValue(const aValue: String); virtual;
function GetCONCEPTOIsNull: Boolean; virtual;
@@ -873,209 +753,26 @@ type
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
function GetIMPORTE_TOTALIsNull: Boolean; virtual;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
- function GetDESCUENTOValue: Float; virtual;
- procedure SetDESCUENTOValue(const aValue: Float); virtual;
- function GetDESCUENTOIsNull: Boolean; virtual;
- procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
- function GetIMPORTE_PORTEValue: Currency; virtual;
- procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
- function GetIMPORTE_PORTEIsNull: Boolean; virtual;
- procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
function GetVISIBLEValue: Integer; virtual;
procedure SetVISIBLEValue(const aValue: Integer); virtual;
function GetVISIBLEIsNull: Boolean; virtual;
procedure SetVISIBLEIsNull(const aValue: Boolean); virtual;
- function GetREFERENCIA_PROVEEDORValue: String; virtual;
- procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
- function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual;
- procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual;
-
- { Properties }
- property ID: Integer read GetIDValue write SetIDValue;
- property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
- property ID_ALBARAN: Integer read GetID_ALBARANValue write SetID_ALBARANValue;
- property ID_ALBARANIsNull: Boolean read GetID_ALBARANIsNull write SetID_ALBARANIsNull;
- property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue;
- property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull;
- property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue;
- property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
- property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
- property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
- property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
- property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
- property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
- property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
- property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
- property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
- property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
- property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
- property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
- property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
- property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
- property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
- property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
- property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
- property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
- property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
- property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
- property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
-
- public
- constructor Create(aDataTable: TDADataTable); override;
- destructor Destroy; override;
-
- end;
-
- { IAlbaranesProveedor_Detalles_Refresh }
- IAlbaranesProveedor_Detalles_Refresh = interface(IDAStronglyTypedDataTable)
- ['{87A83B42-82D9-4AD1-B18C-ECF6A6278054}']
- { Property getters and setters }
- function GetIDValue: Integer;
- procedure SetIDValue(const aValue: Integer);
- function GetIDIsNull: Boolean;
- procedure SetIDIsNull(const aValue: Boolean);
- function GetID_ALBARANValue: Integer;
- procedure SetID_ALBARANValue(const aValue: Integer);
- function GetID_ALBARANIsNull: Boolean;
- procedure SetID_ALBARANIsNull(const aValue: Boolean);
- function GetPOSICIONValue: Integer;
- procedure SetPOSICIONValue(const aValue: Integer);
- function GetPOSICIONIsNull: Boolean;
- procedure SetPOSICIONIsNull(const aValue: Boolean);
- function GetTIPO_DETALLEValue: String;
- procedure SetTIPO_DETALLEValue(const aValue: String);
- function GetTIPO_DETALLEIsNull: Boolean;
- procedure SetTIPO_DETALLEIsNull(const aValue: Boolean);
- function GetREFERENCIAValue: String;
- procedure SetREFERENCIAValue(const aValue: String);
- function GetREFERENCIAIsNull: Boolean;
- procedure SetREFERENCIAIsNull(const aValue: Boolean);
- function GetID_ARTICULOValue: Integer;
- procedure SetID_ARTICULOValue(const aValue: Integer);
- function GetID_ARTICULOIsNull: Boolean;
- procedure SetID_ARTICULOIsNull(const aValue: Boolean);
- function GetCONCEPTOValue: String;
- procedure SetCONCEPTOValue(const aValue: String);
- function GetCONCEPTOIsNull: Boolean;
- procedure SetCONCEPTOIsNull(const aValue: Boolean);
- function GetCANTIDADValue: Integer;
- procedure SetCANTIDADValue(const aValue: Integer);
- function GetCANTIDADIsNull: Boolean;
- procedure SetCANTIDADIsNull(const aValue: Boolean);
- function GetIMPORTE_UNIDADValue: Currency;
- procedure SetIMPORTE_UNIDADValue(const aValue: Currency);
- function GetIMPORTE_UNIDADIsNull: Boolean;
- procedure SetIMPORTE_UNIDADIsNull(const aValue: Boolean);
- function GetIMPORTE_TOTALValue: Currency;
- procedure SetIMPORTE_TOTALValue(const aValue: Currency);
- function GetIMPORTE_TOTALIsNull: Boolean;
- procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean);
- function GetDESCUENTOValue: Float;
- procedure SetDESCUENTOValue(const aValue: Float);
- function GetDESCUENTOIsNull: Boolean;
- procedure SetDESCUENTOIsNull(const aValue: Boolean);
- function GetIMPORTE_PORTEValue: Float;
- procedure SetIMPORTE_PORTEValue(const aValue: Float);
- function GetIMPORTE_PORTEIsNull: Boolean;
- procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean);
- function GetVISIBLEValue: Integer;
- procedure SetVISIBLEValue(const aValue: Integer);
- function GetVISIBLEIsNull: Boolean;
- procedure SetVISIBLEIsNull(const aValue: Boolean);
- function GetREFERENCIA_PROVEEDORValue: String;
- procedure SetREFERENCIA_PROVEEDORValue(const aValue: String);
- function GetREFERENCIA_PROVEEDORIsNull: Boolean;
- procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean);
-
-
- { Properties }
- property ID: Integer read GetIDValue write SetIDValue;
- property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
- property ID_ALBARAN: Integer read GetID_ALBARANValue write SetID_ALBARANValue;
- property ID_ALBARANIsNull: Boolean read GetID_ALBARANIsNull write SetID_ALBARANIsNull;
- property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue;
- property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull;
- property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue;
- property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
- property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
- property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
- property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
- property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
- property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
- property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
- property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
- property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
- property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
- property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
- property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
- property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
- property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
- property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
- property IMPORTE_PORTE: Float read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
- property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
- property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
- property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
- property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
- property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
- end;
-
- { TAlbaranesProveedor_Detalles_RefreshDataTableRules }
- TAlbaranesProveedor_Detalles_RefreshDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesProveedor_Detalles_Refresh)
- 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_ALBARANValue: Integer; virtual;
- procedure SetID_ALBARANValue(const aValue: Integer); virtual;
- function GetID_ALBARANIsNull: Boolean; virtual;
- procedure SetID_ALBARANIsNull(const aValue: Boolean); virtual;
- function GetPOSICIONValue: Integer; virtual;
- procedure SetPOSICIONValue(const aValue: Integer); virtual;
- function GetPOSICIONIsNull: Boolean; virtual;
- procedure SetPOSICIONIsNull(const aValue: Boolean); virtual;
- function GetTIPO_DETALLEValue: String; virtual;
- procedure SetTIPO_DETALLEValue(const aValue: String); virtual;
- function GetTIPO_DETALLEIsNull: Boolean; virtual;
- procedure SetTIPO_DETALLEIsNull(const aValue: Boolean); virtual;
- function GetREFERENCIAValue: String; virtual;
- procedure SetREFERENCIAValue(const aValue: String); virtual;
- function GetREFERENCIAIsNull: Boolean; virtual;
- procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetID_ARTICULOValue: Integer; virtual;
procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
function GetID_ARTICULOIsNull: Boolean; virtual;
procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual;
- function GetCONCEPTOValue: String; virtual;
- procedure SetCONCEPTOValue(const aValue: String); virtual;
- function GetCONCEPTOIsNull: Boolean; virtual;
- procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
- function GetCANTIDADValue: Integer; virtual;
- procedure SetCANTIDADValue(const aValue: Integer); virtual;
- function GetCANTIDADIsNull: Boolean; virtual;
- procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
- function GetIMPORTE_UNIDADValue: Currency; virtual;
- procedure SetIMPORTE_UNIDADValue(const aValue: Currency); virtual;
- function GetIMPORTE_UNIDADIsNull: Boolean; virtual;
- procedure SetIMPORTE_UNIDADIsNull(const aValue: Boolean); virtual;
- function GetIMPORTE_TOTALValue: Currency; virtual;
- procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
- function GetIMPORTE_TOTALIsNull: Boolean; virtual;
- procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
function GetDESCUENTOValue: Float; virtual;
procedure SetDESCUENTOValue(const aValue: Float); virtual;
function GetDESCUENTOIsNull: Boolean; virtual;
procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
- function GetIMPORTE_PORTEValue: Float; virtual;
- procedure SetIMPORTE_PORTEValue(const aValue: Float); virtual;
+ function GetIMPORTE_PORTEValue: Currency; virtual;
+ procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
function GetIMPORTE_PORTEIsNull: Boolean; virtual;
procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
- function GetVISIBLEValue: Integer; virtual;
- procedure SetVISIBLEValue(const aValue: Integer); virtual;
- function GetVISIBLEIsNull: Boolean; virtual;
- procedure SetVISIBLEIsNull(const aValue: Boolean); virtual;
+ function GetREFERENCIAValue: String; virtual;
+ procedure SetREFERENCIAValue(const aValue: String); virtual;
+ function GetREFERENCIAIsNull: Boolean; virtual;
+ procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_PROVEEDORValue: String; virtual;
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual;
@@ -1090,10 +787,6 @@ type
property POSICIONIsNull: Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull;
property TIPO_DETALLE: String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue;
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
- property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
- property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
- property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
- property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue;
@@ -1102,469 +795,18 @@ type
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
- property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
- property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
- property IMPORTE_PORTE: Float read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
- property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
- property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
- property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
-
- public
- constructor Create(aDataTable: TDADataTable); override;
- destructor Destroy; override;
-
- end;
-
- { IAlbaranesProveedor_Refresh }
- IAlbaranesProveedor_Refresh = interface(IDAStronglyTypedDataTable)
- ['{8594A282-C2E3-4A67-BA10-19EDF8EB2540}']
- { Property getters and setters }
- function GetIDValue: Integer;
- procedure SetIDValue(const aValue: Integer);
- function GetIDIsNull: Boolean;
- procedure SetIDIsNull(const aValue: Boolean);
- function GetID_EMPRESAValue: Integer;
- procedure SetID_EMPRESAValue(const aValue: Integer);
- function GetID_EMPRESAIsNull: Boolean;
- procedure SetID_EMPRESAIsNull(const aValue: Boolean);
- function GetID_PROVEEDORValue: Integer;
- procedure SetID_PROVEEDORValue(const aValue: Integer);
- function GetID_PROVEEDORIsNull: Boolean;
- procedure SetID_PROVEEDORIsNull(const aValue: Boolean);
- function GetNOMBREValue: String;
- procedure SetNOMBREValue(const aValue: String);
- function GetNOMBREIsNull: Boolean;
- procedure SetNOMBREIsNull(const aValue: Boolean);
- function GetFECHA_ALBARANValue: DateTime;
- procedure SetFECHA_ALBARANValue(const aValue: DateTime);
- function GetFECHA_ALBARANIsNull: Boolean;
- procedure SetFECHA_ALBARANIsNull(const aValue: Boolean);
- function GetREFERENCIAValue: String;
- procedure SetREFERENCIAValue(const aValue: String);
- function GetREFERENCIAIsNull: Boolean;
- procedure SetREFERENCIAIsNull(const aValue: Boolean);
- function GetREFERENCIA_PROVEEDORValue: String;
- procedure SetREFERENCIA_PROVEEDORValue(const aValue: String);
- function GetREFERENCIA_PROVEEDORIsNull: Boolean;
- procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean);
- function GetTIPOValue: String;
- procedure SetTIPOValue(const aValue: String);
- function GetTIPOIsNull: Boolean;
- procedure SetTIPOIsNull(const aValue: Boolean);
- function GetID_ALMACENValue: Integer;
- procedure SetID_ALMACENValue(const aValue: Integer);
- function GetID_ALMACENIsNull: Boolean;
- procedure SetID_ALMACENIsNull(const aValue: Boolean);
- function GetNOMBRE_ALMACENValue: String;
- procedure SetNOMBRE_ALMACENValue(const aValue: String);
- function GetNOMBRE_ALMACENIsNull: Boolean;
- procedure SetNOMBRE_ALMACENIsNull(const aValue: Boolean);
- function GetID_PEDIDOValue: Integer;
- procedure SetID_PEDIDOValue(const aValue: Integer);
- function GetID_PEDIDOIsNull: Boolean;
- procedure SetID_PEDIDOIsNull(const aValue: Boolean);
- function GetREF_PED_PROVEEDORValue: String;
- procedure SetREF_PED_PROVEEDORValue(const aValue: String);
- function GetREF_PED_PROVEEDORIsNull: Boolean;
- procedure SetREF_PED_PROVEEDORIsNull(const aValue: Boolean);
- function GetID_FACTURAValue: Integer;
- procedure SetID_FACTURAValue(const aValue: Integer);
- function GetID_FACTURAIsNull: Boolean;
- procedure SetID_FACTURAIsNull(const aValue: Boolean);
- function GetREF_FACTURAValue: String;
- procedure SetREF_FACTURAValue(const aValue: String);
- function GetREF_FACTURAIsNull: Boolean;
- procedure SetREF_FACTURAIsNull(const aValue: Boolean);
- function GetREF_FACTURA_PROVValue: String;
- procedure SetREF_FACTURA_PROVValue(const aValue: String);
- function GetREF_FACTURA_PROVIsNull: Boolean;
- procedure SetREF_FACTURA_PROVIsNull(const aValue: Boolean);
- function GetCALLEValue: String;
- procedure SetCALLEValue(const aValue: String);
- function GetCALLEIsNull: Boolean;
- procedure SetCALLEIsNull(const aValue: Boolean);
- function GetCODIGO_POSTALValue: String;
- procedure SetCODIGO_POSTALValue(const aValue: String);
- function GetCODIGO_POSTALIsNull: Boolean;
- procedure SetCODIGO_POSTALIsNull(const aValue: Boolean);
- function GetPOBLACIONValue: String;
- procedure SetPOBLACIONValue(const aValue: String);
- function GetPOBLACIONIsNull: Boolean;
- procedure SetPOBLACIONIsNull(const aValue: Boolean);
- function GetPROVINCIAValue: String;
- procedure SetPROVINCIAValue(const aValue: String);
- function GetPROVINCIAIsNull: Boolean;
- procedure SetPROVINCIAIsNull(const aValue: Boolean);
- function GetPERSONA_CONTACTOValue: String;
- procedure SetPERSONA_CONTACTOValue(const aValue: String);
- function GetPERSONA_CONTACTOIsNull: Boolean;
- procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
- function GetTELEFONOValue: String;
- procedure SetTELEFONOValue(const aValue: String);
- function GetTELEFONOIsNull: Boolean;
- procedure SetTELEFONOIsNull(const aValue: Boolean);
- function GetIMPORTE_NETOValue: Currency;
- procedure SetIMPORTE_NETOValue(const aValue: Currency);
- function GetIMPORTE_NETOIsNull: Boolean;
- procedure SetIMPORTE_NETOIsNull(const aValue: Boolean);
- function GetIMPORTE_PORTEValue: Currency;
- procedure SetIMPORTE_PORTEValue(const aValue: Currency);
- function GetIMPORTE_PORTEIsNull: Boolean;
- procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean);
- function GetDESCUENTOValue: Float;
- procedure SetDESCUENTOValue(const aValue: Float);
- function GetDESCUENTOIsNull: Boolean;
- procedure SetDESCUENTOIsNull(const aValue: Boolean);
- function GetIMPORTE_DESCUENTOValue: Currency;
- procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency);
- function GetIMPORTE_DESCUENTOIsNull: Boolean;
- procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean);
- function GetBASE_IMPONIBLEValue: Currency;
- procedure SetBASE_IMPONIBLEValue(const aValue: Currency);
- function GetBASE_IMPONIBLEIsNull: Boolean;
- procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean);
- function GetIVAValue: Float;
- procedure SetIVAValue(const aValue: Float);
- function GetIVAIsNull: Boolean;
- procedure SetIVAIsNull(const aValue: Boolean);
- function GetIMPORTE_IVAValue: Currency;
- procedure SetIMPORTE_IVAValue(const aValue: Currency);
- function GetIMPORTE_IVAIsNull: Boolean;
- procedure SetIMPORTE_IVAIsNull(const aValue: Boolean);
- function GetIMPORTE_TOTALValue: Currency;
- procedure SetIMPORTE_TOTALValue(const aValue: Currency);
- function GetIMPORTE_TOTALIsNull: Boolean;
- procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean);
- function GetOBSERVACIONESValue: IROStrings;
- function GetOBSERVACIONESIsNull: Boolean;
- procedure SetOBSERVACIONESIsNull(const aValue: Boolean);
- function GetINCIDENCIASValue: IROStrings;
- function GetINCIDENCIASIsNull: Boolean;
- procedure SetINCIDENCIASIsNull(const aValue: Boolean);
- function GetINCIDENCIAS_ACTIVASValue: Integer;
- procedure SetINCIDENCIAS_ACTIVASValue(const aValue: Integer);
- function GetINCIDENCIAS_ACTIVASIsNull: Boolean;
- procedure SetINCIDENCIAS_ACTIVASIsNull(const aValue: Boolean);
- function GetFECHA_ALTAValue: DateTime;
- procedure SetFECHA_ALTAValue(const aValue: DateTime);
- function GetFECHA_ALTAIsNull: Boolean;
- procedure SetFECHA_ALTAIsNull(const aValue: Boolean);
- function GetFECHA_MODIFICACIONValue: DateTime;
- procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
- function GetFECHA_MODIFICACIONIsNull: Boolean;
- procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
- function GetUSUARIOValue: String;
- procedure SetUSUARIOValue(const aValue: String);
- function GetUSUARIOIsNull: Boolean;
- procedure SetUSUARIOIsNull(const aValue: Boolean);
- function GetID_FORMA_PAGOValue: Integer;
- procedure SetID_FORMA_PAGOValue(const aValue: Integer);
- function GetID_FORMA_PAGOIsNull: Boolean;
- procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean);
-
-
- { Properties }
- property ID: Integer read GetIDValue write SetIDValue;
- property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
- property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
- property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
- property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
- property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
- property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
- property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
- property FECHA_ALBARAN: DateTime read GetFECHA_ALBARANValue write SetFECHA_ALBARANValue;
- property FECHA_ALBARANIsNull: Boolean read GetFECHA_ALBARANIsNull write SetFECHA_ALBARANIsNull;
+ property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
+ property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
+ property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
+ property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
+ property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
+ property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
- property TIPO: String read GetTIPOValue write SetTIPOValue;
- property TIPOIsNull: Boolean read GetTIPOIsNull write SetTIPOIsNull;
- property ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue;
- property ID_ALMACENIsNull: Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull;
- property NOMBRE_ALMACEN: String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue;
- property NOMBRE_ALMACENIsNull: Boolean read GetNOMBRE_ALMACENIsNull write SetNOMBRE_ALMACENIsNull;
- property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
- property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
- property REF_PED_PROVEEDOR: String read GetREF_PED_PROVEEDORValue write SetREF_PED_PROVEEDORValue;
- property REF_PED_PROVEEDORIsNull: Boolean read GetREF_PED_PROVEEDORIsNull write SetREF_PED_PROVEEDORIsNull;
- property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
- property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
- property REF_FACTURA: String read GetREF_FACTURAValue write SetREF_FACTURAValue;
- property REF_FACTURAIsNull: Boolean read GetREF_FACTURAIsNull write SetREF_FACTURAIsNull;
- property REF_FACTURA_PROV: String read GetREF_FACTURA_PROVValue write SetREF_FACTURA_PROVValue;
- property REF_FACTURA_PROVIsNull: Boolean read GetREF_FACTURA_PROVIsNull write SetREF_FACTURA_PROVIsNull;
- property CALLE: String read GetCALLEValue write SetCALLEValue;
- property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
- property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
- property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
- property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
- property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
- property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
- property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
- property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
- property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
- property TELEFONO: String read GetTELEFONOValue write SetTELEFONOValue;
- property TELEFONOIsNull: Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull;
- property IMPORTE_NETO: Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue;
- property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull;
- property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
- property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
- property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
- property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
- property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
- property IMPORTE_DESCUENTOIsNull: Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull;
- property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
- property BASE_IMPONIBLEIsNull: Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull;
- property IVA: Float read GetIVAValue write SetIVAValue;
- property IVAIsNull: Boolean read GetIVAIsNull write SetIVAIsNull;
- property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
- property IMPORTE_IVAIsNull: Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull;
- property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
- property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
- property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue;
- property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
- property INCIDENCIAS: IROStrings read GetINCIDENCIASValue;
- property INCIDENCIASIsNull: Boolean read GetINCIDENCIASIsNull write SetINCIDENCIASIsNull;
- property INCIDENCIAS_ACTIVAS: Integer read GetINCIDENCIAS_ACTIVASValue write SetINCIDENCIAS_ACTIVASValue;
- property INCIDENCIAS_ACTIVASIsNull: Boolean read GetINCIDENCIAS_ACTIVASIsNull write SetINCIDENCIAS_ACTIVASIsNull;
- property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
- property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
- property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
- property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
- property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
- property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
- property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
- property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
- end;
-
- { TAlbaranesProveedor_RefreshDataTableRules }
- TAlbaranesProveedor_RefreshDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesProveedor_Refresh)
- private
- f_OBSERVACIONES: IROStrings;
- f_INCIDENCIAS: IROStrings;
- procedure OBSERVACIONES_OnChange(Sender: TObject);
- procedure INCIDENCIAS_OnChange(Sender: TObject);
- protected
- { Property getters and setters }
- function GetIDValue: Integer; virtual;
- procedure SetIDValue(const aValue: Integer); virtual;
- function GetIDIsNull: Boolean; virtual;
- procedure SetIDIsNull(const aValue: Boolean); virtual;
- function GetID_EMPRESAValue: Integer; virtual;
- procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
- function GetID_EMPRESAIsNull: Boolean; virtual;
- procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
- function GetID_PROVEEDORValue: Integer; virtual;
- procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
- function GetID_PROVEEDORIsNull: Boolean; virtual;
- procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual;
- function GetNOMBREValue: String; virtual;
- procedure SetNOMBREValue(const aValue: String); virtual;
- function GetNOMBREIsNull: Boolean; virtual;
- procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
- function GetFECHA_ALBARANValue: DateTime; virtual;
- procedure SetFECHA_ALBARANValue(const aValue: DateTime); virtual;
- function GetFECHA_ALBARANIsNull: Boolean; virtual;
- procedure SetFECHA_ALBARANIsNull(const aValue: Boolean); virtual;
- function GetREFERENCIAValue: String; virtual;
- procedure SetREFERENCIAValue(const aValue: String); virtual;
- function GetREFERENCIAIsNull: Boolean; virtual;
- procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
- function GetREFERENCIA_PROVEEDORValue: String; virtual;
- procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
- function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual;
- procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual;
- function GetTIPOValue: String; virtual;
- procedure SetTIPOValue(const aValue: String); virtual;
- function GetTIPOIsNull: Boolean; virtual;
- procedure SetTIPOIsNull(const aValue: Boolean); virtual;
- function GetID_ALMACENValue: Integer; virtual;
- procedure SetID_ALMACENValue(const aValue: Integer); virtual;
- function GetID_ALMACENIsNull: Boolean; virtual;
- procedure SetID_ALMACENIsNull(const aValue: Boolean); virtual;
- function GetNOMBRE_ALMACENValue: String; virtual;
- procedure SetNOMBRE_ALMACENValue(const aValue: String); virtual;
- function GetNOMBRE_ALMACENIsNull: Boolean; virtual;
- procedure SetNOMBRE_ALMACENIsNull(const aValue: Boolean); virtual;
- function GetID_PEDIDOValue: Integer; virtual;
- procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
- function GetID_PEDIDOIsNull: Boolean; virtual;
- procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual;
- function GetREF_PED_PROVEEDORValue: String; virtual;
- procedure SetREF_PED_PROVEEDORValue(const aValue: String); virtual;
- function GetREF_PED_PROVEEDORIsNull: Boolean; virtual;
- procedure SetREF_PED_PROVEEDORIsNull(const aValue: Boolean); virtual;
- function GetID_FACTURAValue: Integer; virtual;
- procedure SetID_FACTURAValue(const aValue: Integer); virtual;
- function GetID_FACTURAIsNull: Boolean; virtual;
- procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual;
- function GetREF_FACTURAValue: String; virtual;
- procedure SetREF_FACTURAValue(const aValue: String); virtual;
- function GetREF_FACTURAIsNull: Boolean; virtual;
- procedure SetREF_FACTURAIsNull(const aValue: Boolean); virtual;
- function GetREF_FACTURA_PROVValue: String; virtual;
- procedure SetREF_FACTURA_PROVValue(const aValue: String); virtual;
- function GetREF_FACTURA_PROVIsNull: Boolean; virtual;
- procedure SetREF_FACTURA_PROVIsNull(const aValue: Boolean); virtual;
- function GetCALLEValue: String; virtual;
- procedure SetCALLEValue(const aValue: String); virtual;
- function GetCALLEIsNull: Boolean; virtual;
- procedure SetCALLEIsNull(const aValue: Boolean); virtual;
- function GetCODIGO_POSTALValue: String; virtual;
- procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
- function GetCODIGO_POSTALIsNull: Boolean; virtual;
- procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
- function GetPOBLACIONValue: String; virtual;
- procedure SetPOBLACIONValue(const aValue: String); virtual;
- function GetPOBLACIONIsNull: Boolean; virtual;
- procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual;
- function GetPROVINCIAValue: String; virtual;
- procedure SetPROVINCIAValue(const aValue: String); virtual;
- function GetPROVINCIAIsNull: Boolean; virtual;
- procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual;
- function GetPERSONA_CONTACTOValue: String; virtual;
- procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
- function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
- procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual;
- function GetTELEFONOValue: String; virtual;
- procedure SetTELEFONOValue(const aValue: String); virtual;
- function GetTELEFONOIsNull: Boolean; virtual;
- procedure SetTELEFONOIsNull(const aValue: Boolean); virtual;
- function GetIMPORTE_NETOValue: Currency; virtual;
- procedure SetIMPORTE_NETOValue(const aValue: Currency); virtual;
- function GetIMPORTE_NETOIsNull: Boolean; virtual;
- procedure SetIMPORTE_NETOIsNull(const aValue: Boolean); virtual;
- function GetIMPORTE_PORTEValue: Currency; virtual;
- procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
- function GetIMPORTE_PORTEIsNull: Boolean; virtual;
- procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
- function GetDESCUENTOValue: Float; virtual;
- procedure SetDESCUENTOValue(const aValue: Float); virtual;
- function GetDESCUENTOIsNull: Boolean; virtual;
- procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
- function GetIMPORTE_DESCUENTOValue: Currency; virtual;
- procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual;
- function GetIMPORTE_DESCUENTOIsNull: Boolean; virtual;
- procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); virtual;
- function GetBASE_IMPONIBLEValue: Currency; virtual;
- procedure SetBASE_IMPONIBLEValue(const aValue: Currency); virtual;
- function GetBASE_IMPONIBLEIsNull: Boolean; virtual;
- procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean); virtual;
- function GetIVAValue: Float; virtual;
- procedure SetIVAValue(const aValue: Float); virtual;
- function GetIVAIsNull: Boolean; virtual;
- procedure SetIVAIsNull(const aValue: Boolean); virtual;
- function GetIMPORTE_IVAValue: Currency; virtual;
- procedure SetIMPORTE_IVAValue(const aValue: Currency); virtual;
- function GetIMPORTE_IVAIsNull: Boolean; virtual;
- procedure SetIMPORTE_IVAIsNull(const aValue: Boolean); virtual;
- function GetIMPORTE_TOTALValue: Currency; virtual;
- procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
- function GetIMPORTE_TOTALIsNull: Boolean; virtual;
- procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
- function GetOBSERVACIONESValue: IROStrings; virtual;
- function GetOBSERVACIONESIsNull: Boolean; virtual;
- procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual;
- function GetINCIDENCIASValue: IROStrings; virtual;
- function GetINCIDENCIASIsNull: Boolean; virtual;
- procedure SetINCIDENCIASIsNull(const aValue: Boolean); virtual;
- function GetINCIDENCIAS_ACTIVASValue: Integer; virtual;
- procedure SetINCIDENCIAS_ACTIVASValue(const aValue: Integer); virtual;
- function GetINCIDENCIAS_ACTIVASIsNull: Boolean; virtual;
- procedure SetINCIDENCIAS_ACTIVASIsNull(const aValue: Boolean); virtual;
- function GetFECHA_ALTAValue: DateTime; virtual;
- procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
- function GetFECHA_ALTAIsNull: Boolean; virtual;
- procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
- function GetFECHA_MODIFICACIONValue: DateTime; virtual;
- procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
- function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
- procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
- function GetUSUARIOValue: String; virtual;
- procedure SetUSUARIOValue(const aValue: String); virtual;
- function GetUSUARIOIsNull: Boolean; virtual;
- procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
- function GetID_FORMA_PAGOValue: Integer; virtual;
- procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
- function GetID_FORMA_PAGOIsNull: Boolean; virtual;
- procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual;
-
- { Properties }
- property ID: Integer read GetIDValue write SetIDValue;
- property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
- property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
- property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
- property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
- property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
- property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
- property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
- property FECHA_ALBARAN: DateTime read GetFECHA_ALBARANValue write SetFECHA_ALBARANValue;
- property FECHA_ALBARANIsNull: Boolean read GetFECHA_ALBARANIsNull write SetFECHA_ALBARANIsNull;
- property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
- property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
- property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
- property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
- property TIPO: String read GetTIPOValue write SetTIPOValue;
- property TIPOIsNull: Boolean read GetTIPOIsNull write SetTIPOIsNull;
- property ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue;
- property ID_ALMACENIsNull: Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull;
- property NOMBRE_ALMACEN: String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue;
- property NOMBRE_ALMACENIsNull: Boolean read GetNOMBRE_ALMACENIsNull write SetNOMBRE_ALMACENIsNull;
- property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
- property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
- property REF_PED_PROVEEDOR: String read GetREF_PED_PROVEEDORValue write SetREF_PED_PROVEEDORValue;
- property REF_PED_PROVEEDORIsNull: Boolean read GetREF_PED_PROVEEDORIsNull write SetREF_PED_PROVEEDORIsNull;
- property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
- property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
- property REF_FACTURA: String read GetREF_FACTURAValue write SetREF_FACTURAValue;
- property REF_FACTURAIsNull: Boolean read GetREF_FACTURAIsNull write SetREF_FACTURAIsNull;
- property REF_FACTURA_PROV: String read GetREF_FACTURA_PROVValue write SetREF_FACTURA_PROVValue;
- property REF_FACTURA_PROVIsNull: Boolean read GetREF_FACTURA_PROVIsNull write SetREF_FACTURA_PROVIsNull;
- property CALLE: String read GetCALLEValue write SetCALLEValue;
- property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
- property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
- property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
- property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
- property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
- property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
- property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
- property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
- property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
- property TELEFONO: String read GetTELEFONOValue write SetTELEFONOValue;
- property TELEFONOIsNull: Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull;
- property IMPORTE_NETO: Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue;
- property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull;
- property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
- property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
- property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
- property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
- property IMPORTE_DESCUENTO: Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
- property IMPORTE_DESCUENTOIsNull: Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull;
- property BASE_IMPONIBLE: Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
- property BASE_IMPONIBLEIsNull: Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull;
- property IVA: Float read GetIVAValue write SetIVAValue;
- property IVAIsNull: Boolean read GetIVAIsNull write SetIVAIsNull;
- property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
- property IMPORTE_IVAIsNull: Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull;
- property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
- property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
- property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue;
- property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
- property INCIDENCIAS: IROStrings read GetINCIDENCIASValue;
- property INCIDENCIASIsNull: Boolean read GetINCIDENCIASIsNull write SetINCIDENCIASIsNull;
- property INCIDENCIAS_ACTIVAS: Integer read GetINCIDENCIAS_ACTIVASValue write SetINCIDENCIAS_ACTIVASValue;
- property INCIDENCIAS_ACTIVASIsNull: Boolean read GetINCIDENCIAS_ACTIVASIsNull write SetINCIDENCIAS_ACTIVASIsNull;
- property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
- property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
- property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
- property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
- property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
- property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
- property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
- property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -2484,48 +1726,6 @@ begin
DataTable.Fields[idx_AlbaranesProveedor_DetallesTIPO_DETALLE].AsVariant := Null;
end;
-function TAlbaranesProveedor_DetallesDataTableRules.GetREFERENCIAValue: String;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_DetallesREFERENCIA].AsString;
-end;
-
-procedure TAlbaranesProveedor_DetallesDataTableRules.SetREFERENCIAValue(const aValue: String);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_DetallesREFERENCIA].AsString := aValue;
-end;
-
-function TAlbaranesProveedor_DetallesDataTableRules.GetREFERENCIAIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_DetallesREFERENCIA].IsNull;
-end;
-
-procedure TAlbaranesProveedor_DetallesDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_DetallesREFERENCIA].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_DetallesDataTableRules.GetID_ARTICULOValue: Integer;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_DetallesID_ARTICULO].AsInteger;
-end;
-
-procedure TAlbaranesProveedor_DetallesDataTableRules.SetID_ARTICULOValue(const aValue: Integer);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_DetallesID_ARTICULO].AsInteger := aValue;
-end;
-
-function TAlbaranesProveedor_DetallesDataTableRules.GetID_ARTICULOIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_DetallesID_ARTICULO].IsNull;
-end;
-
-procedure TAlbaranesProveedor_DetallesDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_DetallesID_ARTICULO].AsVariant := Null;
-end;
-
function TAlbaranesProveedor_DetallesDataTableRules.GetCONCEPTOValue: String;
begin
result := DataTable.Fields[idx_AlbaranesProveedor_DetallesCONCEPTO].AsString;
@@ -2610,6 +1810,48 @@ begin
DataTable.Fields[idx_AlbaranesProveedor_DetallesIMPORTE_TOTAL].AsVariant := Null;
end;
+function TAlbaranesProveedor_DetallesDataTableRules.GetVISIBLEValue: Integer;
+begin
+ result := DataTable.Fields[idx_AlbaranesProveedor_DetallesVISIBLE].AsInteger;
+end;
+
+procedure TAlbaranesProveedor_DetallesDataTableRules.SetVISIBLEValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_AlbaranesProveedor_DetallesVISIBLE].AsInteger := aValue;
+end;
+
+function TAlbaranesProveedor_DetallesDataTableRules.GetVISIBLEIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_AlbaranesProveedor_DetallesVISIBLE].IsNull;
+end;
+
+procedure TAlbaranesProveedor_DetallesDataTableRules.SetVISIBLEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_AlbaranesProveedor_DetallesVISIBLE].AsVariant := Null;
+end;
+
+function TAlbaranesProveedor_DetallesDataTableRules.GetID_ARTICULOValue: Integer;
+begin
+ result := DataTable.Fields[idx_AlbaranesProveedor_DetallesID_ARTICULO].AsInteger;
+end;
+
+procedure TAlbaranesProveedor_DetallesDataTableRules.SetID_ARTICULOValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_AlbaranesProveedor_DetallesID_ARTICULO].AsInteger := aValue;
+end;
+
+function TAlbaranesProveedor_DetallesDataTableRules.GetID_ARTICULOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_AlbaranesProveedor_DetallesID_ARTICULO].IsNull;
+end;
+
+procedure TAlbaranesProveedor_DetallesDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_AlbaranesProveedor_DetallesID_ARTICULO].AsVariant := Null;
+end;
+
function TAlbaranesProveedor_DetallesDataTableRules.GetDESCUENTOValue: Float;
begin
result := DataTable.Fields[idx_AlbaranesProveedor_DetallesDESCUENTO].AsFloat;
@@ -2652,25 +1894,25 @@ begin
DataTable.Fields[idx_AlbaranesProveedor_DetallesIMPORTE_PORTE].AsVariant := Null;
end;
-function TAlbaranesProveedor_DetallesDataTableRules.GetVISIBLEValue: Integer;
+function TAlbaranesProveedor_DetallesDataTableRules.GetREFERENCIAValue: String;
begin
- result := DataTable.Fields[idx_AlbaranesProveedor_DetallesVISIBLE].AsInteger;
+ result := DataTable.Fields[idx_AlbaranesProveedor_DetallesREFERENCIA].AsString;
end;
-procedure TAlbaranesProveedor_DetallesDataTableRules.SetVISIBLEValue(const aValue: Integer);
+procedure TAlbaranesProveedor_DetallesDataTableRules.SetREFERENCIAValue(const aValue: String);
begin
- DataTable.Fields[idx_AlbaranesProveedor_DetallesVISIBLE].AsInteger := aValue;
+ DataTable.Fields[idx_AlbaranesProveedor_DetallesREFERENCIA].AsString := aValue;
end;
-function TAlbaranesProveedor_DetallesDataTableRules.GetVISIBLEIsNull: boolean;
+function TAlbaranesProveedor_DetallesDataTableRules.GetREFERENCIAIsNull: boolean;
begin
- result := DataTable.Fields[idx_AlbaranesProveedor_DetallesVISIBLE].IsNull;
+ result := DataTable.Fields[idx_AlbaranesProveedor_DetallesREFERENCIA].IsNull;
end;
-procedure TAlbaranesProveedor_DetallesDataTableRules.SetVISIBLEIsNull(const aValue: Boolean);
+procedure TAlbaranesProveedor_DetallesDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_DetallesVISIBLE].AsVariant := Null;
+ DataTable.Fields[idx_AlbaranesProveedor_DetallesREFERENCIA].AsVariant := Null;
end;
function TAlbaranesProveedor_DetallesDataTableRules.GetREFERENCIA_PROVEEDORValue: String;
@@ -2695,1097 +1937,9 @@ begin
end;
-{ TAlbaranesProveedor_Detalles_RefreshDataTableRules }
-constructor TAlbaranesProveedor_Detalles_RefreshDataTableRules.Create(aDataTable: TDADataTable);
-begin
- inherited;
-end;
-
-destructor TAlbaranesProveedor_Detalles_RefreshDataTableRules.Destroy;
-begin
- inherited;
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetIDValue: Integer;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshID].AsInteger;
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetIDValue(const aValue: Integer);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshID].AsInteger := aValue;
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetIDIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshID].IsNull;
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetIDIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshID].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetID_ALBARANValue: Integer;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshID_ALBARAN].AsInteger;
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetID_ALBARANValue(const aValue: Integer);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshID_ALBARAN].AsInteger := aValue;
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetID_ALBARANIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshID_ALBARAN].IsNull;
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetID_ALBARANIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshID_ALBARAN].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetPOSICIONValue: Integer;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshPOSICION].AsInteger;
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetPOSICIONValue(const aValue: Integer);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshPOSICION].AsInteger := aValue;
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetPOSICIONIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshPOSICION].IsNull;
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetPOSICIONIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshPOSICION].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetTIPO_DETALLEValue: String;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshTIPO_DETALLE].AsString;
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetTIPO_DETALLEValue(const aValue: String);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshTIPO_DETALLE].AsString := aValue;
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetTIPO_DETALLEIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshTIPO_DETALLE].IsNull;
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetTIPO_DETALLEIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshTIPO_DETALLE].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetREFERENCIAValue: String;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshREFERENCIA].AsString;
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetREFERENCIAValue(const aValue: String);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshREFERENCIA].AsString := aValue;
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetREFERENCIAIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshREFERENCIA].IsNull;
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshREFERENCIA].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetID_ARTICULOValue: Integer;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshID_ARTICULO].AsInteger;
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetID_ARTICULOValue(const aValue: Integer);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshID_ARTICULO].AsInteger := aValue;
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetID_ARTICULOIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshID_ARTICULO].IsNull;
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshID_ARTICULO].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetCONCEPTOValue: String;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshCONCEPTO].AsString;
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetCONCEPTOValue(const aValue: String);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshCONCEPTO].AsString := aValue;
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetCONCEPTOIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshCONCEPTO].IsNull;
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetCONCEPTOIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshCONCEPTO].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetCANTIDADValue: Integer;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshCANTIDAD].AsInteger;
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetCANTIDADValue(const aValue: Integer);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshCANTIDAD].AsInteger := aValue;
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetCANTIDADIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshCANTIDAD].IsNull;
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetCANTIDADIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshCANTIDAD].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetIMPORTE_UNIDADValue: Currency;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshIMPORTE_UNIDAD].AsCurrency;
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetIMPORTE_UNIDADValue(const aValue: Currency);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshIMPORTE_UNIDAD].AsCurrency := aValue;
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetIMPORTE_UNIDADIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshIMPORTE_UNIDAD].IsNull;
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetIMPORTE_UNIDADIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshIMPORTE_UNIDAD].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetIMPORTE_TOTALValue: Currency;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshIMPORTE_TOTAL].AsCurrency;
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetIMPORTE_TOTALValue(const aValue: Currency);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshIMPORTE_TOTAL].AsCurrency := aValue;
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetIMPORTE_TOTALIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshIMPORTE_TOTAL].IsNull;
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshIMPORTE_TOTAL].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetDESCUENTOValue: Float;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshDESCUENTO].AsFloat;
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetDESCUENTOValue(const aValue: Float);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshDESCUENTO].AsFloat := aValue;
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetDESCUENTOIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshDESCUENTO].IsNull;
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshDESCUENTO].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetIMPORTE_PORTEValue: Float;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshIMPORTE_PORTE].AsFloat;
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetIMPORTE_PORTEValue(const aValue: Float);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshIMPORTE_PORTE].AsFloat := aValue;
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetIMPORTE_PORTEIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshIMPORTE_PORTE].IsNull;
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshIMPORTE_PORTE].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetVISIBLEValue: Integer;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshVISIBLE].AsInteger;
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetVISIBLEValue(const aValue: Integer);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshVISIBLE].AsInteger := aValue;
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetVISIBLEIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshVISIBLE].IsNull;
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetVISIBLEIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshVISIBLE].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetREFERENCIA_PROVEEDORValue: String;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshREFERENCIA_PROVEEDOR].AsString;
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetREFERENCIA_PROVEEDORValue(const aValue: String);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshREFERENCIA_PROVEEDOR].AsString := aValue;
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshDataTableRules.GetREFERENCIA_PROVEEDORIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshREFERENCIA_PROVEEDOR].IsNull;
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshDataTableRules.SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_Detalles_RefreshREFERENCIA_PROVEEDOR].AsVariant := Null;
-end;
-
-
-{ TAlbaranesProveedor_RefreshDataTableRules }
-constructor TAlbaranesProveedor_RefreshDataTableRules.Create(aDataTable: TDADataTable);
-var
- StrList: TStringList;
-begin
- inherited;
-
- StrList := TStringList.Create;
- StrList.OnChange := OBSERVACIONES_OnChange;
- f_OBSERVACIONES := NewROStrings(StrList,True);
-
- StrList := TStringList.Create;
- StrList.OnChange := INCIDENCIAS_OnChange;
- f_INCIDENCIAS := NewROStrings(StrList,True);
-end;
-
-destructor TAlbaranesProveedor_RefreshDataTableRules.Destroy;
-begin
- inherited;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.OBSERVACIONES_OnChange(Sender: TObject);
-begin
- if DataTable.Editing then DataTable.Fields[idx_AlbaranesProveedor_RefreshOBSERVACIONES].AsVariant := TStringList(Sender).Text;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.INCIDENCIAS_OnChange(Sender: TObject);
-begin
- if DataTable.Editing then DataTable.Fields[idx_AlbaranesProveedor_RefreshINCIDENCIAS].AsVariant := TStringList(Sender).Text;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetIDValue: Integer;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshID].AsInteger;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetIDValue(const aValue: Integer);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_RefreshID].AsInteger := aValue;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetIDIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshID].IsNull;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetIDIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_RefreshID].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetID_EMPRESAValue: Integer;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshID_EMPRESA].AsInteger;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_RefreshID_EMPRESA].AsInteger := aValue;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetID_EMPRESAIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshID_EMPRESA].IsNull;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_RefreshID_EMPRESA].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetID_PROVEEDORValue: Integer;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshID_PROVEEDOR].AsInteger;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetID_PROVEEDORValue(const aValue: Integer);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_RefreshID_PROVEEDOR].AsInteger := aValue;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetID_PROVEEDORIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshID_PROVEEDOR].IsNull;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetID_PROVEEDORIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_RefreshID_PROVEEDOR].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetNOMBREValue: String;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshNOMBRE].AsString;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetNOMBREValue(const aValue: String);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_RefreshNOMBRE].AsString := aValue;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetNOMBREIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshNOMBRE].IsNull;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetNOMBREIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_RefreshNOMBRE].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetFECHA_ALBARANValue: DateTime;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshFECHA_ALBARAN].AsDateTime;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetFECHA_ALBARANValue(const aValue: DateTime);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_RefreshFECHA_ALBARAN].AsDateTime := aValue;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetFECHA_ALBARANIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshFECHA_ALBARAN].IsNull;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetFECHA_ALBARANIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_RefreshFECHA_ALBARAN].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetREFERENCIAValue: String;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshREFERENCIA].AsString;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetREFERENCIAValue(const aValue: String);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_RefreshREFERENCIA].AsString := aValue;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetREFERENCIAIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshREFERENCIA].IsNull;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_RefreshREFERENCIA].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetREFERENCIA_PROVEEDORValue: String;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshREFERENCIA_PROVEEDOR].AsString;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetREFERENCIA_PROVEEDORValue(const aValue: String);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_RefreshREFERENCIA_PROVEEDOR].AsString := aValue;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetREFERENCIA_PROVEEDORIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshREFERENCIA_PROVEEDOR].IsNull;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_RefreshREFERENCIA_PROVEEDOR].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetTIPOValue: String;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshTIPO].AsString;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetTIPOValue(const aValue: String);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_RefreshTIPO].AsString := aValue;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetTIPOIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshTIPO].IsNull;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetTIPOIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_RefreshTIPO].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetID_ALMACENValue: Integer;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshID_ALMACEN].AsInteger;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetID_ALMACENValue(const aValue: Integer);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_RefreshID_ALMACEN].AsInteger := aValue;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetID_ALMACENIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshID_ALMACEN].IsNull;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetID_ALMACENIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_RefreshID_ALMACEN].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetNOMBRE_ALMACENValue: String;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshNOMBRE_ALMACEN].AsString;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetNOMBRE_ALMACENValue(const aValue: String);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_RefreshNOMBRE_ALMACEN].AsString := aValue;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetNOMBRE_ALMACENIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshNOMBRE_ALMACEN].IsNull;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetNOMBRE_ALMACENIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_RefreshNOMBRE_ALMACEN].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetID_PEDIDOValue: Integer;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshID_PEDIDO].AsInteger;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetID_PEDIDOValue(const aValue: Integer);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_RefreshID_PEDIDO].AsInteger := aValue;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetID_PEDIDOIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshID_PEDIDO].IsNull;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetID_PEDIDOIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_RefreshID_PEDIDO].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetREF_PED_PROVEEDORValue: String;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshREF_PED_PROVEEDOR].AsString;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetREF_PED_PROVEEDORValue(const aValue: String);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_RefreshREF_PED_PROVEEDOR].AsString := aValue;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetREF_PED_PROVEEDORIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshREF_PED_PROVEEDOR].IsNull;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetREF_PED_PROVEEDORIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_RefreshREF_PED_PROVEEDOR].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetID_FACTURAValue: Integer;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshID_FACTURA].AsInteger;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetID_FACTURAValue(const aValue: Integer);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_RefreshID_FACTURA].AsInteger := aValue;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetID_FACTURAIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshID_FACTURA].IsNull;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetID_FACTURAIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_RefreshID_FACTURA].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetREF_FACTURAValue: String;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshREF_FACTURA].AsString;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetREF_FACTURAValue(const aValue: String);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_RefreshREF_FACTURA].AsString := aValue;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetREF_FACTURAIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshREF_FACTURA].IsNull;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetREF_FACTURAIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_RefreshREF_FACTURA].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetREF_FACTURA_PROVValue: String;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshREF_FACTURA_PROV].AsString;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetREF_FACTURA_PROVValue(const aValue: String);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_RefreshREF_FACTURA_PROV].AsString := aValue;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetREF_FACTURA_PROVIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshREF_FACTURA_PROV].IsNull;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetREF_FACTURA_PROVIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_RefreshREF_FACTURA_PROV].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetCALLEValue: String;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshCALLE].AsString;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetCALLEValue(const aValue: String);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_RefreshCALLE].AsString := aValue;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetCALLEIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshCALLE].IsNull;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetCALLEIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_RefreshCALLE].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetCODIGO_POSTALValue: String;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshCODIGO_POSTAL].AsString;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetCODIGO_POSTALValue(const aValue: String);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_RefreshCODIGO_POSTAL].AsString := aValue;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetCODIGO_POSTALIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshCODIGO_POSTAL].IsNull;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_RefreshCODIGO_POSTAL].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetPOBLACIONValue: String;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshPOBLACION].AsString;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetPOBLACIONValue(const aValue: String);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_RefreshPOBLACION].AsString := aValue;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetPOBLACIONIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshPOBLACION].IsNull;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetPOBLACIONIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_RefreshPOBLACION].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetPROVINCIAValue: String;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshPROVINCIA].AsString;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetPROVINCIAValue(const aValue: String);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_RefreshPROVINCIA].AsString := aValue;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetPROVINCIAIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshPROVINCIA].IsNull;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetPROVINCIAIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_RefreshPROVINCIA].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetPERSONA_CONTACTOValue: String;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshPERSONA_CONTACTO].AsString;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetPERSONA_CONTACTOValue(const aValue: String);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_RefreshPERSONA_CONTACTO].AsString := aValue;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetPERSONA_CONTACTOIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshPERSONA_CONTACTO].IsNull;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_RefreshPERSONA_CONTACTO].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetTELEFONOValue: String;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshTELEFONO].AsString;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetTELEFONOValue(const aValue: String);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_RefreshTELEFONO].AsString := aValue;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetTELEFONOIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshTELEFONO].IsNull;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetTELEFONOIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_RefreshTELEFONO].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetIMPORTE_NETOValue: Currency;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshIMPORTE_NETO].AsCurrency;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetIMPORTE_NETOValue(const aValue: Currency);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_RefreshIMPORTE_NETO].AsCurrency := aValue;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetIMPORTE_NETOIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshIMPORTE_NETO].IsNull;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetIMPORTE_NETOIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_RefreshIMPORTE_NETO].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetIMPORTE_PORTEValue: Currency;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshIMPORTE_PORTE].AsCurrency;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetIMPORTE_PORTEValue(const aValue: Currency);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_RefreshIMPORTE_PORTE].AsCurrency := aValue;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetIMPORTE_PORTEIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshIMPORTE_PORTE].IsNull;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_RefreshIMPORTE_PORTE].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetDESCUENTOValue: Float;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshDESCUENTO].AsFloat;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetDESCUENTOValue(const aValue: Float);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_RefreshDESCUENTO].AsFloat := aValue;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetDESCUENTOIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshDESCUENTO].IsNull;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_RefreshDESCUENTO].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetIMPORTE_DESCUENTOValue: Currency;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshIMPORTE_DESCUENTO].AsCurrency;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetIMPORTE_DESCUENTOValue(const aValue: Currency);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_RefreshIMPORTE_DESCUENTO].AsCurrency := aValue;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetIMPORTE_DESCUENTOIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshIMPORTE_DESCUENTO].IsNull;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_RefreshIMPORTE_DESCUENTO].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetBASE_IMPONIBLEValue: Currency;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshBASE_IMPONIBLE].AsCurrency;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetBASE_IMPONIBLEValue(const aValue: Currency);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_RefreshBASE_IMPONIBLE].AsCurrency := aValue;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetBASE_IMPONIBLEIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshBASE_IMPONIBLE].IsNull;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetBASE_IMPONIBLEIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_RefreshBASE_IMPONIBLE].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetIVAValue: Float;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshIVA].AsFloat;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetIVAValue(const aValue: Float);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_RefreshIVA].AsFloat := aValue;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetIVAIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshIVA].IsNull;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetIVAIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_RefreshIVA].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetIMPORTE_IVAValue: Currency;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshIMPORTE_IVA].AsCurrency;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetIMPORTE_IVAValue(const aValue: Currency);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_RefreshIMPORTE_IVA].AsCurrency := aValue;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetIMPORTE_IVAIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshIMPORTE_IVA].IsNull;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetIMPORTE_IVAIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_RefreshIMPORTE_IVA].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetIMPORTE_TOTALValue: Currency;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshIMPORTE_TOTAL].AsCurrency;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetIMPORTE_TOTALValue(const aValue: Currency);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_RefreshIMPORTE_TOTAL].AsCurrency := aValue;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetIMPORTE_TOTALIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshIMPORTE_TOTAL].IsNull;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_RefreshIMPORTE_TOTAL].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetOBSERVACIONESValue: IROStrings;
-begin
- result := f_OBSERVACIONES;
- result.Text := DataTable.Fields[idx_AlbaranesProveedor_RefreshOBSERVACIONES].AsString;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetOBSERVACIONESIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshOBSERVACIONES].IsNull;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetOBSERVACIONESIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_RefreshOBSERVACIONES].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetINCIDENCIASValue: IROStrings;
-begin
- result := f_INCIDENCIAS;
- result.Text := DataTable.Fields[idx_AlbaranesProveedor_RefreshINCIDENCIAS].AsString;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetINCIDENCIASIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshINCIDENCIAS].IsNull;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetINCIDENCIASIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_RefreshINCIDENCIAS].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetINCIDENCIAS_ACTIVASValue: Integer;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshINCIDENCIAS_ACTIVAS].AsInteger;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetINCIDENCIAS_ACTIVASValue(const aValue: Integer);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_RefreshINCIDENCIAS_ACTIVAS].AsInteger := aValue;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetINCIDENCIAS_ACTIVASIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshINCIDENCIAS_ACTIVAS].IsNull;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetINCIDENCIAS_ACTIVASIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_RefreshINCIDENCIAS_ACTIVAS].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetFECHA_ALTAValue: DateTime;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshFECHA_ALTA].AsDateTime;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_RefreshFECHA_ALTA].AsDateTime := aValue;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetFECHA_ALTAIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshFECHA_ALTA].IsNull;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_RefreshFECHA_ALTA].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetFECHA_MODIFICACIONValue: DateTime;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshFECHA_MODIFICACION].AsDateTime;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_RefreshFECHA_MODIFICACION].AsDateTime := aValue;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshFECHA_MODIFICACION].IsNull;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_RefreshFECHA_MODIFICACION].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetUSUARIOValue: String;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshUSUARIO].AsString;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetUSUARIOValue(const aValue: String);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_RefreshUSUARIO].AsString := aValue;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetUSUARIOIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshUSUARIO].IsNull;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetUSUARIOIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_RefreshUSUARIO].AsVariant := Null;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetID_FORMA_PAGOValue: Integer;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshID_FORMA_PAGO].AsInteger;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetID_FORMA_PAGOValue(const aValue: Integer);
-begin
- DataTable.Fields[idx_AlbaranesProveedor_RefreshID_FORMA_PAGO].AsInteger := aValue;
-end;
-
-function TAlbaranesProveedor_RefreshDataTableRules.GetID_FORMA_PAGOIsNull: boolean;
-begin
- result := DataTable.Fields[idx_AlbaranesProveedor_RefreshID_FORMA_PAGO].IsNull;
-end;
-
-procedure TAlbaranesProveedor_RefreshDataTableRules.SetID_FORMA_PAGOIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_AlbaranesProveedor_RefreshID_FORMA_PAGO].AsVariant := Null;
-end;
-
-
initialization
RegisterDataTableRules(RID_DarReferencia, TDarReferenciaDataTableRules);
RegisterDataTableRules(RID_AlbaranesProveedor, TAlbaranesProveedorDataTableRules);
RegisterDataTableRules(RID_AlbaranesProveedor_Detalles, TAlbaranesProveedor_DetallesDataTableRules);
- RegisterDataTableRules(RID_AlbaranesProveedor_Detalles_Refresh, TAlbaranesProveedor_Detalles_RefreshDataTableRules);
- RegisterDataTableRules(RID_AlbaranesProveedor_Refresh, TAlbaranesProveedor_RefreshDataTableRules);
end.
diff --git a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas
index 40a26ac7..678de95e 100644
--- a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas
+++ b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas
@@ -9,16 +9,14 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
- RID_DarReferenciaDelta = '{042E1DD6-333C-4221-92DE-CF44E5FA07C8}';
- RID_AlbaranesProveedorDelta = '{F8BF3DA6-0074-45FF-A315-59E95ADC561A}';
- RID_AlbaranesProveedor_DetallesDelta = '{B859820F-1539-4091-AA39-6F2D66061FA5}';
- RID_AlbaranesProveedor_Detalles_RefreshDelta = '{07011792-52F0-499F-BB42-D921B0DD35B2}';
- RID_AlbaranesProveedor_RefreshDelta = '{6A084FC0-F666-4E34-8E46-ED49C23E295A}';
+ RID_DarReferenciaDelta = '{AD9EC61F-92A8-4757-A729-430A9C0F1014}';
+ RID_AlbaranesProveedorDelta = '{6120285E-A519-4B85-96C3-9568FD81A17F}';
+ RID_AlbaranesProveedor_DetallesDelta = '{CEDDEB44-9AE4-468F-A241-3235B7D100D6}';
type
{ IDarReferenciaDelta }
IDarReferenciaDelta = interface(IDarReferencia)
- ['{042E1DD6-333C-4221-92DE-CF44E5FA07C8}']
+ ['{AD9EC61F-92A8-4757-A729-430A9C0F1014}']
{ Property getters and setters }
function GetOldVALORValue : String;
@@ -52,7 +50,7 @@ type
{ IAlbaranesProveedorDelta }
IAlbaranesProveedorDelta = interface(IAlbaranesProveedor)
- ['{F8BF3DA6-0074-45FF-A315-59E95ADC561A}']
+ ['{6120285E-A519-4B85-96C3-9568FD81A17F}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -508,21 +506,21 @@ type
{ IAlbaranesProveedor_DetallesDelta }
IAlbaranesProveedor_DetallesDelta = interface(IAlbaranesProveedor_Detalles)
- ['{B859820F-1539-4091-AA39-6F2D66061FA5}']
+ ['{CEDDEB44-9AE4-468F-A241-3235B7D100D6}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;
function GetOldPOSICIONValue : Integer;
function GetOldTIPO_DETALLEValue : String;
- function GetOldREFERENCIAValue : String;
- function GetOldID_ARTICULOValue : Integer;
function GetOldCONCEPTOValue : String;
function GetOldCANTIDADValue : Integer;
function GetOldIMPORTE_UNIDADValue : Currency;
function GetOldIMPORTE_TOTALValue : Currency;
+ function GetOldVISIBLEValue : Integer;
+ function GetOldID_ARTICULOValue : Integer;
function GetOldDESCUENTOValue : Float;
function GetOldIMPORTE_PORTEValue : Currency;
- function GetOldVISIBLEValue : Integer;
+ function GetOldREFERENCIAValue : String;
function GetOldREFERENCIA_PROVEEDORValue : String;
{ Properties }
@@ -530,15 +528,15 @@ type
property OldID_ALBARAN : Integer read GetOldID_ALBARANValue;
property OldPOSICION : Integer read GetOldPOSICIONValue;
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
- property OldREFERENCIA : String read GetOldREFERENCIAValue;
- property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCANTIDAD : Integer read GetOldCANTIDADValue;
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
+ property OldVISIBLE : Integer read GetOldVISIBLEValue;
+ property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
- property OldVISIBLE : Integer read GetOldVISIBLEValue;
+ property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
end;
@@ -571,18 +569,6 @@ type
function GetOldTIPO_DETALLEIsNull: Boolean; virtual;
procedure SetTIPO_DETALLEValue(const aValue: String); virtual;
procedure SetTIPO_DETALLEIsNull(const aValue: Boolean); virtual;
- function GetREFERENCIAValue: String; virtual;
- function GetREFERENCIAIsNull: Boolean; virtual;
- function GetOldREFERENCIAValue: String; virtual;
- function GetOldREFERENCIAIsNull: Boolean; virtual;
- procedure SetREFERENCIAValue(const aValue: String); virtual;
- procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
- function GetID_ARTICULOValue: Integer; virtual;
- function GetID_ARTICULOIsNull: Boolean; virtual;
- function GetOldID_ARTICULOValue: Integer; virtual;
- function GetOldID_ARTICULOIsNull: Boolean; virtual;
- procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
- procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual;
function GetCONCEPTOValue: String; virtual;
function GetCONCEPTOIsNull: Boolean; virtual;
function GetOldCONCEPTOValue: String; virtual;
@@ -607,214 +593,36 @@ type
function GetOldIMPORTE_TOTALIsNull: Boolean; virtual;
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
- function GetDESCUENTOValue: Float; virtual;
- function GetDESCUENTOIsNull: Boolean; virtual;
- function GetOldDESCUENTOValue: Float; virtual;
- function GetOldDESCUENTOIsNull: Boolean; virtual;
- procedure SetDESCUENTOValue(const aValue: Float); virtual;
- procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
- function GetIMPORTE_PORTEValue: Currency; virtual;
- function GetIMPORTE_PORTEIsNull: Boolean; virtual;
- function GetOldIMPORTE_PORTEValue: Currency; virtual;
- function GetOldIMPORTE_PORTEIsNull: Boolean; virtual;
- procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
- procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
function GetVISIBLEValue: Integer; virtual;
function GetVISIBLEIsNull: Boolean; virtual;
function GetOldVISIBLEValue: Integer; virtual;
function GetOldVISIBLEIsNull: Boolean; virtual;
procedure SetVISIBLEValue(const aValue: Integer); virtual;
procedure SetVISIBLEIsNull(const aValue: Boolean); virtual;
- function GetREFERENCIA_PROVEEDORValue: String; virtual;
- function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual;
- function GetOldREFERENCIA_PROVEEDORValue: String; virtual;
- function GetOldREFERENCIA_PROVEEDORIsNull: Boolean; virtual;
- procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
- procedure SetREFERENCIA_PROVEEDORIsNull(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_ALBARAN : Integer read GetID_ALBARANValue write SetID_ALBARANValue;
- property ID_ALBARANIsNull : Boolean read GetID_ALBARANIsNull write SetID_ALBARANIsNull;
- property OldID_ALBARAN : Integer read GetOldID_ALBARANValue;
- property OldID_ALBARANIsNull : Boolean read GetOldID_ALBARANIsNull;
- property POSICION : Integer read GetPOSICIONValue write SetPOSICIONValue;
- property POSICIONIsNull : Boolean read GetPOSICIONIsNull write SetPOSICIONIsNull;
- property OldPOSICION : Integer read GetOldPOSICIONValue;
- property OldPOSICIONIsNull : Boolean read GetOldPOSICIONIsNull;
- property TIPO_DETALLE : String read GetTIPO_DETALLEValue write SetTIPO_DETALLEValue;
- property TIPO_DETALLEIsNull : Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
- property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
- property OldTIPO_DETALLEIsNull : Boolean read GetOldTIPO_DETALLEIsNull;
- property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
- property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
- property OldREFERENCIA : String read GetOldREFERENCIAValue;
- property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
- property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
- property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
- property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
- property OldID_ARTICULOIsNull : Boolean read GetOldID_ARTICULOIsNull;
- property CONCEPTO : String read GetCONCEPTOValue write SetCONCEPTOValue;
- property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
- property OldCONCEPTO : String read GetOldCONCEPTOValue;
- property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull;
- property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue;
- property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
- property OldCANTIDAD : Integer read GetOldCANTIDADValue;
- property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull;
- property IMPORTE_UNIDAD : Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
- property IMPORTE_UNIDADIsNull : Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
- property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
- property OldIMPORTE_UNIDADIsNull : Boolean read GetOldIMPORTE_UNIDADIsNull;
- property IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
- property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
- property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
- property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull;
- property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue;
- property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
- property OldDESCUENTO : Float read GetOldDESCUENTOValue;
- property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull;
- property IMPORTE_PORTE : Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
- property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
- property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
- property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull;
- property VISIBLE : Integer read GetVISIBLEValue write SetVISIBLEValue;
- property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
- property OldVISIBLE : Integer read GetOldVISIBLEValue;
- property OldVISIBLEIsNull : Boolean read GetOldVISIBLEIsNull;
- property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
- property REFERENCIA_PROVEEDORIsNull : Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
- property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
- property OldREFERENCIA_PROVEEDORIsNull : Boolean read GetOldREFERENCIA_PROVEEDORIsNull;
-
- public
- constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
- destructor Destroy; override;
-
- end;
-
- { IAlbaranesProveedor_Detalles_RefreshDelta }
- IAlbaranesProveedor_Detalles_RefreshDelta = interface(IAlbaranesProveedor_Detalles_Refresh)
- ['{07011792-52F0-499F-BB42-D921B0DD35B2}']
- { Property getters and setters }
- function GetOldIDValue : Integer;
- function GetOldID_ALBARANValue : Integer;
- function GetOldPOSICIONValue : Integer;
- function GetOldTIPO_DETALLEValue : String;
- function GetOldREFERENCIAValue : String;
- function GetOldID_ARTICULOValue : Integer;
- function GetOldCONCEPTOValue : String;
- function GetOldCANTIDADValue : Integer;
- function GetOldIMPORTE_UNIDADValue : Currency;
- function GetOldIMPORTE_TOTALValue : Currency;
- function GetOldDESCUENTOValue : Float;
- function GetOldIMPORTE_PORTEValue : Float;
- function GetOldVISIBLEValue : Integer;
- function GetOldREFERENCIA_PROVEEDORValue : String;
-
- { Properties }
- property OldID : Integer read GetOldIDValue;
- property OldID_ALBARAN : Integer read GetOldID_ALBARANValue;
- property OldPOSICION : Integer read GetOldPOSICIONValue;
- property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
- property OldREFERENCIA : String read GetOldREFERENCIAValue;
- property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
- property OldCONCEPTO : String read GetOldCONCEPTOValue;
- property OldCANTIDAD : Integer read GetOldCANTIDADValue;
- property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
- property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
- property OldDESCUENTO : Float read GetOldDESCUENTOValue;
- property OldIMPORTE_PORTE : Float read GetOldIMPORTE_PORTEValue;
- property OldVISIBLE : Integer read GetOldVISIBLEValue;
- property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
- end;
-
- { TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules }
- TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules = class(TDABusinessProcessorRules, IAlbaranesProveedor_Detalles_Refresh, IAlbaranesProveedor_Detalles_RefreshDelta)
- 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_ALBARANValue: Integer; virtual;
- function GetID_ALBARANIsNull: Boolean; virtual;
- function GetOldID_ALBARANValue: Integer; virtual;
- function GetOldID_ALBARANIsNull: Boolean; virtual;
- procedure SetID_ALBARANValue(const aValue: Integer); virtual;
- procedure SetID_ALBARANIsNull(const aValue: Boolean); virtual;
- function GetPOSICIONValue: Integer; virtual;
- function GetPOSICIONIsNull: Boolean; virtual;
- function GetOldPOSICIONValue: Integer; virtual;
- function GetOldPOSICIONIsNull: Boolean; virtual;
- procedure SetPOSICIONValue(const aValue: Integer); virtual;
- procedure SetPOSICIONIsNull(const aValue: Boolean); virtual;
- function GetTIPO_DETALLEValue: String; virtual;
- function GetTIPO_DETALLEIsNull: Boolean; virtual;
- function GetOldTIPO_DETALLEValue: String; virtual;
- function GetOldTIPO_DETALLEIsNull: Boolean; virtual;
- procedure SetTIPO_DETALLEValue(const aValue: String); virtual;
- procedure SetTIPO_DETALLEIsNull(const aValue: Boolean); virtual;
- function GetREFERENCIAValue: String; virtual;
- function GetREFERENCIAIsNull: Boolean; virtual;
- function GetOldREFERENCIAValue: String; virtual;
- function GetOldREFERENCIAIsNull: Boolean; virtual;
- procedure SetREFERENCIAValue(const aValue: String); virtual;
- procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetID_ARTICULOValue: Integer; virtual;
function GetID_ARTICULOIsNull: Boolean; virtual;
function GetOldID_ARTICULOValue: Integer; virtual;
function GetOldID_ARTICULOIsNull: Boolean; virtual;
procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual;
- function GetCONCEPTOValue: String; virtual;
- function GetCONCEPTOIsNull: Boolean; virtual;
- function GetOldCONCEPTOValue: String; virtual;
- function GetOldCONCEPTOIsNull: Boolean; virtual;
- procedure SetCONCEPTOValue(const aValue: String); virtual;
- procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
- function GetCANTIDADValue: Integer; virtual;
- function GetCANTIDADIsNull: Boolean; virtual;
- function GetOldCANTIDADValue: Integer; virtual;
- function GetOldCANTIDADIsNull: Boolean; virtual;
- procedure SetCANTIDADValue(const aValue: Integer); virtual;
- procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
- function GetIMPORTE_UNIDADValue: Currency; virtual;
- function GetIMPORTE_UNIDADIsNull: Boolean; virtual;
- function GetOldIMPORTE_UNIDADValue: Currency; virtual;
- function GetOldIMPORTE_UNIDADIsNull: Boolean; virtual;
- procedure SetIMPORTE_UNIDADValue(const aValue: Currency); virtual;
- procedure SetIMPORTE_UNIDADIsNull(const aValue: Boolean); virtual;
- function GetIMPORTE_TOTALValue: Currency; virtual;
- function GetIMPORTE_TOTALIsNull: Boolean; virtual;
- function GetOldIMPORTE_TOTALValue: Currency; virtual;
- function GetOldIMPORTE_TOTALIsNull: Boolean; virtual;
- procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
- procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
function GetDESCUENTOValue: Float; virtual;
function GetDESCUENTOIsNull: Boolean; virtual;
function GetOldDESCUENTOValue: Float; virtual;
function GetOldDESCUENTOIsNull: Boolean; virtual;
procedure SetDESCUENTOValue(const aValue: Float); virtual;
procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
- function GetIMPORTE_PORTEValue: Float; virtual;
+ function GetIMPORTE_PORTEValue: Currency; virtual;
function GetIMPORTE_PORTEIsNull: Boolean; virtual;
- function GetOldIMPORTE_PORTEValue: Float; virtual;
+ function GetOldIMPORTE_PORTEValue: Currency; virtual;
function GetOldIMPORTE_PORTEIsNull: Boolean; virtual;
- procedure SetIMPORTE_PORTEValue(const aValue: Float); virtual;
+ procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
- function GetVISIBLEValue: Integer; virtual;
- function GetVISIBLEIsNull: Boolean; virtual;
- function GetOldVISIBLEValue: Integer; virtual;
- function GetOldVISIBLEIsNull: Boolean; virtual;
- procedure SetVISIBLEValue(const aValue: Integer); virtual;
- procedure SetVISIBLEIsNull(const aValue: Boolean); virtual;
+ function GetREFERENCIAValue: String; virtual;
+ function GetREFERENCIAIsNull: Boolean; virtual;
+ function GetOldREFERENCIAValue: String; virtual;
+ function GetOldREFERENCIAIsNull: Boolean; virtual;
+ procedure SetREFERENCIAValue(const aValue: String); virtual;
+ procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_PROVEEDORValue: String; virtual;
function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual;
function GetOldREFERENCIA_PROVEEDORValue: String; virtual;
@@ -839,14 +647,6 @@ type
property TIPO_DETALLEIsNull : Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
property OldTIPO_DETALLEIsNull : Boolean read GetOldTIPO_DETALLEIsNull;
- property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
- property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
- property OldREFERENCIA : String read GetOldREFERENCIAValue;
- property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
- property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
- property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
- property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
- property OldID_ARTICULOIsNull : Boolean read GetOldID_ARTICULOIsNull;
property CONCEPTO : String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
@@ -863,354 +663,22 @@ type
property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull;
- property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue;
- property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
- property OldDESCUENTO : Float read GetOldDESCUENTOValue;
- property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull;
- property IMPORTE_PORTE : Float read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
- property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
- property OldIMPORTE_PORTE : Float read GetOldIMPORTE_PORTEValue;
- property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull;
property VISIBLE : Integer read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
property OldVISIBLE : Integer read GetOldVISIBLEValue;
property OldVISIBLEIsNull : Boolean read GetOldVISIBLEIsNull;
- property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
- property REFERENCIA_PROVEEDORIsNull : Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
- property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
- property OldREFERENCIA_PROVEEDORIsNull : Boolean read GetOldREFERENCIA_PROVEEDORIsNull;
-
- public
- constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
- destructor Destroy; override;
-
- end;
-
- { IAlbaranesProveedor_RefreshDelta }
- IAlbaranesProveedor_RefreshDelta = interface(IAlbaranesProveedor_Refresh)
- ['{6A084FC0-F666-4E34-8E46-ED49C23E295A}']
- { Property getters and setters }
- function GetOldIDValue : Integer;
- function GetOldID_EMPRESAValue : Integer;
- function GetOldID_PROVEEDORValue : Integer;
- function GetOldNOMBREValue : String;
- function GetOldFECHA_ALBARANValue : DateTime;
- function GetOldREFERENCIAValue : String;
- function GetOldREFERENCIA_PROVEEDORValue : String;
- function GetOldTIPOValue : String;
- function GetOldID_ALMACENValue : Integer;
- function GetOldNOMBRE_ALMACENValue : String;
- function GetOldID_PEDIDOValue : Integer;
- function GetOldREF_PED_PROVEEDORValue : String;
- function GetOldID_FACTURAValue : Integer;
- function GetOldREF_FACTURAValue : String;
- function GetOldREF_FACTURA_PROVValue : String;
- function GetOldCALLEValue : String;
- function GetOldCODIGO_POSTALValue : String;
- function GetOldPOBLACIONValue : String;
- function GetOldPROVINCIAValue : String;
- function GetOldPERSONA_CONTACTOValue : String;
- function GetOldTELEFONOValue : String;
- function GetOldIMPORTE_NETOValue : Currency;
- function GetOldIMPORTE_PORTEValue : Currency;
- function GetOldDESCUENTOValue : Float;
- function GetOldIMPORTE_DESCUENTOValue : Currency;
- function GetOldBASE_IMPONIBLEValue : Currency;
- function GetOldIVAValue : Float;
- function GetOldIMPORTE_IVAValue : Currency;
- function GetOldIMPORTE_TOTALValue : Currency;
- function GetOldOBSERVACIONESValue : IROStrings;
- function GetOldINCIDENCIASValue : IROStrings;
- function GetOldINCIDENCIAS_ACTIVASValue : Integer;
- function GetOldFECHA_ALTAValue : DateTime;
- function GetOldFECHA_MODIFICACIONValue : DateTime;
- function GetOldUSUARIOValue : String;
- function GetOldID_FORMA_PAGOValue : Integer;
-
- { Properties }
- property OldID : Integer read GetOldIDValue;
- property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
- property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
- property OldNOMBRE : String read GetOldNOMBREValue;
- property OldFECHA_ALBARAN : DateTime read GetOldFECHA_ALBARANValue;
- property OldREFERENCIA : String read GetOldREFERENCIAValue;
- property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
- property OldTIPO : String read GetOldTIPOValue;
- property OldID_ALMACEN : Integer read GetOldID_ALMACENValue;
- property OldNOMBRE_ALMACEN : String read GetOldNOMBRE_ALMACENValue;
- property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
- property OldREF_PED_PROVEEDOR : String read GetOldREF_PED_PROVEEDORValue;
- property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
- property OldREF_FACTURA : String read GetOldREF_FACTURAValue;
- property OldREF_FACTURA_PROV : String read GetOldREF_FACTURA_PROVValue;
- property OldCALLE : String read GetOldCALLEValue;
- property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
- property OldPOBLACION : String read GetOldPOBLACIONValue;
- property OldPROVINCIA : String read GetOldPROVINCIAValue;
- property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
- property OldTELEFONO : String read GetOldTELEFONOValue;
- property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue;
- property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
+ property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
+ property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
+ property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
+ property OldID_ARTICULOIsNull : Boolean read GetOldID_ARTICULOIsNull;
+ property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue;
+ property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
- property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue;
- property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue;
- property OldIVA : Float read GetOldIVAValue;
- property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue;
- property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
- property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue;
- property OldINCIDENCIAS : IROStrings read GetOldINCIDENCIASValue;
- property OldINCIDENCIAS_ACTIVAS : Integer read GetOldINCIDENCIAS_ACTIVASValue;
- property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
- property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
- property OldUSUARIO : String read GetOldUSUARIOValue;
- property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
- end;
-
- { TAlbaranesProveedor_RefreshBusinessProcessorRules }
- TAlbaranesProveedor_RefreshBusinessProcessorRules = class(TDABusinessProcessorRules, IAlbaranesProveedor_Refresh, IAlbaranesProveedor_RefreshDelta)
- private
- f_OBSERVACIONES: IROStrings;
- f_INCIDENCIAS: IROStrings;
- procedure OBSERVACIONES_OnChange(Sender: TObject);
- procedure INCIDENCIAS_OnChange(Sender: TObject);
- protected
- { Property getters and setters }
- function GetIDValue: Integer; virtual;
- function GetIDIsNull: Boolean; virtual;
- function GetOldIDValue: Integer; virtual;
- function GetOldIDIsNull: Boolean; virtual;
- procedure SetIDValue(const aValue: Integer); virtual;
- procedure SetIDIsNull(const aValue: Boolean); virtual;
- function GetID_EMPRESAValue: Integer; virtual;
- function GetID_EMPRESAIsNull: Boolean; virtual;
- function GetOldID_EMPRESAValue: Integer; virtual;
- function GetOldID_EMPRESAIsNull: Boolean; virtual;
- procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
- procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
- function GetID_PROVEEDORValue: Integer; virtual;
- function GetID_PROVEEDORIsNull: Boolean; virtual;
- function GetOldID_PROVEEDORValue: Integer; virtual;
- function GetOldID_PROVEEDORIsNull: Boolean; virtual;
- procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
- procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual;
- function GetNOMBREValue: String; virtual;
- function GetNOMBREIsNull: Boolean; virtual;
- function GetOldNOMBREValue: String; virtual;
- function GetOldNOMBREIsNull: Boolean; virtual;
- procedure SetNOMBREValue(const aValue: String); virtual;
- procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
- function GetFECHA_ALBARANValue: DateTime; virtual;
- function GetFECHA_ALBARANIsNull: Boolean; virtual;
- function GetOldFECHA_ALBARANValue: DateTime; virtual;
- function GetOldFECHA_ALBARANIsNull: Boolean; virtual;
- procedure SetFECHA_ALBARANValue(const aValue: DateTime); virtual;
- procedure SetFECHA_ALBARANIsNull(const aValue: Boolean); virtual;
- function GetREFERENCIAValue: String; virtual;
- function GetREFERENCIAIsNull: Boolean; virtual;
- function GetOldREFERENCIAValue: String; virtual;
- function GetOldREFERENCIAIsNull: Boolean; virtual;
- procedure SetREFERENCIAValue(const aValue: String); virtual;
- procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
- function GetREFERENCIA_PROVEEDORValue: String; virtual;
- function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual;
- function GetOldREFERENCIA_PROVEEDORValue: String; virtual;
- function GetOldREFERENCIA_PROVEEDORIsNull: Boolean; virtual;
- procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
- procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual;
- function GetTIPOValue: String; virtual;
- function GetTIPOIsNull: Boolean; virtual;
- function GetOldTIPOValue: String; virtual;
- function GetOldTIPOIsNull: Boolean; virtual;
- procedure SetTIPOValue(const aValue: String); virtual;
- procedure SetTIPOIsNull(const aValue: Boolean); virtual;
- function GetID_ALMACENValue: Integer; virtual;
- function GetID_ALMACENIsNull: Boolean; virtual;
- function GetOldID_ALMACENValue: Integer; virtual;
- function GetOldID_ALMACENIsNull: Boolean; virtual;
- procedure SetID_ALMACENValue(const aValue: Integer); virtual;
- procedure SetID_ALMACENIsNull(const aValue: Boolean); virtual;
- function GetNOMBRE_ALMACENValue: String; virtual;
- function GetNOMBRE_ALMACENIsNull: Boolean; virtual;
- function GetOldNOMBRE_ALMACENValue: String; virtual;
- function GetOldNOMBRE_ALMACENIsNull: Boolean; virtual;
- procedure SetNOMBRE_ALMACENValue(const aValue: String); virtual;
- procedure SetNOMBRE_ALMACENIsNull(const aValue: Boolean); virtual;
- function GetID_PEDIDOValue: Integer; virtual;
- function GetID_PEDIDOIsNull: Boolean; virtual;
- function GetOldID_PEDIDOValue: Integer; virtual;
- function GetOldID_PEDIDOIsNull: Boolean; virtual;
- procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
- procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual;
- function GetREF_PED_PROVEEDORValue: String; virtual;
- function GetREF_PED_PROVEEDORIsNull: Boolean; virtual;
- function GetOldREF_PED_PROVEEDORValue: String; virtual;
- function GetOldREF_PED_PROVEEDORIsNull: Boolean; virtual;
- procedure SetREF_PED_PROVEEDORValue(const aValue: String); virtual;
- procedure SetREF_PED_PROVEEDORIsNull(const aValue: Boolean); virtual;
- function GetID_FACTURAValue: Integer; virtual;
- function GetID_FACTURAIsNull: Boolean; virtual;
- function GetOldID_FACTURAValue: Integer; virtual;
- function GetOldID_FACTURAIsNull: Boolean; virtual;
- procedure SetID_FACTURAValue(const aValue: Integer); virtual;
- procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual;
- function GetREF_FACTURAValue: String; virtual;
- function GetREF_FACTURAIsNull: Boolean; virtual;
- function GetOldREF_FACTURAValue: String; virtual;
- function GetOldREF_FACTURAIsNull: Boolean; virtual;
- procedure SetREF_FACTURAValue(const aValue: String); virtual;
- procedure SetREF_FACTURAIsNull(const aValue: Boolean); virtual;
- function GetREF_FACTURA_PROVValue: String; virtual;
- function GetREF_FACTURA_PROVIsNull: Boolean; virtual;
- function GetOldREF_FACTURA_PROVValue: String; virtual;
- function GetOldREF_FACTURA_PROVIsNull: Boolean; virtual;
- procedure SetREF_FACTURA_PROVValue(const aValue: String); virtual;
- procedure SetREF_FACTURA_PROVIsNull(const aValue: Boolean); virtual;
- function GetCALLEValue: String; virtual;
- function GetCALLEIsNull: Boolean; virtual;
- function GetOldCALLEValue: String; virtual;
- function GetOldCALLEIsNull: Boolean; virtual;
- procedure SetCALLEValue(const aValue: String); virtual;
- procedure SetCALLEIsNull(const aValue: Boolean); virtual;
- function GetCODIGO_POSTALValue: String; virtual;
- function GetCODIGO_POSTALIsNull: Boolean; virtual;
- function GetOldCODIGO_POSTALValue: String; virtual;
- function GetOldCODIGO_POSTALIsNull: Boolean; virtual;
- procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
- procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
- function GetPOBLACIONValue: String; virtual;
- function GetPOBLACIONIsNull: Boolean; virtual;
- function GetOldPOBLACIONValue: String; virtual;
- function GetOldPOBLACIONIsNull: Boolean; virtual;
- procedure SetPOBLACIONValue(const aValue: String); virtual;
- procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual;
- function GetPROVINCIAValue: String; virtual;
- function GetPROVINCIAIsNull: Boolean; virtual;
- function GetOldPROVINCIAValue: String; virtual;
- function GetOldPROVINCIAIsNull: Boolean; virtual;
- procedure SetPROVINCIAValue(const aValue: String); virtual;
- procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual;
- function GetPERSONA_CONTACTOValue: String; virtual;
- function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
- function GetOldPERSONA_CONTACTOValue: String; virtual;
- function GetOldPERSONA_CONTACTOIsNull: Boolean; virtual;
- procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
- procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual;
- function GetTELEFONOValue: String; virtual;
- function GetTELEFONOIsNull: Boolean; virtual;
- function GetOldTELEFONOValue: String; virtual;
- function GetOldTELEFONOIsNull: Boolean; virtual;
- procedure SetTELEFONOValue(const aValue: String); virtual;
- procedure SetTELEFONOIsNull(const aValue: Boolean); virtual;
- function GetIMPORTE_NETOValue: Currency; virtual;
- function GetIMPORTE_NETOIsNull: Boolean; virtual;
- function GetOldIMPORTE_NETOValue: Currency; virtual;
- function GetOldIMPORTE_NETOIsNull: Boolean; virtual;
- procedure SetIMPORTE_NETOValue(const aValue: Currency); virtual;
- procedure SetIMPORTE_NETOIsNull(const aValue: Boolean); virtual;
- function GetIMPORTE_PORTEValue: Currency; virtual;
- function GetIMPORTE_PORTEIsNull: Boolean; virtual;
- function GetOldIMPORTE_PORTEValue: Currency; virtual;
- function GetOldIMPORTE_PORTEIsNull: Boolean; virtual;
- procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
- procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
- function GetDESCUENTOValue: Float; virtual;
- function GetDESCUENTOIsNull: Boolean; virtual;
- function GetOldDESCUENTOValue: Float; virtual;
- function GetOldDESCUENTOIsNull: Boolean; virtual;
- procedure SetDESCUENTOValue(const aValue: Float); virtual;
- procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
- function GetIMPORTE_DESCUENTOValue: Currency; virtual;
- function GetIMPORTE_DESCUENTOIsNull: Boolean; virtual;
- function GetOldIMPORTE_DESCUENTOValue: Currency; virtual;
- function GetOldIMPORTE_DESCUENTOIsNull: Boolean; virtual;
- procedure SetIMPORTE_DESCUENTOValue(const aValue: Currency); virtual;
- procedure SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean); virtual;
- function GetBASE_IMPONIBLEValue: Currency; virtual;
- function GetBASE_IMPONIBLEIsNull: Boolean; virtual;
- function GetOldBASE_IMPONIBLEValue: Currency; virtual;
- function GetOldBASE_IMPONIBLEIsNull: Boolean; virtual;
- procedure SetBASE_IMPONIBLEValue(const aValue: Currency); virtual;
- procedure SetBASE_IMPONIBLEIsNull(const aValue: Boolean); virtual;
- function GetIVAValue: Float; virtual;
- function GetIVAIsNull: Boolean; virtual;
- function GetOldIVAValue: Float; virtual;
- function GetOldIVAIsNull: Boolean; virtual;
- procedure SetIVAValue(const aValue: Float); virtual;
- procedure SetIVAIsNull(const aValue: Boolean); virtual;
- function GetIMPORTE_IVAValue: Currency; virtual;
- function GetIMPORTE_IVAIsNull: Boolean; virtual;
- function GetOldIMPORTE_IVAValue: Currency; virtual;
- function GetOldIMPORTE_IVAIsNull: Boolean; virtual;
- procedure SetIMPORTE_IVAValue(const aValue: Currency); virtual;
- procedure SetIMPORTE_IVAIsNull(const aValue: Boolean); virtual;
- function GetIMPORTE_TOTALValue: Currency; virtual;
- function GetIMPORTE_TOTALIsNull: Boolean; virtual;
- function GetOldIMPORTE_TOTALValue: Currency; virtual;
- function GetOldIMPORTE_TOTALIsNull: Boolean; virtual;
- procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
- procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
- function GetOBSERVACIONESValue: IROStrings; virtual;
- function GetOBSERVACIONESIsNull: Boolean; virtual;
- function GetOldOBSERVACIONESValue: IROStrings; virtual;
- function GetOldOBSERVACIONESIsNull: Boolean; virtual;
- procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual;
- function GetINCIDENCIASValue: IROStrings; virtual;
- function GetINCIDENCIASIsNull: Boolean; virtual;
- function GetOldINCIDENCIASValue: IROStrings; virtual;
- function GetOldINCIDENCIASIsNull: Boolean; virtual;
- procedure SetINCIDENCIASIsNull(const aValue: Boolean); virtual;
- function GetINCIDENCIAS_ACTIVASValue: Integer; virtual;
- function GetINCIDENCIAS_ACTIVASIsNull: Boolean; virtual;
- function GetOldINCIDENCIAS_ACTIVASValue: Integer; virtual;
- function GetOldINCIDENCIAS_ACTIVASIsNull: Boolean; virtual;
- procedure SetINCIDENCIAS_ACTIVASValue(const aValue: Integer); virtual;
- procedure SetINCIDENCIAS_ACTIVASIsNull(const aValue: Boolean); virtual;
- function GetFECHA_ALTAValue: DateTime; virtual;
- function GetFECHA_ALTAIsNull: Boolean; virtual;
- function GetOldFECHA_ALTAValue: DateTime; virtual;
- function GetOldFECHA_ALTAIsNull: Boolean; virtual;
- procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
- procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
- function GetFECHA_MODIFICACIONValue: DateTime; virtual;
- function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
- function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
- function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual;
- procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
- procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
- function GetUSUARIOValue: String; virtual;
- function GetUSUARIOIsNull: Boolean; virtual;
- function GetOldUSUARIOValue: String; virtual;
- function GetOldUSUARIOIsNull: Boolean; virtual;
- procedure SetUSUARIOValue(const aValue: String); virtual;
- procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
- function GetID_FORMA_PAGOValue: Integer; virtual;
- function GetID_FORMA_PAGOIsNull: Boolean; virtual;
- function GetOldID_FORMA_PAGOValue: Integer; virtual;
- function GetOldID_FORMA_PAGOIsNull: Boolean; virtual;
- procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
- procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual;
-
- { Properties }
- property ID : Integer read GetIDValue write SetIDValue;
- property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
- property OldID : Integer read GetOldIDValue;
- property OldIDIsNull : Boolean read GetOldIDIsNull;
- property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
- property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
- property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
- property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
- property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
- property ID_PROVEEDORIsNull : Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
- property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
- property OldID_PROVEEDORIsNull : Boolean read GetOldID_PROVEEDORIsNull;
- property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
- property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
- property OldNOMBRE : String read GetOldNOMBREValue;
- property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
- property FECHA_ALBARAN : DateTime read GetFECHA_ALBARANValue write SetFECHA_ALBARANValue;
- property FECHA_ALBARANIsNull : Boolean read GetFECHA_ALBARANIsNull write SetFECHA_ALBARANIsNull;
- property OldFECHA_ALBARAN : DateTime read GetOldFECHA_ALBARANValue;
- property OldFECHA_ALBARANIsNull : Boolean read GetOldFECHA_ALBARANIsNull;
+ property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull;
+ property IMPORTE_PORTE : Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
+ property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
+ property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
+ property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull;
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
@@ -1219,122 +687,6 @@ type
property REFERENCIA_PROVEEDORIsNull : Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
property OldREFERENCIA_PROVEEDORIsNull : Boolean read GetOldREFERENCIA_PROVEEDORIsNull;
- property TIPO : String read GetTIPOValue write SetTIPOValue;
- property TIPOIsNull : Boolean read GetTIPOIsNull write SetTIPOIsNull;
- property OldTIPO : String read GetOldTIPOValue;
- property OldTIPOIsNull : Boolean read GetOldTIPOIsNull;
- property ID_ALMACEN : Integer read GetID_ALMACENValue write SetID_ALMACENValue;
- property ID_ALMACENIsNull : Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull;
- property OldID_ALMACEN : Integer read GetOldID_ALMACENValue;
- property OldID_ALMACENIsNull : Boolean read GetOldID_ALMACENIsNull;
- property NOMBRE_ALMACEN : String read GetNOMBRE_ALMACENValue write SetNOMBRE_ALMACENValue;
- property NOMBRE_ALMACENIsNull : Boolean read GetNOMBRE_ALMACENIsNull write SetNOMBRE_ALMACENIsNull;
- property OldNOMBRE_ALMACEN : String read GetOldNOMBRE_ALMACENValue;
- property OldNOMBRE_ALMACENIsNull : Boolean read GetOldNOMBRE_ALMACENIsNull;
- property ID_PEDIDO : Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
- property ID_PEDIDOIsNull : Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
- property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
- property OldID_PEDIDOIsNull : Boolean read GetOldID_PEDIDOIsNull;
- property REF_PED_PROVEEDOR : String read GetREF_PED_PROVEEDORValue write SetREF_PED_PROVEEDORValue;
- property REF_PED_PROVEEDORIsNull : Boolean read GetREF_PED_PROVEEDORIsNull write SetREF_PED_PROVEEDORIsNull;
- property OldREF_PED_PROVEEDOR : String read GetOldREF_PED_PROVEEDORValue;
- property OldREF_PED_PROVEEDORIsNull : Boolean read GetOldREF_PED_PROVEEDORIsNull;
- property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue;
- property ID_FACTURAIsNull : Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
- property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
- property OldID_FACTURAIsNull : Boolean read GetOldID_FACTURAIsNull;
- property REF_FACTURA : String read GetREF_FACTURAValue write SetREF_FACTURAValue;
- property REF_FACTURAIsNull : Boolean read GetREF_FACTURAIsNull write SetREF_FACTURAIsNull;
- property OldREF_FACTURA : String read GetOldREF_FACTURAValue;
- property OldREF_FACTURAIsNull : Boolean read GetOldREF_FACTURAIsNull;
- property REF_FACTURA_PROV : String read GetREF_FACTURA_PROVValue write SetREF_FACTURA_PROVValue;
- property REF_FACTURA_PROVIsNull : Boolean read GetREF_FACTURA_PROVIsNull write SetREF_FACTURA_PROVIsNull;
- property OldREF_FACTURA_PROV : String read GetOldREF_FACTURA_PROVValue;
- property OldREF_FACTURA_PROVIsNull : Boolean read GetOldREF_FACTURA_PROVIsNull;
- property CALLE : String read GetCALLEValue write SetCALLEValue;
- property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull;
- property OldCALLE : String read GetOldCALLEValue;
- property OldCALLEIsNull : Boolean read GetOldCALLEIsNull;
- property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
- property CODIGO_POSTALIsNull : Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
- property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
- property OldCODIGO_POSTALIsNull : Boolean read GetOldCODIGO_POSTALIsNull;
- property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue;
- property POBLACIONIsNull : Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
- property OldPOBLACION : String read GetOldPOBLACIONValue;
- property OldPOBLACIONIsNull : Boolean read GetOldPOBLACIONIsNull;
- property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue;
- property PROVINCIAIsNull : Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
- property OldPROVINCIA : String read GetOldPROVINCIAValue;
- property OldPROVINCIAIsNull : Boolean read GetOldPROVINCIAIsNull;
- property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
- property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
- property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
- property OldPERSONA_CONTACTOIsNull : Boolean read GetOldPERSONA_CONTACTOIsNull;
- property TELEFONO : String read GetTELEFONOValue write SetTELEFONOValue;
- property TELEFONOIsNull : Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull;
- property OldTELEFONO : String read GetOldTELEFONOValue;
- property OldTELEFONOIsNull : Boolean read GetOldTELEFONOIsNull;
- property IMPORTE_NETO : Currency read GetIMPORTE_NETOValue write SetIMPORTE_NETOValue;
- property IMPORTE_NETOIsNull : Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull;
- property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue;
- property OldIMPORTE_NETOIsNull : Boolean read GetOldIMPORTE_NETOIsNull;
- property IMPORTE_PORTE : Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
- property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
- property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
- property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull;
- property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue;
- property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
- property OldDESCUENTO : Float read GetOldDESCUENTOValue;
- property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull;
- property IMPORTE_DESCUENTO : Currency read GetIMPORTE_DESCUENTOValue write SetIMPORTE_DESCUENTOValue;
- property IMPORTE_DESCUENTOIsNull : Boolean read GetIMPORTE_DESCUENTOIsNull write SetIMPORTE_DESCUENTOIsNull;
- property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue;
- property OldIMPORTE_DESCUENTOIsNull : Boolean read GetOldIMPORTE_DESCUENTOIsNull;
- property BASE_IMPONIBLE : Currency read GetBASE_IMPONIBLEValue write SetBASE_IMPONIBLEValue;
- property BASE_IMPONIBLEIsNull : Boolean read GetBASE_IMPONIBLEIsNull write SetBASE_IMPONIBLEIsNull;
- property OldBASE_IMPONIBLE : Currency read GetOldBASE_IMPONIBLEValue;
- property OldBASE_IMPONIBLEIsNull : Boolean read GetOldBASE_IMPONIBLEIsNull;
- property IVA : Float read GetIVAValue write SetIVAValue;
- property IVAIsNull : Boolean read GetIVAIsNull write SetIVAIsNull;
- property OldIVA : Float read GetOldIVAValue;
- property OldIVAIsNull : Boolean read GetOldIVAIsNull;
- property IMPORTE_IVA : Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
- property IMPORTE_IVAIsNull : Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull;
- property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue;
- property OldIMPORTE_IVAIsNull : Boolean read GetOldIMPORTE_IVAIsNull;
- property IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
- property IMPORTE_TOTALIsNull : Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
- property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
- property OldIMPORTE_TOTALIsNull : Boolean read GetOldIMPORTE_TOTALIsNull;
- property OBSERVACIONES : IROStrings read GetOBSERVACIONESValue;
- property OBSERVACIONESIsNull : Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
- property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue;
- property OldOBSERVACIONESIsNull : Boolean read GetOldOBSERVACIONESIsNull;
- property INCIDENCIAS : IROStrings read GetINCIDENCIASValue;
- property INCIDENCIASIsNull : Boolean read GetINCIDENCIASIsNull write SetINCIDENCIASIsNull;
- property OldINCIDENCIAS : IROStrings read GetOldINCIDENCIASValue;
- property OldINCIDENCIASIsNull : Boolean read GetOldINCIDENCIASIsNull;
- property INCIDENCIAS_ACTIVAS : Integer read GetINCIDENCIAS_ACTIVASValue write SetINCIDENCIAS_ACTIVASValue;
- property INCIDENCIAS_ACTIVASIsNull : Boolean read GetINCIDENCIAS_ACTIVASIsNull write SetINCIDENCIAS_ACTIVASIsNull;
- property OldINCIDENCIAS_ACTIVAS : Integer read GetOldINCIDENCIAS_ACTIVASValue;
- property OldINCIDENCIAS_ACTIVASIsNull : Boolean read GetOldINCIDENCIAS_ACTIVASIsNull;
- property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
- property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
- property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
- property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull;
- property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
- property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
- property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
- property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull;
- property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
- property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
- property OldUSUARIO : String read GetOldUSUARIOValue;
- property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull;
- property ID_FORMA_PAGO : Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
- property ID_FORMA_PAGOIsNull : Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
- property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
- property OldID_FORMA_PAGOIsNull : Boolean read GetOldID_FORMA_PAGOIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -2667,68 +2019,6 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesTIPO_DETALLE] := Null;
end;
-function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetREFERENCIAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesREFERENCIA];
-end;
-
-function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesREFERENCIA]);
-end;
-
-function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetOldREFERENCIAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_DetallesREFERENCIA];
-end;
-
-function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_DetallesREFERENCIA]);
-end;
-
-procedure TAlbaranesProveedor_DetallesBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesREFERENCIA] := aValue;
-end;
-
-procedure TAlbaranesProveedor_DetallesBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesREFERENCIA] := Null;
-end;
-
-function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetID_ARTICULOValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesID_ARTICULO];
-end;
-
-function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetID_ARTICULOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesID_ARTICULO]);
-end;
-
-function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetOldID_ARTICULOValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_DetallesID_ARTICULO];
-end;
-
-function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetOldID_ARTICULOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_DetallesID_ARTICULO]);
-end;
-
-procedure TAlbaranesProveedor_DetallesBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesID_ARTICULO] := aValue;
-end;
-
-procedure TAlbaranesProveedor_DetallesBusinessProcessorRules.SetID_ARTICULOIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesID_ARTICULO] := Null;
-end;
-
function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetCONCEPTOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesCONCEPTO];
@@ -2853,6 +2143,68 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesIMPORTE_TOTAL] := Null;
end;
+function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetVISIBLEValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesVISIBLE];
+end;
+
+function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetVISIBLEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesVISIBLE]);
+end;
+
+function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetOldVISIBLEValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_DetallesVISIBLE];
+end;
+
+function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetOldVISIBLEIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_DetallesVISIBLE]);
+end;
+
+procedure TAlbaranesProveedor_DetallesBusinessProcessorRules.SetVISIBLEValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesVISIBLE] := aValue;
+end;
+
+procedure TAlbaranesProveedor_DetallesBusinessProcessorRules.SetVISIBLEIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesVISIBLE] := Null;
+end;
+
+function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetID_ARTICULOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesID_ARTICULO];
+end;
+
+function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetID_ARTICULOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesID_ARTICULO]);
+end;
+
+function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetOldID_ARTICULOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_DetallesID_ARTICULO];
+end;
+
+function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetOldID_ARTICULOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_DetallesID_ARTICULO]);
+end;
+
+procedure TAlbaranesProveedor_DetallesBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesID_ARTICULO] := aValue;
+end;
+
+procedure TAlbaranesProveedor_DetallesBusinessProcessorRules.SetID_ARTICULOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesID_ARTICULO] := Null;
+end;
+
function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetDESCUENTOValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesDESCUENTO];
@@ -2915,35 +2267,35 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesIMPORTE_PORTE] := Null;
end;
-function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetVISIBLEValue: Integer;
+function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetREFERENCIAValue: String;
begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesVISIBLE];
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesREFERENCIA];
end;
-function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetVISIBLEIsNull: Boolean;
+function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesVISIBLE]);
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesREFERENCIA]);
end;
-function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetOldVISIBLEValue: Integer;
+function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_DetallesVISIBLE];
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_DetallesREFERENCIA];
end;
-function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetOldVISIBLEIsNull: Boolean;
+function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_DetallesVISIBLE]);
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_DetallesREFERENCIA]);
end;
-procedure TAlbaranesProveedor_DetallesBusinessProcessorRules.SetVISIBLEValue(const aValue: Integer);
+procedure TAlbaranesProveedor_DetallesBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesVISIBLE] := aValue;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesREFERENCIA] := aValue;
end;
-procedure TAlbaranesProveedor_DetallesBusinessProcessorRules.SetVISIBLEIsNull(const aValue: Boolean);
+procedure TAlbaranesProveedor_DetallesBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesVISIBLE] := Null;
+ BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesREFERENCIA] := Null;
end;
function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetREFERENCIA_PROVEEDORValue: String;
@@ -2978,1599 +2330,9 @@ begin
end;
-{ TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules }
-constructor TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
-begin
- inherited;
-end;
-
-destructor TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.Destroy;
-begin
- inherited;
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetIDValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshID];
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetIDIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshID]);
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldIDValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshID];
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldIDIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshID]);
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetIDValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshID] := aValue;
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshID] := Null;
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetID_ALBARANValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshID_ALBARAN];
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetID_ALBARANIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshID_ALBARAN]);
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldID_ALBARANValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshID_ALBARAN];
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldID_ALBARANIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshID_ALBARAN]);
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetID_ALBARANValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshID_ALBARAN] := aValue;
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetID_ALBARANIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshID_ALBARAN] := Null;
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetPOSICIONValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshPOSICION];
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetPOSICIONIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshPOSICION]);
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldPOSICIONValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshPOSICION];
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldPOSICIONIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshPOSICION]);
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetPOSICIONValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshPOSICION] := aValue;
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetPOSICIONIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshPOSICION] := Null;
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetTIPO_DETALLEValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshTIPO_DETALLE];
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetTIPO_DETALLEIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshTIPO_DETALLE]);
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldTIPO_DETALLEValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshTIPO_DETALLE];
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldTIPO_DETALLEIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshTIPO_DETALLE]);
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetTIPO_DETALLEValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshTIPO_DETALLE] := aValue;
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetTIPO_DETALLEIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshTIPO_DETALLE] := Null;
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetREFERENCIAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshREFERENCIA];
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshREFERENCIA]);
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldREFERENCIAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshREFERENCIA];
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshREFERENCIA]);
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshREFERENCIA] := aValue;
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshREFERENCIA] := Null;
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetID_ARTICULOValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshID_ARTICULO];
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetID_ARTICULOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshID_ARTICULO]);
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldID_ARTICULOValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshID_ARTICULO];
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldID_ARTICULOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshID_ARTICULO]);
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshID_ARTICULO] := aValue;
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetID_ARTICULOIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshID_ARTICULO] := Null;
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetCONCEPTOValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshCONCEPTO];
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetCONCEPTOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshCONCEPTO]);
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldCONCEPTOValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshCONCEPTO];
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldCONCEPTOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshCONCEPTO]);
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetCONCEPTOValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshCONCEPTO] := aValue;
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetCONCEPTOIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshCONCEPTO] := Null;
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetCANTIDADValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshCANTIDAD];
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetCANTIDADIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshCANTIDAD]);
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldCANTIDADValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshCANTIDAD];
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldCANTIDADIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshCANTIDAD]);
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshCANTIDAD] := aValue;
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetCANTIDADIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshCANTIDAD] := Null;
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetIMPORTE_UNIDADValue: Currency;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshIMPORTE_UNIDAD];
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetIMPORTE_UNIDADIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshIMPORTE_UNIDAD]);
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldIMPORTE_UNIDADValue: Currency;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshIMPORTE_UNIDAD];
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldIMPORTE_UNIDADIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshIMPORTE_UNIDAD]);
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetIMPORTE_UNIDADValue(const aValue: Currency);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshIMPORTE_UNIDAD] := aValue;
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetIMPORTE_UNIDADIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshIMPORTE_UNIDAD] := Null;
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshIMPORTE_TOTAL];
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetIMPORTE_TOTALIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshIMPORTE_TOTAL]);
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshIMPORTE_TOTAL];
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldIMPORTE_TOTALIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshIMPORTE_TOTAL]);
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshIMPORTE_TOTAL] := aValue;
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshIMPORTE_TOTAL] := Null;
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetDESCUENTOValue: Float;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshDESCUENTO];
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetDESCUENTOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshDESCUENTO]);
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldDESCUENTOValue: Float;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshDESCUENTO];
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshDESCUENTO]);
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshDESCUENTO] := aValue;
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshDESCUENTO] := Null;
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetIMPORTE_PORTEValue: Float;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshIMPORTE_PORTE];
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetIMPORTE_PORTEIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshIMPORTE_PORTE]);
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldIMPORTE_PORTEValue: Float;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshIMPORTE_PORTE];
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldIMPORTE_PORTEIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshIMPORTE_PORTE]);
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetIMPORTE_PORTEValue(const aValue: Float);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshIMPORTE_PORTE] := aValue;
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshIMPORTE_PORTE] := Null;
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetVISIBLEValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshVISIBLE];
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetVISIBLEIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshVISIBLE]);
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldVISIBLEValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshVISIBLE];
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldVISIBLEIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshVISIBLE]);
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetVISIBLEValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshVISIBLE] := aValue;
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetVISIBLEIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshVISIBLE] := Null;
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetREFERENCIA_PROVEEDORValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshREFERENCIA_PROVEEDOR];
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetREFERENCIA_PROVEEDORIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshREFERENCIA_PROVEEDOR]);
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshREFERENCIA_PROVEEDOR];
-end;
-
-function TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_Detalles_RefreshREFERENCIA_PROVEEDOR]);
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetREFERENCIA_PROVEEDORValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshREFERENCIA_PROVEEDOR] := aValue;
-end;
-
-procedure TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules.SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_Detalles_RefreshREFERENCIA_PROVEEDOR] := Null;
-end;
-
-
-{ TAlbaranesProveedor_RefreshBusinessProcessorRules }
-constructor TAlbaranesProveedor_RefreshBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
-var
- StrList: TStringList;
-begin
- inherited;
-
- StrList := TStringList.Create;
- StrList.OnChange := OBSERVACIONES_OnChange;
- f_OBSERVACIONES := NewROStrings(StrList,True);
-
- StrList := TStringList.Create;
- StrList.OnChange := INCIDENCIAS_OnChange;
- f_INCIDENCIAS := NewROStrings(StrList,True);
-end;
-
-destructor TAlbaranesProveedor_RefreshBusinessProcessorRules.Destroy;
-begin
- inherited;
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.OBSERVACIONES_OnChange(Sender: TObject);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshOBSERVACIONES] := TStringList(Sender).Text;
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.INCIDENCIAS_OnChange(Sender: TObject);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshINCIDENCIAS] := TStringList(Sender).Text;
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetIDValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetIDIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID]);
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldIDValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshID];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldIDIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshID]);
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetIDValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID] := aValue;
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID] := Null;
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetID_EMPRESAValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_EMPRESA];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_EMPRESA]);
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshID_EMPRESA];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshID_EMPRESA]);
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_EMPRESA] := aValue;
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_EMPRESA] := Null;
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetID_PROVEEDORValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_PROVEEDOR];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetID_PROVEEDORIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_PROVEEDOR]);
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldID_PROVEEDORValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshID_PROVEEDOR];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldID_PROVEEDORIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshID_PROVEEDOR]);
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetID_PROVEEDORValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_PROVEEDOR] := aValue;
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetID_PROVEEDORIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_PROVEEDOR] := Null;
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetNOMBREValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshNOMBRE];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetNOMBREIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshNOMBRE]);
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldNOMBREValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshNOMBRE];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshNOMBRE]);
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetNOMBREValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshNOMBRE] := aValue;
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshNOMBRE] := Null;
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetFECHA_ALBARANValue: DateTime;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshFECHA_ALBARAN];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetFECHA_ALBARANIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshFECHA_ALBARAN]);
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldFECHA_ALBARANValue: DateTime;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshFECHA_ALBARAN];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldFECHA_ALBARANIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshFECHA_ALBARAN]);
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetFECHA_ALBARANValue(const aValue: DateTime);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshFECHA_ALBARAN] := aValue;
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetFECHA_ALBARANIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshFECHA_ALBARAN] := Null;
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetREFERENCIAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREFERENCIA];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREFERENCIA]);
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldREFERENCIAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshREFERENCIA];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshREFERENCIA]);
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREFERENCIA] := aValue;
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREFERENCIA] := Null;
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetREFERENCIA_PROVEEDORValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREFERENCIA_PROVEEDOR];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetREFERENCIA_PROVEEDORIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREFERENCIA_PROVEEDOR]);
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshREFERENCIA_PROVEEDOR];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshREFERENCIA_PROVEEDOR]);
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetREFERENCIA_PROVEEDORValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREFERENCIA_PROVEEDOR] := aValue;
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREFERENCIA_PROVEEDOR] := Null;
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetTIPOValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshTIPO];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetTIPOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshTIPO]);
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldTIPOValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshTIPO];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldTIPOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshTIPO]);
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetTIPOValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshTIPO] := aValue;
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetTIPOIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshTIPO] := Null;
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetID_ALMACENValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_ALMACEN];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetID_ALMACENIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_ALMACEN]);
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldID_ALMACENValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshID_ALMACEN];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldID_ALMACENIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshID_ALMACEN]);
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetID_ALMACENValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_ALMACEN] := aValue;
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetID_ALMACENIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_ALMACEN] := Null;
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetNOMBRE_ALMACENValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshNOMBRE_ALMACEN];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetNOMBRE_ALMACENIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshNOMBRE_ALMACEN]);
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldNOMBRE_ALMACENValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshNOMBRE_ALMACEN];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldNOMBRE_ALMACENIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshNOMBRE_ALMACEN]);
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetNOMBRE_ALMACENValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshNOMBRE_ALMACEN] := aValue;
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetNOMBRE_ALMACENIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshNOMBRE_ALMACEN] := Null;
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetID_PEDIDOValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_PEDIDO];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetID_PEDIDOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_PEDIDO]);
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldID_PEDIDOValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshID_PEDIDO];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldID_PEDIDOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshID_PEDIDO]);
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetID_PEDIDOValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_PEDIDO] := aValue;
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetID_PEDIDOIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_PEDIDO] := Null;
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetREF_PED_PROVEEDORValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREF_PED_PROVEEDOR];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetREF_PED_PROVEEDORIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREF_PED_PROVEEDOR]);
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldREF_PED_PROVEEDORValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshREF_PED_PROVEEDOR];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldREF_PED_PROVEEDORIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshREF_PED_PROVEEDOR]);
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetREF_PED_PROVEEDORValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREF_PED_PROVEEDOR] := aValue;
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetREF_PED_PROVEEDORIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREF_PED_PROVEEDOR] := Null;
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetID_FACTURAValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_FACTURA];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetID_FACTURAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_FACTURA]);
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldID_FACTURAValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshID_FACTURA];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldID_FACTURAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshID_FACTURA]);
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_FACTURA] := aValue;
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetID_FACTURAIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_FACTURA] := Null;
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetREF_FACTURAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREF_FACTURA];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetREF_FACTURAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREF_FACTURA]);
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldREF_FACTURAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshREF_FACTURA];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldREF_FACTURAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshREF_FACTURA]);
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetREF_FACTURAValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREF_FACTURA] := aValue;
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetREF_FACTURAIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREF_FACTURA] := Null;
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetREF_FACTURA_PROVValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREF_FACTURA_PROV];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetREF_FACTURA_PROVIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREF_FACTURA_PROV]);
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldREF_FACTURA_PROVValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshREF_FACTURA_PROV];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldREF_FACTURA_PROVIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshREF_FACTURA_PROV]);
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetREF_FACTURA_PROVValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREF_FACTURA_PROV] := aValue;
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetREF_FACTURA_PROVIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshREF_FACTURA_PROV] := Null;
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetCALLEValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshCALLE];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetCALLEIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshCALLE]);
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldCALLEValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshCALLE];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldCALLEIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshCALLE]);
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetCALLEValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshCALLE] := aValue;
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshCALLE] := Null;
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetCODIGO_POSTALValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshCODIGO_POSTAL];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshCODIGO_POSTAL]);
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshCODIGO_POSTAL];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshCODIGO_POSTAL]);
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshCODIGO_POSTAL] := aValue;
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshCODIGO_POSTAL] := Null;
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetPOBLACIONValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshPOBLACION];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetPOBLACIONIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshPOBLACION]);
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldPOBLACIONValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshPOBLACION];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshPOBLACION]);
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetPOBLACIONValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshPOBLACION] := aValue;
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshPOBLACION] := Null;
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetPROVINCIAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshPROVINCIA];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetPROVINCIAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshPROVINCIA]);
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldPROVINCIAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshPROVINCIA];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshPROVINCIA]);
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetPROVINCIAValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshPROVINCIA] := aValue;
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshPROVINCIA] := Null;
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetPERSONA_CONTACTOValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshPERSONA_CONTACTO];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshPERSONA_CONTACTO]);
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshPERSONA_CONTACTO];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshPERSONA_CONTACTO]);
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshPERSONA_CONTACTO] := aValue;
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshPERSONA_CONTACTO] := Null;
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetTELEFONOValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshTELEFONO];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetTELEFONOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshTELEFONO]);
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldTELEFONOValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshTELEFONO];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldTELEFONOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshTELEFONO]);
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetTELEFONOValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshTELEFONO] := aValue;
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetTELEFONOIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshTELEFONO] := Null;
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetIMPORTE_NETOValue: Currency;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_NETO];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetIMPORTE_NETOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_NETO]);
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldIMPORTE_NETOValue: Currency;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_NETO];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldIMPORTE_NETOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_NETO]);
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetIMPORTE_NETOValue(const aValue: Currency);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_NETO] := aValue;
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetIMPORTE_NETOIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_NETO] := Null;
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetIMPORTE_PORTEValue: Currency;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_PORTE];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetIMPORTE_PORTEIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_PORTE]);
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldIMPORTE_PORTEValue: Currency;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_PORTE];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldIMPORTE_PORTEIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_PORTE]);
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetIMPORTE_PORTEValue(const aValue: Currency);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_PORTE] := aValue;
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetIMPORTE_PORTEIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_PORTE] := Null;
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetDESCUENTOValue: Float;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshDESCUENTO];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetDESCUENTOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshDESCUENTO]);
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldDESCUENTOValue: Float;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshDESCUENTO];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshDESCUENTO]);
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshDESCUENTO] := aValue;
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshDESCUENTO] := Null;
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetIMPORTE_DESCUENTOValue: Currency;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_DESCUENTO];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetIMPORTE_DESCUENTOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_DESCUENTO]);
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldIMPORTE_DESCUENTOValue: Currency;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_DESCUENTO];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldIMPORTE_DESCUENTOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_DESCUENTO]);
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetIMPORTE_DESCUENTOValue(const aValue: Currency);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_DESCUENTO] := aValue;
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetIMPORTE_DESCUENTOIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_DESCUENTO] := Null;
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetBASE_IMPONIBLEValue: Currency;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshBASE_IMPONIBLE];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetBASE_IMPONIBLEIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshBASE_IMPONIBLE]);
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldBASE_IMPONIBLEValue: Currency;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshBASE_IMPONIBLE];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldBASE_IMPONIBLEIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshBASE_IMPONIBLE]);
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetBASE_IMPONIBLEValue(const aValue: Currency);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshBASE_IMPONIBLE] := aValue;
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetBASE_IMPONIBLEIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshBASE_IMPONIBLE] := Null;
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetIVAValue: Float;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIVA];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetIVAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIVA]);
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldIVAValue: Float;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshIVA];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldIVAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshIVA]);
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetIVAValue(const aValue: Float);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIVA] := aValue;
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetIVAIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIVA] := Null;
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetIMPORTE_IVAValue: Currency;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_IVA];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetIMPORTE_IVAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_IVA]);
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldIMPORTE_IVAValue: Currency;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_IVA];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldIMPORTE_IVAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_IVA]);
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetIMPORTE_IVAValue(const aValue: Currency);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_IVA] := aValue;
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetIMPORTE_IVAIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_IVA] := Null;
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_TOTAL];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetIMPORTE_TOTALIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_TOTAL]);
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_TOTAL];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldIMPORTE_TOTALIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_TOTAL]);
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_TOTAL] := aValue;
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetIMPORTE_TOTALIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshIMPORTE_TOTAL] := Null;
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOBSERVACIONESValue: IROStrings;
-begin
- result := f_OBSERVACIONES;
- result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshOBSERVACIONES];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOBSERVACIONESIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshOBSERVACIONES]);
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldOBSERVACIONESValue: IROStrings;
-begin
- result := NewROStrings();
- result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshOBSERVACIONES];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldOBSERVACIONESIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshOBSERVACIONES]);
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetOBSERVACIONESIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshOBSERVACIONES] := Null;
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetINCIDENCIASValue: IROStrings;
-begin
- result := f_INCIDENCIAS;
- result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshINCIDENCIAS];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetINCIDENCIASIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshINCIDENCIAS]);
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldINCIDENCIASValue: IROStrings;
-begin
- result := NewROStrings();
- result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshINCIDENCIAS];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldINCIDENCIASIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshINCIDENCIAS]);
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetINCIDENCIASIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshINCIDENCIAS] := Null;
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetINCIDENCIAS_ACTIVASValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshINCIDENCIAS_ACTIVAS];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetINCIDENCIAS_ACTIVASIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshINCIDENCIAS_ACTIVAS]);
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldINCIDENCIAS_ACTIVASValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshINCIDENCIAS_ACTIVAS];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldINCIDENCIAS_ACTIVASIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshINCIDENCIAS_ACTIVAS]);
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetINCIDENCIAS_ACTIVASValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshINCIDENCIAS_ACTIVAS] := aValue;
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetINCIDENCIAS_ACTIVASIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshINCIDENCIAS_ACTIVAS] := Null;
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshFECHA_ALTA];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshFECHA_ALTA]);
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshFECHA_ALTA];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshFECHA_ALTA]);
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshFECHA_ALTA] := aValue;
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshFECHA_ALTA] := Null;
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshFECHA_MODIFICACION];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshFECHA_MODIFICACION]);
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshFECHA_MODIFICACION];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshFECHA_MODIFICACION]);
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshFECHA_MODIFICACION] := aValue;
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshFECHA_MODIFICACION] := Null;
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetUSUARIOValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshUSUARIO];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetUSUARIOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshUSUARIO]);
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldUSUARIOValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshUSUARIO];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshUSUARIO]);
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshUSUARIO] := aValue;
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshUSUARIO] := Null;
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetID_FORMA_PAGOValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_FORMA_PAGO];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetID_FORMA_PAGOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_FORMA_PAGO]);
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldID_FORMA_PAGOValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshID_FORMA_PAGO];
-end;
-
-function TAlbaranesProveedor_RefreshBusinessProcessorRules.GetOldID_FORMA_PAGOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_RefreshID_FORMA_PAGO]);
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetID_FORMA_PAGOValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_FORMA_PAGO] := aValue;
-end;
-
-procedure TAlbaranesProveedor_RefreshBusinessProcessorRules.SetID_FORMA_PAGOIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_RefreshID_FORMA_PAGO] := Null;
-end;
-
-
initialization
RegisterBusinessProcessorRules(RID_DarReferenciaDelta, TDarReferenciaBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_AlbaranesProveedorDelta, TAlbaranesProveedorBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_AlbaranesProveedor_DetallesDelta, TAlbaranesProveedor_DetallesBusinessProcessorRules);
- RegisterBusinessProcessorRules(RID_AlbaranesProveedor_Detalles_RefreshDelta, TAlbaranesProveedor_Detalles_RefreshBusinessProcessorRules);
- RegisterBusinessProcessorRules(RID_AlbaranesProveedor_RefreshDelta, TAlbaranesProveedor_RefreshBusinessProcessorRules);
end.
diff --git a/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranProveedorServer.PAS b/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranProveedorServer.PAS
index 6fa9bb46..e4ef8edd 100644
--- a/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranProveedorServer.PAS
+++ b/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranProveedorServer.PAS
@@ -3,7 +3,7 @@ unit uBizAlbaranProveedorServer;
interface
uses
- schFacturasClienteServer_Intf, uDAInterfaces,
+ schFacturasClienteServer_Intf, uDAInterfaces, uDADelta,
uDADataTable, uDABusinessProcessor;
const
@@ -13,10 +13,6 @@ const
type
TBizAlbaranProveedorServer = class(TFacturasClienteBusinessProcessorRules)
- private
- procedure BeforeProcessChange(Sender: TDABusinessProcessor;
- aChangeType: TDAChangeType; aChange: TDADeltaChange;
- var ProcessChange: Boolean);
protected
procedure BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta); override;
end;
@@ -51,12 +47,12 @@ begin
try
//Siempre va a estar rellena
Empresa := Sender.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_EMPRESA];
- if aChange.NewValueByName[fld_AlbaranesProveedorIMPORTE_TOTAL] < 0 then
+ if Sender.CurrentChange.NewValueByName[fld_AlbaranesProveedorIMPORTE_TOTAL] < 0 then
CodigoReferencia := REF_ALBARANES_DEV_PROVEEDOR
else
CodigoReferencia := REF_ALBARANES_PROVEEDOR;
- dsData := ASchema.NewDataset(ACurrentConn, 'DarReferencia', ['CODIGO', 'ID_EMPRESA'], [CodigoReferencia, Empresa]);
+ dsData := ASchema.NewDataset(ACurrentConn, 'DarReferencia', ['CODIGO', 'EMPRESA'], [CodigoReferencia, Empresa]);
except
RaiseError('No existe la tabla REFERENCIAS');
end;
@@ -69,7 +65,7 @@ begin
REFERENCIA := dsData.FieldByName(fld_DarReferenciaVALOR).AsString;
try
- ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'ID_EMPRESA'], [CodigoReferencia, DarReferenciaSiguiente(REFERENCIA), Empresa]);
+ ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'EMPRESA'], [CodigoReferencia, DarReferenciaSiguiente(REFERENCIA), Empresa]);
except
RaiseError('Error al asignar la nueva ' + REFERENCIA + ' referencia en tabla');
end;
diff --git a/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas b/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas
index 80ed32af..7d32d4db 100644
--- a/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas
+++ b/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas
@@ -178,8 +178,8 @@ end;
procedure TBizAlbaranProveedor.IniciarValoresAlbaranNuevo;
begin
- ID_EMPRESA := dmUsuarios.IDEmpresaActual;
- USUARIO := dmUsuarios.LoginInfo.Usuario;
+ ID_EMPRESA := 1; //dmUsuarios.IDEmpresaActual;
+// USUARIO := dmUsuarios.LoginInfo.Usuario;
FECHA_ALBARAN := DateOf(Date);
INCIDENCIAS_ACTIVAS := 0;
TIPO := CTE_TIPO_ALBARAN;
diff --git a/Source/Modulos/Albaranes de proveedor/Plugin/AlbaranesProveedor_plugin.dpk b/Source/Modulos/Albaranes de proveedor/Plugin/AlbaranesProveedor_plugin.dpk
index 5c59147b..5ab08db6 100644
--- a/Source/Modulos/Albaranes de proveedor/Plugin/AlbaranesProveedor_plugin.dpk
+++ b/Source/Modulos/Albaranes de proveedor/Plugin/AlbaranesProveedor_plugin.dpk
@@ -22,19 +22,11 @@ package AlbaranesProveedor_plugin;
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
-{$IMPLICITBUILD OFF}
+{$IMPLICITBUILD ON}
requires
- rtl,
- vcl,
- PluginSDK_D10R,
- PngComponentsD10,
- PNG_D10,
- vclactnband,
- vclx,
- Empresas_controller,
AlbaranesProveedor_view,
- AlbaranesProveedor_controller;
+ AlbaranesProveedor_model;
contains
uPluginAlbaranesProveedor in 'uPluginAlbaranesProveedor.pas' {PluginAlbaranesProveedor};
diff --git a/Source/Modulos/Albaranes de proveedor/Plugin/AlbaranesProveedor_plugin.dproj b/Source/Modulos/Albaranes de proveedor/Plugin/AlbaranesProveedor_plugin.dproj
index 7da95e81..190c5ea6 100644
--- a/Source/Modulos/Albaranes de proveedor/Plugin/AlbaranesProveedor_plugin.dproj
+++ b/Source/Modulos/Albaranes de proveedor/Plugin/AlbaranesProveedor_plugin.dproj
@@ -36,80 +36,515 @@
..\..\..\Lib;..\..\Lib
..\..\..\Lib;..\..\Lib
..\..\..\Lib;..\..\Lib
- DEBUG
Delphi.Personality
Package
-
- False
- True
- False
-
-
- False
- False
- False
-
-
- True
- False
- 1
- 0
- 0
- 0
- False
- False
- False
- False
- False
- 3082
- 1252
-
-
-
-
- 1.0.0.0
-
-
-
-
-
- 1.0.0.0
-
-
-
+FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0
+
+
RemObjects Pascal Script - RemObjects SDK 3.0 Integration
EurekaLog 5.1.9
-
-
- AlbaranesProveedor_plugin.dpk
-
-
+ AlbaranesProveedor_plugin.dpk
-
+
MainSource
-
-
-
-
-
-
-
-
-
-
+
+
-
-
\ No newline at end of file
+
+
+
diff --git a/Source/Modulos/Albaranes de proveedor/Plugin/AlbaranesProveedor_plugin.rc b/Source/Modulos/Albaranes de proveedor/Plugin/AlbaranesProveedor_plugin.rc
index e69de29b..153736af 100644
--- a/Source/Modulos/Albaranes de proveedor/Plugin/AlbaranesProveedor_plugin.rc
+++ b/Source/Modulos/Albaranes de proveedor/Plugin/AlbaranesProveedor_plugin.rc
@@ -0,0 +1,22 @@
+1 VERSIONINFO
+FILEVERSION 1,0,0,0
+PRODUCTVERSION 1,0,0,0
+FILEFLAGSMASK 0x3FL
+FILEFLAGS 0x00L
+FILEOS 0x40004L
+FILETYPE 0x1L
+FILESUBTYPE 0x0L
+BEGIN
+ BLOCK "StringFileInfo"
+ BEGIN
+ BLOCK "0C0A04E4"
+ BEGIN
+ VALUE "FileVersion", "1.0.0.0\0"
+ VALUE "ProductVersion", "1.0.0.0\0"
+ END
+ END
+ BLOCK "VarFileInfo"
+ BEGIN
+ VALUE "Translation", 0x0C0A, 1252
+ END
+END
diff --git a/Source/Modulos/Albaranes de proveedor/Plugin/AlbaranesProveedor_plugin.res b/Source/Modulos/Albaranes de proveedor/Plugin/AlbaranesProveedor_plugin.res
index 86c94e6a..8b251f31 100644
Binary files a/Source/Modulos/Albaranes de proveedor/Plugin/AlbaranesProveedor_plugin.res and b/Source/Modulos/Albaranes de proveedor/Plugin/AlbaranesProveedor_plugin.res differ
diff --git a/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm b/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm
index 762f3ff6..edda8c75 100644
--- a/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm
+++ b/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm
@@ -18,14 +18,11 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Params = <
item
Name = 'CODIGO'
- DataType = datString
- Size = 50
Value = ''
ParamType = daptInput
end
item
- Name = 'ID_EMPRESA'
- DataType = datInteger
+ Name = 'EMPRESA'
Value = ''
ParamType = daptInput
end>
@@ -35,7 +32,7 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
TargetTable = 'REFERENCIAS'
SQL =
'SELECT'#10' VALOR'#10'FROM'#10' REFERENCIAS'#10'WHERE'#10' CODIGO = :COD' +
- 'IGO'#10'AND ID_EMPRESA = :ID_EMPRESA'
+ 'IGO'#10'AND ID_EMPRESA = :EMPRESA'#10
StatementType = stSQL
ColumnMappings = <
item
@@ -56,18 +53,8 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Statements = <
item
Connection = 'IBX'
- TargetTable = 'ALBARANES_PROVEEDOR'
- SQL =
- 'SELECT '#10' ID, ID_EMPRESA, ID_PROVEEDOR, NOMBRE, FECHA_ALBARAN,' +
- ' REFERENCIA, REFERENCIA_PROVEEDOR,'#10' TIPO, ID_ALMACEN, NOMBRE_' +
- 'ALMACEN, ID_PEDIDO, REF_PED_PROVEEDOR,'#10' ID_FACTURA, REF_FACTU' +
- 'RA, REF_FACTURA_PROV, CALLE, CODIGO_POSTAL, POBLACION, PROVINCIA' +
- ','#10' PERSONA_CONTACTO, TELEFONO, IMPORTE_NETO, IMPORTE_PORTE, D' +
- 'ESCUENTO,'#10' IMPORTE_DESCUENTO, BASE_IMPONIBLE, IVA, IMPORTE_IV' +
- 'A, IMPORTE_TOTAL,'#10' OBSERVACIONES, INCIDENCIAS, INCIDENCIAS_AC' +
- 'TIVAS, FECHA_ALTA, FECHA_MODIFICACION,'#10' USUARIO, ID_FORMA_PAG' +
- 'O'#10' FROM'#10' V_ALBARANES_PROVEEDOR'
- StatementType = stSQL
+ TargetTable = 'V_ALBARANES_PROVEEDOR'
+ StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
@@ -93,18 +80,42 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
+ item
+ DatasetField = 'REFERENCIA_PROVEEDOR'
+ TableField = 'REFERENCIA_PROVEEDOR'
+ end
+ item
+ DatasetField = 'TIPO'
+ TableField = 'TIPO'
+ end
item
DatasetField = 'ID_ALMACEN'
TableField = 'ID_ALMACEN'
end
+ item
+ DatasetField = 'NOMBRE_ALMACEN'
+ TableField = 'NOMBRE_ALMACEN'
+ end
item
DatasetField = 'ID_PEDIDO'
TableField = 'ID_PEDIDO'
end
+ item
+ DatasetField = 'REF_PED_PROVEEDOR'
+ TableField = 'REF_PED_PROVEEDOR'
+ end
item
DatasetField = 'ID_FACTURA'
TableField = 'ID_FACTURA'
end
+ item
+ DatasetField = 'REF_FACTURA'
+ TableField = 'REF_FACTURA'
+ end
+ item
+ DatasetField = 'REF_FACTURA_PROV'
+ TableField = 'REF_FACTURA_PROV'
+ end
item
DatasetField = 'CALLE'
TableField = 'CALLE'
@@ -188,30 +199,6 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
item
DatasetField = 'ID_FORMA_PAGO'
TableField = 'ID_FORMA_PAGO'
- end
- item
- DatasetField = 'NOMBRE_ALMACEN'
- TableField = 'NOMBRE_ALMACEN'
- end
- item
- DatasetField = 'REF_PED_PROVEEDOR'
- TableField = 'REF_PED_PROVEEDOR'
- end
- item
- DatasetField = 'TIPO'
- TableField = 'TIPO'
- end
- item
- DatasetField = 'REFERENCIA_PROVEEDOR'
- TableField = 'REFERENCIA_PROVEEDOR'
- end
- item
- DatasetField = 'REF_FACTURA'
- TableField = 'REF_FACTURA'
- end
- item
- DatasetField = 'REF_FACTURA_PROV'
- TableField = 'REF_FACTURA_PROV'
end>
end>
Name = 'AlbaranesProveedor'
@@ -219,6 +206,8 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
item
Name = 'ID'
DataType = datAutoInc
+ GeneratorName = 'GEN_ALBARANES_PRO_ID'
+ ServerAutoRefresh = True
DictionaryEntry = 'AlbaranesProveedor_ID'
InPrimaryKey = True
end
@@ -414,13 +403,7 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
end>
end
item
- Params = <
- item
- Name = 'ID_ALBARAN'
- DataType = datInteger
- Value = ''
- ParamType = daptInput
- end>
+ Params = <>
Statements = <
item
Connection = 'IBX'
@@ -437,22 +420,21 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
'RTE_PORTE,'#10' ARTICULOS.REFERENCIA, ARTICULOS.REFERENCIA_PROV a' +
's REFERENCIA_PROVEEDOR'#10#10'FROM ALBARANES_PROVEEDOR_DETALLES'#10'LEFT J' +
'OIN ARTICULOS ON ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO = ARTI' +
- 'CULOS.ID'#10'WHERE ALBARANES_PROVEEDOR_DETALLES.ID_ALBARAN = :ID_ALB' +
- 'ARAN'#10'ORDER BY POSICION;'
+ 'CULOS.ID'#10'WHERE {where}'#10'ORDER BY POSICION;'#10
StatementType = stSQL
ColumnMappings = <
item
- DatasetField = 'CANTIDAD'
- TableField = 'CANTIDAD'
+ DatasetField = 'ID'
+ TableField = 'ID'
+ end
+ item
+ DatasetField = 'ID_ALBARAN'
+ TableField = 'ID_ALBARAN'
end
item
DatasetField = 'POSICION'
TableField = 'POSICION'
end
- item
- DatasetField = 'ID'
- TableField = 'ID'
- end
item
DatasetField = 'TIPO_DETALLE'
TableField = 'TIPO_DETALLE'
@@ -461,6 +443,10 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
DatasetField = 'CONCEPTO'
TableField = 'CONCEPTO'
end
+ item
+ DatasetField = 'CANTIDAD'
+ TableField = 'CANTIDAD'
+ end
item
DatasetField = 'IMPORTE_UNIDAD'
TableField = 'IMPORTE_UNIDAD'
@@ -473,10 +459,6 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
DatasetField = 'VISIBLE'
TableField = 'VISIBLE'
end
- item
- DatasetField = 'REFERENCIA'
- TableField = 'REFERENCIA'
- end
item
DatasetField = 'ID_ARTICULO'
TableField = 'ID_ARTICULO'
@@ -485,17 +467,19 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
DatasetField = 'DESCUENTO'
TableField = 'DESCUENTO'
end
- item
- DatasetField = 'REFERENCIA_PROVEEDOR'
- TableField = 'REFERENCIA_PROVEEDOR'
- end
- item
- DatasetField = 'ID_ALBARAN'
- TableField = 'ID_ALBARAN'
- end
item
DatasetField = 'IMPORTE_PORTE'
TableField = 'IMPORTE_PORTE'
+ end
+ item
+ DatasetField = 'REFERENCIA'
+ TableField = ''
+ SQLOrigin = 'REFERENCIA'
+ end
+ item
+ DatasetField = 'REFERENCIA_PROVEEDOR'
+ TableField = ''
+ SQLOrigin = 'REFERENCIA_PROVEEDOR'
end>
end>
Name = 'AlbaranesProveedor_Detalles'
@@ -503,6 +487,8 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
item
Name = 'ID'
DataType = datAutoInc
+ GeneratorName = 'GEN_ALBARANES_PRO_DETALLES_ID'
+ ServerAutoRefresh = True
DictionaryEntry = 'AlbaranesProveedor_Detalles_ID'
InPrimaryKey = True
end
@@ -522,17 +508,6 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Size = 10
DictionaryEntry = 'AlbaranesProveedor_Detalles_TIPO_DETALLE'
end
- item
- Name = 'REFERENCIA'
- DataType = datString
- Size = 255
- DictionaryEntry = 'AlbaranesProveedor_Detalles_REFERENCIA'
- end
- item
- Name = 'ID_ARTICULO'
- DataType = datInteger
- DictionaryEntry = 'AlbaranesProveedor_Detalles_ID_ARTICULO'
- end
item
Name = 'CONCEPTO'
DataType = datString
@@ -554,6 +529,16 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
DataType = datCurrency
DictionaryEntry = 'AlbaranesProveedor_Detalles_IMPORTE_TOTAL'
end
+ item
+ Name = 'VISIBLE'
+ DataType = datInteger
+ DictionaryEntry = 'AlbaranesProveedor_Detalles_VISIBLE'
+ end
+ item
+ Name = 'ID_ARTICULO'
+ DataType = datInteger
+ DictionaryEntry = 'AlbaranesProveedor_Detalles_ID_ARTICULO'
+ end
item
Name = 'DESCUENTO'
DataType = datFloat
@@ -564,551 +549,17 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
DataType = datCurrency
DictionaryEntry = 'AlbaranesProveedor_Detalles_IMPORTE_PORTE'
end
- item
- Name = 'VISIBLE'
- DataType = datInteger
- DictionaryEntry = 'AlbaranesProveedor_Detalles_VISIBLE'
- end
- item
- Name = 'REFERENCIA_PROVEEDOR'
- DataType = datString
- Size = 255
- DictionaryEntry = 'AlbaranesProveedor_Detalles_REFERENCIA_PROVEEDOR'
- end>
- end
- item
- Params = <
- item
- Name = 'ID_ALBARAN'
- DataType = datInteger
- Value = ''
- ParamType = daptInput
- end
- item
- Name = 'ID'
- DataType = datInteger
- Value = ''
- ParamType = daptInput
- end>
- Statements = <
- item
- Connection = 'IBX'
- TargetTable = 'ALBARANES_PROVEEDOR_DETALLES'
- SQL =
- 'SELECT'#10' ALBARANES_PROVEEDOR_DETALLES.ID, ALBARANES_PROVEEDOR_' +
- 'DETALLES.ID_ALBARAN,'#10' ALBARANES_PROVEEDOR_DETALLES.POSICION, ' +
- 'ALBARANES_PROVEEDOR_DETALLES.TIPO_DETALLE,'#10' ALBARANES_PROVEED' +
- 'OR_DETALLES.CONCEPTO, ALBARANES_PROVEEDOR_DETALLES.CANTIDAD,'#10' ' +
- ' ALBARANES_PROVEEDOR_DETALLES.IMPORTE_UNIDAD, ALBARANES_PROVEEDO' +
- 'R_DETALLES.IMPORTE_TOTAL,'#10' ALBARANES_PROVEEDOR_DETALLES.VISIB' +
- 'LE,'#10#10' ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO, ALBARANES_PRO' +
- 'VEEDOR_DETALLES.DESCUENTO,'#10' ALBARANES_PROVEEDOR_DETALLES.IMPO' +
- 'RTE_PORTE,'#10' ARTICULOS.REFERENCIA, ARTICULOS.REFERENCIA_PROV a' +
- 's REFERENCIA_PROVEEDOR'#10#10'FROM ALBARANES_PROVEEDOR_DETALLES'#10'LEFT J' +
- 'OIN ARTICULOS ON ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO = ARTI' +
- 'CULOS.ID'#10'WHERE ALBARANES_PROVEEDOR_DETALLES.ID_ALBARAN = :ID_ALB' +
- 'ARAN'#10'AND ALBARANES_PROVEEDOR_DETALLES.ID = :ID'#10'ORDER BY POSICION' +
- ';'
- StatementType = stSQL
- ColumnMappings = <
- item
- DatasetField = 'CANTIDAD'
- TableField = 'CANTIDAD'
- end
- item
- DatasetField = 'POSICION'
- TableField = 'POSICION'
- end
- item
- DatasetField = 'ID'
- TableField = 'ID'
- end
- item
- DatasetField = 'TIPO_DETALLE'
- TableField = 'TIPO_DETALLE'
- end
- item
- DatasetField = 'CONCEPTO'
- TableField = 'CONCEPTO'
- end
- item
- DatasetField = 'IMPORTE_UNIDAD'
- TableField = 'IMPORTE_UNIDAD'
- end
- item
- DatasetField = 'IMPORTE_TOTAL'
- TableField = 'IMPORTE_TOTAL'
- end
- item
- DatasetField = 'VISIBLE'
- TableField = 'VISIBLE'
- end
- item
- DatasetField = 'REFERENCIA'
- TableField = 'REFERENCIA'
- end
- item
- DatasetField = 'ID_ARTICULO'
- TableField = 'ID_ARTICULO'
- end
- item
- DatasetField = 'DESCUENTO'
- TableField = 'DESCUENTO'
- end
- item
- DatasetField = 'REFERENCIA_PROVEEDOR'
- TableField = 'REFERENCIA_PROVEEDOR'
- end
- item
- DatasetField = 'ID_ALBARAN'
- TableField = 'ID_ALBARAN'
- end
- item
- DatasetField = 'IMPORTE_PORTE'
- TableField = 'IMPORTE_PORTE'
- end>
- end>
- Name = 'AlbaranesProveedor_Detalles_Refresh'
- Fields = <
- item
- Name = 'ID'
- DataType = datAutoInc
- DictionaryEntry = 'AlbaranesProveedor_Detalles_ID'
- InPrimaryKey = True
- end
- item
- Name = 'ID_ALBARAN'
- DataType = datInteger
- end
- item
- Name = 'POSICION'
- DataType = datInteger
- DictionaryEntry = 'POSICIONCONCEPTO'
- end
- item
- Name = 'TIPO_DETALLE'
- DataType = datString
- Size = 10
- DictionaryEntry = 'AlbaranesProveedor_Detalles_TIPO_DETALLE'
- end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
DictionaryEntry = 'AlbaranesProveedor_Detalles_REFERENCIA'
end
- item
- Name = 'ID_ARTICULO'
- DataType = datInteger
- DictionaryEntry = 'AlbaranesProveedor_Detalles_ID_ARTICULO'
- end
- item
- Name = 'CONCEPTO'
- DataType = datString
- Size = 2000
- DictionaryEntry = 'AlbaranesProveedor_Detalles_CONCEPTO'
- end
- item
- Name = 'CANTIDAD'
- DataType = datInteger
- DictionaryEntry = 'CANTIDAD'
- end
- item
- Name = 'IMPORTE_UNIDAD'
- DataType = datCurrency
- DictionaryEntry = 'AlbaranesProveedor_Detalles_IMPORTE_UNIDAD'
- end
- item
- Name = 'IMPORTE_TOTAL'
- DataType = datCurrency
- DictionaryEntry = 'AlbaranesProveedor_Detalles_IMPORTE_TOTAL'
- end
- item
- Name = 'DESCUENTO'
- DataType = datFloat
- end
- item
- Name = 'IMPORTE_PORTE'
- DataType = datFloat
- end
- item
- Name = 'VISIBLE'
- DataType = datInteger
- DictionaryEntry = 'AlbaranesProveedor_Detalles_VISIBLE'
- end
- item
- Name = 'REFERENCIA_PROVEEDOR'
- DataType = datString
- Size = 255
- end>
- end
- item
- Params = <
- item
- Name = 'ID'
- DataType = datInteger
- Value = ''
- ParamType = daptInput
- end>
- Statements = <
- item
- Connection = 'IBX'
- TargetTable = 'ALBARANES_PROVEEDOR'
- SQL =
- 'SELECT'#10' ID, ID_EMPRESA, ID_PROVEEDOR, NOMBRE, FECHA_ALBARAN, ' +
- 'REFERENCIA, REFERENCIA_PROVEEDOR,'#10' TIPO, ID_ALMACEN, NOMBRE_A' +
- 'LMACEN, ID_PEDIDO, REF_PED_PROVEEDOR,'#10' ID_FACTURA, REF_FACTUR' +
- 'A, REF_FACTURA_PROV, CALLE, CODIGO_POSTAL, POBLACION, PROVINCIA,' +
- #10' PERSONA_CONTACTO, TELEFONO, IMPORTE_NETO, IMPORTE_PORTE, DE' +
- 'SCUENTO,'#10' IMPORTE_DESCUENTO, BASE_IMPONIBLE, IVA, IMPORTE_IVA' +
- ', IMPORTE_TOTAL,'#10' OBSERVACIONES, INCIDENCIAS, INCIDENCIAS_ACT' +
- 'IVAS, FECHA_ALTA, FECHA_MODIFICACION,'#10' USUARIO, ID_FORMA_PAGO' +
- #10' FROM'#10' V_ALBARANES_PROVEEDOR'#10'WHERE V_ALBARANES_PROVEEDOR.ID' +
- ' = :ID'
- StatementType = stSQL
- ColumnMappings = <
- item
- DatasetField = 'ID'
- TableField = 'ID'
- end
- item
- DatasetField = 'ID_EMPRESA'
- TableField = 'ID_EMPRESA'
- end
- item
- DatasetField = 'ID_PROVEEDOR'
- TableField = 'ID_PROVEEDOR'
- end
- item
- DatasetField = 'NOMBRE'
- TableField = 'NOMBRE'
- end
- item
- DatasetField = 'FECHA_ALBARAN'
- TableField = 'FECHA_ALBARAN'
- end
- item
- DatasetField = 'REFERENCIA'
- TableField = 'REFERENCIA'
- end
- item
- DatasetField = 'ID_ALMACEN'
- TableField = 'ID_ALMACEN'
- end
- item
- DatasetField = 'ID_PEDIDO'
- TableField = 'ID_PEDIDO'
- end
- item
- DatasetField = 'ID_FACTURA'
- TableField = 'ID_FACTURA'
- end
- item
- DatasetField = 'CALLE'
- TableField = 'CALLE'
- end
- item
- DatasetField = 'CODIGO_POSTAL'
- TableField = 'CODIGO_POSTAL'
- end
- item
- DatasetField = 'POBLACION'
- TableField = 'POBLACION'
- end
- item
- DatasetField = 'PROVINCIA'
- TableField = 'PROVINCIA'
- end
- item
- DatasetField = 'PERSONA_CONTACTO'
- TableField = 'PERSONA_CONTACTO'
- end
- item
- DatasetField = 'TELEFONO'
- TableField = 'TELEFONO'
- end
- item
- DatasetField = 'IMPORTE_NETO'
- TableField = 'IMPORTE_NETO'
- end
- item
- DatasetField = 'IMPORTE_PORTE'
- TableField = 'IMPORTE_PORTE'
- end
- item
- DatasetField = 'DESCUENTO'
- TableField = 'DESCUENTO'
- end
- item
- DatasetField = 'IMPORTE_DESCUENTO'
- TableField = 'IMPORTE_DESCUENTO'
- end
- item
- DatasetField = 'BASE_IMPONIBLE'
- TableField = 'BASE_IMPONIBLE'
- end
- item
- DatasetField = 'IVA'
- TableField = 'IVA'
- end
- item
- DatasetField = 'IMPORTE_IVA'
- TableField = 'IMPORTE_IVA'
- end
- item
- DatasetField = 'IMPORTE_TOTAL'
- TableField = 'IMPORTE_TOTAL'
- end
- item
- DatasetField = 'OBSERVACIONES'
- TableField = 'OBSERVACIONES'
- end
- item
- DatasetField = 'INCIDENCIAS'
- TableField = 'INCIDENCIAS'
- end
- item
- DatasetField = 'INCIDENCIAS_ACTIVAS'
- TableField = 'INCIDENCIAS_ACTIVAS'
- end
- item
- DatasetField = 'FECHA_ALTA'
- TableField = 'FECHA_ALTA'
- end
- item
- DatasetField = 'FECHA_MODIFICACION'
- TableField = 'FECHA_MODIFICACION'
- end
- item
- DatasetField = 'USUARIO'
- TableField = 'USUARIO'
- end
- item
- DatasetField = 'ID_FORMA_PAGO'
- TableField = 'ID_FORMA_PAGO'
- end
- item
- DatasetField = 'NOMBRE_ALMACEN'
- TableField = 'NOMBRE_ALMACEN'
- end
- item
- DatasetField = 'REF_PED_PROVEEDOR'
- TableField = 'REF_PED_PROVEEDOR'
- end
- item
- DatasetField = 'TIPO'
- TableField = 'TIPO'
- end
- item
- DatasetField = 'REFERENCIA_PROVEEDOR'
- TableField = 'REFERENCIA_PROVEEDOR'
- end
- item
- DatasetField = 'REF_FACTURA'
- TableField = 'REF_FACTURA'
- end
- item
- DatasetField = 'REF_FACTURA_PROV'
- TableField = 'REF_FACTURA_PROV'
- end>
- end>
- Name = 'AlbaranesProveedor_Refresh'
- Fields = <
- item
- Name = 'ID'
- DataType = datAutoInc
- DictionaryEntry = 'AlbaranesProveedor_ID'
- InPrimaryKey = True
- end
- item
- Name = 'ID_EMPRESA'
- DataType = datInteger
- DictionaryEntry = 'AlbaranesProveedor_ID_EMPRESA'
- end
- item
- Name = 'ID_PROVEEDOR'
- DataType = datInteger
- DictionaryEntry = 'AlbaranesProveedor_ID_PROVEEDOR'
- end
- item
- Name = 'NOMBRE'
- DataType = datString
- Size = 255
- DictionaryEntry = 'AlbaranesProveedor_NOMBRE'
- end
- item
- Name = 'FECHA_ALBARAN'
- DataType = datDateTime
- DictionaryEntry = 'AlbaranesProveedor_FECHA_ALBARAN'
- end
- item
- Name = 'REFERENCIA'
- DataType = datString
- Size = 255
- DisplayLabel = 'Referencia'
- ServerAutoRefresh = True
- end
item
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
DictionaryEntry = 'AlbaranesProveedor_Detalles_REFERENCIA_PROVEEDOR'
- end
- item
- Name = 'TIPO'
- DataType = datString
- Size = 1
- DictionaryEntry = 'AlbaranesProveedor_TIPO'
- end
- item
- Name = 'ID_ALMACEN'
- DataType = datInteger
- DictionaryEntry = 'AlbaranesProveedor_ID_ALMACEN'
- end
- item
- Name = 'NOMBRE_ALMACEN'
- DataType = datString
- Size = 255
- DictionaryEntry = 'AlbaranesProveedor_NOMBRE_ALMACEN'
- end
- item
- Name = 'ID_PEDIDO'
- DataType = datInteger
- DictionaryEntry = 'AlbaranesProveedor_ID_PEDIDO'
- end
- item
- Name = 'REF_PED_PROVEEDOR'
- DataType = datString
- Size = 255
- DictionaryEntry = 'AlbaranesProveedor_REF_PED_PROVEEDOR'
- end
- item
- Name = 'ID_FACTURA'
- DataType = datInteger
- DictionaryEntry = 'AlbaranesProveedor_ID_FACTURA'
- end
- item
- Name = 'REF_FACTURA'
- DataType = datString
- Size = 255
- end
- item
- Name = 'REF_FACTURA_PROV'
- DataType = datString
- Size = 255
- DictionaryEntry = 'AlbaranesProveedor_REF_FAC_PROVEEDOR'
- end
- item
- Name = 'CALLE'
- DataType = datString
- Size = 255
- DictionaryEntry = 'AlbaranesProveedor_CALLE'
- end
- item
- Name = 'CODIGO_POSTAL'
- DataType = datString
- Size = 10
- DictionaryEntry = 'AlbaranesProveedor_CODIGO_POSTAL'
- end
- item
- Name = 'POBLACION'
- DataType = datString
- Size = 255
- DictionaryEntry = 'AlbaranesProveedor_POBLACION'
- end
- item
- Name = 'PROVINCIA'
- DataType = datString
- Size = 255
- DictionaryEntry = 'AlbaranesProveedor_PROVINCIA'
- end
- item
- Name = 'PERSONA_CONTACTO'
- DataType = datString
- Size = 255
- DictionaryEntry = 'AlbaranesProveedor_PERSONA_CONTACTO'
- end
- item
- Name = 'TELEFONO'
- DataType = datString
- Size = 25
- DictionaryEntry = 'AlbaranesProveedor_TELEFONO'
- end
- item
- Name = 'IMPORTE_NETO'
- DataType = datCurrency
- DictionaryEntry = 'AlbaranesProveedor_IMPORTE_NETO'
- end
- item
- Name = 'IMPORTE_PORTE'
- DataType = datCurrency
- DictionaryEntry = 'AlbaranesProveedor_IMPORTE_PORTE'
- end
- item
- Name = 'DESCUENTO'
- DataType = datFloat
- DictionaryEntry = 'AlbaranesProveedor_DESCUENTO'
- end
- item
- Name = 'IMPORTE_DESCUENTO'
- DataType = datCurrency
- DictionaryEntry = 'AlbaranesProveedor_IMPORTE_DESCUENTO'
- end
- item
- Name = 'BASE_IMPONIBLE'
- DataType = datCurrency
- DictionaryEntry = 'AlbaranesProveedor_BASE_IMPONIBLE'
- end
- item
- Name = 'IVA'
- DataType = datFloat
- DictionaryEntry = 'AlbaranesProveedor_IVA'
- end
- item
- Name = 'IMPORTE_IVA'
- DataType = datCurrency
- DictionaryEntry = 'AlbaranesProveedor_IMPORTE_IVA'
- end
- item
- Name = 'IMPORTE_TOTAL'
- DataType = datCurrency
- DictionaryEntry = 'AlbaranesProveedor_IMPORTE_TOTAL'
- end
- item
- Name = 'OBSERVACIONES'
- DataType = datMemo
- DictionaryEntry = 'AlbaranesProveedor_OBSERVACIONES'
- end
- item
- Name = 'INCIDENCIAS'
- DataType = datMemo
- DictionaryEntry = 'AlbaranesProveedor_INCIDENCIAS'
- end
- item
- Name = 'INCIDENCIAS_ACTIVAS'
- DataType = datInteger
- DictionaryEntry = 'AlbaranesProveedor_INCIDENCIAS_ACTIVAS'
- end
- item
- Name = 'FECHA_ALTA'
- DataType = datDateTime
- DictionaryEntry = 'AlbaranesProveedor_FECHA_ALTA'
- end
- item
- Name = 'FECHA_MODIFICACION'
- DataType = datDateTime
- DictionaryEntry = 'AlbaranesProveedor_FECHA_MODIFICACION'
- end
- item
- Name = 'USUARIO'
- DataType = datString
- Size = 20
- DictionaryEntry = 'AlbaranesProveedor_USUARIO'
- end
- item
- Name = 'ID_FORMA_PAGO'
- DataType = datInteger
- DictionaryEntry = 'AlbaranesProveedor_ID_FORMA_PAGO'
end>
end>
JoinDataTables = <>
@@ -1118,23 +569,15 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Params = <
item
Name = 'VALOR'
- DataType = datString
- Size = 255
Value = ''
- ParamType = daptInput
end
item
Name = 'CODIGO'
- DataType = datString
- Size = 50
Value = ''
- ParamType = daptInput
end
item
- Name = 'ID_EMPRESA'
- DataType = datInteger
+ Name = 'EMPRESA'
Value = ''
- ParamType = daptInput
end>
Statements = <
item
@@ -1142,7 +585,7 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
TargetTable = 'REFERENCIAS'
SQL =
'UPDATE REFERENCIAS SET'#10' VALOR = :VALOR'#10'WHERE CODIGO = :COD' +
- 'IGO AND'#10' ID_EMPRESA = :ID_EMPRESA'
+ 'IGO AND'#10' ID_EMPRESA = :EMPRESA'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -1152,199 +595,129 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Params = <
item
Name = 'ID'
- DataType = datInteger
+ DataType = datAutoInc
+ GeneratorName = 'GEN_ALBARANES_PRO_ID'
Value = ''
- ParamType = daptInput
end
item
Name = 'ID_EMPRESA'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'ID_PROVEEDOR'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'FECHA_ALBARAN'
- DataType = datDateTime
Value = ''
- ParamType = daptInput
end
item
Name = 'ID_PEDIDO'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'ID_FACTURA'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'REFERENCIA'
- DataType = datString
- Size = 255
Value = ''
- ParamType = daptInput
end
item
Name = 'REFERENCIA_PROVEEDOR'
- DataType = datString
- Size = 255
Value = ''
- ParamType = daptInput
end
item
Name = 'REF_FACTURA_PROV'
- DataType = datString
- Size = 255
Value = ''
- ParamType = daptInput
end
item
Name = 'CALLE'
- DataType = datString
- Size = 255
Value = ''
- ParamType = daptInput
end
item
Name = 'CODIGO_POSTAL'
- DataType = datString
- Size = 10
Value = ''
- ParamType = daptInput
end
item
Name = 'POBLACION'
- DataType = datString
- Size = 255
Value = ''
- ParamType = daptInput
end
item
Name = 'PROVINCIA'
- DataType = datString
- Size = 255
Value = ''
- ParamType = daptInput
end
item
Name = 'PERSONA_CONTACTO'
- DataType = datString
- Size = 255
Value = ''
- ParamType = daptInput
end
item
Name = 'TELEFONO'
- DataType = datString
- Size = 25
Value = ''
- ParamType = daptInput
end
item
Name = 'BASE_IMPONIBLE'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end
item
Name = 'DESCUENTO'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end
item
Name = 'IMPORTE_DESCUENTO'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end
item
Name = 'IVA'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end
item
Name = 'IMPORTE_IVA'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end
item
Name = 'IMPORTE_TOTAL'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end
item
Name = 'OBSERVACIONES'
- DataType = datMemo
Value = ''
- ParamType = daptInput
end
item
Name = 'INCIDENCIAS'
- DataType = datMemo
Value = ''
- ParamType = daptInput
end
item
Name = 'INCIDENCIAS_ACTIVAS'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'FECHA_ALTA'
- DataType = datDateTime
Value = ''
- ParamType = daptInput
end
item
Name = 'FECHA_MODIFICACION'
- DataType = datDateTime
Value = ''
- ParamType = daptInput
end
item
Name = 'USUARIO'
- DataType = datString
- Size = 20
Value = ''
- ParamType = daptInput
end
item
Name = 'ID_ALMACEN'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'ID_FORMA_PAGO'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'IMPORTE_NETO'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end
item
Name = 'IMPORTE_PORTE'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end>
Statements = <
item
@@ -1379,9 +752,7 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Params = <
item
Name = 'OLD_ID'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end>
Statements = <
item
@@ -1398,223 +769,155 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
item
Params = <
item
- Name = 'ID_EMPRESA'
- DataType = datInteger
+ Name = 'ID'
+ Value = ''
+ end
+ item
+ Name = 'ID_EMPRESA'
Value = ''
- ParamType = daptInput
end
item
Name = 'ID_PROVEEDOR'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'FECHA_ALBARAN'
- DataType = datDateTime
Value = ''
- ParamType = daptInput
end
item
Name = 'ID_PEDIDO'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'ID_FACTURA'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'REFERENCIA'
- DataType = datString
- Size = 255
Value = ''
- ParamType = daptInput
end
item
Name = 'REFERENCIA_PROVEEDOR'
- DataType = datString
- Size = 255
Value = ''
- ParamType = daptInput
end
item
Name = 'REF_FACTURA_PROV'
- DataType = datString
- Size = 255
Value = ''
- ParamType = daptInput
end
item
Name = 'CALLE'
- DataType = datString
- Size = 255
Value = ''
- ParamType = daptInput
end
item
Name = 'CODIGO_POSTAL'
- DataType = datString
- Size = 10
Value = ''
- ParamType = daptInput
end
item
Name = 'POBLACION'
- DataType = datString
- Size = 255
Value = ''
- ParamType = daptInput
end
item
Name = 'PROVINCIA'
- DataType = datString
- Size = 255
Value = ''
- ParamType = daptInput
end
item
Name = 'PERSONA_CONTACTO'
- DataType = datString
- Size = 255
Value = ''
- ParamType = daptInput
end
item
Name = 'TELEFONO'
- DataType = datString
- Size = 25
Value = ''
- ParamType = daptInput
end
item
Name = 'BASE_IMPONIBLE'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end
item
Name = 'DESCUENTO'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end
item
Name = 'IMPORTE_DESCUENTO'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end
item
Name = 'IVA'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end
item
Name = 'IMPORTE_IVA'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end
item
Name = 'IMPORTE_TOTAL'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end
item
Name = 'OBSERVACIONES'
- DataType = datMemo
Value = ''
- ParamType = daptInput
end
item
Name = 'INCIDENCIAS'
- DataType = datMemo
Value = ''
- ParamType = daptInput
end
item
Name = 'INCIDENCIAS_ACTIVAS'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'FECHA_ALTA'
- DataType = datDateTime
Value = ''
- ParamType = daptInput
end
item
Name = 'FECHA_MODIFICACION'
- DataType = datDateTime
Value = ''
- ParamType = daptInput
end
item
Name = 'USUARIO'
- DataType = datString
- Size = 20
Value = ''
- ParamType = daptInput
end
item
Name = 'ID_ALMACEN'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'ID_FORMA_PAGO'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'IMPORTE_NETO'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end
item
Name = 'IMPORTE_PORTE'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end
item
Name = 'OLD_ID'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'ALBARANES_PROVEEDOR'
SQL =
- 'UPDATE ALBARANES_PROVEEDOR'#10' SET'#10' ID_EMPRESA = :ID_EMPRESA,'#10' ' +
- ' ID_PROVEEDOR = :ID_PROVEEDOR,'#10' FECHA_ALBARAN = :FECHA_ALBA' +
- 'RAN,'#10' ID_PEDIDO = :ID_PEDIDO,'#10' ID_FACTURA = :ID_FACTURA,'#10' ' +
- ' REFERENCIA = :REFERENCIA,'#10' REFERENCIA_PROVEEDOR = :REFEREN' +
- 'CIA_PROVEEDOR,'#10' REF_FACTURA_PROV = :REF_FACTURA_PROV,'#10' CAL' +
- 'LE = :CALLE,'#10' CODIGO_POSTAL = :CODIGO_POSTAL,'#10' POBLACION =' +
- ' :POBLACION,'#10' PROVINCIA = :PROVINCIA,'#10' PERSONA_CONTACTO = ' +
- ':PERSONA_CONTACTO,'#10' TELEFONO = :TELEFONO,'#10' BASE_IMPONIBLE ' +
- '= :BASE_IMPONIBLE,'#10' DESCUENTO = :DESCUENTO,'#10' IMPORTE_DESCU' +
- 'ENTO = :IMPORTE_DESCUENTO,'#10' IVA = :IVA,'#10' IMPORTE_IVA = :IM' +
- 'PORTE_IVA,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL,'#10' OBSERVACIONES' +
- ' = :OBSERVACIONES,'#10' INCIDENCIAS = :INCIDENCIAS,'#10' INCIDENCI' +
- 'AS_ACTIVAS = :INCIDENCIAS_ACTIVAS,'#10' FECHA_ALTA = :FECHA_ALTA,' +
- #10' FECHA_MODIFICACION = :FECHA_MODIFICACION,'#10' USUARIO = :US' +
- 'UARIO,'#10' ID_ALMACEN = :ID_ALMACEN,'#10' ID_FORMA_PAGO = :ID_FOR' +
- 'MA_PAGO,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' IMPORTE_PORTE = :' +
- 'IMPORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID);'
+ 'UPDATE ALBARANES_PROVEEDOR'#10' SET'#10' ID = :ID,'#10' ID_EMPRESA = ' +
+ ':ID_EMPRESA,'#10' ID_PROVEEDOR = :ID_PROVEEDOR,'#10' FECHA_ALBARAN' +
+ ' = :FECHA_ALBARAN,'#10' ID_PEDIDO = :ID_PEDIDO,'#10' ID_FACTURA = ' +
+ ':ID_FACTURA,'#10' REFERENCIA = :REFERENCIA,'#10' REFERENCIA_PROVEE' +
+ 'DOR = :REFERENCIA_PROVEEDOR,'#10' REF_FACTURA_PROV = :REF_FACTURA' +
+ '_PROV,'#10' CALLE = :CALLE,'#10' CODIGO_POSTAL = :CODIGO_POSTAL,'#10' ' +
+ ' POBLACION = :POBLACION,'#10' PROVINCIA = :PROVINCIA,'#10' PERSO' +
+ 'NA_CONTACTO = :PERSONA_CONTACTO,'#10' TELEFONO = :TELEFONO,'#10' B' +
+ 'ASE_IMPONIBLE = :BASE_IMPONIBLE,'#10' DESCUENTO = :DESCUENTO,'#10' ' +
+ ' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO,'#10' IVA = :IVA,'#10' IMP' +
+ 'ORTE_IVA = :IMPORTE_IVA,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL,'#10' ' +
+ ' OBSERVACIONES = :OBSERVACIONES,'#10' INCIDENCIAS = :INCIDENCIAS,' +
+ #10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS,'#10' FECHA_ALTA ' +
+ '= :FECHA_ALTA,'#10' FECHA_MODIFICACION = :FECHA_MODIFICACION,'#10' ' +
+ ' USUARIO = :USUARIO,'#10' ID_ALMACEN = :ID_ALMACEN,'#10' ID_FORMA_' +
+ 'PAGO = :ID_FORMA_PAGO,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' IMP' +
+ 'ORTE_PORTE = :IMPORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID);'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -1624,77 +927,53 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Params = <
item
Name = 'CANTIDAD'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'POSICION'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'ID'
- DataType = datInteger
+ DataType = datAutoInc
+ GeneratorName = 'GEN_ALBARANES_PRO_DETALLES_ID'
Value = ''
- ParamType = daptInput
end
item
Name = 'TIPO_DETALLE'
- DataType = datString
- Size = 10
Value = ''
- ParamType = daptInput
end
item
Name = 'CONCEPTO'
- DataType = datString
- Size = 2000
Value = ''
- ParamType = daptInput
end
item
Name = 'IMPORTE_UNIDAD'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end
item
Name = 'IMPORTE_TOTAL'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end
item
Name = 'VISIBLE'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'ID_ALBARAN'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'ID_ARTICULO'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'DESCUENTO'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end
item
Name = 'IMPORTE_PORTE'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end>
Statements = <
item
@@ -1702,11 +981,11 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
TargetTable = 'ALBARANES_PROVEEDOR_DETALLES'
SQL =
'INSERT'#10' INTO ALBARANES_PROVEEDOR_DETALLES'#10' (CANTIDAD, POSICI' +
- 'ON, ID, TIPO_DETALLE, CONCEPTO, IMPORTE_UNIDAD, '#10' IMPORTE_TO' +
- 'TAL, VISIBLE, ID_ALBARAN,'#10' ID_ARTICULO, DESCUENTO, IMPORTE_P' +
- 'ORTE)'#10' VALUES'#10' (:CANTIDAD, :POSICION, :ID, :TIPO_DETALLE, :C' +
- 'ONCEPTO, '#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE, :ID_AL' +
- 'BARAN,'#10' :ID_ARTICULO, :DESCUENTO, :IMPORTE_PORTE)'
+ 'ON, ID, TIPO_DETALLE, CONCEPTO, IMPORTE_UNIDAD,'#10' IMPORTE_TOT' +
+ 'AL, VISIBLE, ID_ALBARAN,'#10' ID_ARTICULO, DESCUENTO, IMPORTE_PO' +
+ 'RTE)'#10' VALUES'#10' (:CANTIDAD, :POSICION, :ID, :TIPO_DETALLE, :CO' +
+ 'NCEPTO,'#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE, :ID_ALBA' +
+ 'RAN,'#10' :ID_ARTICULO, :DESCUENTO, :IMPORTE_PORTE)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -1716,9 +995,7 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Params = <
item
Name = 'OLD_ID'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end>
Statements = <
item
@@ -1736,83 +1013,55 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Params = <
item
Name = 'CANTIDAD'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'POSICION'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'ID'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'TIPO_DETALLE'
- DataType = datString
- Size = 10
Value = ''
- ParamType = daptInput
end
item
Name = 'CONCEPTO'
- DataType = datString
- Size = 2000
Value = ''
- ParamType = daptInput
end
item
Name = 'IMPORTE_UNIDAD'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end
item
Name = 'IMPORTE_TOTAL'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end
item
Name = 'VISIBLE'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'ID_ALBARAN'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'ID_ARTICULO'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end
item
Name = 'DESCUENTO'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end
item
Name = 'IMPORTE_PORTE'
- DataType = datFloat
Value = ''
- ParamType = daptInput
end
item
Name = 'OLD_ID'
- DataType = datInteger
Value = ''
- ParamType = daptInput
end>
Statements = <
item
@@ -1831,7 +1080,15 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
end>
Name = 'Update_AlbaranesProveedor_Detalles'
end>
- RelationShips = <>
+ RelationShips = <
+ item
+ Name = 'FK_AlbaranesProveedor_Detalles'
+ MasterDatasetName = 'AlbaranesProveedor'
+ MasterFields = 'ID'
+ DetailDatasetName = 'AlbaranesProveedor_Detalles'
+ DetailFields = 'ID_ALBARAN'
+ RelationshipType = rtForeignKey
+ end>
UpdateRules = <
item
Name = 'Insert AlbaranesProveedor'
@@ -1908,7 +1165,10 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
item
Name = 'AlbaranesProveedor_ID'
DataType = datAutoInc
+ GeneratorName = 'GEN_ALBARANES_PRO_ID'
+ Required = True
DisplayLabel = 'ID'
+ ServerAutoRefresh = True
end
item
Name = 'AlbaranesProveedor_ID_EMPRESA'
@@ -2057,8 +1317,10 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
item
Name = 'AlbaranesProveedor_Detalles_ID'
DataType = datAutoInc
+ GeneratorName = 'GEN_ALBARANES_PRO_DETALLES_ID'
Required = True
DisplayLabel = 'ID'
+ ServerAutoRefresh = True
end
item
Name = 'AlbaranesProveedor_Detalles_ID_PEDIDO'
diff --git a/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.pas b/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.pas
index 3a28b81d..2f826c39 100644
--- a/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.pas
+++ b/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.pas
@@ -23,9 +23,9 @@ type
TsrvAlbaranesProveedor = class(TDataAbstractService, IsrvAlbaranesProveedor)
bpAlbaranesProveedor: TDABusinessProcessor;
bpAlbaranesProveedor_Detalles: TDABusinessProcessor;
+ Bin2DataStreamer: TDABin2DataStreamer;
schAlbaranesProveedor: TDASchema;
DADataDictionary: TDADataDictionary;
- Bin2DataStreamer: TDABin2DataStreamer;
procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset;
const IncludeSchema: Boolean; const MaxRecords: Integer);
procedure DARemoteServiceCreate(Sender: TObject);
@@ -42,8 +42,8 @@ implementation
uses
Dialogs,
{Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils,
- schAlbaranesProveedorClient_Intf, uRestriccionesUsuarioUtils;
-// uBizAlbaranProveedorServer,
+ schAlbaranesProveedorClient_Intf, uRestriccionesUsuarioUtils,
+ uBizAlbaranProveedorServer;
// uRptAlbaranesProveedor_Server;
procedure Create_srvAlbaranesProveedor(out anInstance : IUnknown);
@@ -70,7 +70,7 @@ end;
procedure TsrvAlbaranesProveedor.DARemoteServiceCreate(Sender: TObject);
begin
SessionManager := dmServer.SessionManager;
-// bpAlbaranesProveedor.BusinessRulesID := BIZ_SERVER_ALBARAN_PROVEEDOR;
+ bpAlbaranesProveedor.BusinessRulesID := BIZ_SERVER_ALBARAN_PROVEEDOR;
end;
procedure TsrvAlbaranesProveedor.DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string);
diff --git a/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.dpk b/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.dpk
index cf174d6f..f613151d 100644
--- a/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.dpk
+++ b/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.dpk
@@ -22,77 +22,15 @@ package AlbaranesProveedor_view;
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
-{$IMPLICITBUILD OFF}
+{$IMPLICITBUILD ON}
requires
- rtl,
- vcl,
- dbrtl,
- vcldb,
- dsnap,
- adortl,
- cxLibraryD10,
- dxThemeD10,
- cxEditorsD10,
- cxDataD10,
- vcljpg,
- cxExtEditorsD10,
- vclx,
- cxGridD10,
- cxPageControlD10,
- cxExportD10,
- dxPSCoreD10,
- dxComnD10,
- frx10,
- fs10,
- fqb100,
- bdertl,
- dxPScxCommonD10,
- dxPSLnksD10,
- designide,
- xmlrtl,
- vclactnband,
- vclshlctrls,
- dxPScxGridLnkD10,
- dclcxLibraryD10,
- PngComponentsD10,
- PNG_D10,
- tbx_d10,
- tb2k_d10,
- JvCoreD10R,
- Jcl,
- JclVcl,
- JvSystemD10R,
- JvPageCompsD10R,
- JvStdCtrlsD10R,
- GUISDK_D10,
- ccpack10,
- cfpack_d10,
- JvAppFrmD10R,
GUIBase,
- Contactos_model,
- Contactos_view,
- DataAbstract_D10,
- Empresas_controller,
- frxe10,
- frxTee10,
- fsTee10,
- tee,
- teeui,
- teedb,
- JvGlobusD10R,
- VclSmp,
- vclie,
- Articulos_view,
- dxLayoutControlD10,
AlbaranesProveedor_model,
AlbaranesProveedor_controller,
- AlbaranesProveedor_data,
+ Articulos_view,
Almacenes_model,
- Almacenes_controller,
- JSDialog100,
- AlbProv_FacProv_relation,
- PedProv_AlbProv_relation;
+ Almacenes_controller;
contains
uAlbaranesProveedorViewRegister in 'uAlbaranesProveedorViewRegister.pas',
diff --git a/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.dproj b/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.dproj
index cc51abef..4e523cbc 100644
--- a/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.dproj
+++ b/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.dproj
@@ -36,127 +36,24 @@
..\..\..\Lib;..\..\Lib
..\..\..\Lib;..\..\Lib
..\..\..\Lib;..\..\Lib
- DEBUG
Delphi.Personality
Package
-
- False
- True
- False
-
-
- False
- False
- False
-
-
- True
- False
- 1
- 0
- 0
- 0
- False
- False
- False
- False
- False
- 3082
- 1252
-
-
-
-
- 1.0.0.0
-
-
-
-
-
- 1.0.0.0
-
-
-
- AlbaranesProveedor_view.dpk
-
-
+FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0AlbaranesProveedor_view.dpk
-
+
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
@@ -219,5 +116,488 @@
TFrame
-
-
\ No newline at end of file
+
+
+
diff --git a/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.identcache b/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.identcache
index 90f66d9a..fcb70591 100644
Binary files a/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.identcache and b/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.identcache differ
diff --git a/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.rc b/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.rc
index e69de29b..153736af 100644
--- a/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.rc
+++ b/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.rc
@@ -0,0 +1,22 @@
+1 VERSIONINFO
+FILEVERSION 1,0,0,0
+PRODUCTVERSION 1,0,0,0
+FILEFLAGSMASK 0x3FL
+FILEFLAGS 0x00L
+FILEOS 0x40004L
+FILETYPE 0x1L
+FILESUBTYPE 0x0L
+BEGIN
+ BLOCK "StringFileInfo"
+ BEGIN
+ BLOCK "0C0A04E4"
+ BEGIN
+ VALUE "FileVersion", "1.0.0.0\0"
+ VALUE "ProductVersion", "1.0.0.0\0"
+ END
+ END
+ BLOCK "VarFileInfo"
+ BEGIN
+ VALUE "Translation", 0x0C0A, 1252
+ END
+END
diff --git a/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.res b/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.res
index 86c94e6a..8b251f31 100644
Binary files a/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.res and b/Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.res differ
diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm
index a743f2f2..bc498c73 100644
--- a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm
+++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm
@@ -206,6 +206,10 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
object pagInicidencias: TTabSheet
Caption = 'Incidencias'
ImageIndex = 2
+ ExplicitLeft = 0
+ ExplicitTop = 0
+ ExplicitWidth = 0
+ ExplicitHeight = 0
inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0
Top = 0
diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas
index 1bd02db1..d6b2f7fb 100644
--- a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas
+++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas
@@ -15,7 +15,7 @@ uses
uViewDetallesBase, uViewDetallesAlbaranProveedor,
dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, uViewTotales,
uIEditorAlbaranProveedor, uBizAlbaranesProveedor, uViewAlbaranProveedor,
- uViewDetallesDTO, uViewDetallesArticulos;
+ uViewDetallesDTO, uViewDetallesArticulos, uDAInterfaces;
type
TfEditorAlbaranProveedor = class(TfEditorDBItem, IEditorAlbaranProveedor)
@@ -27,7 +27,7 @@ type
frViewDetallesAlbaranProveedor1: TfrViewDetallesAlbaranProveedor;
frViewTotales1: TfrViewTotales;
- procedure FormShow(Sender: TObject); override;
+ procedure FormShow(Sender: TObject);
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
procedure pgPaginasChanging(Sender: TObject; var AllowChange: Boolean);
procedure frViewTotales1edtDescuentoPropertiesValidate(Sender: TObject;
@@ -267,7 +267,7 @@ begin
end;
inherited PonerTitulos(FTitulo);
- Self.Caption := FTitulo + ' (' + dmUsuarios.EmpresaActual.NOMBRE + ')';
+ Self.Caption := FTitulo + ' ('; // + dmUsuarios.EmpresaActual.NOMBRE + ')';
end;
procedure TfEditorAlbaranProveedor.PrevisualizarInterno;
diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesDevProveedor.pas b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesDevProveedor.pas
index 6569635e..54ad1ebf 100644
--- a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesDevProveedor.pas
+++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesDevProveedor.pas
@@ -8,7 +8,8 @@ uses
JvAppStorage, JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList,
PngImageList, StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TBX,
TB2ExtItems, TBXExtItems, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
- JvExControls, JvComponent, JvNavigationPane, uIEditorAlbaranesDevProveedor;
+ JvExControls, JvComponent, JvNavigationPane, uIEditorAlbaranesDevProveedor,
+ uDAInterfaces;
type
@@ -46,7 +47,7 @@ procedure TfEditorAlbaranesDevProveedor.PonerTitulos(const ATitulo: string);
var
FTitulo : String;
begin
- FTitulo := 'Lista de órdenes de devolución de proveedor - ' + dmUsuarios.EmpresaActual.NOMBRE;
+ FTitulo := 'Lista de órdenes de devolución de proveedor - '; // + dmUsuarios.EmpresaActual.NOMBRE;
inherited PonerTitulos(FTitulo);
end;
diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.dfm b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.dfm
index deb960db..fe07d2cd 100644
--- a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.dfm
+++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.dfm
@@ -2,6 +2,7 @@ inherited fEditorAlbaranesProveedor: TfEditorAlbaranesProveedor
Caption = 'Lista de albaranes de proveedor'
ClientWidth = 606
ExplicitWidth = 614
+ ExplicitHeight = 240
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas
index 4abbaef0..8966d2a4 100644
--- a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas
+++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas
@@ -12,7 +12,7 @@ uses
uEditorGridBase,
uBizAlbaranesProveedor, uIEditorAlbaranesProveedor, uAlbaranesProveedorController,
uCustomView, uViewBase, uViewBarraSeleccion, uViewGridBase,
- uViewAlbaranesProveedor, JvExComCtrls, JvStatusBar, JSDialog;
+ uViewAlbaranesProveedor, JvExComCtrls, JvStatusBar, JSDialog, uDAInterfaces;
type
TfEditorAlbaranesProveedor = class(TfEditorGridBase, IEditorAlbaranesProveedor)
@@ -59,8 +59,9 @@ type
implementation
uses
- uDataModuleAlbaranesProveedor, uDataModuleUsuarios, uGenerarFacturasProvAlbProvUtils,
- uGenerarAlbaranesProvUtils, uEditorBase, schAlbaranesProveedorClient_Intf,
+ uDataModuleAlbaranesProveedor, uDataModuleUsuarios,
+// uGenerarFacturasProvAlbProvUtils, uGenerarAlbaranesProvUtils,
+ uEditorBase, schAlbaranesProveedorClient_Intf,
uGridUtils, uDBSelectionListUtils;
{$R *.dfm}
@@ -78,7 +79,7 @@ end;
procedure TfEditorAlbaranesProveedor.actGenerarFacturaExecute(Sender: TObject);
begin
inherited;
- GenerarFacturaProv(Albaranes.ID);
+// GenerarFacturaProv(Albaranes.ID);
actRefrescar.Execute;
end;
@@ -256,7 +257,7 @@ begin
begin
case JsNuevoAlbaranDialog.CustomButtonResult of
200 : begin // Utilizar un pedido
- GenerarAlbaranProv;
+// GenerarAlbaranProv;
actRefrescar.Execute;
end;
100 : begin // Albaran nuevo vacio
@@ -272,7 +273,7 @@ var
FTitulo : String;
begin
if (ATitulo = '') then
- FTitulo := 'Lista de albaranes de proveedor - ' + dmUsuarios.EmpresaActual.NOMBRE
+ FTitulo := 'Lista de albaranes de proveedor - ' // + dmUsuarios.EmpresaActual.NOMBRE
else
FTitulo := ATitulo;
diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedorReport.dfm b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedorReport.dfm
index c735d9a1..bb2e7869 100644
--- a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedorReport.dfm
+++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedorReport.dfm
@@ -1,5 +1,7 @@
inherited fEditorAlbaranesProveedorPreview: TfEditorAlbaranesProveedorPreview
Caption = 'Previsualizar el albar'#225'n de proveedor'
+ ExplicitWidth = 320
+ ExplicitHeight = 240
PixelsPerInch = 96
TextHeight = 13
inherited frxReport1: TfrxReport
diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedorReport.pas b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedorReport.pas
index f3de78e9..dfd52dfd 100644
--- a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedorReport.pas
+++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedorReport.pas
@@ -4,13 +4,12 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, uEditorPreview, frxExportImage, frxExportPDF, frxDCtrl, frxClass,
- frxDMPExport, frxGradient, frxChBox, frxCross, frxRich, frxChart, frxOLE,
- frxBarcode, JvAppStorage, JvAppRegistryStorage, JvComponentBase,
+ Dialogs, uEditorPreview, JvAppStorage, JvAppRegistryStorage, JvComponentBase,
JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls,
TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage,
ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorAlbaranesProveedorPreview,
- JvExComCtrls, JvStatusBar;
+ JvExComCtrls, JvStatusBar, frxExportImage, frxExportPDF, frxDCtrl, frxClass,
+ frxDMPExport, frxGradient, frxChBox, frxCross, frxRich, frxOLE, frxBarcode;
type
TfEditorAlbaranesProveedorPreview = class(TfEditorPreview, IEditorAlbaranesProveedorPreview)
diff --git a/Source/Modulos/Albaranes de proveedor/Views/uViewDetallesAlbaranProveedor.pas b/Source/Modulos/Albaranes de proveedor/Views/uViewDetallesAlbaranProveedor.pas
index c45fd5f1..714c4a65 100644
--- a/Source/Modulos/Albaranes de proveedor/Views/uViewDetallesAlbaranProveedor.pas
+++ b/Source/Modulos/Albaranes de proveedor/Views/uViewDetallesAlbaranProveedor.pas
@@ -11,7 +11,7 @@ uses
cxGrid, cxImageComboBox, cxTextEdit, cxMaskEdit, cxCheckBox, cxCurrencyEdit,
Grids, DBGrids, StdCtrls, ExtCtrls, cxRichEdit, ExtActns, StdActns,
JvExStdCtrls, JvCombobox, JvColorCombo, TB2Item, TBX, TB2Dock, TB2Toolbar,
- uControllerDetallesArticulos, uBizAlbaranesProveedor;
+ uControllerDetallesArticulos, uBizAlbaranesProveedor, uDAInterfaces;
type
IViewDetallesAlbaranProveedor = interface(IViewDetallesArticulos)
diff --git a/Source/Modulos/Albaranes de proveedor/Views/uViewDireccionEntregaAlbaranProv.pas b/Source/Modulos/Albaranes de proveedor/Views/uViewDireccionEntregaAlbaranProv.pas
index 1b9fb5db..d2c3b2d6 100644
--- a/Source/Modulos/Albaranes de proveedor/Views/uViewDireccionEntregaAlbaranProv.pas
+++ b/Source/Modulos/Albaranes de proveedor/Views/uViewDireccionEntregaAlbaranProv.pas
@@ -8,7 +8,7 @@ uses
cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit,
cxDBLookupEdit, cxDBLookupComboBox, StdCtrls, cxControls, DB, uDADataTable,
ActnList, uBizAlmacenes, uAlmacenesController, uAlbaranesProveedorController,
- Buttons;
+ Buttons, uDAInterfaces;
type
IViewDireccionEntregaAlbaranProv = interface(IViewBase)
diff --git a/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.rc b/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.rc
index e69de29b..153736af 100644
--- a/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.rc
+++ b/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.rc
@@ -0,0 +1,22 @@
+1 VERSIONINFO
+FILEVERSION 1,0,0,0
+PRODUCTVERSION 1,0,0,0
+FILEFLAGSMASK 0x3FL
+FILEFLAGS 0x00L
+FILEOS 0x40004L
+FILETYPE 0x1L
+FILESUBTYPE 0x0L
+BEGIN
+ BLOCK "StringFileInfo"
+ BEGIN
+ BLOCK "0C0A04E4"
+ BEGIN
+ VALUE "FileVersion", "1.0.0.0\0"
+ VALUE "ProductVersion", "1.0.0.0\0"
+ END
+ END
+ BLOCK "VarFileInfo"
+ BEGIN
+ VALUE "Translation", 0x0C0A, 1252
+ END
+END
diff --git a/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.res b/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.res
index 86c94e6a..8b251f31 100644
Binary files a/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.res and b/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.res differ
diff --git a/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.res b/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.res
index 86c94e6a..36f26e23 100644
Binary files a/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.res and b/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.res differ
diff --git a/Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.res b/Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.res
index 86c94e6a..36f26e23 100644
Binary files a/Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.res and b/Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.res differ
diff --git a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas
index ddacb35c..eabb8b47 100644
--- a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas
+++ b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas
@@ -3,7 +3,7 @@ unit schPedidosProveedorClient_Intf;
interface
uses
- Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
+ Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
@@ -165,7 +165,7 @@ type
end;
{ TDarReferenciaDataTableRules }
- TDarReferenciaDataTableRules = class(TDADataTableRules, IDarReferencia)
+ TDarReferenciaDataTableRules = class(TIntfObjectDADataTableRules, IDarReferencia)
private
protected
{ Property getters and setters }
@@ -402,7 +402,7 @@ type
end;
{ TPedidosProveedorDataTableRules }
- TPedidosProveedorDataTableRules = class(TDADataTableRules, IPedidosProveedor)
+ TPedidosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor)
private
f_OBSERVACIONES: IROStrings;
f_INCIDENCIAS: IROStrings;
@@ -721,7 +721,7 @@ type
end;
{ TPedidosProveedor_DetallesDataTableRules }
- TPedidosProveedor_DetallesDataTableRules = class(TDADataTableRules, IPedidosProveedor_Detalles)
+ TPedidosProveedor_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor_Detalles)
private
protected
{ Property getters and setters }
@@ -864,7 +864,7 @@ type
end;
{ TPedidosProveedor_Articulos_PendientesDataTableRules }
- TPedidosProveedor_Articulos_PendientesDataTableRules = class(TDADataTableRules, IPedidosProveedor_Articulos_Pendientes)
+ TPedidosProveedor_Articulos_PendientesDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor_Articulos_Pendientes)
private
protected
{ Property getters and setters }
diff --git a/Source/Modulos/Pedidos a proveedor/Plugin/PedidosProveedor_plugin.res b/Source/Modulos/Pedidos a proveedor/Plugin/PedidosProveedor_plugin.res
index 86c94e6a..36f26e23 100644
Binary files a/Source/Modulos/Pedidos a proveedor/Plugin/PedidosProveedor_plugin.res and b/Source/Modulos/Pedidos a proveedor/Plugin/PedidosProveedor_plugin.res differ
diff --git a/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.res b/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.res
index 86c94e6a..36f26e23 100644
Binary files a/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.res and b/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.res differ
diff --git a/Source/Modulos/Recibos de proveedor/Controller/RecibosProveedor_controller.rc b/Source/Modulos/Recibos de proveedor/Controller/RecibosProveedor_controller.rc
index e69de29b..153736af 100644
--- a/Source/Modulos/Recibos de proveedor/Controller/RecibosProveedor_controller.rc
+++ b/Source/Modulos/Recibos de proveedor/Controller/RecibosProveedor_controller.rc
@@ -0,0 +1,22 @@
+1 VERSIONINFO
+FILEVERSION 1,0,0,0
+PRODUCTVERSION 1,0,0,0
+FILEFLAGSMASK 0x3FL
+FILEFLAGS 0x00L
+FILEOS 0x40004L
+FILETYPE 0x1L
+FILESUBTYPE 0x0L
+BEGIN
+ BLOCK "StringFileInfo"
+ BEGIN
+ BLOCK "0C0A04E4"
+ BEGIN
+ VALUE "FileVersion", "1.0.0.0\0"
+ VALUE "ProductVersion", "1.0.0.0\0"
+ END
+ END
+ BLOCK "VarFileInfo"
+ BEGIN
+ VALUE "Translation", 0x0C0A, 1252
+ END
+END
diff --git a/Source/Modulos/Recibos de proveedor/Controller/RecibosProveedor_controller.res b/Source/Modulos/Recibos de proveedor/Controller/RecibosProveedor_controller.res
index 86c94e6a..8b251f31 100644
Binary files a/Source/Modulos/Recibos de proveedor/Controller/RecibosProveedor_controller.res and b/Source/Modulos/Recibos de proveedor/Controller/RecibosProveedor_controller.res differ
diff --git a/Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.rc b/Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.rc
index e69de29b..153736af 100644
--- a/Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.rc
+++ b/Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.rc
@@ -0,0 +1,22 @@
+1 VERSIONINFO
+FILEVERSION 1,0,0,0
+PRODUCTVERSION 1,0,0,0
+FILEFLAGSMASK 0x3FL
+FILEFLAGS 0x00L
+FILEOS 0x40004L
+FILETYPE 0x1L
+FILESUBTYPE 0x0L
+BEGIN
+ BLOCK "StringFileInfo"
+ BEGIN
+ BLOCK "0C0A04E4"
+ BEGIN
+ VALUE "FileVersion", "1.0.0.0\0"
+ VALUE "ProductVersion", "1.0.0.0\0"
+ END
+ END
+ BLOCK "VarFileInfo"
+ BEGIN
+ VALUE "Translation", 0x0C0A, 1252
+ END
+END
diff --git a/Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.res b/Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.res
index 86c94e6a..8b251f31 100644
Binary files a/Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.res and b/Source/Modulos/Recibos de proveedor/Data/RecibosProveedor_data.res differ
diff --git a/Source/Modulos/Recibos de proveedor/Model/RecibosProveedor_model.rc b/Source/Modulos/Recibos de proveedor/Model/RecibosProveedor_model.rc
index e69de29b..153736af 100644
--- a/Source/Modulos/Recibos de proveedor/Model/RecibosProveedor_model.rc
+++ b/Source/Modulos/Recibos de proveedor/Model/RecibosProveedor_model.rc
@@ -0,0 +1,22 @@
+1 VERSIONINFO
+FILEVERSION 1,0,0,0
+PRODUCTVERSION 1,0,0,0
+FILEFLAGSMASK 0x3FL
+FILEFLAGS 0x00L
+FILEOS 0x40004L
+FILETYPE 0x1L
+FILESUBTYPE 0x0L
+BEGIN
+ BLOCK "StringFileInfo"
+ BEGIN
+ BLOCK "0C0A04E4"
+ BEGIN
+ VALUE "FileVersion", "1.0.0.0\0"
+ VALUE "ProductVersion", "1.0.0.0\0"
+ END
+ END
+ BLOCK "VarFileInfo"
+ BEGIN
+ VALUE "Translation", 0x0C0A, 1252
+ END
+END
diff --git a/Source/Modulos/Recibos de proveedor/Model/RecibosProveedor_model.res b/Source/Modulos/Recibos de proveedor/Model/RecibosProveedor_model.res
index 86c94e6a..8b251f31 100644
Binary files a/Source/Modulos/Recibos de proveedor/Model/RecibosProveedor_model.res and b/Source/Modulos/Recibos de proveedor/Model/RecibosProveedor_model.res differ
diff --git a/Source/Modulos/Recibos de proveedor/Plugin/RecibosProveedor_plugin.res b/Source/Modulos/Recibos de proveedor/Plugin/RecibosProveedor_plugin.res
index 86c94e6a..36f26e23 100644
Binary files a/Source/Modulos/Recibos de proveedor/Plugin/RecibosProveedor_plugin.res and b/Source/Modulos/Recibos de proveedor/Plugin/RecibosProveedor_plugin.res differ
diff --git a/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.res b/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.res
index 86c94e6a..36f26e23 100644
Binary files a/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.res and b/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.res differ
diff --git a/Source/Modulos/Relaciones/Pedidos de proveedor - Albaranes de proveedor/PedProv_AlbProv_relation.res b/Source/Modulos/Relaciones/Pedidos de proveedor - Albaranes de proveedor/PedProv_AlbProv_relation.res
index 36f26e23..86c94e6a 100644
Binary files a/Source/Modulos/Relaciones/Pedidos de proveedor - Albaranes de proveedor/PedProv_AlbProv_relation.res and b/Source/Modulos/Relaciones/Pedidos de proveedor - Albaranes de proveedor/PedProv_AlbProv_relation.res differ
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index 09e53fe6..66013928 100644
Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ
diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr
index 8dfa5dd7..ac4d4e99 100644
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/Source/Servidor/FactuGES_Server.dpr
@@ -76,12 +76,13 @@ uses
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
srvAlbaranesProveedor_Impl in '..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas' {srvAlbaranesProveedor: TDataAbstractService},
- schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
- schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
srvPedidosProveedor_Impl in '..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas' {srvPedidosProveedor: TDataAbstractService},
uBizPedidosProveedorServer in '..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas',
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
- schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas';
+ schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
+ schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
+ schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
+ uBizAlbaranProveedorServer in '..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS';
{$R *.res}
{$R ..\Servicios\RODLFile.res}
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index 04f1d3b0..90c0a33e 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -1,184 +1,181 @@
-
+
-
- {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}
- FactuGES_Server.dpr
- Debug
- AnyCPU
- DCC32
- ..\..\Output\Debug\Servidor\FactuGES_Server.exe
-
-
- 7.0
- False
- False
- 0
- 3
- ..\..\Output\Release\Servidor
- RELEASE
-
-
- 7.0
- 3
- ..\..\Output\Debug\Servidor
- DEBUG;
- True
-
-
- Delphi.Personality
-
-
-FalseTrueFalseTrueFalse3000FalseFalseFalseFalseFalse308212523.0.0.03.0.0.0domingo, 30 de septiembre de 2007 20:47
-
-
-
-
- RemObjects Pascal Script - RemObjects SDK 3.0 Integration
- FactuGES_Server.dpr
-
-
-
-
- MainSource
-
-
-
-
-
- TDARemoteService
-
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDARemoteService
-
-
-
-
-
-
-
-
-
-
-
-
- TDARemoteService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
- TFrame
-
-
-
- TFrame
-
-
-
- TForm
-
-
-
- TFrame
-
-
-
- TDARemoteService
-
-
-
-
-
-
- TDataModule
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+ {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}
+ FactuGES_Server.dpr
+ Debug
+ AnyCPU
+ DCC32
+ ..\..\Output\Debug\Servidor\FactuGES_Server.exe
+
+
+ 7.0
+ False
+ False
+ 0
+ 3
+ ..\..\Output\Release\Servidor
+ RELEASE
+
+
+ 7.0
+ 3
+ ..\..\Output\Debug\Servidor
+ DEBUG;
+ True
+
+
+ Delphi.Personality
+
+
+ FalseTrueFalseTrueFalse3000FalseFalseFalseFalseFalse308212523.0.0.03.0.0.0domingo, 30 de septiembre de 2007 20:47
+ RemObjects Pascal Script - RemObjects SDK 3.0 Integration
+ FactuGES_Server.dpr
+
+
+
+
+ MainSource
+
+
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+
+
+
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+ TFrame
+
+
+
+ TFrame
+
+
+
+ TForm
+
+
+
+ TFrame
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+ TDataModule
+
+
+
+
+
+
+
+
+
+
+
+
+