diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql
index 36fc6da..a3b66ec 100644
--- a/Database/scripts/factuges.sql
+++ b/Database/scripts/factuges.sql
@@ -490,6 +490,7 @@ CREATE TABLE ALBARANES_CLIENTE_DETALLES (
IMPORTE_PORTE TIPO_IMPORTE,
IMPORTE_TOTAL TIPO_IMPORTE,
VISIBLE TIPO_BOOLEANO,
+ VALORADO TIPO_BOOLEANO,
FECHA_ALTA TIMESTAMP,
FECHA_MODIFICACION TIMESTAMP
);
@@ -544,6 +545,7 @@ CREATE TABLE ALBARANES_PROVEEDOR_DETALLES (
IMPORTE_PORTE TIPO_IMPORTE,
IMPORTE_TOTAL TIPO_IMPORTE,
VISIBLE TIPO_BOOLEANO,
+ VALORADO TIPO_BOOLEANO,
FECHA_ALTA TIMESTAMP,
FECHA_MODIFICACION TIMESTAMP
);
@@ -938,6 +940,7 @@ CREATE TABLE FACTURAS_CLIENTE_DETALLES (
IMPORTE_PORTE TIPO_IMPORTE,
IMPORTE_TOTAL TIPO_IMPORTE,
VISIBLE TIPO_BOOLEANO,
+ VALORADO TIPO_BOOLEANO,
FECHA_ALTA TIMESTAMP,
FECHA_MODIFICACION TIMESTAMP
);
@@ -993,6 +996,7 @@ CREATE TABLE FACTURAS_PROVEEDOR_DETALLES (
IMPORTE_PORTE TIPO_IMPORTE,
IMPORTE_TOTAL TIPO_IMPORTE,
VISIBLE TIPO_BOOLEANO,
+ VALORADO TIPO_BOOLEANO,
FECHA_ALTA TIMESTAMP,
FECHA_MODIFICACION TIMESTAMP
);
@@ -1133,6 +1137,7 @@ CREATE TABLE PEDIDOS_CLIENTE_DETALLES (
IMPORTE_PORTE TIPO_IMPORTE,
IMPORTE_TOTAL TIPO_IMPORTE,
VISIBLE TIPO_BOOLEANO,
+ VALORADO TIPO_BOOLEANO,
FECHA_ALTA TIMESTAMP,
FECHA_MODIFICACION TIMESTAMP
);
@@ -1185,6 +1190,7 @@ CREATE TABLE PEDIDOS_PROVEEDOR_DETALLES (
IMPORTE_PORTE TIPO_IMPORTE,
IMPORTE_TOTAL TIPO_IMPORTE,
VISIBLE TIPO_BOOLEANO,
+ VALORADO TIPO_BOOLEANO,
FECHA_ALTA TIMESTAMP,
FECHA_MODIFICACION TIMESTAMP
);
@@ -1287,6 +1293,7 @@ CREATE TABLE PRESUPUESTOS_CLIENTE_DETALLES (
IMPORTE_PORTE TIPO_IMPORTE,
IMPORTE_TOTAL TIPO_IMPORTE,
VISIBLE TIPO_BOOLEANO,
+ VALORADO TIPO_BOOLEANO,
FECHA_ALTA TIMESTAMP,
FECHA_MODIFICACION TIMESTAMP
);
@@ -1350,6 +1357,7 @@ CREATE TABLE CONTRATOS_CLIENTE_DETALLES (
IMPORTE_PORTE TIPO_IMPORTE,
IMPORTE_TOTAL TIPO_IMPORTE,
VISIBLE TIPO_BOOLEANO,
+ VALORADO TIPO_BOOLEANO,
FECHA_ALTA TIMESTAMP,
FECHA_MODIFICACION TIMESTAMP
);
diff --git a/Resources/Iconos/Generales/16x16/Valorado.bmp b/Resources/Iconos/Generales/16x16/Valorado.bmp
new file mode 100644
index 0000000..7c25b30
Binary files /dev/null and b/Resources/Iconos/Generales/16x16/Valorado.bmp differ
diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj
index a7992d3..9a124fc 100644
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@@ -58,54 +58,54 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Base/Base.res b/Source/Base/Base.res
index 1641339..8b251f3 100644
Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ
diff --git a/Source/Base/Controladores/uControllerDetallesBase.pas b/Source/Base/Controladores/uControllerDetallesBase.pas
index 61eea82..f54b946 100644
--- a/Source/Base/Controladores/uControllerDetallesBase.pas
+++ b/Source/Base/Controladores/uControllerDetallesBase.pas
@@ -37,6 +37,9 @@ type
function DarListaTiposDetalle: TStringList;
procedure ValidarDetalles(ADataTable: IDAStronglyTypedDataTable);
+
+ procedure SetVisible(ADetalles: IDAStronglyTypedDataTable; const AVisible: Integer; const Orden: Integer); // 1 Ascendente / 0 Descendente
+ procedure SetValorado(ADetalles: IDAStronglyTypedDataTable; const AValorado: Integer; const Orden: Integer); // 1 Ascendente / 0 Descendente
end;
TControllerDetallesBase = class (TSujeto, IControllerDetallesBase)
@@ -95,6 +98,10 @@ type
// Comprueba que todos los detalles del documento tengan un tipo_detalle asignado,
// además de que los capitulos tengan su subtotal de cierre
procedure ValidarDetalles(ADataTable: IDAStronglyTypedDataTable); virtual;
+
+ procedure SetVisible(ADetalles: IDAStronglyTypedDataTable; const AVisible: Integer; const Orden: Integer); virtual; // 1 Ascendente / 0 Descendente
+ procedure SetValorado(ADetalles: IDAStronglyTypedDataTable; const AValorado: Integer; const Orden: Integer); virtual; // 1 Ascendente / 0 Descendente
+
end;
@@ -119,13 +126,14 @@ procedure TControllerDetallesBase.Add(ADataTable: IDAStronglyTypedDataTable; Tip
var
AuxNumOrden : Integer;
AuxVisible : Variant;
-
+ AuxValorado : Variant;
begin
BeginUpdate(ADataTable);
try
with ADataTable do
begin
AuxVisible := DataTable.FieldByName(CAMPO_VISIBLE).AsVariant;
+ AuxValorado := DataTable.FieldByName(CAMPO_VALORADO).AsVariant;
AuxNumOrden := desplazarNPosiciones(DataTable, DataTable.FieldByName(CAMPO_POSICION).AsVariant, 1);
DataTable.Insert;
@@ -133,6 +141,8 @@ begin
DataTable.FieldByName(CAMPO_TIPO).AsVariant := TipoConcepto;
if not VarIsNull(AuxVisible) then
DataTable.FieldByName(CAMPO_VISIBLE).AsInteger := AuxVisible;
+ if not VarIsNull(AuxValorado) then
+ DataTable.FieldByName(CAMPO_VALORADO).AsInteger := AuxValorado;
DataTable.post;
end;
finally
@@ -227,7 +237,7 @@ begin
begin
if Modificar then
TratamientoDetalleConcepto(DataTable); //Se podrá sobreescribir para que se tengan en cuenta nuevos campos
- if DataTable.FieldByName(CAMPO_VISIBLE).AsBoolean then //Se usa para saber si el concepto se sumará o no como un concepto más del presupuesto
+ if DataTable.FieldByName(CAMPO_VALORADO).AsBoolean then //Se usa para saber si el concepto se sumará o no como un concepto más del presupuesto
CalculoDetalleConcepto(DataTable, AuxImporteAcumulado, AuxImporteTotal, SemaforoOpcional); //Se podrá sobreescribir para posibles nuevos calculos de los hijos
end
//HIJOS
@@ -598,6 +608,84 @@ begin
end;
end;
+procedure TControllerDetallesBase.SetValorado(
+ ADetalles: IDAStronglyTypedDataTable; const AValorado, Orden: Integer);
+var
+ ABookmark : TBookmark;
+ AuxPosicion: Integer;
+ AuxEncontrado: Boolean;
+begin
+ AuxPosicion := ADetalles.DataTable.FieldByName(CAMPO_POSICION).AsInteger;
+
+ ABookmark := ADetalles.DataTable.GetBookMark;
+ try
+ ADetalles.DataTable.DisableControls;
+
+ repeat
+ if (Orden > 0) then
+ Inc(AuxPosicion)
+ else
+ Dec(AuxPosicion);
+
+ ADetalles.First;
+ AuxEncontrado := ADetalles.Locate(CAMPO_POSICION, AuxPosicion, []);
+ if AuxEncontrado then
+ begin
+ ADetalles.DataTable.Edit;
+ ADetalles.DataTable.FieldByName(CAMPO_VALORADO).AsInteger := AValorado;
+ ADetalles.DataTable.Post;
+ end;
+ until (ADetalles.DataTable.FieldByName(CAMPO_TIPO).AsString = TIPO_DETALLE_SUBTOTAL)
+ or (ADetalles.DataTable.FieldByName(CAMPO_TIPO).AsString = TIPO_DETALLE_TITULO)
+ or (ADetalles.DataTable.FieldByName(CAMPO_TIPO).AsString = TIPO_DETALLE_TITULO_OPCIONAL)
+ or (AuxEncontrado = False)
+
+ finally
+ ADetalles.DataTable.GotoBookmark(ABookmark);
+ ADetalles.DataTable.FreeBookmark(ABookmark);
+ ADetalles.DataTable.EnableControls;
+ end;
+end;
+
+procedure TControllerDetallesBase.SetVisible(
+ ADetalles: IDAStronglyTypedDataTable; const AVisible, Orden: Integer);
+var
+ ABookmark : TBookmark;
+ AuxPosicion: Integer;
+ AuxEncontrado: Boolean;
+begin
+ AuxPosicion := ADetalles.DataTable.FieldByName(CAMPO_POSICION).AsInteger;
+
+ ABookmark := ADetalles.DataTable.GetBookMark;
+ try
+ ADetalles.DataTable.DisableControls;
+
+ repeat
+ if (Orden > 0) then
+ Inc(AuxPosicion)
+ else
+ Dec(AuxPosicion);
+
+ ADetalles.First;
+ AuxEncontrado := ADetalles.Locate(CAMPO_POSICION, AuxPosicion, []);
+ if AuxEncontrado then
+ begin
+ ADetalles.DataTable.Edit;
+ ADetalles.DataTable.FieldByName(CAMPO_VISIBLE).AsInteger := AVisible;
+ ADetalles.DataTable.Post;
+ end;
+ until (ADetalles.DataTable.FieldByName(CAMPO_TIPO).AsString = TIPO_DETALLE_SUBTOTAL)
+ or (ADetalles.DataTable.FieldByName(CAMPO_TIPO).AsString = TIPO_DETALLE_TITULO)
+ or (ADetalles.DataTable.FieldByName(CAMPO_TIPO).AsString = TIPO_DETALLE_TITULO_OPCIONAL)
+ or (AuxEncontrado = False)
+
+ finally
+ ADetalles.DataTable.GotoBookmark(ABookmark);
+ ADetalles.DataTable.FreeBookmark(ABookmark);
+ ADetalles.DataTable.EnableControls;
+ end;
+end;
+
procedure TControllerDetallesBase.TratamientoDetalleConcepto(DataTable: TDADataTable);
begin
with DataTable do
diff --git a/Source/Base/Utiles/uCalculosUtils.pas b/Source/Base/Utiles/uCalculosUtils.pas
index 303d473..728cdd2 100644
--- a/Source/Base/Utiles/uCalculosUtils.pas
+++ b/Source/Base/Utiles/uCalculosUtils.pas
@@ -16,7 +16,8 @@ const
CAMPO_IMPORTE_TOTAL = 'IMPORTE_TOTAL';
CAMPO_DESCUENTO = 'DESCUENTO';
CAMPO_IMPORTE_PORTE = 'IMPORTE_PORTE';
- CAMPO_VISIBLE = 'VISIBLE'; //Se usará para saber si un concepto se debe sumar o no
+ CAMPO_VISIBLE = 'VISIBLE';
+ CAMPO_VALORADO = 'VALORADO';
function CalcularLineaConcepto (const ADataTable : TDADataTable): Double;
procedure ValidarCamposLineaConcepto(DataTable: TDADataTable);
diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res
index bccd6fc..92ce79f 100644
Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ
diff --git a/Source/GUIBase/GUIBase.res b/Source/GUIBase/GUIBase.res
index 1641339..8b251f3 100644
Binary files a/Source/GUIBase/GUIBase.res and b/Source/GUIBase/GUIBase.res differ
diff --git a/Source/GUIBase/uViewDetallesBase.dfm b/Source/GUIBase/uViewDetallesBase.dfm
index 9046ff5..e84bc37 100644
--- a/Source/GUIBase/uViewDetallesBase.dfm
+++ b/Source/GUIBase/uViewDetallesBase.dfm
@@ -221,7 +221,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
PropertiesClassName = 'TcxImageComboBoxProperties'
Properties.ImmediatePost = True
Properties.Items = <>
- BestFitMaxWidth = 64
+ BestFitMaxWidth = 35
Width = 35
end
object cxGridViewDESCRIPCION: TcxGridDBColumn
@@ -267,6 +267,55 @@ inherited frViewDetallesBase: TfrViewDetallesBase
Properties.Alignment = taCenter
Properties.DisplayChecked = '1'
Properties.DisplayUnchecked = '0'
+ Properties.Glyph.Data = {
+ 92030000424D9203000000000000920100002800000020000000100000000100
+ 08000000000000020000120B0000120B0000570000005700000000000000FFFF
+ FF0040384000703840008048500090586000C0606000A0505000804040006030
+ 30009050500070404000A060600090606000A0707000B0808000C09090004030
+ 3000E0B0B000B0909000FFF0F000FF787000E0787000C0686000FF9890009048
+ 4000A0585000D0888000E0989000E0706000FF80700080484000A0686000FFA0
+ 9000FF887000B060500070484000FFB0A000C0989000D0A8A000E0B8B000FF98
+ 8000A0605000FFC0B000F0C0B00080686000F0D8D000B0908000E0C8B000E0D8
+ D000FFE0C000FFF8F000F0E0C000FFF0D000FFF8E00020283000FEFEFE00FAFA
+ FA00F7F7F700F3F3F300F1F1F100F0F0F000EDEDED00EAEAEA00E7E7E700E6E6
+ E600E3E3E300E0E0E000DADADA00D7D7D700D3D3D300D0D0D000CDCDCD00C9C9
+ C900C6C6C600C4C4C400C3C3C300C0C0C000BEBEBE00BCBCBC00B9B9B900B7B7
+ B700B3B3B300AEAEAE00ACACAC00A6A6A600FFFFFF0056565656565656565656
+ 5656565656565656565656565656565656565656565656565656565656565656
+ 5656565656565656565656565656565656565656565656565656565656565656
+ 5656565656565656565656565656565656565656565656565656565656565656
+ 5656565656565656565656565656565656565656565656565656404040444C4C
+ 463D5656565656565656122830262D2D2F325656565644444444433E4145474A
+ 50463B404456101010102734181D061A242F35122656564646443A3F434A544C
+ 49493A3C4646560F0F10362C1507110A2320362E0F0F56564845394341535554
+ 44473944484856560E13331C21023711161714260E0E5656564A3E403E38544A
+ 4344464B4B565656560D31122B01111A1E1B0F050556565656564E49423F4343
+ 434A4E4E565656565656040C2925221E1E2A04045656565656565650504F4D4F
+ 50505056565656565656560B0B1F19080B0B0B56565656565656565652505151
+ 505656565656565656565656090B03030B565656565656565656565656565656
+ 5656565656565656565656565656565656565656565656565656565656565656
+ 5656565656565656565656565656565656565656565656565656565656565656
+ 5656565656565656565656565656565656565656565656565656565656565656
+ 56565656565656565656565656565656565656565656}
+ Properties.GlyphCount = 2
+ Properties.ImmediatePost = True
+ Properties.NullStyle = nssUnchecked
+ Properties.ValueChecked = 1
+ Properties.ValueUnchecked = 0
+ Visible = False
+ BestFitMaxWidth = 25
+ FooterAlignmentHorz = taCenter
+ HeaderAlignmentHorz = taCenter
+ VisibleForCustomization = False
+ Width = 25
+ end
+ object cxGridViewVALORADO: TcxGridDBColumn
+ Caption = #191'Valorado?'
+ DataBinding.FieldName = 'VALORADO'
+ PropertiesClassName = 'TcxCheckBoxProperties'
+ Properties.Alignment = taCenter
+ Properties.DisplayChecked = '1'
+ Properties.DisplayUnchecked = '0'
Properties.Glyph.Data = {
36060000424D3606000000000000360000002800000020000000100000000100
18000000000000060000120B0000120B00000000000000000000FFFFFFFFFFFF
@@ -324,8 +373,10 @@ inherited frViewDetallesBase: TfrViewDetallesBase
Properties.ValueChecked = 1
Properties.ValueUnchecked = 0
Visible = False
+ BestFitMaxWidth = 25
FooterAlignmentHorz = taCenter
HeaderAlignmentHorz = taCenter
+ VisibleForCustomization = False
Width = 25
end
end
diff --git a/Source/GUIBase/uViewDetallesBase.pas b/Source/GUIBase/uViewDetallesBase.pas
index 35caeea..589e74c 100644
--- a/Source/GUIBase/uViewDetallesBase.pas
+++ b/Source/GUIBase/uViewDetallesBase.pas
@@ -108,6 +108,7 @@ type
TBXItem13: TTBXItem;
cxStyle_DESCUENTO: TcxStyle;
cxStyleDesactivado: TcxStyle;
+ cxGridViewVALORADO: TcxGridDBColumn;
procedure actAnadirExecute(Sender: TObject);
procedure actEliminarExecute(Sender: TObject);
@@ -125,6 +126,7 @@ type
procedure FontEdit1BeforeExecute(Sender: TObject);
procedure FontEdit1Accept(Sender: TObject);
+ procedure CustomViewShow(Sender: TObject);
procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure FontSizeChange(Sender: TObject);
@@ -161,6 +163,8 @@ type
function darListaSeleccionados: TIntegerArray;
procedure TratamientoTeclas(Key: Word; Shift: TShiftState; AItem: TcxCustomGridTableItem = nil);
+ procedure OnVISIBLEPropertiesEditValueChanged(Sender: TObject);
+ procedure OnVALORADOPropertiesEditValueChanged(Sender: TObject);
protected
function HayQueRecalcular(AItem: TcxCustomGridTableItem): Boolean; virtual;
function EsTipoEditable(AItem: TcxCustomGridTableItem): Boolean; virtual;
@@ -348,6 +352,16 @@ procedure TfrViewDetallesBase.CustomViewDestroy(Sender: TObject);
begin
inherited;
CurEdit := Nil;
+ cxGridViewVALORADO.Properties.OnEditValueChanged := NIL;
+ cxGridViewVISIBLE.Properties.OnEditValueChanged := NIL;
+end;
+
+procedure TfrViewDetallesBase.CustomViewShow(Sender: TObject);
+begin
+ inherited;
+
+ cxGridViewVALORADO.Properties.OnEditValueChanged := OnVALORADOPropertiesEditValueChanged;
+ cxGridViewVISIBLE.Properties.OnEditValueChanged := OnVISIBLEPropertiesEditValueChanged;
end;
procedure TfrViewDetallesBase.cxGridViewEditing(Sender: TcxCustomGridTableView;
@@ -819,4 +833,48 @@ begin
end;
end;
+
+procedure TfrViewDetallesBase.OnVISIBLEPropertiesEditValueChanged(Sender: TObject);
+var
+ Orden: Integer;
+begin
+ inherited;
+ Orden := 1;
+ if (cxGridView.DataController.GetItemByFieldName(CAMPO_TIPO).EditValue = TIPO_DETALLE_TITULO)
+ or (cxGridView.DataController.GetItemByFieldName(CAMPO_TIPO).EditValue = TIPO_DETALLE_TITULO_OPCIONAL)
+ or (cxGridView.DataController.GetItemByFieldName(CAMPO_TIPO).EditValue = TIPO_DETALLE_SUBTOTAL) then
+ begin
+ cxGridView.BeginUpdate;
+
+ if (cxGridView.DataController.GetItemByFieldName(CAMPO_TIPO).EditValue = TIPO_DETALLE_SUBTOTAL) then
+ Orden := 0;
+ Controller.SetVisible(Detalles, cxGridView.DataController.GetItemByFieldName(CAMPO_VISIBLE).EditValue, Orden);
+
+ cxGridView.EndUpdate;
+ end;
+end;
+
+procedure TfrViewDetallesBase.OnVALORADOPropertiesEditValueChanged(
+ Sender: TObject);
+var
+ Orden: Integer;
+begin
+ inherited;
+ Orden := 1;
+ if (cxGridView.DataController.GetItemByFieldName(CAMPO_TIPO).EditValue = TIPO_DETALLE_TITULO)
+ or (cxGridView.DataController.GetItemByFieldName(CAMPO_TIPO).EditValue = TIPO_DETALLE_TITULO_OPCIONAL)
+ or (cxGridView.DataController.GetItemByFieldName(CAMPO_TIPO).EditValue = TIPO_DETALLE_SUBTOTAL) then
+ begin
+ cxGridView.BeginUpdate;
+
+ if (cxGridView.DataController.GetItemByFieldName(CAMPO_TIPO).EditValue = TIPO_DETALLE_SUBTOTAL) then
+ Orden := 0;
+ Controller.SetValorado(Detalles, cxGridView.DataController.GetItemByFieldName(CAMPO_VALORADO).EditValue, Orden);
+
+ cxGridView.EndUpdate;
+ end;
+ Controller.ActualizarTotales(Detalles);
+end;
+
+
end.
diff --git a/Source/Informes/1/InfContratoCliente.fr3 b/Source/Informes/1/InfContratoCliente.fr3
index 0817ed3..47727c5 100644
--- a/Source/Informes/1/InfContratoCliente.fr3
+++ b/Source/Informes/1/InfContratoCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -16,7 +16,7 @@
-
+
diff --git a/Source/Informes/1/InfFacturaCliente.fr3 b/Source/Informes/1/InfFacturaCliente.fr3
index 4ab4cda..4b419d9 100644
--- a/Source/Informes/1/InfFacturaCliente.fr3
+++ b/Source/Informes/1/InfFacturaCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -66,7 +66,7 @@
-
+
diff --git a/Source/Informes/1/InfPresupuestoCliente.fr3 b/Source/Informes/1/InfPresupuestoCliente.fr3
index 98ee709..8932bf0 100644
--- a/Source/Informes/1/InfPresupuestoCliente.fr3
+++ b/Source/Informes/1/InfPresupuestoCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -16,7 +16,7 @@
-
+
diff --git a/Source/Informes/2/InfContratoCliente.fr3 b/Source/Informes/2/InfContratoCliente.fr3
index 9ec7209..72f819b 100644
--- a/Source/Informes/2/InfContratoCliente.fr3
+++ b/Source/Informes/2/InfContratoCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -18,7 +18,7 @@
-
+
@@ -65,13 +65,13 @@
-
+
-
+
diff --git a/Source/Informes/2/InfFacturaCliente.fr3 b/Source/Informes/2/InfFacturaCliente.fr3
index 36c5815..aa31135 100644
--- a/Source/Informes/2/InfFacturaCliente.fr3
+++ b/Source/Informes/2/InfFacturaCliente.fr3
@@ -1,5 +1,5 @@
-
+
diff --git a/Source/Informes/2/InfPresupuestoCliente.fr3 b/Source/Informes/2/InfPresupuestoCliente.fr3
index eb54b34..9b0bcc6 100644
--- a/Source/Informes/2/InfPresupuestoCliente.fr3
+++ b/Source/Informes/2/InfPresupuestoCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -18,7 +18,7 @@
-
+
diff --git a/Source/Informes/3/InfContratoCliente.fr3 b/Source/Informes/3/InfContratoCliente.fr3
index 3a0f808..6ca214e 100644
--- a/Source/Informes/3/InfContratoCliente.fr3
+++ b/Source/Informes/3/InfContratoCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -18,7 +18,7 @@
-
+
diff --git a/Source/Informes/3/InfFacturaCliente.fr3 b/Source/Informes/3/InfFacturaCliente.fr3
index 545036b..58af16c 100644
--- a/Source/Informes/3/InfFacturaCliente.fr3
+++ b/Source/Informes/3/InfFacturaCliente.fr3
@@ -1,5 +1,5 @@
-
+
diff --git a/Source/Informes/3/InfPresupuestoCliente.fr3 b/Source/Informes/3/InfPresupuestoCliente.fr3
index eb54b34..3d0e5fd 100644
--- a/Source/Informes/3/InfPresupuestoCliente.fr3
+++ b/Source/Informes/3/InfPresupuestoCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -18,7 +18,7 @@
-
+
diff --git a/Source/Informes/4/InfContratoCliente.fr3 b/Source/Informes/4/InfContratoCliente.fr3
index b13f60d..1795779 100644
--- a/Source/Informes/4/InfContratoCliente.fr3
+++ b/Source/Informes/4/InfContratoCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -16,7 +16,7 @@
-
+
diff --git a/Source/Informes/4/InfFacturaCliente.fr3 b/Source/Informes/4/InfFacturaCliente.fr3
index 6f26fae..89e8ce0 100644
--- a/Source/Informes/4/InfFacturaCliente.fr3
+++ b/Source/Informes/4/InfFacturaCliente.fr3
@@ -1,5 +1,5 @@
-
+
diff --git a/Source/Informes/4/InfPresupuestoCliente.fr3 b/Source/Informes/4/InfPresupuestoCliente.fr3
index a3618c4..7439ec8 100644
--- a/Source/Informes/4/InfPresupuestoCliente.fr3
+++ b/Source/Informes/4/InfPresupuestoCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -16,7 +16,7 @@
-
+
diff --git a/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm b/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm
index c49c729..27c894d 100644
--- a/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm
+++ b/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm
@@ -398,8 +398,15 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
item
Name = 'VISIBLE'
DataType = datInteger
+ DisplayLabel = #191'Visible?'
DictionaryEntry = 'AlbaranesCliente_Detalles_VISIBLE'
end
+ item
+ Name = 'VALORADO'
+ DataType = datSmallInt
+ DisplayLabel = #191'Valorado?'
+ DictionaryEntry = 'AlbaranesCliente_Detalles_VALORADO'
+ end
item
Name = 'ID_ARTICULO'
DataType = datInteger
diff --git a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas
index 845a062..f479573 100644
--- a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas
+++ b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas
@@ -9,9 +9,9 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
- RID_ListaAnosAlbaranes = '{B52C00C6-FE82-4F51-81FA-B4FF1B82A203}';
- RID_AlbaranesCliente = '{34BC09FF-5B71-4550-8CB0-1DA569B133D7}';
- RID_AlbaranesCliente_Detalles = '{86D6C469-278B-4655-A28C-3359D8812BB1}';
+ RID_ListaAnosAlbaranes = '{DB65F866-8E50-42B2-827F-521E6CFD9736}';
+ RID_AlbaranesCliente = '{2F713114-4AE3-47F8-815B-6ED7EC03D5B4}';
+ RID_AlbaranesCliente_Detalles = '{42ABF8C9-71ED-4ECD-8C0C-E8E0D332B5DD}';
{ Data table names }
nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
@@ -128,6 +128,7 @@ const
fld_AlbaranesCliente_DetallesIMPORTE_PORTE = 'IMPORTE_PORTE';
fld_AlbaranesCliente_DetallesIMPORTE_TOTAL = 'IMPORTE_TOTAL';
fld_AlbaranesCliente_DetallesVISIBLE = 'VISIBLE';
+ fld_AlbaranesCliente_DetallesVALORADO = 'VALORADO';
fld_AlbaranesCliente_DetallesID_ARTICULO = 'ID_ARTICULO';
fld_AlbaranesCliente_DetallesREFERENCIA = 'REFERENCIA';
fld_AlbaranesCliente_DetallesREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR';
@@ -144,14 +145,15 @@ const
idx_AlbaranesCliente_DetallesIMPORTE_PORTE = 8;
idx_AlbaranesCliente_DetallesIMPORTE_TOTAL = 9;
idx_AlbaranesCliente_DetallesVISIBLE = 10;
- idx_AlbaranesCliente_DetallesID_ARTICULO = 11;
- idx_AlbaranesCliente_DetallesREFERENCIA = 12;
- idx_AlbaranesCliente_DetallesREFERENCIA_PROVEEDOR = 13;
+ idx_AlbaranesCliente_DetallesVALORADO = 11;
+ idx_AlbaranesCliente_DetallesID_ARTICULO = 12;
+ idx_AlbaranesCliente_DetallesREFERENCIA = 13;
+ idx_AlbaranesCliente_DetallesREFERENCIA_PROVEEDOR = 14;
type
{ IListaAnosAlbaranes }
IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
- ['{88848224-91B5-41B0-A2FC-54BCF8BF5AE8}']
+ ['{ABC86BBD-9620-4CC8-A034-528DED051BE9}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@@ -186,7 +188,7 @@ type
{ IAlbaranesCliente }
IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
- ['{DFD09690-9B1D-4BE5-9101-46589DF1E88E}']
+ ['{E435B394-38E9-4AC4-A4D4-E1DC178C1FB4}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -737,7 +739,7 @@ type
{ IAlbaranesCliente_Detalles }
IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
- ['{B45193BD-105D-44E3-AF4D-BB43F4A1D1CA}']
+ ['{D2940820-F9DD-42ED-ABF8-B5DF56546C12}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -783,6 +785,10 @@ type
procedure SetVISIBLEValue(const aValue: Integer);
function GetVISIBLEIsNull: Boolean;
procedure SetVISIBLEIsNull(const aValue: Boolean);
+ function GetVALORADOValue: SmallInt;
+ procedure SetVALORADOValue(const aValue: SmallInt);
+ function GetVALORADOIsNull: Boolean;
+ procedure SetVALORADOIsNull(const aValue: Boolean);
function GetID_ARTICULOValue: Integer;
procedure SetID_ARTICULOValue(const aValue: Integer);
function GetID_ARTICULOIsNull: Boolean;
@@ -820,6 +826,8 @@ type
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 VALORADO: SmallInt read GetVALORADOValue write SetVALORADOValue;
+ property VALORADOIsNull: Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
@@ -877,6 +885,10 @@ type
procedure SetVISIBLEValue(const aValue: Integer); virtual;
function GetVISIBLEIsNull: Boolean; virtual;
procedure SetVISIBLEIsNull(const aValue: Boolean); virtual;
+ function GetVALORADOValue: SmallInt; virtual;
+ procedure SetVALORADOValue(const aValue: SmallInt); virtual;
+ function GetVALORADOIsNull: Boolean; virtual;
+ procedure SetVALORADOIsNull(const aValue: Boolean); virtual;
function GetID_ARTICULOValue: Integer; virtual;
procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
function GetID_ARTICULOIsNull: Boolean; virtual;
@@ -913,6 +925,8 @@ type
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 VALORADO: SmallInt read GetVALORADOValue write SetVALORADOValue;
+ property VALORADOIsNull: Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
@@ -2153,6 +2167,27 @@ begin
DataTable.Fields[idx_AlbaranesCliente_DetallesVISIBLE].AsVariant := Null;
end;
+function TAlbaranesCliente_DetallesDataTableRules.GetVALORADOValue: SmallInt;
+begin
+ result := DataTable.Fields[idx_AlbaranesCliente_DetallesVALORADO].AsSmallInt;
+end;
+
+procedure TAlbaranesCliente_DetallesDataTableRules.SetVALORADOValue(const aValue: SmallInt);
+begin
+ DataTable.Fields[idx_AlbaranesCliente_DetallesVALORADO].AsSmallInt := aValue;
+end;
+
+function TAlbaranesCliente_DetallesDataTableRules.GetVALORADOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_AlbaranesCliente_DetallesVALORADO].IsNull;
+end;
+
+procedure TAlbaranesCliente_DetallesDataTableRules.SetVALORADOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_AlbaranesCliente_DetallesVALORADO].AsVariant := Null;
+end;
+
function TAlbaranesCliente_DetallesDataTableRules.GetID_ARTICULOValue: Integer;
begin
result := DataTable.Fields[idx_AlbaranesCliente_DetallesID_ARTICULO].AsInteger;
diff --git a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas
index 5be1a8e..6046718 100644
--- a/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas
+++ b/Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas
@@ -9,14 +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_ListaAnosAlbaranesDelta = '{D19A666D-8DA1-4DA3-9C5E-70934F26B596}';
- RID_AlbaranesClienteDelta = '{EC9EB4AE-4745-4CE3-83EB-C57CAA4CCFCD}';
- RID_AlbaranesCliente_DetallesDelta = '{0B383F46-915A-4744-915D-0986E32003B3}';
+ RID_ListaAnosAlbaranesDelta = '{0602292C-AA68-424A-991B-04CE60D0A195}';
+ RID_AlbaranesClienteDelta = '{74B6E7D9-BE60-45A7-B8FA-4865D7EE369D}';
+ RID_AlbaranesCliente_DetallesDelta = '{DCFA7477-810D-466A-9C22-B70882CA6F4B}';
type
{ IListaAnosAlbaranesDelta }
IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
- ['{D19A666D-8DA1-4DA3-9C5E-70934F26B596}']
+ ['{0602292C-AA68-424A-991B-04CE60D0A195}']
{ Property getters and setters }
function GetOldANOValue : String;
@@ -50,7 +50,7 @@ type
{ IAlbaranesClienteDelta }
IAlbaranesClienteDelta = interface(IAlbaranesCliente)
- ['{EC9EB4AE-4745-4CE3-83EB-C57CAA4CCFCD}']
+ ['{74B6E7D9-BE60-45A7-B8FA-4865D7EE369D}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -602,7 +602,7 @@ type
{ IAlbaranesCliente_DetallesDelta }
IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
- ['{0B383F46-915A-4744-915D-0986E32003B3}']
+ ['{DCFA7477-810D-466A-9C22-B70882CA6F4B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;
@@ -615,6 +615,7 @@ type
function GetOldIMPORTE_PORTEValue : Currency;
function GetOldIMPORTE_TOTALValue : Currency;
function GetOldVISIBLEValue : Integer;
+ function GetOldVALORADOValue : SmallInt;
function GetOldID_ARTICULOValue : Integer;
function GetOldREFERENCIAValue : String;
function GetOldREFERENCIA_PROVEEDORValue : String;
@@ -631,6 +632,7 @@ type
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldVISIBLE : Integer read GetOldVISIBLEValue;
+ property OldVALORADO : SmallInt read GetOldVALORADOValue;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
@@ -707,6 +709,12 @@ type
function GetOldVISIBLEIsNull: Boolean; virtual;
procedure SetVISIBLEValue(const aValue: Integer); virtual;
procedure SetVISIBLEIsNull(const aValue: Boolean); virtual;
+ function GetVALORADOValue: SmallInt; virtual;
+ function GetVALORADOIsNull: Boolean; virtual;
+ function GetOldVALORADOValue: SmallInt; virtual;
+ function GetOldVALORADOIsNull: Boolean; virtual;
+ procedure SetVALORADOValue(const aValue: SmallInt); virtual;
+ procedure SetVALORADOIsNull(const aValue: Boolean); virtual;
function GetID_ARTICULOValue: Integer; virtual;
function GetID_ARTICULOIsNull: Boolean; virtual;
function GetOldID_ARTICULOValue: Integer; virtual;
@@ -771,6 +779,10 @@ type
property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
property OldVISIBLE : Integer read GetOldVISIBLEValue;
property OldVISIBLEIsNull : Boolean read GetOldVISIBLEIsNull;
+ property VALORADO : SmallInt read GetVALORADOValue write SetVALORADOValue;
+ property VALORADOIsNull : Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
+ property OldVALORADO : SmallInt read GetOldVALORADOValue;
+ property OldVALORADOIsNull : Boolean read GetOldVALORADOIsNull;
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;
@@ -2580,6 +2592,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesVISIBLE] := Null;
end;
+function TAlbaranesCliente_DetallesBusinessProcessorRules.GetVALORADOValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesVALORADO];
+end;
+
+function TAlbaranesCliente_DetallesBusinessProcessorRules.GetVALORADOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesVALORADO]);
+end;
+
+function TAlbaranesCliente_DetallesBusinessProcessorRules.GetOldVALORADOValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_DetallesVALORADO];
+end;
+
+function TAlbaranesCliente_DetallesBusinessProcessorRules.GetOldVALORADOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesCliente_DetallesVALORADO]);
+end;
+
+procedure TAlbaranesCliente_DetallesBusinessProcessorRules.SetVALORADOValue(const aValue: SmallInt);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesVALORADO] := aValue;
+end;
+
+procedure TAlbaranesCliente_DetallesBusinessProcessorRules.SetVALORADOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesVALORADO] := Null;
+end;
+
function TAlbaranesCliente_DetallesBusinessProcessorRules.GetID_ARTICULOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesCliente_DetallesID_ARTICULO];
diff --git a/Source/Modulos/Albaranes de cliente/Model/uBizDetallesAlbaranCliente.pas b/Source/Modulos/Albaranes de cliente/Model/uBizDetallesAlbaranCliente.pas
index c8481bd..8130134 100644
--- a/Source/Modulos/Albaranes de cliente/Model/uBizDetallesAlbaranCliente.pas
+++ b/Source/Modulos/Albaranes de cliente/Model/uBizDetallesAlbaranCliente.pas
@@ -41,6 +41,7 @@ procedure TBizDetallesAlbaranCliente.OnNewRecord(Sender: TDADataTable);
begin
inherited;
VISIBLE := 1;
+ VALORADO := 1;
end;
initialization
diff --git a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm
index 434c5b4..0dd6fc0 100644
--- a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm
+++ b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm
@@ -489,11 +489,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
'LIENTE_DETALLES.IMPORTE_UNIDAD, ALBARANES_CLIENTE_DETALLES.DESCU' +
'ENTO,'#10' ALBARANES_CLIENTE_DETALLES.IMPORTE_PORTE, ALBARANES_CL' +
'IENTE_DETALLES.IMPORTE_TOTAL,'#10' ALBARANES_CLIENTE_DETALLES.VIS' +
- 'IBLE,'#10' ALBARANES_CLIENTE_DETALLES.ID_ARTICULO, ARTICULOS.REFE' +
- 'RENCIA, ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR'#10#10'FROM ' +
- 'ALBARANES_CLIENTE_DETALLES'#10'LEFT JOIN ARTICULOS ON ALBARANES_CLIE' +
- 'NTE_DETALLES.ID_ARTICULO = ARTICULOS.ID'#10'where {where}'#10'ORDER BY P' +
- 'OSICION;'#10#10
+ 'IBLE, ALBARANES_CLIENTE_DETALLES.VALORADO,'#10' ALBARANES_CLIENTE' +
+ '_DETALLES.ID_ARTICULO, ARTICULOS.REFERENCIA, ARTICULOS.REFERENCI' +
+ 'A_PROV as REFERENCIA_PROVEEDOR'#10#10'FROM ALBARANES_CLIENTE_DETALLES'#10 +
+ 'LEFT JOIN ARTICULOS ON ALBARANES_CLIENTE_DETALLES.ID_ARTICULO = ' +
+ 'ARTICULOS.ID'#10'where {where}'#10'ORDER BY POSICION;'#10#10
StatementType = stSQL
ColumnMappings = <
item
@@ -553,6 +553,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = ''
SQLOrigin = 'REFERENCIA_PROVEEDOR'
+ end
+ item
+ DatasetField = 'VALORADO'
+ TableField = 'VALORADO'
end>
end>
Name = 'AlbaranesCliente_Detalles'
@@ -616,6 +620,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
DataType = datInteger
DictionaryEntry = 'AlbaranesCliente_Detalles_VISIBLE'
end
+ item
+ Name = 'VALORADO'
+ DataType = datSmallInt
+ DisplayLabel = #191'Valorado?'
+ end
item
Name = 'ID_ARTICULO'
DataType = datInteger
@@ -625,11 +634,13 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Name = 'REFERENCIA'
DataType = datString
Size = 255
+ DictionaryEntry = 'AlbaranesCliente_Detalles_REFERENCIA'
end
item
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
+ DictionaryEntry = 'AlbaranesCliente_Detalles_REFERENCIA_PROVEEDOR'
end>
end>
JoinDataTables = <>
@@ -1095,6 +1106,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
end
item
Params = <
+ item
+ Name = 'VALORADO'
+ DataType = datSmallInt
+ Value = ''
+ end
item
Name = 'ID'
DataType = datAutoInc
@@ -1139,6 +1155,7 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
end
item
Name = 'VISIBLE'
+ DataType = datSmallInt
Value = ''
end
item
@@ -1153,10 +1170,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
SQL =
'INSERT'#10' INTO ALBARANES_CLIENTE_DETALLES'#10' (ID, ID_ALBARAN, PO' +
'SICION, TIPO_DETALLE, CONCEPTO, CANTIDAD,'#10' IMPORTE_UNIDAD, D' +
- 'ESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, '#10' VISIBLE, ID_ARTICU' +
- 'LO)'#10' VALUES'#10' (:ID, :ID_ALBARAN, :POSICION, :TIPO_DETALLE, :C' +
- 'ONCEPTO, :CANTIDAD,'#10' :IMPORTE_UNIDAD, :DESCUENTO, :IMPORTE_P' +
- 'ORTE, :IMPORTE_TOTAL, '#10' :VISIBLE, :ID_ARTICULO)'#10
+ 'ESCUENTO, IMPORTE_PORTE, IMPORTE_TOTAL, '#10' VISIBLE, VALORADO,' +
+ ' ID_ARTICULO)'#10' VALUES'#10' (:ID, :ID_ALBARAN, :POSICION, :TIPO_D' +
+ 'ETALLE, :CONCEPTO, :CANTIDAD,'#10' :IMPORTE_UNIDAD, :DESCUENTO, ' +
+ ':IMPORTE_PORTE, :IMPORTE_TOTAL, '#10' :VISIBLE, :VALORADO, :ID_A' +
+ 'RTICULO)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -1184,6 +1202,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
end
item
Params = <
+ item
+ Name = 'VALORADO'
+ DataType = datSmallInt
+ Value = ''
+ end
item
Name = 'ID'
Value = ''
@@ -1226,6 +1249,7 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
end
item
Name = 'VISIBLE'
+ DataType = datSmallInt
Value = ''
end
item
@@ -1247,8 +1271,9 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
'E = :TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' CANTIDAD = :C' +
'ANTIDAD, '#10' IMPORTE_UNIDAD = :IMPORTE_UNIDAD, '#10' DESCUENTO =' +
' :DESCUENTO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' IMPORTE_T' +
- 'OTAL = :IMPORTE_TOTAL, '#10' VISIBLE = :VISIBLE, '#10' ID_ARTICULO' +
- ' = :ID_ARTICULO'#10' WHERE'#10' (ID = :OLD_ID)'#10
+ 'OTAL = :IMPORTE_TOTAL, '#10' VISIBLE = :VISIBLE, '#10' VALORADO = ' +
+ ':VALORADO,'#10' ID_ARTICULO = :ID_ARTICULO'#10' WHERE'#10' (ID = :OLD' +
+ '_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -1685,6 +1710,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
DataType = datString
Size = 255
ServerAutoRefresh = True
+ end
+ item
+ Name = 'AlbaranesCliente_Detalles_VALORADO'
+ DataType = datSmallInt
+ DisplayLabel = 'VALORADO'
end>
Left = 48
Top = 136
diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm
index e7d51fe..aa05c48 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm
+++ b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm
@@ -74,6 +74,7 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
object cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn
Caption = 'Ref. Cliente'
DataBinding.FieldName = 'REFERENCIA_CLIENTE'
+ BestFitMaxWidth = 45
end
object cxGridViewSITUACION: TcxGridDBColumn
DataBinding.FieldName = 'SITUACION'
@@ -90,7 +91,6 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
object cxGridViewNOMBRE: TcxGridDBColumn
Caption = 'Cliente'
DataBinding.FieldName = 'NOMBRE'
- BestFitMaxWidth = 120
Width = 119
end
object cxGridViewREF_PEDIDO: TcxGridDBColumn
@@ -129,28 +129,32 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
object cxGridViewNOMBRE_ALMACEN: TcxGridDBColumn
DataBinding.FieldName = 'NOMBRE_ALMACEN'
Visible = False
+ BestFitMaxWidth = 120
VisibleForCustomization = False
Width = 63
end
object cxGridViewCALLE: TcxGridDBColumn
DataBinding.FieldName = 'CALLE'
Visible = False
+ BestFitMaxWidth = 120
VisibleForCustomization = False
end
object cxGridViewCODIGO_POSTAL: TcxGridDBColumn
DataBinding.FieldName = 'CODIGO_POSTAL'
Visible = False
- BestFitMaxWidth = 45
+ BestFitMaxWidth = 35
VisibleForCustomization = False
end
object cxGridViewPOBLACION: TcxGridDBColumn
DataBinding.FieldName = 'POBLACION'
Visible = False
+ BestFitMaxWidth = 45
VisibleForCustomization = False
end
object cxGridViewPROVINCIA: TcxGridDBColumn
DataBinding.FieldName = 'PROVINCIA'
Visible = False
+ BestFitMaxWidth = 35
VisibleForCustomization = False
end
object cxGridViewPERSONA_CONTACTO: TcxGridDBColumn
@@ -161,6 +165,7 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
object cxGridViewTELEFONO: TcxGridDBColumn
DataBinding.FieldName = 'TELEFONO'
Visible = False
+ BestFitMaxWidth = 25
VisibleForCustomization = False
end
object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
@@ -168,6 +173,7 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
DataBinding.FieldName = 'IMPORTE_TOTAL'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
+ BestFitMaxWidth = 65
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify
end
diff --git a/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm b/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm
index ddb87fb..4a7dce2 100644
--- a/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm
+++ b/Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm
@@ -340,8 +340,15 @@ inherited DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
item
Name = 'VISIBLE'
DataType = datInteger
+ DisplayLabel = #191'Visible?'
DictionaryEntry = 'AlbaranesProveedor_Detalles_VISIBLE'
end
+ item
+ Name = 'VALORADO'
+ DataType = datSmallInt
+ DisplayLabel = #191'Valorado?'
+ DictionaryEntry = 'AlbaranesProveedor_Detalles_VALORADO'
+ end
item
Name = 'ID_ARTICULO'
DataType = datInteger
diff --git a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas
index 9f240ee..140745e 100644
--- a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas
+++ b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas
@@ -9,8 +9,8 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
- RID_AlbaranesProveedor = '{FC51EA41-4822-47DC-9EA6-8A81B75EEBF0}';
- RID_AlbaranesProveedor_Detalles = '{D33B5B6F-E114-4A97-B524-94872D62277C}';
+ RID_AlbaranesProveedor = '{1E801569-2CD6-4113-B218-09209700C928}';
+ RID_AlbaranesProveedor_Detalles = '{A5F2BEF7-E6DC-4967-9F2C-C51DEE97793F}';
{ Data table names }
nme_AlbaranesProveedor = 'AlbaranesProveedor';
@@ -108,6 +108,7 @@ const
fld_AlbaranesProveedor_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD';
fld_AlbaranesProveedor_DetallesIMPORTE_TOTAL = 'IMPORTE_TOTAL';
fld_AlbaranesProveedor_DetallesVISIBLE = 'VISIBLE';
+ fld_AlbaranesProveedor_DetallesVALORADO = 'VALORADO';
fld_AlbaranesProveedor_DetallesID_ARTICULO = 'ID_ARTICULO';
fld_AlbaranesProveedor_DetallesDESCUENTO = 'DESCUENTO';
fld_AlbaranesProveedor_DetallesIMPORTE_PORTE = 'IMPORTE_PORTE';
@@ -124,16 +125,17 @@ const
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_DetallesREFERENCIA = 12;
- idx_AlbaranesProveedor_DetallesREFERENCIA_PROVEEDOR = 13;
+ idx_AlbaranesProveedor_DetallesVALORADO = 9;
+ idx_AlbaranesProveedor_DetallesID_ARTICULO = 10;
+ idx_AlbaranesProveedor_DetallesDESCUENTO = 11;
+ idx_AlbaranesProveedor_DetallesIMPORTE_PORTE = 12;
+ idx_AlbaranesProveedor_DetallesREFERENCIA = 13;
+ idx_AlbaranesProveedor_DetallesREFERENCIA_PROVEEDOR = 14;
type
{ IAlbaranesProveedor }
IAlbaranesProveedor = interface(IDAStronglyTypedDataTable)
- ['{5166113D-4E31-4A0E-9B2A-D95DE1724A0C}']
+ ['{EFC4EBE0-095B-4FBA-99C6-0287ED6D0BDA}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -624,7 +626,7 @@ type
{ IAlbaranesProveedor_Detalles }
IAlbaranesProveedor_Detalles = interface(IDAStronglyTypedDataTable)
- ['{4589DE0C-CDAD-4373-B7D2-D433C4DED5BF}']
+ ['{705D9343-91B7-4253-BDF1-36D4D961E8C0}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -662,6 +664,10 @@ type
procedure SetVISIBLEValue(const aValue: Integer);
function GetVISIBLEIsNull: Boolean;
procedure SetVISIBLEIsNull(const aValue: Boolean);
+ function GetVALORADOValue: SmallInt;
+ procedure SetVALORADOValue(const aValue: SmallInt);
+ function GetVALORADOIsNull: Boolean;
+ procedure SetVALORADOIsNull(const aValue: Boolean);
function GetID_ARTICULOValue: Integer;
procedure SetID_ARTICULOValue(const aValue: Integer);
function GetID_ARTICULOIsNull: Boolean;
@@ -703,6 +709,8 @@ type
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 VALORADO: SmallInt read GetVALORADOValue write SetVALORADOValue;
+ property VALORADOIsNull: Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
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;
@@ -756,6 +764,10 @@ type
procedure SetVISIBLEValue(const aValue: Integer); virtual;
function GetVISIBLEIsNull: Boolean; virtual;
procedure SetVISIBLEIsNull(const aValue: Boolean); virtual;
+ function GetVALORADOValue: SmallInt; virtual;
+ procedure SetVALORADOValue(const aValue: SmallInt); virtual;
+ function GetVALORADOIsNull: Boolean; virtual;
+ procedure SetVALORADOIsNull(const aValue: Boolean); virtual;
function GetID_ARTICULOValue: Integer; virtual;
procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
function GetID_ARTICULOIsNull: Boolean; virtual;
@@ -796,6 +808,8 @@ type
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 VALORADO: SmallInt read GetVALORADOValue write SetVALORADOValue;
+ property VALORADOIsNull: Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
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;
@@ -1860,6 +1874,27 @@ begin
DataTable.Fields[idx_AlbaranesProveedor_DetallesVISIBLE].AsVariant := Null;
end;
+function TAlbaranesProveedor_DetallesDataTableRules.GetVALORADOValue: SmallInt;
+begin
+ result := DataTable.Fields[idx_AlbaranesProveedor_DetallesVALORADO].AsSmallInt;
+end;
+
+procedure TAlbaranesProveedor_DetallesDataTableRules.SetVALORADOValue(const aValue: SmallInt);
+begin
+ DataTable.Fields[idx_AlbaranesProveedor_DetallesVALORADO].AsSmallInt := aValue;
+end;
+
+function TAlbaranesProveedor_DetallesDataTableRules.GetVALORADOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_AlbaranesProveedor_DetallesVALORADO].IsNull;
+end;
+
+procedure TAlbaranesProveedor_DetallesDataTableRules.SetVALORADOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_AlbaranesProveedor_DetallesVALORADO].AsVariant := Null;
+end;
+
function TAlbaranesProveedor_DetallesDataTableRules.GetID_ARTICULOValue: Integer;
begin
result := DataTable.Fields[idx_AlbaranesProveedor_DetallesID_ARTICULO].AsInteger;
diff --git a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas
index 7e85495..bc35c41 100644
--- a/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas
+++ b/Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas
@@ -9,13 +9,13 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
- RID_AlbaranesProveedorDelta = '{C93949D2-C150-41AD-8520-FBC50DBA7ECD}';
- RID_AlbaranesProveedor_DetallesDelta = '{EC66A666-6CC9-4784-ABF0-3B63D981C24E}';
+ RID_AlbaranesProveedorDelta = '{BA8F235B-7272-4906-8F91-BAADFA6E83F1}';
+ RID_AlbaranesProveedor_DetallesDelta = '{A16CF249-AB5E-4C53-B1FC-E20C7148D9C4}';
type
{ IAlbaranesProveedorDelta }
IAlbaranesProveedorDelta = interface(IAlbaranesProveedor)
- ['{C93949D2-C150-41AD-8520-FBC50DBA7ECD}']
+ ['{BA8F235B-7272-4906-8F91-BAADFA6E83F1}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -507,7 +507,7 @@ type
{ IAlbaranesProveedor_DetallesDelta }
IAlbaranesProveedor_DetallesDelta = interface(IAlbaranesProveedor_Detalles)
- ['{EC66A666-6CC9-4784-ABF0-3B63D981C24E}']
+ ['{A16CF249-AB5E-4C53-B1FC-E20C7148D9C4}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;
@@ -518,6 +518,7 @@ type
function GetOldIMPORTE_UNIDADValue : Currency;
function GetOldIMPORTE_TOTALValue : Currency;
function GetOldVISIBLEValue : Integer;
+ function GetOldVALORADOValue : SmallInt;
function GetOldID_ARTICULOValue : Integer;
function GetOldDESCUENTOValue : Float;
function GetOldIMPORTE_PORTEValue : Currency;
@@ -534,6 +535,7 @@ type
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldVISIBLE : Integer read GetOldVISIBLEValue;
+ property OldVALORADO : SmallInt read GetOldVALORADOValue;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
@@ -600,6 +602,12 @@ type
function GetOldVISIBLEIsNull: Boolean; virtual;
procedure SetVISIBLEValue(const aValue: Integer); virtual;
procedure SetVISIBLEIsNull(const aValue: Boolean); virtual;
+ function GetVALORADOValue: SmallInt; virtual;
+ function GetVALORADOIsNull: Boolean; virtual;
+ function GetOldVALORADOValue: SmallInt; virtual;
+ function GetOldVALORADOIsNull: Boolean; virtual;
+ procedure SetVALORADOValue(const aValue: SmallInt); virtual;
+ procedure SetVALORADOIsNull(const aValue: Boolean); virtual;
function GetID_ARTICULOValue: Integer; virtual;
function GetID_ARTICULOIsNull: Boolean; virtual;
function GetOldID_ARTICULOValue: Integer; virtual;
@@ -668,6 +676,10 @@ type
property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
property OldVISIBLE : Integer read GetOldVISIBLEValue;
property OldVISIBLEIsNull : Boolean read GetOldVISIBLEIsNull;
+ property VALORADO : SmallInt read GetVALORADOValue write SetVALORADOValue;
+ property VALORADOIsNull : Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
+ property OldVALORADO : SmallInt read GetOldVALORADOValue;
+ property OldVALORADOIsNull : Boolean read GetOldVALORADOIsNull;
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;
@@ -2225,6 +2237,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesVISIBLE] := Null;
end;
+function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetVALORADOValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesVALORADO];
+end;
+
+function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetVALORADOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesVALORADO]);
+end;
+
+function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetOldVALORADOValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_DetallesVALORADO];
+end;
+
+function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetOldVALORADOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_DetallesVALORADO]);
+end;
+
+procedure TAlbaranesProveedor_DetallesBusinessProcessorRules.SetVALORADOValue(const aValue: SmallInt);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesVALORADO] := aValue;
+end;
+
+procedure TAlbaranesProveedor_DetallesBusinessProcessorRules.SetVALORADOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesVALORADO] := Null;
+end;
+
function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetID_ARTICULOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesID_ARTICULO];
diff --git a/Source/Modulos/Albaranes de proveedor/Model/uBizDetallesAlbaranProveedor.pas b/Source/Modulos/Albaranes de proveedor/Model/uBizDetallesAlbaranProveedor.pas
index d801df7..8851c65 100644
--- a/Source/Modulos/Albaranes de proveedor/Model/uBizDetallesAlbaranProveedor.pas
+++ b/Source/Modulos/Albaranes de proveedor/Model/uBizDetallesAlbaranProveedor.pas
@@ -31,6 +31,7 @@ procedure TBizDetallesAlbaranProveedor.OnNewRecord(Sender: TDADataTable);
begin
inherited;
VISIBLE := 1;
+ VALORADO := 1;
end;
procedure TBizDetallesAlbaranProveedor.BeforeInsert(Sender: TDADataTable);
diff --git a/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm b/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm
index 3ee3242..97510e8 100644
--- a/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm
+++ b/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm
@@ -404,12 +404,13 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
'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 {where}'#10'ORDER BY POSICION;'#10
+ 'LE,'#10' ALBARANES_PROVEEDOR_DETALLES.VALORADO,'#10' ALBARANES_PRO' +
+ 'VEEDOR_DETALLES.ID_ARTICULO, ALBARANES_PROVEEDOR_DETALLES.DESCUE' +
+ 'NTO,'#10' ALBARANES_PROVEEDOR_DETALLES.IMPORTE_PORTE,'#10' ARTICUL' +
+ 'OS.REFERENCIA, ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR' +
+ #10#10'FROM ALBARANES_PROVEEDOR_DETALLES'#10'LEFT JOIN ARTICULOS ON ALBAR' +
+ 'ANES_PROVEEDOR_DETALLES.ID_ARTICULO = ARTICULOS.ID'#10'WHERE {where}' +
+ #10'ORDER BY POSICION;'#10
StatementType = stSQL
ColumnMappings = <
item
@@ -469,6 +470,10 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = ''
SQLOrigin = 'REFERENCIA_PROVEEDOR'
+ end
+ item
+ DatasetField = 'VALORADO'
+ TableField = 'VALORADO'
end>
end>
Name = 'AlbaranesProveedor_Detalles'
@@ -523,6 +528,11 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
DataType = datInteger
DictionaryEntry = 'AlbaranesProveedor_Detalles_VISIBLE'
end
+ item
+ Name = 'VALORADO'
+ DataType = datSmallInt
+ DictionaryEntry = 'AlbaranesProveedor_Detalles_VALORADO'
+ end
item
Name = 'ID_ARTICULO'
DataType = datInteger
@@ -702,18 +712,18 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
'IA,'#10' PERSONA_CONTACTO,'#10' TELEFONO,'#10' BASE_IMPONIBLE,'#10' ' +
'DESCUENTO,'#10' IMPORTE_DESCUENTO,'#10' IVA,'#10' IMPORTE_IVA,'#10' ' +
'IMPORTE_TOTAL,'#10' OBSERVACIONES,'#10' INCIDENCIAS,'#10' INCIDENCI' +
- 'AS_ACTIVAS,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' USUARIO,' +
- #10' ID_ALMACEN,'#10' ID_FORMA_PAGO,'#10' IMPORTE_NETO,'#10' IMPORT' +
- 'E_PORTE,'#10' ID_TIENDA)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' ' +
- ' :ID_PROVEEDOR,'#10' :FECHA_ALBARAN,'#10' :ID_PEDIDO,'#10' :ID_FACT' +
- 'URA,'#10' :TIPO,'#10' :REFERENCIA,'#10' :REFERENCIA_PROVEEDOR,'#10' ' +
- ':REF_FACTURA_PROV,'#10' :CALLE,'#10' :CODIGO_POSTAL,'#10' :POBLACIO' +
- 'N,'#10' :PROVINCIA,'#10' :PERSONA_CONTACTO,'#10' :TELEFONO,'#10' :BA' +
- 'SE_IMPONIBLE,'#10' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' :IVA,'#10 +
- ' :IMPORTE_IVA,'#10' :IMPORTE_TOTAL,'#10' :OBSERVACIONES,'#10' :I' +
- 'NCIDENCIAS,'#10' :INCIDENCIAS_ACTIVAS,'#10' :FECHA_ALTA,'#10' :FECH' +
- 'A_MODIFICACION,'#10' :USUARIO,'#10' :ID_ALMACEN,'#10' :ID_FORMA_PAG' +
- 'O,'#10' :IMPORTE_NETO,'#10' :IMPORTE_PORTE,'#10' :ID_TIENDA);'#10
+ 'AS_ACTIVAS,'#10' FECHA_ALTA,'#10' USUARIO,'#10' ID_ALMACEN,'#10' ID_' +
+ 'FORMA_PAGO,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' ID_TIENDA)'#10 +
+ ' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :ID_PROVEEDOR,'#10' :FEC' +
+ 'HA_ALBARAN,'#10' :ID_PEDIDO,'#10' :ID_FACTURA,'#10' :TIPO,'#10' :REF' +
+ 'ERENCIA,'#10' :REFERENCIA_PROVEEDOR,'#10' :REF_FACTURA_PROV,'#10' :' +
+ 'CALLE,'#10' :CODIGO_POSTAL,'#10' :POBLACION,'#10' :PROVINCIA,'#10' :' +
+ 'PERSONA_CONTACTO,'#10' :TELEFONO,'#10' :BASE_IMPONIBLE,'#10' :DESCU' +
+ 'ENTO,'#10' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' :I' +
+ 'MPORTE_TOTAL,'#10' :OBSERVACIONES,'#10' :INCIDENCIAS,'#10' :INCIDEN' +
+ 'CIAS_ACTIVAS,'#10' CURRENT_TIMESTAMP,'#10' :USUARIO,'#10' :ID_ALMAC' +
+ 'EN,'#10' :ID_FORMA_PAGO,'#10' :IMPORTE_NETO,'#10' :IMPORTE_PORTE,'#10' ' +
+ ' :ID_TIENDA);'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -835,14 +845,6 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Name = 'INCIDENCIAS_ACTIVAS'
Value = ''
end
- item
- Name = 'FECHA_ALTA'
- Value = ''
- end
- item
- Name = 'FECHA_MODIFICACION'
- Value = ''
- end
item
Name = 'USUARIO'
Value = ''
@@ -888,12 +890,11 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO,'#10' IVA = :IVA,'#10' ' +
' IMPORTE_IVA = :IMPORTE_IVA,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL,' +
#10' OBSERVACIONES = :OBSERVACIONES,'#10' INCIDENCIAS = :INCIDENC' +
- 'IAS,'#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS,'#10' FECHA_A' +
- 'LTA = :FECHA_ALTA,'#10' FECHA_MODIFICACION = :FECHA_MODIFICACION,' +
- #10' USUARIO = :USUARIO,'#10' ID_ALMACEN = :ID_ALMACEN,'#10' ID_FO' +
- 'RMA_PAGO = :ID_FORMA_PAGO,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' ' +
- ' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' ID_TIENDA = :ID_TIENDA'#10' WH' +
- 'ERE'#10' (ID = :OLD_ID);'#10
+ 'IAS,'#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS,'#10' FECHA_M' +
+ 'ODIFICACION = CURRENT_TIMESTAMP,'#10' USUARIO = :USUARIO,'#10' ID_' +
+ 'ALMACEN = :ID_ALMACEN,'#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' I' +
+ 'MPORTE_NETO = :IMPORTE_NETO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE,' +
+ #10' ID_TIENDA = :ID_TIENDA'#10' WHERE'#10' (ID = :OLD_ID);'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -901,6 +902,11 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
end
item
Params = <
+ item
+ Name = 'VALORADO'
+ DataType = datSmallInt
+ Value = ''
+ end
item
Name = 'CANTIDAD'
Value = ''
@@ -958,10 +964,11 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
SQL =
'INSERT'#10' INTO ALBARANES_PROVEEDOR_DETALLES'#10' (CANTIDAD, POSICI' +
'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
+ 'AL, VISIBLE, VALORADO, ID_ALBARAN,'#10' ID_ARTICULO, DESCUENTO, ' +
+ 'IMPORTE_PORTE)'#10' VALUES'#10' (:CANTIDAD, :POSICION, :ID, :TIPO_DE' +
+ 'TALLE, :CONCEPTO,'#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE' +
+ ', :VALORADO, :ID_ALBARAN,'#10' :ID_ARTICULO, :DESCUENTO, :IMPORT' +
+ 'E_PORTE)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -987,6 +994,11 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
end
item
Params = <
+ item
+ Name = 'VALORADO'
+ DataType = datSmallInt
+ Value = ''
+ end
item
Name = 'CANTIDAD'
Value = ''
@@ -1048,9 +1060,10 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
'DAD, '#10' POSICION = :POSICION, '#10' ID = :ID, '#10' TIPO_DETALLE' +
' = :TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' IMPORTE_UNIDAD' +
' = :IMPORTE_UNIDAD, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' VI' +
- 'SIBLE = :VISIBLE, '#10' ID_ALBARAN = :ID_ALBARAN,'#10' ID_ARTICULO' +
- ' = :ID_ARTICULO,'#10' DESCUENTO = :DESCUENTO,'#10' IMPORTE_PORTE =' +
- ' :IMPORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID)'
+ 'SIBLE = :VISIBLE, '#10' VALORADO = :VALORADO,'#10' ID_ALBARAN = :I' +
+ 'D_ALBARAN,'#10' ID_ARTICULO = :ID_ARTICULO,'#10' DESCUENTO = :DESC' +
+ 'UENTO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE'#10' WHERE'#10' (ID = :OLD' +
+ '_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -1471,6 +1484,20 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
DataType = datString
Size = 255
DisplayLabel = 'Ref. factura prov'
+ end
+ item
+ Name = 'AlbaranesProveedor_Detalles_VALORADO'
+ DataType = datSmallInt
+ DisplayLabel = #191'Valorado?'
+ end
+ item
+ Name = 'POSICIONCONCEPTO'
+ DataType = datInteger
+ DisplayLabel = 'POSICION'
+ end
+ item
+ Name = 'CANTIDAD'
+ DataType = datCurrency
end>
Left = 48
Top = 128
diff --git a/Source/Modulos/Articulos/Controller/Articulos_controller.RES b/Source/Modulos/Articulos/Controller/Articulos_controller.RES
index 1641339..8b251f3 100644
Binary files a/Source/Modulos/Articulos/Controller/Articulos_controller.RES and b/Source/Modulos/Articulos/Controller/Articulos_controller.RES differ
diff --git a/Source/Modulos/Articulos/Data/Articulos_data.RES b/Source/Modulos/Articulos/Data/Articulos_data.RES
index 1641339..8b251f3 100644
Binary files a/Source/Modulos/Articulos/Data/Articulos_data.RES and b/Source/Modulos/Articulos/Data/Articulos_data.RES differ
diff --git a/Source/Modulos/Articulos/Views/Articulos_view.RES b/Source/Modulos/Articulos/Views/Articulos_view.RES
index 1641339..8b251f3 100644
Binary files a/Source/Modulos/Articulos/Views/Articulos_view.RES and b/Source/Modulos/Articulos/Views/Articulos_view.RES differ
diff --git a/Source/Modulos/Contactos/Controller/Contactos_controller.RES b/Source/Modulos/Contactos/Controller/Contactos_controller.RES
index 1641339..8b251f3 100644
Binary files a/Source/Modulos/Contactos/Controller/Contactos_controller.RES and b/Source/Modulos/Contactos/Controller/Contactos_controller.RES differ
diff --git a/Source/Modulos/Contactos/Data/Contactos_data.RES b/Source/Modulos/Contactos/Data/Contactos_data.RES
index 1641339..8b251f3 100644
Binary files a/Source/Modulos/Contactos/Data/Contactos_data.RES and b/Source/Modulos/Contactos/Data/Contactos_data.RES differ
diff --git a/Source/Modulos/Contactos/Model/Contactos_model.RES b/Source/Modulos/Contactos/Model/Contactos_model.RES
index 1641339..8b251f3 100644
Binary files a/Source/Modulos/Contactos/Model/Contactos_model.RES and b/Source/Modulos/Contactos/Model/Contactos_model.RES differ
diff --git a/Source/Modulos/Contactos/Views/Contactos_view.res b/Source/Modulos/Contactos/Views/Contactos_view.res
index 1641339..8b251f3 100644
Binary files a/Source/Modulos/Contactos/Views/Contactos_view.res and b/Source/Modulos/Contactos/Views/Contactos_view.res differ
diff --git a/Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.RES b/Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.RES
index 1641339..8b251f3 100644
Binary files a/Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.RES and b/Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.RES differ
diff --git a/Source/Modulos/Contratos de cliente/Controller/uDetallesContratoClienteController.pas b/Source/Modulos/Contratos de cliente/Controller/uDetallesContratoClienteController.pas
index 4cdf664..d8fa02e 100644
--- a/Source/Modulos/Contratos de cliente/Controller/uDetallesContratoClienteController.pas
+++ b/Source/Modulos/Contratos de cliente/Controller/uDetallesContratoClienteController.pas
@@ -17,7 +17,6 @@ type
function DarPropiedades: IBizPropiedades;
procedure AnadirCapitulo (const Tipo: String; const Descripcion: String; Const Descuento:Boolean; ADetalles: IDAStronglyTypedDataTable);
procedure SetTipoArticulo(ADetalles: IDAStronglyTypedDataTable; ATipo: String);
- procedure SetVisible(ADetalles: IDAStronglyTypedDataTable;const AVisible: Integer;const Orden: Integer); //1Ascendente/0Descendente
end;
TDetallesContratoClienteController = class(TControllerDetallesArticulos, IDetallesContratoClienteController)
@@ -49,7 +48,6 @@ type
procedure ValidarDetalles(ADataTable: IDAStronglyTypedDataTable); override;
procedure SetTipoArticulo(ADetalles: IDAStronglyTypedDataTable; ATipo: String);
- procedure SetVisible(ADetalles: IDAStronglyTypedDataTable;const AVisible: Integer;const Orden: Integer); //1Ascendente/0Descendente
end;
implementation
@@ -180,11 +178,6 @@ begin
end;
end;
-procedure TDetallesContratoClienteController.SetVisible(ADetalles: IDAStronglyTypedDataTable; const AVisible, Orden: Integer);
-begin
- FDetallesPresupuestoCliente.SetVisible(ADetalles, AVisible, Orden);
-end;
-
procedure TDetallesContratoClienteController.ValidarCampos(DataTable: TDADataTable);
begin
inherited;
diff --git a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm
index 2e86867..8c41e44 100644
--- a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm
+++ b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm
@@ -388,6 +388,10 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
Name = 'VISIBLE'
DataType = datSmallInt
end
+ item
+ Name = 'VALORADO'
+ DataType = datSmallInt
+ end
item
Name = 'ID_ARTICULO'
DataType = datInteger
@@ -413,6 +417,7 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
item
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
+ Size = 255
end>
Params = <>
MasterMappingMode = mmWhere
diff --git a/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas b/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas
index a3ee6bd..32f3940 100644
--- a/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas
+++ b/Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas
@@ -9,13 +9,13 @@ 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_Valores = '{48C5F21C-CB4D-4CFF-8F94-A1689B8A6F6A}';
- RID_Propiedades = '{785C1D59-7EA3-4BFD-8C1F-301A25C59E51}';
- RID_ListaAnosContratos = '{DD97448A-A305-401E-B6E0-856207BC471F}';
- RID_ContratosClienteBeneficios = '{670B05E3-9404-46E0-AB6C-9DE0712013DD}';
- RID_ContratosCliente = '{84D4574F-587F-4D70-A242-18B327F199D8}';
- RID_TiposCapitulos = '{09B06749-719A-4B58-96B5-0B0AB2848D61}';
- RID_ContratosCliente_Detalles = '{8CDC36E9-9F1D-4CA1-8414-19CAB69BE649}';
+ RID_Valores = '{4E975748-969A-4FE9-BBD2-CC9D7B1CC40D}';
+ RID_Propiedades = '{D68E9D8E-0FE2-47A8-A050-ACB95BF5AFAF}';
+ RID_ListaAnosContratos = '{7D999AE9-F346-450E-AF32-20F0F0F25228}';
+ RID_ContratosClienteBeneficios = '{15AA6996-23F8-4883-B18C-43F5168D8F3B}';
+ RID_ContratosCliente = '{D19AE467-7980-4CF4-B273-2BDB037E7D84}';
+ RID_TiposCapitulos = '{D18EC00D-ED0C-4BDD-BBC2-D2DE0794C1EF}';
+ RID_ContratosCliente_Detalles = '{B7F0780D-5DEE-44BB-91E4-9D7B39A77425}';
{ Data table names }
nme_Valores = 'Valores';
@@ -207,6 +207,7 @@ const
fld_ContratosCliente_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD';
fld_ContratosCliente_DetallesIMPORTE_TOTAL = 'IMPORTE_TOTAL';
fld_ContratosCliente_DetallesVISIBLE = 'VISIBLE';
+ fld_ContratosCliente_DetallesVALORADO = 'VALORADO';
fld_ContratosCliente_DetallesID_ARTICULO = 'ID_ARTICULO';
fld_ContratosCliente_DetallesTIPO_ARTICULO = 'TIPO_ARTICULO';
fld_ContratosCliente_DetallesDESCUENTO = 'DESCUENTO';
@@ -225,17 +226,18 @@ const
idx_ContratosCliente_DetallesIMPORTE_UNIDAD = 7;
idx_ContratosCliente_DetallesIMPORTE_TOTAL = 8;
idx_ContratosCliente_DetallesVISIBLE = 9;
- idx_ContratosCliente_DetallesID_ARTICULO = 10;
- idx_ContratosCliente_DetallesTIPO_ARTICULO = 11;
- idx_ContratosCliente_DetallesDESCUENTO = 12;
- idx_ContratosCliente_DetallesIMPORTE_PORTE = 13;
- idx_ContratosCliente_DetallesREFERENCIA = 14;
- idx_ContratosCliente_DetallesREFERENCIA_PROVEEDOR = 15;
+ idx_ContratosCliente_DetallesVALORADO = 10;
+ idx_ContratosCliente_DetallesID_ARTICULO = 11;
+ idx_ContratosCliente_DetallesTIPO_ARTICULO = 12;
+ idx_ContratosCliente_DetallesDESCUENTO = 13;
+ idx_ContratosCliente_DetallesIMPORTE_PORTE = 14;
+ idx_ContratosCliente_DetallesREFERENCIA = 15;
+ idx_ContratosCliente_DetallesREFERENCIA_PROVEEDOR = 16;
type
{ IValores }
IValores = interface(IDAStronglyTypedDataTable)
- ['{01FF5BDE-97A6-44F3-8450-05A5C0C110FA}']
+ ['{E8AD85FE-0E64-418E-BA2A-9787E4F4F489}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -294,7 +296,7 @@ type
{ IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable)
- ['{3523B802-0EB2-46D4-A045-082CE868881C}']
+ ['{69C96C55-8229-43B6-8D8C-5B5AD61C3165}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -353,7 +355,7 @@ type
{ IListaAnosContratos }
IListaAnosContratos = interface(IDAStronglyTypedDataTable)
- ['{65EAAFC7-0128-4505-A7E6-2479CB33B7B4}']
+ ['{F7CDB162-A98F-4A06-9412-29DC6A122C9E}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@@ -388,7 +390,7 @@ type
{ IContratosClienteBeneficios }
IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
- ['{43C1EDD7-AAC2-4DA4-9AF4-E8CCCADD7F1D}']
+ ['{01F28039-DF8B-4839-B3B0-8EE2E53D91E4}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -579,7 +581,7 @@ type
{ IContratosCliente }
IContratosCliente = interface(IDAStronglyTypedDataTable)
- ['{F2CA3305-5D91-4993-B9C0-294615C6EBF0}']
+ ['{4960869A-BFBB-4CC7-85E1-86B6918D188F}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1157,7 +1159,7 @@ type
}
{ ITiposCapitulos }
ITiposCapitulos = interface(IDAStronglyTypedDataTable)
- ['{DFC9723A-23C2-4736-A3FE-E2F8F2CF1E92}']
+ ['{BEF6D716-8772-4793-8AA9-E7C4C6426AFC}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1252,7 +1254,7 @@ type
{ IContratosCliente_Detalles }
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
- ['{0764F573-7ABD-416B-BD7F-1DF9BA0059AE}']
+ ['{3EBE8691-1080-4B52-A2FC-67A44C2ACC76}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1294,6 +1296,10 @@ type
procedure SetVISIBLEValue(const aValue: SmallInt);
function GetVISIBLEIsNull: Boolean;
procedure SetVISIBLEIsNull(const aValue: Boolean);
+ function GetVALORADOValue: SmallInt;
+ procedure SetVALORADOValue(const aValue: SmallInt);
+ function GetVALORADOIsNull: Boolean;
+ procedure SetVALORADOIsNull(const aValue: Boolean);
function GetID_ARTICULOValue: Integer;
procedure SetID_ARTICULOValue(const aValue: Integer);
function GetID_ARTICULOIsNull: Boolean;
@@ -1341,6 +1347,8 @@ type
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property VISIBLE: SmallInt read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
+ property VALORADO: SmallInt read GetVALORADOValue write SetVALORADOValue;
+ property VALORADOIsNull: Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property TIPO_ARTICULO: String read GetTIPO_ARTICULOValue write SetTIPO_ARTICULOValue;
@@ -1400,6 +1408,10 @@ type
procedure SetVISIBLEValue(const aValue: SmallInt); virtual;
function GetVISIBLEIsNull: Boolean; virtual;
procedure SetVISIBLEIsNull(const aValue: Boolean); virtual;
+ function GetVALORADOValue: SmallInt; virtual;
+ procedure SetVALORADOValue(const aValue: SmallInt); virtual;
+ function GetVALORADOIsNull: Boolean; virtual;
+ procedure SetVALORADOIsNull(const aValue: Boolean); virtual;
function GetID_ARTICULOValue: Integer; virtual;
procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
function GetID_ARTICULOIsNull: Boolean; virtual;
@@ -1446,6 +1458,8 @@ type
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property VISIBLE: SmallInt read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
+ property VALORADO: SmallInt read GetVALORADOValue write SetVALORADOValue;
+ property VALORADOIsNull: Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property TIPO_ARTICULO: String read GetTIPO_ARTICULOValue write SetTIPO_ARTICULOValue;
@@ -3317,6 +3331,27 @@ begin
DataTable.Fields[idx_ContratosCliente_DetallesVISIBLE].AsVariant := Null;
end;
+function TContratosCliente_DetallesDataTableRules.GetVALORADOValue: SmallInt;
+begin
+ result := DataTable.Fields[idx_ContratosCliente_DetallesVALORADO].AsSmallInt;
+end;
+
+procedure TContratosCliente_DetallesDataTableRules.SetVALORADOValue(const aValue: SmallInt);
+begin
+ DataTable.Fields[idx_ContratosCliente_DetallesVALORADO].AsSmallInt := aValue;
+end;
+
+function TContratosCliente_DetallesDataTableRules.GetVALORADOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_ContratosCliente_DetallesVALORADO].IsNull;
+end;
+
+procedure TContratosCliente_DetallesDataTableRules.SetVALORADOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_ContratosCliente_DetallesVALORADO].AsVariant := Null;
+end;
+
function TContratosCliente_DetallesDataTableRules.GetID_ARTICULOValue: Integer;
begin
result := DataTable.Fields[idx_ContratosCliente_DetallesID_ARTICULO].AsInteger;
diff --git a/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas b/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas
index 44a222e..b60c10c 100644
--- a/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas
+++ b/Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas
@@ -9,18 +9,18 @@ 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_ValoresDelta = '{D7B7A752-F645-440A-89BD-638862C7819A}';
- RID_PropiedadesDelta = '{CF729826-631C-4E85-9467-924596E8706B}';
- RID_ListaAnosContratosDelta = '{8DBE8D17-4504-4F6A-81CC-3A9BBB221DBA}';
- RID_ContratosClienteBeneficiosDelta = '{00DC7FCA-CE1A-41C2-ACB2-DA5ED5EBFA14}';
- RID_ContratosClienteDelta = '{28AAF6A0-991C-4D31-950A-9BD8168FB4C5}';
- RID_TiposCapitulosDelta = '{5000E4FA-010F-4828-A493-3E642B69A10A}';
- RID_ContratosCliente_DetallesDelta = '{318EAB4A-8BBB-4BCF-92FD-8CB1B40E1956}';
+ RID_ValoresDelta = '{C34332AC-76CB-4E0E-8515-D9BBDFF2E1BF}';
+ RID_PropiedadesDelta = '{C04FC4AE-3189-44DA-9D7D-4F61DCE51BA1}';
+ RID_ListaAnosContratosDelta = '{2C0E2A20-BA28-41BE-92AD-EE946662BCE6}';
+ RID_ContratosClienteBeneficiosDelta = '{686A9966-2BF0-4D3B-A11D-77E9DEED5396}';
+ RID_ContratosClienteDelta = '{A741E047-68D3-42B4-9C3D-F4B84A2FD5A8}';
+ RID_TiposCapitulosDelta = '{4C4B88B8-967F-457E-BB65-9B3406F31242}';
+ RID_ContratosCliente_DetallesDelta = '{336EDADB-89CC-4ABD-9861-C3441FA348C5}';
type
{ IValoresDelta }
IValoresDelta = interface(IValores)
- ['{D7B7A752-F645-440A-89BD-638862C7819A}']
+ ['{C34332AC-76CB-4E0E-8515-D9BBDFF2E1BF}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PROPIEDADValue : Integer;
@@ -78,7 +78,7 @@ type
{ IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades)
- ['{CF729826-631C-4E85-9467-924596E8706B}']
+ ['{C04FC4AE-3189-44DA-9D7D-4F61DCE51BA1}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@@ -136,7 +136,7 @@ type
{ IListaAnosContratosDelta }
IListaAnosContratosDelta = interface(IListaAnosContratos)
- ['{8DBE8D17-4504-4F6A-81CC-3A9BBB221DBA}']
+ ['{2C0E2A20-BA28-41BE-92AD-EE946662BCE6}']
{ Property getters and setters }
function GetOldANOValue : String;
@@ -170,7 +170,7 @@ type
{ IContratosClienteBeneficiosDelta }
IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios)
- ['{00DC7FCA-CE1A-41C2-ACB2-DA5ED5EBFA14}']
+ ['{686A9966-2BF0-4D3B-A11D-77E9DEED5396}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldREFERENCIAValue : String;
@@ -360,7 +360,7 @@ type
{ IContratosClienteDelta }
IContratosClienteDelta = interface(IContratosCliente)
- ['{28AAF6A0-991C-4D31-950A-9BD8168FB4C5}']
+ ['{A741E047-68D3-42B4-9C3D-F4B84A2FD5A8}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -938,7 +938,7 @@ type
{ ITiposCapitulosDelta }
ITiposCapitulosDelta = interface(ITiposCapitulos)
- ['{5000E4FA-010F-4828-A493-3E642B69A10A}']
+ ['{4C4B88B8-967F-457E-BB65-9B3406F31242}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer;
@@ -1032,7 +1032,7 @@ type
{ IContratosCliente_DetallesDelta }
IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
- ['{318EAB4A-8BBB-4BCF-92FD-8CB1B40E1956}']
+ ['{336EDADB-89CC-4ABD-9861-C3441FA348C5}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTRATOValue : Integer;
@@ -1044,6 +1044,7 @@ type
function GetOldIMPORTE_UNIDADValue : Currency;
function GetOldIMPORTE_TOTALValue : Currency;
function GetOldVISIBLEValue : SmallInt;
+ function GetOldVALORADOValue : SmallInt;
function GetOldID_ARTICULOValue : Integer;
function GetOldTIPO_ARTICULOValue : String;
function GetOldDESCUENTOValue : Float;
@@ -1062,6 +1063,7 @@ type
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldVISIBLE : SmallInt read GetOldVISIBLEValue;
+ property OldVALORADO : SmallInt read GetOldVALORADOValue;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
property OldTIPO_ARTICULO : String read GetOldTIPO_ARTICULOValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
@@ -1135,6 +1137,12 @@ type
function GetOldVISIBLEIsNull: Boolean; virtual;
procedure SetVISIBLEValue(const aValue: SmallInt); virtual;
procedure SetVISIBLEIsNull(const aValue: Boolean); virtual;
+ function GetVALORADOValue: SmallInt; virtual;
+ function GetVALORADOIsNull: Boolean; virtual;
+ function GetOldVALORADOValue: SmallInt; virtual;
+ function GetOldVALORADOIsNull: Boolean; virtual;
+ procedure SetVALORADOValue(const aValue: SmallInt); virtual;
+ procedure SetVALORADOIsNull(const aValue: Boolean); virtual;
function GetID_ARTICULOValue: Integer; virtual;
function GetID_ARTICULOIsNull: Boolean; virtual;
function GetOldID_ARTICULOValue: Integer; virtual;
@@ -1213,6 +1221,10 @@ type
property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
property OldVISIBLE : SmallInt read GetOldVISIBLEValue;
property OldVISIBLEIsNull : Boolean read GetOldVISIBLEIsNull;
+ property VALORADO : SmallInt read GetVALORADOValue write SetVALORADOValue;
+ property VALORADOIsNull : Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
+ property OldVALORADO : SmallInt read GetOldVALORADOValue;
+ property OldVALORADOIsNull : Boolean read GetOldVALORADOIsNull;
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;
@@ -3931,6 +3943,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesVISIBLE] := Null;
end;
+function TContratosCliente_DetallesBusinessProcessorRules.GetVALORADOValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesVALORADO];
+end;
+
+function TContratosCliente_DetallesBusinessProcessorRules.GetVALORADOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesVALORADO]);
+end;
+
+function TContratosCliente_DetallesBusinessProcessorRules.GetOldVALORADOValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosCliente_DetallesVALORADO];
+end;
+
+function TContratosCliente_DetallesBusinessProcessorRules.GetOldVALORADOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosCliente_DetallesVALORADO]);
+end;
+
+procedure TContratosCliente_DetallesBusinessProcessorRules.SetVALORADOValue(const aValue: SmallInt);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesVALORADO] := aValue;
+end;
+
+procedure TContratosCliente_DetallesBusinessProcessorRules.SetVALORADOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesVALORADO] := Null;
+end;
+
function TContratosCliente_DetallesBusinessProcessorRules.GetID_ARTICULOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosCliente_DetallesID_ARTICULO];
diff --git a/Source/Modulos/Contratos de cliente/Model/uBizDetallesContratoCliente.pas b/Source/Modulos/Contratos de cliente/Model/uBizDetallesContratoCliente.pas
index 6ecc041..a166d0e 100644
--- a/Source/Modulos/Contratos de cliente/Model/uBizDetallesContratoCliente.pas
+++ b/Source/Modulos/Contratos de cliente/Model/uBizDetallesContratoCliente.pas
@@ -41,6 +41,7 @@ procedure TBizDetallesContratoCliente.OnNewRecord(Sender: TDADataTable);
begin
inherited;
VISIBLE := 1;
+ VALORADO := 1;
end;
initialization
diff --git a/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.dfm b/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.dfm
index 3a2ce5d..53d79e8 100644
--- a/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.dfm
+++ b/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.dfm
@@ -630,6 +630,10 @@ object RptContratosCliente: TRptContratosCliente
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
end
+ item
+ Name = 'VALORADO'
+ DataType = datSmallInt
+ end
item
Name = 'VISIBLE'
DataType = datSmallInt
@@ -641,7 +645,7 @@ object RptContratosCliente: TRptContratosCliente
item
Name = 'ID_PRE_CON'
DataType = datInteger
- Value = ''
+ Value = '232'
end>
Statements = <
item
@@ -692,10 +696,18 @@ object RptContratosCliente: TRptContratosCliente
item
DatasetField = 'IMPORTE_DESCUENTO'
TableField = 'IMPORTE_DESCUENTO'
+ end
+ item
+ DatasetField = 'VALORADO'
+ TableField = 'VALORADO'
end>
end>
Name = 'Informe_Capitulos'
Fields = <
+ item
+ Name = 'VALORADO'
+ DataType = datSmallInt
+ end
item
Name = 'ID'
DataType = datInteger
diff --git a/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm b/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm
index 3026a61..038016f 100644
--- a/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm
+++ b/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm
@@ -797,15 +797,15 @@ object srvContratosCliente: TsrvContratosCliente
'ES.PROPIEDAD, CONTRATOS_CLIENTE_DETALLES.CONCEPTO, CONTRATOS_CLI' +
'ENTE_DETALLES.CANTIDAD,'#10' CONTRATOS_CLIENTE_DETALLES.IMPORTE_U' +
'NIDAD, CONTRATOS_CLIENTE_DETALLES.IMPORTE_TOTAL,'#10' CONTRATOS_C' +
- 'LIENTE_DETALLES.VISIBLE,'#10#10' CONTRATOS_CLIENTE_DETALLES.ID_ARTI' +
- 'CULO, CONTRATOS_CLIENTE_DETALLES.TIPO_ARTICULO,'#10' CONTRATOS_CL' +
- 'IENTE_DETALLES.DESCUENTO,'#10' CONTRATOS_CLIENTE_DETALLES.IMPORTE' +
- '_PORTE, ARTICULOS.REFERENCIA,'#10' '#39#39' as REFERENCIA_PROVEEDOR /*E' +
- 's necesario para que no fallen los detalles porque los detalles ' +
- 'son comunes para la rama de cliente y de proveedor*/'#10#10'FROM CONTR' +
- 'ATOS_CLIENTE_DETALLES'#10'LEFT JOIN ARTICULOS ON CONTRATOS_CLIENTE_D' +
- 'ETALLES.ID_ARTICULO = ARTICULOS.ID'#10'where {where}'#10'ORDER BY POSICI' +
- 'ON;'#10
+ 'LIENTE_DETALLES.VISIBLE,'#10' CONTRATOS_CLIENTE_DETALLES.VALORADO' +
+ ','#10#10' CONTRATOS_CLIENTE_DETALLES.ID_ARTICULO, CONTRATOS_CLIENTE' +
+ '_DETALLES.TIPO_ARTICULO,'#10' CONTRATOS_CLIENTE_DETALLES.DESCUENT' +
+ 'O,'#10' CONTRATOS_CLIENTE_DETALLES.IMPORTE_PORTE, ARTICULOS.REFER' +
+ 'ENCIA,'#10' '#39#39' as REFERENCIA_PROVEEDOR /*Es necesario para que no' +
+ ' fallen los detalles porque los detalles son comunes para la ram' +
+ 'a de cliente y de proveedor*/'#10#10'FROM CONTRATOS_CLIENTE_DETALLES'#10'L' +
+ 'EFT JOIN ARTICULOS ON CONTRATOS_CLIENTE_DETALLES.ID_ARTICULO = A' +
+ 'RTICULOS.ID'#10'where {where}'#10'ORDER BY POSICION;'#10
StatementType = stSQL
ColumnMappings = <
item
@@ -873,6 +873,10 @@ object srvContratosCliente: TsrvContratosCliente
item
DatasetField = 'PROPIEDAD'
TableField = 'PROPIEDAD'
+ end
+ item
+ DatasetField = 'VALORADO'
+ TableField = 'VALORADO'
end>
end>
Name = 'ContratosCliente_Detalles'
@@ -922,6 +926,10 @@ object srvContratosCliente: TsrvContratosCliente
Name = 'VISIBLE'
DataType = datSmallInt
end
+ item
+ Name = 'VALORADO'
+ DataType = datSmallInt
+ end
item
Name = 'ID_ARTICULO'
DataType = datInteger
@@ -947,6 +955,7 @@ object srvContratosCliente: TsrvContratosCliente
item
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
+ Size = 255
end>
end>
JoinDataTables = <>
@@ -1509,6 +1518,11 @@ object srvContratosCliente: TsrvContratosCliente
DataType = datCurrency
Value = ''
end
+ item
+ Name = 'VALORADO'
+ DataType = datSmallInt
+ Value = ''
+ end
item
Name = 'VISIBLE'
DataType = datSmallInt
@@ -1543,12 +1557,12 @@ object srvContratosCliente: TsrvContratosCliente
SQL =
'INSERT'#10' INTO CONTRATOS_CLIENTE_DETALLES'#10' (ID, ID_CONTRATO, P' +
'OSICION, TIPO_DETALLE, PROPIEDAD, CONCEPTO, CANTIDAD,'#10' IMPOR' +
- 'TE_UNIDAD, IMPORTE_TOTAL, VISIBLE, ID_ARTICULO, TIPO_ARTICULO,'#10' ' +
- ' DESCUENTO, IMPORTE_PORTE, FECHA_ALTA)'#10' VALUES'#10' (:ID, :ID' +
- '_CONTRATO, :POSICION, :TIPO_DETALLE, :PROPIEDAD, :CONCEPTO,'#10' ' +
- ' :CANTIDAD, :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE,'#10' :ID_' +
- 'ARTICULO, :TIPO_ARTICULO, :DESCUENTO, :IMPORTE_PORTE, CURRENT_TI' +
- 'MESTAMP)'#10
+ 'TE_UNIDAD, IMPORTE_TOTAL, VISIBLE, VALORADO, ID_ARTICULO, TIPO_A' +
+ 'RTICULO,'#10' DESCUENTO, IMPORTE_PORTE, FECHA_ALTA)'#10' VALUES'#10' ' +
+ ' (:ID, :ID_CONTRATO, :POSICION, :TIPO_DETALLE, :PROPIEDAD, :CONC' +
+ 'EPTO,'#10' :CANTIDAD, :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE,' +
+ ' :VALORADO,'#10' :ID_ARTICULO, :TIPO_ARTICULO, :DESCUENTO, :IMPO' +
+ 'RTE_PORTE, CURRENT_TIMESTAMP)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -1576,6 +1590,11 @@ object srvContratosCliente: TsrvContratosCliente
end
item
Params = <
+ item
+ Name = 'VALORADO'
+ DataType = datSmallInt
+ Value = ''
+ end
item
Name = 'ID'
DataType = datInteger
@@ -1665,10 +1684,10 @@ object srvContratosCliente: TsrvContratosCliente
'LE = :TIPO_DETALLE, '#10' PROPIEDAD = :PROPIEDAD,'#10' CONCEPTO = ' +
':CONCEPTO, '#10' CANTIDAD = :CANTIDAD, '#10' IMPORTE_UNIDAD = :IMP' +
'ORTE_UNIDAD,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' VISIBLE = ' +
- ':VISIBLE, '#10' ID_ARTICULO = :ID_ARTICULO, '#10' TIPO_ARTICULO = ' +
- ':TIPO_ARTICULO,'#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_PORTE =' +
- ' :IMPORTE_PORTE,'#10' FECHA_MODIFICACION = CURRENT_TIMESTAMP'#10' WH' +
- 'ERE'#10' (ID = :OLD_ID)'#10
+ ':VISIBLE,'#10' VALORADO = :VALORADO,'#10' ID_ARTICULO = :ID_ARTICU' +
+ 'LO, '#10' TIPO_ARTICULO = :TIPO_ARTICULO,'#10' DESCUENTO = :DESCUE' +
+ 'NTO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' FECHA_MODIFICACION' +
+ ' = CURRENT_TIMESTAMP'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
diff --git a/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm b/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm
index 77266ec..22d0c0e 100644
--- a/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm
+++ b/Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm
@@ -71,6 +71,7 @@ inherited frViewContratosCliente: TfrViewContratosCliente
object cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn
Caption = 'Ref. Cliente'
DataBinding.FieldName = 'REFERENCIA_CLIENTE'
+ BestFitMaxWidth = 25
end
object cxGridViewTIPO_CONTRATO: TcxGridDBColumn
DataBinding.FieldName = 'TIPO_CONTRATO'
diff --git a/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.dfm b/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.dfm
index 40ec798..eb511f9 100644
--- a/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.dfm
+++ b/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.dfm
@@ -1,8 +1,5 @@
inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente
- Width = 760
- Height = 411
inherited ToolBar1: TToolBar
- Width = 760
inherited ToolButton4: TToolButton
Wrap = False
end
@@ -59,8 +56,6 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente
end
end
inherited cxGrid: TcxGrid
- Width = 760
- Height = 339
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewID_ARTICULO: TcxGridDBColumn
Width = 57
@@ -73,7 +68,10 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente
inherited cxGridViewVISIBLE: TcxGridDBColumn [5]
Visible = True
end
- object cxGridViewPROPIEDAD: TcxGridDBColumn [6]
+ inherited cxGridViewVALORADO: TcxGridDBColumn [6]
+ Visible = True
+ end
+ object cxGridViewPROPIEDAD: TcxGridDBColumn [7]
DataBinding.FieldName = 'PROPIEDAD'
PropertiesClassName = 'TcxRichEditProperties'
OnGetPropertiesForEdit = cxGridViewPROPIEDADGetPropertiesForEdit
@@ -81,43 +79,41 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente
Width = 150
IsCaptionAssigned = True
end
- inherited cxGridViewREFERENCIA: TcxGridDBColumn [7]
+ inherited cxGridViewREFERENCIA: TcxGridDBColumn [8]
end
- inherited cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn [8]
+ inherited cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn [9]
DataBinding.FieldName = ''
end
- inherited cxGridViewDESCRIPCION: TcxGridDBColumn [9]
+ inherited cxGridViewDESCRIPCION: TcxGridDBColumn [10]
OnGetPropertiesForEdit = cxGridViewDESCRIPCIONGetPropertiesForEdit
Width = 243
end
- inherited cxGridViewCANTIDAD: TcxGridDBColumn [10]
+ inherited cxGridViewCANTIDAD: TcxGridDBColumn [11]
VisibleForCustomization = False
Width = 25
end
- inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn [11]
+ inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn [12]
VisibleForCustomization = False
Width = 34
end
- inherited cxGridViewDESCUENTO: TcxGridDBColumn [12]
+ inherited cxGridViewDESCUENTO: TcxGridDBColumn [13]
Width = 20
end
- inherited cxGridViewIMPORTENETO: TcxGridDBColumn [13]
+ inherited cxGridViewIMPORTENETO: TcxGridDBColumn [14]
Visible = False
VisibleForCustomization = False
Width = 29
end
- inherited cxGridViewIMPORTEPORTE: TcxGridDBColumn [14]
+ inherited cxGridViewIMPORTEPORTE: TcxGridDBColumn [15]
end
- inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn [15]
+ inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn [16]
VisibleForCustomization = False
Width = 29
end
end
end
inherited TBXDock1: TTBXDock
- Width = 760
inherited TBXToolbar1: TTBXToolbar
- ExplicitWidth = 665
object TBXSubmenuItem1: TTBXSubmenuItem [0]
Caption = 'A'#241'adir cap'#237'tulo'
DisplayMode = nbdmImageAndText
diff --git a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
index 7b7cdae..db5041f 100644
--- a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
+++ b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
@@ -386,6 +386,12 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
DisplayLabel = #191'Visible?'
DictionaryEntry = 'FacturasCliente_Detalles_VISIBLE'
end
+ item
+ Name = 'VALORADO'
+ DataType = datSmallInt
+ DisplayLabel = #191'Valorado?'
+ DictionaryEntry = 'FacturasCliente_Detalles_VALORADO'
+ end
item
Name = 'ID_ARTICULO'
DataType = datInteger
diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
index c3ce569..24b02d5 100644
--- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
+++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
@@ -9,9 +9,9 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
- RID_ListaAnosFacturas = '{9504B0C5-CF6C-47DF-9BF1-D6EE693A246B}';
- RID_FacturasCliente = '{E530BBA1-8BD8-4003-B11A-79C99E13E981}';
- RID_FacturasCliente_Detalles = '{C963E80A-9A8F-4A71-82C8-4901A98FA7CC}';
+ RID_ListaAnosFacturas = '{D124C6A9-9125-41D5-8910-57FF495BF307}';
+ RID_FacturasCliente = '{1302F337-0DD8-4688-AE4A-BBEE072A6C3A}';
+ RID_FacturasCliente_Detalles = '{94E66444-E0C2-400F-B529-B4CD1AA4B51F}';
{ Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas';
@@ -134,6 +134,7 @@ const
fld_FacturasCliente_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD';
fld_FacturasCliente_DetallesIMPORTE_TOTAL = 'IMPORTE_TOTAL';
fld_FacturasCliente_DetallesVISIBLE = 'VISIBLE';
+ fld_FacturasCliente_DetallesVALORADO = 'VALORADO';
fld_FacturasCliente_DetallesID_ARTICULO = 'ID_ARTICULO';
fld_FacturasCliente_DetallesDESCUENTO = 'DESCUENTO';
fld_FacturasCliente_DetallesIMPORTE_PORTE = 'IMPORTE_PORTE';
@@ -150,16 +151,17 @@ const
idx_FacturasCliente_DetallesIMPORTE_UNIDAD = 6;
idx_FacturasCliente_DetallesIMPORTE_TOTAL = 7;
idx_FacturasCliente_DetallesVISIBLE = 8;
- idx_FacturasCliente_DetallesID_ARTICULO = 9;
- idx_FacturasCliente_DetallesDESCUENTO = 10;
- idx_FacturasCliente_DetallesIMPORTE_PORTE = 11;
- idx_FacturasCliente_DetallesREFERENCIA = 12;
- idx_FacturasCliente_DetallesREFERENCIA_PROVEEDOR = 13;
+ idx_FacturasCliente_DetallesVALORADO = 9;
+ idx_FacturasCliente_DetallesID_ARTICULO = 10;
+ idx_FacturasCliente_DetallesDESCUENTO = 11;
+ idx_FacturasCliente_DetallesIMPORTE_PORTE = 12;
+ idx_FacturasCliente_DetallesREFERENCIA = 13;
+ idx_FacturasCliente_DetallesREFERENCIA_PROVEEDOR = 14;
type
{ IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
- ['{C9EB259F-ABF4-4646-BAE3-BDEED080DB84}']
+ ['{228D328D-5F59-4A81-BBE8-1CFF290D1369}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@@ -194,7 +196,7 @@ type
{ IFacturasCliente }
IFacturasCliente = interface(IDAStronglyTypedDataTable)
- ['{8A5FD641-EA95-4CD6-9EAC-618D177DF7C0}']
+ ['{5FE41CBB-BFCD-4D64-B2EB-95B093C9F387}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -793,7 +795,7 @@ type
{ IFacturasCliente_Detalles }
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
- ['{51E6D6A2-EFC9-404B-B0EA-454ED0E4FBA4}']
+ ['{1189A431-E8CB-4DF3-A668-E89F49C7A393}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -831,6 +833,10 @@ type
procedure SetVISIBLEValue(const aValue: Integer);
function GetVISIBLEIsNull: Boolean;
procedure SetVISIBLEIsNull(const aValue: Boolean);
+ function GetVALORADOValue: SmallInt;
+ procedure SetVALORADOValue(const aValue: SmallInt);
+ function GetVALORADOIsNull: Boolean;
+ procedure SetVALORADOIsNull(const aValue: Boolean);
function GetID_ARTICULOValue: Integer;
procedure SetID_ARTICULOValue(const aValue: Integer);
function GetID_ARTICULOIsNull: Boolean;
@@ -872,6 +878,8 @@ type
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 VALORADO: SmallInt read GetVALORADOValue write SetVALORADOValue;
+ property VALORADOIsNull: Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
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;
@@ -925,6 +933,10 @@ type
procedure SetVISIBLEValue(const aValue: Integer); virtual;
function GetVISIBLEIsNull: Boolean; virtual;
procedure SetVISIBLEIsNull(const aValue: Boolean); virtual;
+ function GetVALORADOValue: SmallInt; virtual;
+ procedure SetVALORADOValue(const aValue: SmallInt); virtual;
+ function GetVALORADOIsNull: Boolean; virtual;
+ procedure SetVALORADOIsNull(const aValue: Boolean); virtual;
function GetID_ARTICULOValue: Integer; virtual;
procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
function GetID_ARTICULOIsNull: Boolean; virtual;
@@ -965,6 +977,8 @@ type
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 VALORADO: SmallInt read GetVALORADOValue write SetVALORADOValue;
+ property VALORADOIsNull: Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
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;
@@ -2246,6 +2260,27 @@ begin
DataTable.Fields[idx_FacturasCliente_DetallesVISIBLE].AsVariant := Null;
end;
+function TFacturasCliente_DetallesDataTableRules.GetVALORADOValue: SmallInt;
+begin
+ result := DataTable.Fields[idx_FacturasCliente_DetallesVALORADO].AsSmallInt;
+end;
+
+procedure TFacturasCliente_DetallesDataTableRules.SetVALORADOValue(const aValue: SmallInt);
+begin
+ DataTable.Fields[idx_FacturasCliente_DetallesVALORADO].AsSmallInt := aValue;
+end;
+
+function TFacturasCliente_DetallesDataTableRules.GetVALORADOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasCliente_DetallesVALORADO].IsNull;
+end;
+
+procedure TFacturasCliente_DetallesDataTableRules.SetVALORADOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasCliente_DetallesVALORADO].AsVariant := Null;
+end;
+
function TFacturasCliente_DetallesDataTableRules.GetID_ARTICULOValue: Integer;
begin
result := DataTable.Fields[idx_FacturasCliente_DetallesID_ARTICULO].AsInteger;
diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
index 6047301..04b019b 100644
--- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
+++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
@@ -9,14 +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_ListaAnosFacturasDelta = '{21A2ECEC-6B0B-464C-8545-1F8D439F3DCA}';
- RID_FacturasClienteDelta = '{86F44C5A-7112-42F1-B15E-518660E2EAC2}';
- RID_FacturasCliente_DetallesDelta = '{4FF3AB78-99DC-4F0F-B163-1155D2698082}';
+ RID_ListaAnosFacturasDelta = '{A36E4AFD-23AD-421D-9A83-CF95673BC233}';
+ RID_FacturasClienteDelta = '{7450A969-1ECA-4843-9A77-57181F6C539B}';
+ RID_FacturasCliente_DetallesDelta = '{AE9B5F97-D0B9-47C0-BAF0-05D4EF41ED06}';
type
{ IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas)
- ['{21A2ECEC-6B0B-464C-8545-1F8D439F3DCA}']
+ ['{A36E4AFD-23AD-421D-9A83-CF95673BC233}']
{ Property getters and setters }
function GetOldANOValue : String;
@@ -50,7 +50,7 @@ type
{ IFacturasClienteDelta }
IFacturasClienteDelta = interface(IFacturasCliente)
- ['{86F44C5A-7112-42F1-B15E-518660E2EAC2}']
+ ['{7450A969-1ECA-4843-9A77-57181F6C539B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -649,7 +649,7 @@ type
{ IFacturasCliente_DetallesDelta }
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
- ['{4FF3AB78-99DC-4F0F-B163-1155D2698082}']
+ ['{AE9B5F97-D0B9-47C0-BAF0-05D4EF41ED06}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
@@ -660,6 +660,7 @@ type
function GetOldIMPORTE_UNIDADValue : Currency;
function GetOldIMPORTE_TOTALValue : Currency;
function GetOldVISIBLEValue : Integer;
+ function GetOldVALORADOValue : SmallInt;
function GetOldID_ARTICULOValue : Integer;
function GetOldDESCUENTOValue : Float;
function GetOldIMPORTE_PORTEValue : Currency;
@@ -676,6 +677,7 @@ type
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldVISIBLE : Integer read GetOldVISIBLEValue;
+ property OldVALORADO : SmallInt read GetOldVALORADOValue;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
@@ -742,6 +744,12 @@ type
function GetOldVISIBLEIsNull: Boolean; virtual;
procedure SetVISIBLEValue(const aValue: Integer); virtual;
procedure SetVISIBLEIsNull(const aValue: Boolean); virtual;
+ function GetVALORADOValue: SmallInt; virtual;
+ function GetVALORADOIsNull: Boolean; virtual;
+ function GetOldVALORADOValue: SmallInt; virtual;
+ function GetOldVALORADOIsNull: Boolean; virtual;
+ procedure SetVALORADOValue(const aValue: SmallInt); virtual;
+ procedure SetVALORADOIsNull(const aValue: Boolean); virtual;
function GetID_ARTICULOValue: Integer; virtual;
function GetID_ARTICULOIsNull: Boolean; virtual;
function GetOldID_ARTICULOValue: Integer; virtual;
@@ -810,6 +818,10 @@ type
property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
property OldVISIBLE : Integer read GetOldVISIBLEValue;
property OldVISIBLEIsNull : Boolean read GetOldVISIBLEIsNull;
+ property VALORADO : SmallInt read GetVALORADOValue write SetVALORADOValue;
+ property VALORADOIsNull : Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
+ property OldVALORADO : SmallInt read GetOldVALORADOValue;
+ property OldVALORADOIsNull : Boolean read GetOldVALORADOIsNull;
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;
@@ -2683,6 +2695,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesVISIBLE] := Null;
end;
+function TFacturasCliente_DetallesBusinessProcessorRules.GetVALORADOValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesVALORADO];
+end;
+
+function TFacturasCliente_DetallesBusinessProcessorRules.GetVALORADOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesVALORADO]);
+end;
+
+function TFacturasCliente_DetallesBusinessProcessorRules.GetOldVALORADOValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_DetallesVALORADO];
+end;
+
+function TFacturasCliente_DetallesBusinessProcessorRules.GetOldVALORADOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasCliente_DetallesVALORADO]);
+end;
+
+procedure TFacturasCliente_DetallesBusinessProcessorRules.SetVALORADOValue(const aValue: SmallInt);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesVALORADO] := aValue;
+end;
+
+procedure TFacturasCliente_DetallesBusinessProcessorRules.SetVALORADOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesVALORADO] := Null;
+end;
+
function TFacturasCliente_DetallesBusinessProcessorRules.GetID_ARTICULOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasCliente_DetallesID_ARTICULO];
diff --git a/Source/Modulos/Facturas de cliente/Model/uBizDetallesFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Model/uBizDetallesFacturaCliente.pas
index dab4f95..a946934 100644
--- a/Source/Modulos/Facturas de cliente/Model/uBizDetallesFacturaCliente.pas
+++ b/Source/Modulos/Facturas de cliente/Model/uBizDetallesFacturaCliente.pas
@@ -42,6 +42,7 @@ procedure TBizDetallesFacturaCliente.OnNewRecord(Sender: TDADataTable);
begin
inherited;
VISIBLE := 1;
+ VALORADO := 1;
end;
diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
index 3e30fde..2c44334 100644
--- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
+++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
@@ -1090,9 +1090,9 @@ object RptFacturasCliente: TRptFacturasCliente
SQL =
'SELECT'#10' ID, ID_FACTURA, POSICION, TIPO_DETALLE, F_RTFTOTEXT(C' +
'ONCEPTO) AS CONCEPTO,'#10' CONCEPTO AS CONCEPTO_RTF, CANTIDAD,'#10' ' +
- ' IMPORTE_UNIDAD, DESCUENTO, IMPORTE_TOTAL, VISIBLE'#10'FROM FACTURA' +
- 'S_CLIENTE_DETALLES'#10'WHERE ID_FACTURA = :ID_FACTURA'#10'ORDER BY POSIC' +
- 'ION;'#10
+ ' IMPORTE_UNIDAD, DESCUENTO, IMPORTE_TOTAL, VISIBLE, VALORADO'#10'FR' +
+ 'OM FACTURAS_CLIENTE_DETALLES'#10'WHERE ID_FACTURA = :ID_FACTURA'#10'ORDE' +
+ 'R BY POSICION;'#10
StatementType = stSQL
ColumnMappings = <
item
@@ -1139,10 +1139,18 @@ object RptFacturasCliente: TRptFacturasCliente
DatasetField = 'CONCEPTO_RTF'
TableField = 'CONCEPTO'
SQLOrigin = 'CONCEPTO_RTF'
+ end
+ item
+ DatasetField = 'VALORADO'
+ TableField = 'VALORADO'
end>
end>
Name = 'InformeFacturasCliente_Detalles'
Fields = <
+ item
+ Name = 'VALORADO'
+ DataType = datSmallInt
+ end
item
Name = 'ID'
DataType = datAutoInc
diff --git a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
index 72c7254..6d26ac1 100644
--- a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
+++ b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
@@ -506,12 +506,13 @@ object srvFacturasCliente: TsrvFacturasCliente
'CLIENTE_DETALLES.TIPO_DETALLE,'#10' FACTURAS_CLIENTE_DETALLES.CON' +
'CEPTO, FACTURAS_CLIENTE_DETALLES.CANTIDAD,'#10' FACTURAS_CLIENTE_' +
'DETALLES.IMPORTE_UNIDAD, FACTURAS_CLIENTE_DETALLES.IMPORTE_TOTAL' +
- ','#10' FACTURAS_CLIENTE_DETALLES.VISIBLE,'#10#10' FACTURAS_CLIENTE_D' +
- 'ETALLES.ID_ARTICULO, FACTURAS_CLIENTE_DETALLES.DESCUENTO,'#10' FA' +
- 'CTURAS_CLIENTE_DETALLES.IMPORTE_PORTE, ARTICULOS.REFERENCIA,'#10' ' +
- ' ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR'#10#10'FROM FACTURA' +
- 'S_CLIENTE_DETALLES'#10'LEFT JOIN ARTICULOS ON FACTURAS_CLIENTE_DETAL' +
- 'LES.ID_ARTICULO = ARTICULOS.ID'#10'where {where}'#10'ORDER BY POSICION;'#10
+ ','#10' FACTURAS_CLIENTE_DETALLES.VISIBLE,'#10' FACTURAS_CLIENTE_DE' +
+ 'TALLES.VALORADO,'#10#10' FACTURAS_CLIENTE_DETALLES.ID_ARTICULO, FAC' +
+ 'TURAS_CLIENTE_DETALLES.DESCUENTO,'#10' FACTURAS_CLIENTE_DETALLES.' +
+ 'IMPORTE_PORTE, ARTICULOS.REFERENCIA,'#10' ARTICULOS.REFERENCIA_PR' +
+ 'OV as REFERENCIA_PROVEEDOR'#10#10'FROM FACTURAS_CLIENTE_DETALLES'#10'LEFT ' +
+ 'JOIN ARTICULOS ON FACTURAS_CLIENTE_DETALLES.ID_ARTICULO = ARTICU' +
+ 'LOS.ID'#10'where {where}'#10'ORDER BY POSICION;'#10
StatementType = stSQL
ColumnMappings = <
item
@@ -571,6 +572,10 @@ object srvFacturasCliente: TsrvFacturasCliente
DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = ''
SQLOrigin = 'REFERENCIA_PROVEEDOR'
+ end
+ item
+ DatasetField = 'VALORADO'
+ TableField = 'VALORADO'
end>
end>
Name = 'FacturasCliente_Detalles'
@@ -625,6 +630,11 @@ object srvFacturasCliente: TsrvFacturasCliente
DataType = datInteger
DictionaryEntry = 'FacturasCliente_Detalles_VISIBLE'
end
+ item
+ Name = 'VALORADO'
+ DataType = datSmallInt
+ DictionaryEntry = 'FacturasCliente_Detalles_VALORADO'
+ end
item
Name = 'ID_ARTICULO'
DataType = datInteger
@@ -644,11 +654,13 @@ object srvFacturasCliente: TsrvFacturasCliente
Name = 'REFERENCIA'
DataType = datString
Size = 255
+ DictionaryEntry = 'FacturasCliente_Detalles_REFERENCIA'
end
item
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
+ DictionaryEntry = 'FacturasCliente_Detalles_REFERENCIA_PROVEEDOR'
end>
end>
JoinDataTables = <>
@@ -720,6 +732,11 @@ object srvFacturasCliente: TsrvFacturasCliente
end
item
Params = <
+ item
+ Name = 'VALORADO'
+ DataType = datSmallInt
+ Value = ''
+ end
item
Name = 'ID'
DataType = datAutoInc
@@ -791,10 +808,11 @@ object srvFacturasCliente: TsrvFacturasCliente
SQL =
'INSERT'#10' INTO FACTURAS_CLIENTE_DETALLES'#10' (ID, CANTIDAD, POSIC' +
'ION, ID_FACTURA, TIPO_DETALLE, CONCEPTO,'#10' IMPORTE_UNIDAD, IM' +
- 'PORTE_TOTAL, VISIBLE,'#10' ID_ARTICULO, DESCUENTO, IMPORTE_PORTE' +
- ')'#10' VALUES'#10' (:ID, :CANTIDAD, :POSICION, :ID_FACTURA, :TIPO_DE' +
- 'TALLE, :CONCEPTO,'#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE' +
- ','#10' :ID_ARTICULO, :DESCUENTO, :IMPORTE_PORTE)'
+ 'PORTE_TOTAL, VISIBLE, VALORADO,'#10' ID_ARTICULO, DESCUENTO, IMP' +
+ 'ORTE_PORTE)'#10' VALUES'#10' (:ID, :CANTIDAD, :POSICION, :ID_FACTURA' +
+ ', :TIPO_DETALLE, :CONCEPTO,'#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL' +
+ ', :VISIBLE, :VALORADO,'#10' :ID_ARTICULO, :DESCUENTO, :IMPORTE_P' +
+ 'ORTE)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -822,6 +840,11 @@ object srvFacturasCliente: TsrvFacturasCliente
end
item
Params = <
+ item
+ Name = 'VALORADO'
+ DataType = datSmallInt
+ Value = ''
+ end
item
Name = 'CANTIDAD'
DataType = datCurrency
@@ -892,9 +915,9 @@ object srvFacturasCliente: TsrvFacturasCliente
', '#10' POSICION = :POSICION, '#10' ID_FACTURA = :ID_FACTURA, '#10' ' +
' TIPO_DETALLE = :TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' I' +
'MPORTE_UNIDAD = :IMPORTE_UNIDAD, '#10' IMPORTE_TOTAL = :IMPORTE_T' +
- 'OTAL,'#10' VISIBLE = :VISIBLE,'#10' ID_ARTICULO = :ID_ARTICULO,'#10' ' +
- ' DESCUENTO = :DESCUENTO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE'#10' W' +
- 'HERE'#10' (ID = :OLD_ID)'
+ 'OTAL,'#10' VISIBLE = :VISIBLE,'#10' VALORADO = :VALORADO,'#10' ID_A' +
+ 'RTICULO = :ID_ARTICULO,'#10' DESCUENTO = :DESCUENTO,'#10' IMPORTE_' +
+ 'PORTE = :IMPORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -1015,16 +1038,6 @@ object srvFacturasCliente: TsrvFacturasCliente
Size = 10
Value = ''
end
- item
- Name = 'FECHA_ALTA'
- DataType = datDateTime
- Value = ''
- end
- item
- Name = 'FECHA_MODIFICACION'
- DataType = datDateTime
- Value = ''
- end
item
Name = 'USUARIO'
DataType = datString
@@ -1093,21 +1106,20 @@ object srvFacturasCliente: TsrvFacturasCliente
'BLE,'#10' DESCUENTO,'#10' IMPORTE_DESCUENTO,'#10' IVA,'#10' IMPORTE_' +
'IVA,'#10' RE,'#10' IMPORTE_RE,'#10' IMPORTE_TOTAL,'#10' OBSERVACIONE' +
'S,'#10' ID_CLIENTE,'#10' NIF_CIF,'#10' NOMBRE,'#10' CALLE,'#10' POBLA' +
- 'CION,'#10' PROVINCIA,'#10' CODIGO_POSTAL,'#10' FECHA_ALTA,'#10' FECH' +
- 'A_MODIFICACION,'#10' USUARIO,'#10' ID_FORMA_PAGO,'#10' RECARGO_EQUI' +
- 'VALENCIA,'#10' ID_TIPO_IVA,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10 +
- ' IGNORAR_CONTABILIDAD,'#10' ID_TIENDA,'#10' ID_CONTRATO,'#10' SI' +
- 'N_COMISION,'#10' SITUACION)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10 +
- ' :REFERENCIA,'#10' :FECHA_FACTURA,'#10' :FECHA_VENCIMIENTO,'#10' ' +
- ' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' :I' +
- 'VA,'#10' :IMPORTE_IVA,'#10' :RE,'#10' :IMPORTE_RE,'#10' :IMPORTE_TOT' +
- 'AL,'#10' :OBSERVACIONES,'#10' :ID_CLIENTE,'#10' :NIF_CIF,'#10' :NOMB' +
- 'RE,'#10' :CALLE,'#10' :POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_POST' +
- 'AL,'#10' :FECHA_ALTA,'#10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' ' +
- ':ID_FORMA_PAGO,'#10' :RECARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10' ' +
- ' :IMPORTE_NETO,'#10' :IMPORTE_PORTE,'#10' :IGNORAR_CONTABILIDAD,'#10' ' +
- ' :ID_TIENDA,'#10' :ID_CONTRATO,'#10' :SIN_COMISION,'#10' :SITUACI' +
- 'ON);'#10
+ 'CION,'#10' PROVINCIA,'#10' CODIGO_POSTAL,'#10' FECHA_ALTA,'#10' USUA' +
+ 'RIO,'#10' ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA,'#10' ID_TIPO_IV' +
+ 'A,'#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' IGNORAR_CONTABILIDAD' +
+ ','#10' ID_TIENDA,'#10' ID_CONTRATO,'#10' SIN_COMISION,'#10' SITUACIO' +
+ 'N)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :REFERENCIA,'#10' :FE' +
+ 'CHA_FACTURA,'#10' :FECHA_VENCIMIENTO,'#10' :BASE_IMPONIBLE,'#10' :D' +
+ 'ESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' ' +
+ ' :RE,'#10' :IMPORTE_RE,'#10' :IMPORTE_TOTAL,'#10' :OBSERVACIONES,'#10 +
+ ' :ID_CLIENTE,'#10' :NIF_CIF,'#10' :NOMBRE,'#10' :CALLE,'#10' :POB' +
+ 'LACION,'#10' :PROVINCIA,'#10' :CODIGO_POSTAL,'#10' CURRENT_TIMESTAM' +
+ 'P,'#10' :USUARIO,'#10' :ID_FORMA_PAGO,'#10' :RECARGO_EQUIVALENCIA,'#10 +
+ ' :ID_TIPO_IVA,'#10' :IMPORTE_NETO,'#10' :IMPORTE_PORTE,'#10' :IG' +
+ 'NORAR_CONTABILIDAD,'#10' :ID_TIENDA,'#10' :ID_CONTRATO,'#10' :SIN_C' +
+ 'OMISION,'#10' :SITUACION);'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -1222,16 +1234,6 @@ object srvFacturasCliente: TsrvFacturasCliente
Size = 10
Value = ''
end
- item
- Name = 'FECHA_ALTA'
- DataType = datDateTime
- Value = ''
- end
- item
- Name = 'FECHA_MODIFICACION'
- DataType = datDateTime
- Value = ''
- end
item
Name = 'USUARIO'
DataType = datString
@@ -1308,14 +1310,13 @@ object srvFacturasCliente: TsrvFacturasCliente
'ID_CLIENTE = :ID_CLIENTE,'#10' NIF_CIF = :NIF_CIF,'#10' NOMBRE = :' +
'NOMBRE,'#10' CALLE = :CALLE,'#10' POBLACION = :POBLACION,'#10' PROV' +
'INCIA = :PROVINCIA,'#10' CODIGO_POSTAL = :CODIGO_POSTAL,'#10' FECH' +
- 'A_ALTA = :FECHA_ALTA,'#10' FECHA_MODIFICACION = :FECHA_MODIFICACI' +
- 'ON,'#10' USUARIO = :USUARIO,'#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10 +
- ' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALENCIA,'#10' ID_TIPO_IV' +
- 'A = :ID_TIPO_IVA,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' IMPORTE_' +
- 'PORTE = :IMPORTE_PORTE,'#10' IGNORAR_CONTABILIDAD = :IGNORAR_CONT' +
- 'ABILIDAD,'#10' ID_TIENDA = :ID_TIENDA,'#10' ID_CONTRATO = :ID_CONT' +
- 'RATO,'#10' SIN_COMISION = :SIN_COMISION,'#10' SITUACION = :SITUACI' +
- 'ON'#10' WHERE'#10' (ID = :OLD_ID);'#10
+ 'A_MODIFICACION = CURRENT_TIMESTAMP,'#10' USUARIO = :USUARIO,'#10' ' +
+ 'ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA = :RECA' +
+ 'RGO_EQUIVALENCIA,'#10' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' IMPORTE_NE' +
+ 'TO = :IMPORTE_NETO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' IGNO' +
+ 'RAR_CONTABILIDAD = :IGNORAR_CONTABILIDAD,'#10' ID_TIENDA = :ID_TI' +
+ 'ENDA,'#10' ID_CONTRATO = :ID_CONTRATO,'#10' SIN_COMISION = :SIN_CO' +
+ 'MISION,'#10' SITUACION = :SITUACION'#10' WHERE'#10' (ID = :OLD_ID);'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -1688,6 +1689,11 @@ object srvFacturasCliente: TsrvFacturasCliente
item
Name = 'FacturasCliente_IGNORAR_CONTABILIDAD'
DataType = datSmallInt
+ end
+ item
+ Name = 'FacturasCliente_Detalles_VALORADO'
+ DataType = datSmallInt
+ DisplayLabel = #191'Valorado?'
end>
Left = 150
Top = 22
diff --git a/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm b/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm
index c4b0c70..219881d 100644
--- a/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm
+++ b/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm
@@ -400,6 +400,12 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
DataType = datString
Size = 255
DictionaryEntry = 'FacturasProveedor_Detalles_REFERENCIA_PROVEEDOR'
+ end
+ item
+ Name = 'VALORADO'
+ DataType = datSmallInt
+ DisplayLabel = #191'Valorado?'
+ DictionaryEntry = 'FacturasProveedor_Detalles_VALORADO'
end>
Params = <>
MasterMappingMode = mmWhere
diff --git a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas
index 182a177..88eb725 100644
--- a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas
+++ b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas
@@ -9,11 +9,11 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
- RID_ListaAnosFacturas = '{772E3A80-73F5-425A-8F80-2DA4BA6889CE}';
- RID_FacturasProveedor_Contratos = '{DE5C1077-9860-424E-895B-C6348ACCA4DB}';
- RID_TiposFacturaProveedor = '{67B410B2-667E-4EB4-B78D-CBD675A717BD}';
- RID_FacturasProveedor = '{D4BA7205-7758-40CB-934A-3DD2238AC1B1}';
- RID_FacturasProveedor_Detalles = '{01304CD4-713A-442B-A701-8B37BA847E7C}';
+ RID_ListaAnosFacturas = '{FC5567A2-A1E2-4B04-80E1-78F054593A8A}';
+ RID_FacturasProveedor_Contratos = '{29528EAE-BE56-4F11-9BA7-4D564DFB73A2}';
+ RID_TiposFacturaProveedor = '{EBFAFA25-E1DF-41CC-9478-0D55BDAF4A29}';
+ RID_FacturasProveedor = '{05571997-AE29-4125-AC89-464BD8B0CF1A}';
+ RID_FacturasProveedor_Detalles = '{B58D95A3-885C-4D7C-BE98-F1BA7442318B}';
{ Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas';
@@ -162,6 +162,7 @@ const
fld_FacturasProveedor_DetallesDESCUENTO = 'DESCUENTO';
fld_FacturasProveedor_DetallesIMPORTE_PORTE = 'IMPORTE_PORTE';
fld_FacturasProveedor_DetallesREFERENCIA = 'REFERENCIA';
+ fld_FacturasProveedor_DetallesVALORADO = 'VALORADO';
fld_FacturasProveedor_DetallesREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR';
{ FacturasProveedor_Detalles field indexes }
@@ -178,12 +179,13 @@ const
idx_FacturasProveedor_DetallesDESCUENTO = 10;
idx_FacturasProveedor_DetallesIMPORTE_PORTE = 11;
idx_FacturasProveedor_DetallesREFERENCIA = 12;
- idx_FacturasProveedor_DetallesREFERENCIA_PROVEEDOR = 13;
+ idx_FacturasProveedor_DetallesVALORADO = 13;
+ idx_FacturasProveedor_DetallesREFERENCIA_PROVEEDOR = 14;
type
{ IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
- ['{B368FF8D-1FFD-47E0-AE16-C42B17DDFAA1}']
+ ['{1B98F922-02A4-4E37-A61E-97750DAEEE50}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@@ -218,7 +220,7 @@ type
{ IFacturasProveedor_Contratos }
IFacturasProveedor_Contratos = interface(IDAStronglyTypedDataTable)
- ['{D2ECFD06-1A26-4A80-8334-1DF7DBB1824B}']
+ ['{C52F44CF-0329-48CB-B738-0BB46696BA62}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -325,7 +327,7 @@ type
{ ITiposFacturaProveedor }
ITiposFacturaProveedor = interface(IDAStronglyTypedDataTable)
- ['{C16445EE-8D36-4166-97C6-045FE267548E}']
+ ['{67E81F9E-6FB3-4D91-B33A-0A8664936D2A}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -372,7 +374,7 @@ type
{ IFacturasProveedor }
IFacturasProveedor = interface(IDAStronglyTypedDataTable)
- ['{689FC1AA-5A56-4ABC-AFB2-984B5749E875}']
+ ['{8553E2B5-4113-4209-96F6-131CC708C68F}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -935,7 +937,7 @@ type
{ IFacturasProveedor_Detalles }
IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable)
- ['{6001EDD7-2FD3-46B9-A5D4-7E90AD339EC0}']
+ ['{C2B60CD9-57CA-4576-BC3B-BDCECACA9F4C}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -989,6 +991,10 @@ type
procedure SetREFERENCIAValue(const aValue: String);
function GetREFERENCIAIsNull: Boolean;
procedure SetREFERENCIAIsNull(const aValue: Boolean);
+ function GetVALORADOValue: SmallInt;
+ procedure SetVALORADOValue(const aValue: SmallInt);
+ function GetVALORADOIsNull: Boolean;
+ procedure SetVALORADOIsNull(const aValue: Boolean);
function GetREFERENCIA_PROVEEDORValue: String;
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String);
function GetREFERENCIA_PROVEEDORIsNull: Boolean;
@@ -1022,6 +1028,8 @@ type
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 VALORADO: SmallInt read GetVALORADOValue write SetVALORADOValue;
+ property VALORADOIsNull: Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
end;
@@ -1083,6 +1091,10 @@ type
procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
+ function GetVALORADOValue: SmallInt; virtual;
+ procedure SetVALORADOValue(const aValue: SmallInt); virtual;
+ function GetVALORADOIsNull: Boolean; virtual;
+ procedure SetVALORADOIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_PROVEEDORValue: String; virtual;
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual;
@@ -1115,6 +1127,8 @@ type
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 VALORADO: SmallInt read GetVALORADOValue write SetVALORADOValue;
+ property VALORADOIsNull: Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
@@ -2622,6 +2636,27 @@ begin
DataTable.Fields[idx_FacturasProveedor_DetallesREFERENCIA].AsVariant := Null;
end;
+function TFacturasProveedor_DetallesDataTableRules.GetVALORADOValue: SmallInt;
+begin
+ result := DataTable.Fields[idx_FacturasProveedor_DetallesVALORADO].AsSmallInt;
+end;
+
+procedure TFacturasProveedor_DetallesDataTableRules.SetVALORADOValue(const aValue: SmallInt);
+begin
+ DataTable.Fields[idx_FacturasProveedor_DetallesVALORADO].AsSmallInt := aValue;
+end;
+
+function TFacturasProveedor_DetallesDataTableRules.GetVALORADOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasProveedor_DetallesVALORADO].IsNull;
+end;
+
+procedure TFacturasProveedor_DetallesDataTableRules.SetVALORADOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasProveedor_DetallesVALORADO].AsVariant := Null;
+end;
+
function TFacturasProveedor_DetallesDataTableRules.GetREFERENCIA_PROVEEDORValue: String;
begin
result := DataTable.Fields[idx_FacturasProveedor_DetallesREFERENCIA_PROVEEDOR].AsString;
diff --git a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas
index 06985ac..333c872 100644
--- a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas
+++ b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas
@@ -9,16 +9,16 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
- RID_ListaAnosFacturasDelta = '{5E2C03E7-40F8-4863-B08C-2946B58596A3}';
- RID_FacturasProveedor_ContratosDelta = '{62B5396F-4A08-443D-8B7F-974267E456A5}';
- RID_TiposFacturaProveedorDelta = '{EA8E5C49-5AE7-496F-B4FA-9680EAC18C03}';
- RID_FacturasProveedorDelta = '{64C30025-CE2E-4DDC-8684-E0E7B5552C00}';
- RID_FacturasProveedor_DetallesDelta = '{05C62271-95BD-4275-B16B-3E75CD24CB3F}';
+ RID_ListaAnosFacturasDelta = '{F5649B1E-4A25-441C-A312-E5EB8EB2F301}';
+ RID_FacturasProveedor_ContratosDelta = '{BB34419C-F523-4089-BD9A-6540AD02B8D7}';
+ RID_TiposFacturaProveedorDelta = '{00848D4E-29B2-4289-A7F7-C7B622BC4B2D}';
+ RID_FacturasProveedorDelta = '{BA0CE5CA-E565-449C-92F0-1DF87535AE38}';
+ RID_FacturasProveedor_DetallesDelta = '{C5CE21F0-19EA-4F8A-BEEC-07C801C4420D}';
type
{ IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas)
- ['{5E2C03E7-40F8-4863-B08C-2946B58596A3}']
+ ['{F5649B1E-4A25-441C-A312-E5EB8EB2F301}']
{ Property getters and setters }
function GetOldANOValue : String;
@@ -52,7 +52,7 @@ type
{ IFacturasProveedor_ContratosDelta }
IFacturasProveedor_ContratosDelta = interface(IFacturasProveedor_Contratos)
- ['{62B5396F-4A08-443D-8B7F-974267E456A5}']
+ ['{BB34419C-F523-4089-BD9A-6540AD02B8D7}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
@@ -158,7 +158,7 @@ type
{ ITiposFacturaProveedorDelta }
ITiposFacturaProveedorDelta = interface(ITiposFacturaProveedor)
- ['{EA8E5C49-5AE7-496F-B4FA-9680EAC18C03}']
+ ['{00848D4E-29B2-4289-A7F7-C7B622BC4B2D}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@@ -204,7 +204,7 @@ type
{ IFacturasProveedorDelta }
IFacturasProveedorDelta = interface(IFacturasProveedor)
- ['{64C30025-CE2E-4DDC-8684-E0E7B5552C00}']
+ ['{BA0CE5CA-E565-449C-92F0-1DF87535AE38}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -767,7 +767,7 @@ type
{ IFacturasProveedor_DetallesDelta }
IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles)
- ['{05C62271-95BD-4275-B16B-3E75CD24CB3F}']
+ ['{C5CE21F0-19EA-4F8A-BEEC-07C801C4420D}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
@@ -782,6 +782,7 @@ type
function GetOldDESCUENTOValue : Float;
function GetOldIMPORTE_PORTEValue : Currency;
function GetOldREFERENCIAValue : String;
+ function GetOldVALORADOValue : SmallInt;
function GetOldREFERENCIA_PROVEEDORValue : String;
{ Properties }
@@ -798,6 +799,7 @@ type
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
+ property OldVALORADO : SmallInt read GetOldVALORADOValue;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
end;
@@ -884,6 +886,12 @@ type
function GetOldREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
+ function GetVALORADOValue: SmallInt; virtual;
+ function GetVALORADOIsNull: Boolean; virtual;
+ function GetOldVALORADOValue: SmallInt; virtual;
+ function GetOldVALORADOIsNull: Boolean; virtual;
+ procedure SetVALORADOValue(const aValue: SmallInt); virtual;
+ procedure SetVALORADOIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_PROVEEDORValue: String; virtual;
function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual;
function GetOldREFERENCIA_PROVEEDORValue: String; virtual;
@@ -944,6 +952,10 @@ type
property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
+ property VALORADO : SmallInt read GetVALORADOValue write SetVALORADOValue;
+ property VALORADOIsNull : Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
+ property OldVALORADO : SmallInt read GetOldVALORADOValue;
+ property OldVALORADOIsNull : Boolean read GetOldVALORADOIsNull;
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;
@@ -3135,6 +3147,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesREFERENCIA] := Null;
end;
+function TFacturasProveedor_DetallesBusinessProcessorRules.GetVALORADOValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesVALORADO];
+end;
+
+function TFacturasProveedor_DetallesBusinessProcessorRules.GetVALORADOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesVALORADO]);
+end;
+
+function TFacturasProveedor_DetallesBusinessProcessorRules.GetOldVALORADOValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_DetallesVALORADO];
+end;
+
+function TFacturasProveedor_DetallesBusinessProcessorRules.GetOldVALORADOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedor_DetallesVALORADO]);
+end;
+
+procedure TFacturasProveedor_DetallesBusinessProcessorRules.SetVALORADOValue(const aValue: SmallInt);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesVALORADO] := aValue;
+end;
+
+procedure TFacturasProveedor_DetallesBusinessProcessorRules.SetVALORADOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesVALORADO] := Null;
+end;
+
function TFacturasProveedor_DetallesBusinessProcessorRules.GetREFERENCIA_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedor_DetallesREFERENCIA_PROVEEDOR];
diff --git a/Source/Modulos/Facturas de proveedor/Model/uBizDetallesFacturaProveedor.pas b/Source/Modulos/Facturas de proveedor/Model/uBizDetallesFacturaProveedor.pas
index b189fde..989fda7 100644
--- a/Source/Modulos/Facturas de proveedor/Model/uBizDetallesFacturaProveedor.pas
+++ b/Source/Modulos/Facturas de proveedor/Model/uBizDetallesFacturaProveedor.pas
@@ -52,6 +52,7 @@ procedure TBizDetallesFacturaProveedor.OnNewRecord(Sender: TDADataTable);
begin
inherited;
VISIBLE := 1;
+ VALORADO := 1;
end;
{ TBizContratosFacturaProveedor }
diff --git a/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm b/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm
index 96d427a..ac9a310 100644
--- a/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm
+++ b/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm
@@ -607,13 +607,14 @@ object srvFacturasProveedor: TsrvFacturasProveedor
'TURAS_PROVEEDOR_DETALLES.TIPO_DETALLE,'#10' FACTURAS_PROVEEDOR_DE' +
'TALLES.CONCEPTO, FACTURAS_PROVEEDOR_DETALLES.CANTIDAD,'#10' FACTU' +
'RAS_PROVEEDOR_DETALLES.IMPORTE_UNIDAD, FACTURAS_PROVEEDOR_DETALL' +
- 'ES.IMPORTE_TOTAL,'#10' FACTURAS_PROVEEDOR_DETALLES.VISIBLE,'#10#10' ' +
- 'FACTURAS_PROVEEDOR_DETALLES.ID_ARTICULO, FACTURAS_PROVEEDOR_DETA' +
- 'LLES.DESCUENTO,'#10' FACTURAS_PROVEEDOR_DETALLES.IMPORTE_PORTE,'#10' ' +
- ' ARTICULOS.REFERENCIA, ARTICULOS.REFERENCIA_PROV as REFERENCIA' +
- '_PROVEEDOR'#10'FROM FACTURAS_PROVEEDOR_DETALLES'#10'LEFT JOIN ARTICULOS ' +
- 'ON FACTURAS_PROVEEDOR_DETALLES.ID_ARTICULO = ARTICULOS.ID'#10'WHERE ' +
- '{where}'#10'ORDER BY POSICION;'#10
+ 'ES.IMPORTE_TOTAL,'#10' FACTURAS_PROVEEDOR_DETALLES.VISIBLE,'#10' F' +
+ 'ACTURAS_PROVEEDOR_DETALLES.VALORADO,'#10' FACTURAS_PROVEEDOR_DETA' +
+ 'LLES.ID_ARTICULO, FACTURAS_PROVEEDOR_DETALLES.DESCUENTO,'#10' FAC' +
+ 'TURAS_PROVEEDOR_DETALLES.IMPORTE_PORTE,'#10' ARTICULOS.REFERENCIA' +
+ ', ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR'#10'FROM FACTURA' +
+ 'S_PROVEEDOR_DETALLES'#10'LEFT JOIN ARTICULOS ON FACTURAS_PROVEEDOR_D' +
+ 'ETALLES.ID_ARTICULO = ARTICULOS.ID'#10'WHERE {where}'#10'ORDER BY POSICI' +
+ 'ON;'#10
StatementType = stSQL
ColumnMappings = <
item
@@ -673,6 +674,10 @@ object srvFacturasProveedor: TsrvFacturasProveedor
DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = ''
SQLOrigin = 'REFERENCIA_PROVEEDOR'
+ end
+ item
+ DatasetField = 'VALORADO'
+ TableField = 'VALORADO'
end>
end>
Name = 'FacturasProveedor_Detalles'
@@ -748,6 +753,11 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Size = 255
DictionaryEntry = 'FacturasProveedor_Detalles_REFERENCIA'
end
+ item
+ Name = 'VALORADO'
+ DataType = datSmallInt
+ DictionaryEntry = 'FacturasProveedor_Detalles_VALORADO'
+ end
item
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
@@ -953,16 +963,6 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Size = 10
Value = ''
end
- item
- Name = 'FECHA_ALTA'
- DataType = datDateTime
- Value = ''
- end
- item
- Name = 'FECHA_MODIFICACION'
- DataType = datDateTime
- Value = ''
- end
item
Name = 'USUARIO'
DataType = datString
@@ -1020,19 +1020,18 @@ object srvFacturasProveedor: TsrvFacturasProveedor
'ASE_IMPONIBLE, DESCUENTO,'#10' IMPORTE_DESCUENTO, IVA, IMPORTE_I' +
'VA, IRPF, IMPORTE_IRPF, RE, IMPORTE_RE,'#10' IMPORTE_TOTAL, OBSE' +
'RVACIONES, ID_PROVEEDOR, NIF_CIF, '#10' NOMBRE, CALLE, POBLACION' +
- ', PROVINCIA, CODIGO_POSTAL, '#10' FECHA_ALTA, FECHA_MODIFICACION' +
- ', USUARIO, ID_FORMA_PAGO, '#10' RECARGO_EQUIVALENCIA, ID_TIPO_IV' +
- 'A, IMPORTE_NETO, IMPORTE_PORTE, IGNORAR_CONTABILIDAD,'#10' ID_TI' +
- 'ENDA, ID_TIPO_FACTURA)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFERENC' +
- 'IA, :REFERENCIA_PROVEEDOR,'#10' :FECHA_FACTURA, :FECHA_VENCIMIEN' +
- 'TO, :BASE_IMPONIBLE, :DESCUENTO,'#10' :IMPORTE_DESCUENTO, :IVA, ' +
- ':IMPORTE_IVA, :IRPF, :IMPORTE_IRPF,'#10' :RE, :IMPORTE_RE, :IMPO' +
- 'RTE_TOTAL, :OBSERVACIONES, :ID_PROVEEDOR, :NIF_CIF,'#10' :NOMBRE' +
- ', :CALLE, :POBLACION, :PROVINCIA, :CODIGO_POSTAL, '#10' :FECHA_A' +
- 'LTA, :FECHA_MODIFICACION, :USUARIO, :ID_FORMA_PAGO, '#10' :RECAR' +
- 'GO_EQUIVALENCIA, :ID_TIPO_IVA, :IMPORTE_NETO, '#10' :IMPORTE_POR' +
- 'TE, :IGNORAR_CONTABILIDAD, :ID_TIENDA, :ID_TIPO_FACTURA)'#10' '#10' ' +
- ' '#10#10
+ ', PROVINCIA, CODIGO_POSTAL, '#10' FECHA_ALTA, USUARIO, ID_FORMA_' +
+ 'PAGO,'#10' RECARGO_EQUIVALENCIA, ID_TIPO_IVA, IMPORTE_NETO, IMPO' +
+ 'RTE_PORTE, IGNORAR_CONTABILIDAD,'#10' ID_TIENDA, ID_TIPO_FACTURA' +
+ ')'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFERENCIA, :REFERENCIA_PROVE' +
+ 'EDOR,'#10' :FECHA_FACTURA, :FECHA_VENCIMIENTO, :BASE_IMPONIBLE, ' +
+ ':DESCUENTO,'#10' :IMPORTE_DESCUENTO, :IVA, :IMPORTE_IVA, :IRPF, ' +
+ ':IMPORTE_IRPF,'#10' :RE, :IMPORTE_RE, :IMPORTE_TOTAL, :OBSERVACI' +
+ 'ONES, :ID_PROVEEDOR, :NIF_CIF,'#10' :NOMBRE, :CALLE, :POBLACION,' +
+ ' :PROVINCIA, :CODIGO_POSTAL, '#10' CURRENT_TIMESTAMP, :USUARIO, ' +
+ ':ID_FORMA_PAGO,'#10' :RECARGO_EQUIVALENCIA, :ID_TIPO_IVA, :IMPOR' +
+ 'TE_NETO, '#10' :IMPORTE_PORTE, :IGNORAR_CONTABILIDAD, :ID_TIENDA' +
+ ', :ID_TIPO_FACTURA)'#10' '#10' '#10#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -1187,16 +1186,6 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Size = 10
Value = ''
end
- item
- Name = 'FECHA_ALTA'
- DataType = datDateTime
- Value = ''
- end
- item
- Name = 'FECHA_MODIFICACION'
- DataType = datDateTime
- Value = ''
- end
item
Name = 'USUARIO'
DataType = datString
@@ -1265,13 +1254,13 @@ object srvFacturasProveedor: TsrvFacturasProveedor
' ID_PROVEEDOR = :ID_PROVEEDOR, '#10' NIF_CIF = :NIF_CIF, '#10' NOM' +
'BRE = :NOMBRE, '#10' CALLE = :CALLE, '#10' POBLACION = :POBLACION,' +
' '#10' PROVINCIA = :PROVINCIA, '#10' CODIGO_POSTAL = :CODIGO_POSTA' +
- 'L, '#10' FECHA_ALTA = :FECHA_ALTA, '#10' FECHA_MODIFICACION = :FEC' +
- 'HA_MODIFICACION, '#10' USUARIO = :USUARIO, '#10' ID_FORMA_PAGO = :' +
- 'ID_FORMA_PAGO, '#10' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALENCIA' +
- ', '#10' ID_TIPO_IVA = :ID_TIPO_IVA, '#10' IMPORTE_NETO = :IMPORTE_' +
- 'NETO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' IGNORAR_CONTABILI' +
- 'DAD = :IGNORAR_CONTABILIDAD,'#10' ID_TIENDA = :ID_TIENDA,'#10' ID_' +
- 'TIPO_FACTURA = :ID_TIPO_FACTURA'#10' WHERE'#10' (ID = :OLD_ID)'#10
+ 'L, '#10' FECHA_MODIFICACION = CURRENT_TIMESTAMP,'#10' USUARIO = :U' +
+ 'SUARIO, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO, '#10' RECARGO_EQUIVA' +
+ 'LENCIA = :RECARGO_EQUIVALENCIA, '#10' ID_TIPO_IVA = :ID_TIPO_IVA,' +
+ ' '#10' IMPORTE_NETO = :IMPORTE_NETO, '#10' IMPORTE_PORTE = :IMPORT' +
+ 'E_PORTE,'#10' IGNORAR_CONTABILIDAD = :IGNORAR_CONTABILIDAD,'#10' I' +
+ 'D_TIENDA = :ID_TIENDA,'#10' ID_TIPO_FACTURA = :ID_TIPO_FACTURA'#10' ' +
+ 'WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -1279,6 +1268,11 @@ object srvFacturasProveedor: TsrvFacturasProveedor
end
item
Params = <
+ item
+ Name = 'VALORADO'
+ DataType = datSmallInt
+ Value = ''
+ end
item
Name = 'ID'
DataType = datAutoInc
@@ -1350,11 +1344,11 @@ object srvFacturasProveedor: TsrvFacturasProveedor
SQL =
'INSERT'#10' INTO FACTURAS_PROVEEDOR_DETALLES'#10' (ID, ID_FACTURA, P' +
'OSICION, TIPO_DETALLE, CONCEPTO, CANTIDAD,'#10' IMPORTE_UNIDAD, ' +
- 'IMPORTE_TOTAL, VISIBLE, ID_ARTICULO, '#10' DESCUENTO, IMPORTE_PO' +
- 'RTE)'#10' VALUES'#10' (:ID, :ID_FACTURA, :POSICION, :TIPO_DETALLE, :' +
- 'CONCEPTO, :CANTIDAD,'#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISI' +
- 'BLE, :ID_ARTICULO, '#10' :DESCUENTO, :IMPORTE_PORTE)'#10' '#10' ' +
- #10#10
+ 'IMPORTE_TOTAL, VISIBLE, VALORADO, ID_ARTICULO,'#10' DESCUENTO, I' +
+ 'MPORTE_PORTE)'#10' VALUES'#10' (:ID, :ID_FACTURA, :POSICION, :TIPO_D' +
+ 'ETALLE, :CONCEPTO, :CANTIDAD,'#10' :IMPORTE_UNIDAD, :IMPORTE_TOT' +
+ 'AL, :VISIBLE, :VALORADO, :ID_ARTICULO,'#10' :DESCUENTO, :IMPORTE' +
+ '_PORTE)'#10' '#10' '#10#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -1381,6 +1375,11 @@ object srvFacturasProveedor: TsrvFacturasProveedor
end
item
Params = <
+ item
+ Name = 'VALORADO'
+ DataType = datSmallInt
+ Value = ''
+ end
item
Name = 'ID'
DataType = datInteger
@@ -1457,9 +1456,10 @@ object srvFacturasProveedor: TsrvFacturasProveedor
'ACTURA = :ID_FACTURA, '#10' POSICION = :POSICION, '#10' TIPO_DETAL' +
'LE = :TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' CANTIDAD = :' +
'CANTIDAD, '#10' IMPORTE_UNIDAD = :IMPORTE_UNIDAD, '#10' IMPORTE_TO' +
- 'TAL = :IMPORTE_TOTAL, '#10' VISIBLE = :VISIBLE, '#10' ID_ARTICULO ' +
- '= :ID_ARTICULO, '#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_PORTE ' +
- '= :IMPORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID)'#10
+ 'TAL = :IMPORTE_TOTAL, '#10' VISIBLE = :VISIBLE, '#10' VALORADO = :' +
+ 'VALORADO,'#10' ID_ARTICULO = :ID_ARTICULO, '#10' DESCUENTO = :DESC' +
+ 'UENTO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE'#10' WHERE'#10' (ID = :OL' +
+ 'D_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -1973,6 +1973,11 @@ object srvFacturasProveedor: TsrvFacturasProveedor
DataType = datFloat
DisplayLabel = 'IRPF'
Alignment = taRightJustify
+ end
+ item
+ Name = 'FacturasProveedor_Detalles_VALORADO'
+ DataType = datSmallInt
+ DisplayLabel = #191'Valorado?'
end>
Left = 150
Top = 22
diff --git a/Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.RES b/Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.RES
index 1641339..8b251f3 100644
Binary files a/Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.RES and b/Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.RES differ
diff --git a/Source/Modulos/Gestion de documentos/Data/GestorDocumentos_data.RES b/Source/Modulos/Gestion de documentos/Data/GestorDocumentos_data.RES
index 1641339..8b251f3 100644
Binary files a/Source/Modulos/Gestion de documentos/Data/GestorDocumentos_data.RES and b/Source/Modulos/Gestion de documentos/Data/GestorDocumentos_data.RES differ
diff --git a/Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.RES b/Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.RES
index 1641339..8b251f3 100644
Binary files a/Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.RES and b/Source/Modulos/Gestor de informes/Controller/GestorInformes_controller.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 7fd1e36..46daae9 100644
--- a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas
+++ b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas
@@ -9,9 +9,9 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
- RID_PedidosProveedor = '{E91640D3-98FE-4E09-A47E-DDB8DEF91010}';
- RID_PedidosProveedor_Detalles = '{8E5080FE-7C58-4F98-A7F4-9D7FCF9E21F9}';
- RID_PedidosProveedor_Articulos_Pendientes = '{A37CB497-DB53-43F6-8A3B-8D511DA79A43}';
+ RID_PedidosProveedor = '{890EC46F-966E-43BC-9C88-AA547D4462BC}';
+ RID_PedidosProveedor_Detalles = '{1892BC6B-9347-428F-BA16-C346BD83F7E4}';
+ RID_PedidosProveedor_Articulos_Pendientes = '{395AC8C7-EDE1-4BB8-8993-CA81BAAAB70C}';
{ Data table names }
nme_PedidosProveedor = 'PedidosProveedor';
@@ -106,6 +106,7 @@ const
fld_PedidosProveedor_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD';
fld_PedidosProveedor_DetallesIMPORTE_TOTAL = 'IMPORTE_TOTAL';
fld_PedidosProveedor_DetallesVISIBLE = 'VISIBLE';
+ fld_PedidosProveedor_DetallesVALORADO = 'VALORADO';
fld_PedidosProveedor_DetallesID_ARTICULO = 'ID_ARTICULO';
fld_PedidosProveedor_DetallesDESCUENTO = 'DESCUENTO';
fld_PedidosProveedor_DetallesIMPORTE_PORTE = 'IMPORTE_PORTE';
@@ -122,11 +123,12 @@ const
idx_PedidosProveedor_DetallesIMPORTE_UNIDAD = 6;
idx_PedidosProveedor_DetallesIMPORTE_TOTAL = 7;
idx_PedidosProveedor_DetallesVISIBLE = 8;
- idx_PedidosProveedor_DetallesID_ARTICULO = 9;
- idx_PedidosProveedor_DetallesDESCUENTO = 10;
- idx_PedidosProveedor_DetallesIMPORTE_PORTE = 11;
- idx_PedidosProveedor_DetallesREFERENCIA = 12;
- idx_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR = 13;
+ idx_PedidosProveedor_DetallesVALORADO = 9;
+ idx_PedidosProveedor_DetallesID_ARTICULO = 10;
+ idx_PedidosProveedor_DetallesDESCUENTO = 11;
+ idx_PedidosProveedor_DetallesIMPORTE_PORTE = 12;
+ idx_PedidosProveedor_DetallesREFERENCIA = 13;
+ idx_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR = 14;
{ PedidosProveedor_Articulos_Pendientes fields }
fld_PedidosProveedor_Articulos_PendientesID_PEDIDO = 'ID_PEDIDO';
@@ -147,7 +149,7 @@ const
type
{ IPedidosProveedor }
IPedidosProveedor = interface(IDAStronglyTypedDataTable)
- ['{72630E6B-BABA-47E8-AECF-364D3A9E8F7C}']
+ ['{94AB8272-3485-46C4-8DD1-2ECDA6EA4205}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -614,7 +616,7 @@ type
{ IPedidosProveedor_Detalles }
IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable)
- ['{75167B38-5DCF-48A0-A0DB-D9B20EEB227A}']
+ ['{F2B458AB-B149-4238-92D1-3F307A35126B}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -648,10 +650,14 @@ type
procedure SetIMPORTE_TOTALValue(const aValue: Currency);
function GetIMPORTE_TOTALIsNull: Boolean;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean);
- function GetVISIBLEValue: SmallInt;
- procedure SetVISIBLEValue(const aValue: SmallInt);
+ function GetVISIBLEValue: Integer;
+ procedure SetVISIBLEValue(const aValue: Integer);
function GetVISIBLEIsNull: Boolean;
procedure SetVISIBLEIsNull(const aValue: Boolean);
+ function GetVALORADOValue: SmallInt;
+ procedure SetVALORADOValue(const aValue: SmallInt);
+ function GetVALORADOIsNull: Boolean;
+ procedure SetVALORADOIsNull(const aValue: Boolean);
function GetID_ARTICULOValue: Integer;
procedure SetID_ARTICULOValue(const aValue: Integer);
function GetID_ARTICULOIsNull: Boolean;
@@ -691,8 +697,10 @@ 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: SmallInt read GetVISIBLEValue write SetVISIBLEValue;
+ property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
+ property VALORADO: SmallInt read GetVALORADOValue write SetVALORADOValue;
+ property VALORADOIsNull: Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
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;
@@ -742,10 +750,14 @@ type
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
function GetIMPORTE_TOTALIsNull: Boolean; virtual;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
- function GetVISIBLEValue: SmallInt; virtual;
- procedure SetVISIBLEValue(const aValue: SmallInt); virtual;
+ function GetVISIBLEValue: Integer; virtual;
+ procedure SetVISIBLEValue(const aValue: Integer); virtual;
function GetVISIBLEIsNull: Boolean; virtual;
procedure SetVISIBLEIsNull(const aValue: Boolean); virtual;
+ function GetVALORADOValue: SmallInt; virtual;
+ procedure SetVALORADOValue(const aValue: SmallInt); virtual;
+ function GetVALORADOIsNull: Boolean; virtual;
+ procedure SetVALORADOIsNull(const aValue: Boolean); virtual;
function GetID_ARTICULOValue: Integer; virtual;
procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
function GetID_ARTICULOIsNull: Boolean; virtual;
@@ -784,8 +796,10 @@ 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: SmallInt read GetVISIBLEValue write SetVISIBLEValue;
+ property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
+ property VALORADO: SmallInt read GetVALORADOValue write SetVALORADOValue;
+ property VALORADOIsNull: Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
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;
@@ -805,7 +819,7 @@ type
{ IPedidosProveedor_Articulos_Pendientes }
IPedidosProveedor_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
- ['{9D55B3FD-88B7-44FA-9380-CAE6DAD5B7CA}']
+ ['{956B0790-97C4-4C83-99FF-965FF90D1815}']
{ Property getters and setters }
function GetID_PEDIDOValue: Integer;
procedure SetID_PEDIDOValue(const aValue: Integer);
@@ -1882,14 +1896,14 @@ begin
DataTable.Fields[idx_PedidosProveedor_DetallesIMPORTE_TOTAL].AsVariant := Null;
end;
-function TPedidosProveedor_DetallesDataTableRules.GetVISIBLEValue: SmallInt;
+function TPedidosProveedor_DetallesDataTableRules.GetVISIBLEValue: Integer;
begin
- result := DataTable.Fields[idx_PedidosProveedor_DetallesVISIBLE].AsSmallInt;
+ result := DataTable.Fields[idx_PedidosProveedor_DetallesVISIBLE].AsInteger;
end;
-procedure TPedidosProveedor_DetallesDataTableRules.SetVISIBLEValue(const aValue: SmallInt);
+procedure TPedidosProveedor_DetallesDataTableRules.SetVISIBLEValue(const aValue: Integer);
begin
- DataTable.Fields[idx_PedidosProveedor_DetallesVISIBLE].AsSmallInt := aValue;
+ DataTable.Fields[idx_PedidosProveedor_DetallesVISIBLE].AsInteger := aValue;
end;
function TPedidosProveedor_DetallesDataTableRules.GetVISIBLEIsNull: boolean;
@@ -1903,6 +1917,27 @@ begin
DataTable.Fields[idx_PedidosProveedor_DetallesVISIBLE].AsVariant := Null;
end;
+function TPedidosProveedor_DetallesDataTableRules.GetVALORADOValue: SmallInt;
+begin
+ result := DataTable.Fields[idx_PedidosProveedor_DetallesVALORADO].AsSmallInt;
+end;
+
+procedure TPedidosProveedor_DetallesDataTableRules.SetVALORADOValue(const aValue: SmallInt);
+begin
+ DataTable.Fields[idx_PedidosProveedor_DetallesVALORADO].AsSmallInt := aValue;
+end;
+
+function TPedidosProveedor_DetallesDataTableRules.GetVALORADOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PedidosProveedor_DetallesVALORADO].IsNull;
+end;
+
+procedure TPedidosProveedor_DetallesDataTableRules.SetVALORADOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PedidosProveedor_DetallesVALORADO].AsVariant := Null;
+end;
+
function TPedidosProveedor_DetallesDataTableRules.GetID_ARTICULOValue: Integer;
begin
result := DataTable.Fields[idx_PedidosProveedor_DetallesID_ARTICULO].AsInteger;
diff --git a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas
index c0e05e9..1bbfcfd 100644
--- a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas
+++ b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas
@@ -9,14 +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_PedidosProveedorDelta = '{EA735EC9-0277-4D0F-8843-4A6F66360099}';
- RID_PedidosProveedor_DetallesDelta = '{8799A75C-3602-4CCD-A0C5-5F065E20EC1D}';
- RID_PedidosProveedor_Articulos_PendientesDelta = '{C60973BB-B8E7-483F-A7C6-FF5122FEC81D}';
+ RID_PedidosProveedorDelta = '{5997064D-F0FF-4FB9-AD7E-A668B603BC5B}';
+ RID_PedidosProveedor_DetallesDelta = '{0AD7F862-4E6A-4950-8EDD-0A6AA663420B}';
+ RID_PedidosProveedor_Articulos_PendientesDelta = '{948C7FA3-A6E5-45F6-93C2-731544474830}';
type
{ IPedidosProveedorDelta }
IPedidosProveedorDelta = interface(IPedidosProveedor)
- ['{EA735EC9-0277-4D0F-8843-4A6F66360099}']
+ ['{5997064D-F0FF-4FB9-AD7E-A668B603BC5B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -484,7 +484,7 @@ type
{ IPedidosProveedor_DetallesDelta }
IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles)
- ['{8799A75C-3602-4CCD-A0C5-5F065E20EC1D}']
+ ['{0AD7F862-4E6A-4950-8EDD-0A6AA663420B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PEDIDOValue : Integer;
@@ -494,7 +494,8 @@ type
function GetOldCANTIDADValue : Float;
function GetOldIMPORTE_UNIDADValue : Currency;
function GetOldIMPORTE_TOTALValue : Currency;
- function GetOldVISIBLEValue : SmallInt;
+ function GetOldVISIBLEValue : Integer;
+ function GetOldVALORADOValue : SmallInt;
function GetOldID_ARTICULOValue : Integer;
function GetOldDESCUENTOValue : Float;
function GetOldIMPORTE_PORTEValue : Currency;
@@ -510,7 +511,8 @@ type
property OldCANTIDAD : Float read GetOldCANTIDADValue;
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
- property OldVISIBLE : SmallInt read GetOldVISIBLEValue;
+ property OldVISIBLE : Integer read GetOldVISIBLEValue;
+ property OldVALORADO : SmallInt read GetOldVALORADOValue;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
@@ -571,12 +573,18 @@ type
function GetOldIMPORTE_TOTALIsNull: Boolean; virtual;
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
- function GetVISIBLEValue: SmallInt; virtual;
+ function GetVISIBLEValue: Integer; virtual;
function GetVISIBLEIsNull: Boolean; virtual;
- function GetOldVISIBLEValue: SmallInt; virtual;
+ function GetOldVISIBLEValue: Integer; virtual;
function GetOldVISIBLEIsNull: Boolean; virtual;
- procedure SetVISIBLEValue(const aValue: SmallInt); virtual;
+ procedure SetVISIBLEValue(const aValue: Integer); virtual;
procedure SetVISIBLEIsNull(const aValue: Boolean); virtual;
+ function GetVALORADOValue: SmallInt; virtual;
+ function GetVALORADOIsNull: Boolean; virtual;
+ function GetOldVALORADOValue: SmallInt; virtual;
+ function GetOldVALORADOIsNull: Boolean; virtual;
+ procedure SetVALORADOValue(const aValue: SmallInt); virtual;
+ procedure SetVALORADOIsNull(const aValue: Boolean); virtual;
function GetID_ARTICULOValue: Integer; virtual;
function GetID_ARTICULOIsNull: Boolean; virtual;
function GetOldID_ARTICULOValue: Integer; virtual;
@@ -641,10 +649,14 @@ 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 VISIBLE : SmallInt read GetVISIBLEValue write SetVISIBLEValue;
+ property VISIBLE : Integer read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
- property OldVISIBLE : SmallInt read GetOldVISIBLEValue;
+ property OldVISIBLE : Integer read GetOldVISIBLEValue;
property OldVISIBLEIsNull : Boolean read GetOldVISIBLEIsNull;
+ property VALORADO : SmallInt read GetVALORADOValue write SetVALORADOValue;
+ property VALORADOIsNull : Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
+ property OldVALORADO : SmallInt read GetOldVALORADOValue;
+ property OldVALORADOIsNull : Boolean read GetOldVALORADOIsNull;
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;
@@ -674,7 +686,7 @@ type
{ IPedidosProveedor_Articulos_PendientesDelta }
IPedidosProveedor_Articulos_PendientesDelta = interface(IPedidosProveedor_Articulos_Pendientes)
- ['{C60973BB-B8E7-483F-A7C6-FF5122FEC81D}']
+ ['{948C7FA3-A6E5-45F6-93C2-731544474830}']
{ Property getters and setters }
function GetOldID_PEDIDOValue : Integer;
function GetOldREFERENCIAValue : String;
@@ -2203,7 +2215,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesIMPORTE_TOTAL] := Null;
end;
-function TPedidosProveedor_DetallesBusinessProcessorRules.GetVISIBLEValue: SmallInt;
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetVISIBLEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesVISIBLE];
end;
@@ -2213,7 +2225,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesVISIBLE]);
end;
-function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldVISIBLEValue: SmallInt;
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldVISIBLEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesVISIBLE];
end;
@@ -2223,7 +2235,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesVISIBLE]);
end;
-procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetVISIBLEValue(const aValue: SmallInt);
+procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetVISIBLEValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesVISIBLE] := aValue;
end;
@@ -2234,6 +2246,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesVISIBLE] := Null;
end;
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetVALORADOValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesVALORADO];
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetVALORADOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesVALORADO]);
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldVALORADOValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesVALORADO];
+end;
+
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldVALORADOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesVALORADO]);
+end;
+
+procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetVALORADOValue(const aValue: SmallInt);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesVALORADO] := aValue;
+end;
+
+procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetVALORADOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesVALORADO] := Null;
+end;
+
function TPedidosProveedor_DetallesBusinessProcessorRules.GetID_ARTICULOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesID_ARTICULO];
diff --git a/Source/Modulos/Pedidos a proveedor/Model/uBizDetallesPedidoProveedor.pas b/Source/Modulos/Pedidos a proveedor/Model/uBizDetallesPedidoProveedor.pas
index 36d3441..360fd5f 100644
--- a/Source/Modulos/Pedidos a proveedor/Model/uBizDetallesPedidoProveedor.pas
+++ b/Source/Modulos/Pedidos a proveedor/Model/uBizDetallesPedidoProveedor.pas
@@ -51,6 +51,7 @@ procedure TBizDetallesPedidoProveedor.OnNewRecord(Sender: TDADataTable);
begin
inherited;
VISIBLE := 1;
+ VALORADO := 1;
end;
initialization
diff --git a/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm
index 4a57d40..dc9a47a 100644
--- a/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm
+++ b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm
@@ -383,13 +383,13 @@ object srvPedidosProveedor: TsrvPedidosProveedor
'_PROVEEDOR_DETALLES.TIPO_DETALLE,'#10' PEDIDOS_PROVEEDOR_DETALLES' +
'.CONCEPTO, PEDIDOS_PROVEEDOR_DETALLES.CANTIDAD,'#10' PEDIDOS_PROV' +
'EEDOR_DETALLES.IMPORTE_UNIDAD, PEDIDOS_PROVEEDOR_DETALLES.IMPORT' +
- 'E_TOTAL,'#10' PEDIDOS_PROVEEDOR_DETALLES.VISIBLE,'#10#10' PEDIDOS_PR' +
- 'OVEEDOR_DETALLES.ID_ARTICULO, PEDIDOS_PROVEEDOR_DETALLES.DESCUEN' +
- 'TO,'#10' PEDIDOS_PROVEEDOR_DETALLES.IMPORTE_PORTE,'#10' ARTICULOS.' +
- 'REFERENCIA, ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR'#10#10'F' +
- 'ROM PEDIDOS_PROVEEDOR_DETALLES'#10'LEFT JOIN ARTICULOS ON PEDIDOS_PR' +
- 'OVEEDOR_DETALLES.ID_ARTICULO = ARTICULOS.ID'#10'WHERE {where}'#10'ORDER ' +
- 'BY POSICION;'#10
+ 'E_TOTAL,'#10' PEDIDOS_PROVEEDOR_DETALLES.VISIBLE,'#10' PEDIDOS_PRO' +
+ 'VEEDOR_DETALLES.VALORADO,'#10' PEDIDOS_PROVEEDOR_DETALLES.ID_ARTI' +
+ 'CULO, PEDIDOS_PROVEEDOR_DETALLES.DESCUENTO,'#10' PEDIDOS_PROVEEDO' +
+ 'R_DETALLES.IMPORTE_PORTE,'#10' ARTICULOS.REFERENCIA, ARTICULOS.RE' +
+ 'FERENCIA_PROV as REFERENCIA_PROVEEDOR'#10#10'FROM PEDIDOS_PROVEEDOR_DE' +
+ 'TALLES'#10'LEFT JOIN ARTICULOS ON PEDIDOS_PROVEEDOR_DETALLES.ID_ARTI' +
+ 'CULO = ARTICULOS.ID'#10'WHERE {where}'#10'ORDER BY POSICION;'#10
StatementType = stSQL
ColumnMappings = <
item
@@ -449,6 +449,10 @@ object srvPedidosProveedor: TsrvPedidosProveedor
DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = ''
SQLOrigin = 'REFERENCIA_PROVEEDOR'
+ end
+ item
+ DatasetField = 'VALORADO'
+ TableField = 'VALORADO'
end>
end>
Name = 'PedidosProveedor_Detalles'
@@ -464,6 +468,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor
item
Name = 'ID_PEDIDO'
DataType = datInteger
+ DictionaryEntry = 'PedidosProveedor_Detalles_ID_PEDIDO'
end
item
Name = 'POSICION'
@@ -474,11 +479,13 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Name = 'TIPO_DETALLE'
DataType = datString
Size = 10
+ DictionaryEntry = 'PedidosProveedor_Detalles_TIPO_DETALLE'
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 2000
+ DictionaryEntry = 'PedidosProveedor_Detalles_CONCEPTO'
end
item
Name = 'CANTIDAD'
@@ -488,36 +495,49 @@ object srvPedidosProveedor: TsrvPedidosProveedor
item
Name = 'IMPORTE_UNIDAD'
DataType = datCurrency
+ DictionaryEntry = 'PedidosProveedor_Detalles_IMPORTE_UNIDAD'
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
+ DictionaryEntry = 'PedidosProveedor_Detalles_IMPORTE_TOTAL'
end
item
Name = 'VISIBLE'
+ DataType = datInteger
+ DictionaryEntry = 'PedidosProveedor_Detalles_VISIBLE'
+ end
+ item
+ Name = 'VALORADO'
DataType = datSmallInt
+ DisplayLabel = #191'Valorado?'
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
+ DictionaryEntry = 'PedidosProveedor_Detalles_ID_ARTICULO'
end
item
Name = 'DESCUENTO'
DataType = datFloat
+ DictionaryEntry = 'PedidosProveedor_Detalles_DESCUENTO'
end
item
Name = 'IMPORTE_PORTE'
DataType = datCurrency
+ DictionaryEntry = 'PedidosProveedor_Detalles_IMPORTE_PORTE'
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
+ DictionaryEntry = 'PedidosProveedor_Detalles_REFERENCIA'
end
item
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
+ DictionaryEntry = 'PedidosProveedor_Detalles_REFERENCIA_PROVEEDOR'
end>
end
item
@@ -618,6 +638,11 @@ object srvPedidosProveedor: TsrvPedidosProveedor
end
item
Params = <
+ item
+ Name = 'VALORADO'
+ DataType = datSmallInt
+ Value = ''
+ end
item
Name = 'CANTIDAD'
DataType = datCurrency
@@ -688,10 +713,11 @@ object srvPedidosProveedor: TsrvPedidosProveedor
SQL =
'INSERT'#10' INTO PEDIDOS_PROVEEDOR_DETALLES'#10' (CANTIDAD, POSICION' +
', ID, TIPO_DETALLE, CONCEPTO, IMPORTE_UNIDAD, '#10' IMPORTE_TOTA' +
- 'L, VISIBLE, ID_PEDIDO,'#10' ID_ARTICULO, DESCUENTO, IMPORTE_PORT' +
- 'E)'#10' VALUES'#10' (:CANTIDAD, :POSICION, :ID, :TIPO_DETALLE, :CONC' +
- 'EPTO, '#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE, :ID_PEDID' +
- 'O, '#10' :ID_ARTICULO, :DESCUENTO, :IMPORTE_PORTE)'
+ 'L, VISIBLE, VALORADO, ID_PEDIDO,'#10' ID_ARTICULO, DESCUENTO, IM' +
+ 'PORTE_PORTE)'#10' VALUES'#10' (:CANTIDAD, :POSICION, :ID, :TIPO_DETA' +
+ 'LLE, :CONCEPTO, '#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE,' +
+ ' :VALORADO, :ID_PEDIDO,'#10' :ID_ARTICULO, :DESCUENTO, :IMPORTE_' +
+ 'PORTE)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -717,6 +743,11 @@ object srvPedidosProveedor: TsrvPedidosProveedor
end
item
Params = <
+ item
+ Name = 'VALORADO'
+ DataType = datSmallInt
+ Value = ''
+ end
item
Name = 'CANTIDAD'
DataType = datCurrency
@@ -792,9 +823,10 @@ object srvPedidosProveedor: TsrvPedidosProveedor
'D, '#10' POSICION = :POSICION, '#10' ID = :ID, '#10' TIPO_DETALLE =' +
' :TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' IMPORTE_UNIDAD =' +
' :IMPORTE_UNIDAD, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' VISI' +
- 'BLE = :VISIBLE, '#10' ID_PEDIDO = :ID_PEDIDO, '#10' ID_ARTICULO = ' +
- ':ID_ARTICULO,'#10' DESCUENTO = :DESCUENTO,'#10' IMPORTE_PORTE = :I' +
- 'MPORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID)'
+ 'BLE = :VISIBLE, '#10' VALORADO = :VALORADO,'#10' ID_PEDIDO = :ID_P' +
+ 'EDIDO, '#10' ID_ARTICULO = :ID_ARTICULO,'#10' DESCUENTO = :DESCUEN' +
+ 'TO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID' +
+ ')'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -824,14 +856,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Name = 'ID_EMPRESA'
Value = ''
end
- item
- Name = 'FECHA_ALTA'
- Value = ''
- end
- item
- Name = 'FECHA_MODIFICACION'
- Value = ''
- end
item
Name = 'ID_PROVEEDOR'
Value = ''
@@ -946,13 +970,13 @@ object srvPedidosProveedor: TsrvPedidosProveedor
'_NETO, IMPORTE_PORTE, '#10' DESCUENTO, IMPORTE_DESCUENTO, BASE_I' +
'MPONIBLE, IVA, '#10' IMPORTE_IVA, ID_FORMA_PAGO, ID_TIENDA)'#10' VA' +
'LUES'#10' (:USUARIO, :OBSERVACIONES, :REFERENCIA, :ID,'#10' :ID_E' +
- 'MPRESA, :FECHA_ALTA, :FECHA_MODIFICACION,'#10' :ID_PROVEEDOR, :F' +
- 'ECHA_ENVIO, :FECHA_PEDIDO, :FECHA_CONFIRMACION,'#10' :FECHA_ENTR' +
- 'EGA, :INCIDENCIAS, :IMPORTE_TOTAL, :INCIDENCIAS_ACTIVAS, '#10' :' +
- 'ID_ALMACEN, :CALLE, :POBLACION, :PROVINCIA, :CODIGO_POSTAL, '#10' ' +
- ' :PERSONA_CONTACTO, :TELEFONO, :ID_PEDIDO_CLIENTE, :IMPORTE_NET' +
- 'O, '#10' :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO, :BASE_I' +
- 'MPONIBLE, '#10' :IVA, :IMPORTE_IVA, :ID_FORMA_PAGO, :ID_TIENDA)'#10
+ 'MPRESA, CURRENT_TIMESTAMP,'#10' :ID_PROVEEDOR, :FECHA_ENVIO, :FE' +
+ 'CHA_PEDIDO, :FECHA_CONFIRMACION,'#10' :FECHA_ENTREGA, :INCIDENCI' +
+ 'AS, :IMPORTE_TOTAL, :INCIDENCIAS_ACTIVAS, '#10' :ID_ALMACEN, :CA' +
+ 'LLE, :POBLACION, :PROVINCIA, :CODIGO_POSTAL, '#10' :PERSONA_CONT' +
+ 'ACTO, :TELEFONO, :ID_PEDIDO_CLIENTE, :IMPORTE_NETO, '#10' :IMPOR' +
+ 'TE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO, :BASE_IMPONIBLE, '#10' ' +
+ ' :IVA, :IMPORTE_IVA, :ID_FORMA_PAGO, :ID_TIENDA)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -980,14 +1004,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Name = 'ID_EMPRESA'
Value = ''
end
- item
- Name = 'FECHA_ALTA'
- Value = ''
- end
- item
- Name = 'FECHA_MODIFICACION'
- Value = ''
- end
item
Name = 'ID_PROVEEDOR'
Value = ''
@@ -1099,22 +1115,22 @@ object srvPedidosProveedor: TsrvPedidosProveedor
SQL =
'UPDATE PEDIDOS_PROVEEDOR'#10' SET '#10' ID = :ID,'#10' USUARIO = :USU' +
'ARIO, '#10' OBSERVACIONES = :OBSERVACIONES, '#10' REFERENCIA = :RE' +
- 'FERENCIA,'#10' ID_EMPRESA = :ID_EMPRESA,'#10' FECHA_ALTA = :FECHA_' +
- 'ALTA,'#10' FECHA_MODIFICACION = :FECHA_MODIFICACION, '#10' ID_PROV' +
- 'EEDOR = :ID_PROVEEDOR, '#10' FECHA_ENVIO = :FECHA_ENVIO,'#10' FECH' +
- 'A_PEDIDO = :FECHA_PEDIDO, '#10' FECHA_CONFIRMACION = :FECHA_CONFI' +
- 'RMACION, '#10' FECHA_ENTREGA = :FECHA_ENTREGA, '#10' INCIDENCIAS =' +
- ' :INCIDENCIAS, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' INCIDEN' +
- 'CIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' ID_ALMACEN = :ID_ALMAC' +
- 'EN, '#10' CALLE = :CALLE, '#10' POBLACION = :POBLACION, '#10' PROVI' +
- 'NCIA = :PROVINCIA, '#10' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' PER' +
- 'SONA_CONTACTO = :PERSONA_CONTACTO, '#10' TELEFONO = :TELEFONO, '#10' ' +
- ' ID_PEDIDO_CLIENTE = :ID_PEDIDO_CLIENTE, '#10' IMPORTE_NETO = :' +
- 'IMPORTE_NETO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' DESCUENT' +
- 'O = :DESCUENTO, '#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' ' +
- ' BASE_IMPONIBLE = :BASE_IMPONIBLE, '#10' IVA = :IVA, '#10' IMPORT' +
- 'E_IVA = :IMPORTE_IVA, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' I' +
- 'D_TIENDA = :ID_TIENDA'#10' WHERE'#10' (ID = :OLD_ID)'#10
+ 'FERENCIA,'#10' ID_EMPRESA = :ID_EMPRESA,'#10' FECHA_MODIFICACION =' +
+ ' CURRENT_TIMESTAMP,'#10' ID_PROVEEDOR = :ID_PROVEEDOR, '#10' FECHA' +
+ '_ENVIO = :FECHA_ENVIO,'#10' FECHA_PEDIDO = :FECHA_PEDIDO, '#10' FE' +
+ 'CHA_CONFIRMACION = :FECHA_CONFIRMACION, '#10' FECHA_ENTREGA = :FE' +
+ 'CHA_ENTREGA, '#10' INCIDENCIAS = :INCIDENCIAS, '#10' IMPORTE_TOTAL' +
+ ' = :IMPORTE_TOTAL, '#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIV' +
+ 'AS, '#10' ID_ALMACEN = :ID_ALMACEN, '#10' CALLE = :CALLE, '#10' POB' +
+ 'LACION = :POBLACION, '#10' PROVINCIA = :PROVINCIA, '#10' CODIGO_PO' +
+ 'STAL = :CODIGO_POSTAL, '#10' PERSONA_CONTACTO = :PERSONA_CONTACTO' +
+ ', '#10' TELEFONO = :TELEFONO, '#10' ID_PEDIDO_CLIENTE = :ID_PEDIDO' +
+ '_CLIENTE, '#10' IMPORTE_NETO = :IMPORTE_NETO, '#10' IMPORTE_PORTE ' +
+ '= :IMPORTE_PORTE, '#10' DESCUENTO = :DESCUENTO, '#10' IMPORTE_DESC' +
+ 'UENTO = :IMPORTE_DESCUENTO, '#10' BASE_IMPONIBLE = :BASE_IMPONIBL' +
+ 'E, '#10' IVA = :IVA, '#10' IMPORTE_IVA = :IMPORTE_IVA, '#10' ID_FOR' +
+ 'MA_PAGO = :ID_FORMA_PAGO,'#10' ID_TIENDA = :ID_TIENDA'#10' WHERE'#10' ' +
+ ' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -1480,6 +1496,11 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Name = 'PedidosProveedor_REF_PED_CLIENTE'
DataType = datString
Size = 255
+ end
+ item
+ Name = 'PedidosProveedor_Detalles_VALORADO'
+ DataType = datSmallInt
+ DisplayLabel = 'VALORADO'
end>
Left = 88
Top = 152
diff --git a/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.RES b/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.RES
index 1641339..8b251f3 100644
Binary files a/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.RES and b/Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.RES differ
diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas
index 1f4a6db..84bf720 100644
--- a/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas
+++ b/Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas
@@ -19,7 +19,6 @@ type
procedure AnadirCapitulo (const Tipo: String; const Descripcion: String; const Descuento:Boolean; ADetalles: IDAStronglyTypedDataTable);
function BuscarCapitulo (const Tipo: String): IBizCapitulo;
procedure SetTipoArticulo(ADetalles: IDAStronglyTypedDataTable; ATipo: String);
- procedure SetVisible(ADetalles: IDAStronglyTypedDataTable;const AVisible: Integer;const Orden: Integer); //1Ascendente/0Descendente
end;
TDetallesPresupuestoClienteController = class(TControllerDetallesArticulos, IDetallesPresupuestoClienteController)
@@ -54,7 +53,6 @@ type
procedure ValidarDetalles(ADataTable: IDAStronglyTypedDataTable); override;
procedure SetTipoArticulo(ADetalles: IDAStronglyTypedDataTable; ATipo: String);
- procedure SetVisible(ADetalles: IDAStronglyTypedDataTable;const AVisible: Integer;const Orden: Integer); //1Ascendente/0Descendente
end;
implementation
@@ -260,44 +258,6 @@ begin
end;
end;
-procedure TDetallesPresupuestoClienteController.SetVisible(ADetalles: IDAStronglyTypedDataTable; const AVisible, Orden: Integer);
-var
- ABookmark : TBookmark;
- AuxPosicion: Integer;
- AuxEncontrado: Boolean;
-begin
- AuxPosicion := ADetalles.DataTable.FieldByName(CAMPO_POSICION).AsInteger;
-
- ABookmark := ADetalles.DataTable.GetBookMark;
- try
- ADetalles.DataTable.DisableControls;
-
- repeat
- if (Orden > 0) then
- Inc(AuxPosicion)
- else
- Dec(AuxPosicion);
-
- ADetalles.First;
- AuxEncontrado := ADetalles.Locate(CAMPO_POSICION, AuxPosicion, []);
- if AuxEncontrado then
- begin
- ADetalles.DataTable.Edit;
- ADetalles.DataTable.FieldByName(CAMPO_VISIBLE).AsInteger := AVisible;
- ADetalles.DataTable.Post;
- end;
- until (ADetalles.DataTable.FieldByName(CAMPO_TIPO).AsString = TIPO_DETALLE_SUBTOTAL)
- or (ADetalles.DataTable.FieldByName(CAMPO_TIPO).AsString = TIPO_DETALLE_TITULO)
- or (ADetalles.DataTable.FieldByName(CAMPO_TIPO).AsString = TIPO_DETALLE_TITULO_OPCIONAL)
- or (AuxEncontrado = False)
-
- finally
- ADetalles.DataTable.GotoBookmark(ABookmark);
- ADetalles.DataTable.FreeBookmark(ABookmark);
- ADetalles.DataTable.EnableControls;
- end;
-end;
-
procedure TDetallesPresupuestoClienteController.ValidarCampos(DataTable: TDADataTable);
begin
inherited;
diff --git a/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.RES b/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.RES
index 1641339..8b251f3 100644
Binary files a/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.RES and b/Source/Modulos/Presupuestos de cliente/Data/PresupuestosCliente_data.RES differ
diff --git a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm
index 07f60d9..60e5506 100644
--- a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm
+++ b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm
@@ -323,6 +323,10 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
Name = 'VISIBLE'
DataType = datSmallInt
end
+ item
+ Name = 'VALORADO'
+ DataType = datSmallInt
+ end
item
Name = 'ID_ARTICULO'
DataType = datInteger
@@ -348,6 +352,7 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
item
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
+ Size = 255
end>
Params = <>
MasterMappingMode = mmWhere
@@ -469,6 +474,12 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
DataType = datInteger
DisplayLabel = 'CapitulosPresupuesto_VISIBLE'
DictionaryEntry = 'CapitulosPresupuesto_VISIBLE'
+ end
+ item
+ Name = 'VALORADO'
+ DataType = datInteger
+ DisplayLabel = 'CapitulosPresupuesto_VALORADO'
+ DictionaryEntry = 'CapitulosPresupuesto_VALORADO'
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
diff --git a/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.RES b/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.RES
index 1641339..8b251f3 100644
Binary files a/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.RES and b/Source/Modulos/Presupuestos de cliente/Model/PresupuestosCliente_model.RES differ
diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas
index ec6be63..d7d5627 100644
--- a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas
+++ b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas
@@ -3,18 +3,18 @@ unit schPresupuestosClienteClient_Intf;
interface
uses
- Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
+ Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
- RID_Valores = '{E16B10D1-C266-4C34-B6B3-F1989F42A69D}';
- RID_Propiedades = '{32C1DC73-81A3-4292-9235-BED9E72241DD}';
- RID_ListaAnosPresupuestos = '{34090E28-8CDD-4F94-8CFE-C253CAC9406C}';
- RID_PresupuestosCliente = '{50970F54-A011-4019-9A0B-83FBD7822F82}';
- RID_CapitulosPresupuesto = '{0CAADB7F-FAA0-444A-AA5A-D2596E74F088}';
- RID_PresupuestosCliente_Detalles = '{51062533-EB77-4CF6-ACC4-1FA88E21C0D0}';
+ RID_Valores = '{57C9E146-05FF-4C0B-A29E-9C476B04D60A}';
+ RID_Propiedades = '{4BE10F7B-91E6-403A-820A-8FE3436FFF07}';
+ RID_ListaAnosPresupuestos = '{6C734448-3C27-4A94-B5AF-D35DA8B624E9}';
+ RID_PresupuestosCliente = '{FA8B3E42-3B3B-4A2D-9B62-457CC1471E4D}';
+ RID_CapitulosPresupuesto = '{BF9749E2-1C81-400F-B33F-218045066EB4}';
+ RID_PresupuestosCliente_Detalles = '{044A74E5-A3DB-43C5-AC20-3AFB0270950E}';
{ Data table names }
nme_Valores = 'Valores';
@@ -153,6 +153,7 @@ const
fld_CapitulosPresupuestoIMPORTE_TOTAL = 'IMPORTE_TOTAL';
fld_CapitulosPresupuestoDESCUENTO = 'DESCUENTO';
fld_CapitulosPresupuestoIMPORTE_PORTE = 'IMPORTE_PORTE';
+ fld_CapitulosPresupuestoVALORADO = 'VALORADO';
fld_CapitulosPresupuestoVISIBLE = 'VISIBLE';
{ CapitulosPresupuesto field indexes }
@@ -166,7 +167,8 @@ const
idx_CapitulosPresupuestoIMPORTE_TOTAL = 7;
idx_CapitulosPresupuestoDESCUENTO = 8;
idx_CapitulosPresupuestoIMPORTE_PORTE = 9;
- idx_CapitulosPresupuestoVISIBLE = 10;
+ idx_CapitulosPresupuestoVALORADO = 10;
+ idx_CapitulosPresupuestoVISIBLE = 11;
{ PresupuestosCliente_Detalles fields }
fld_PresupuestosCliente_DetallesID = 'ID';
@@ -178,6 +180,7 @@ const
fld_PresupuestosCliente_DetallesCANTIDAD = 'CANTIDAD';
fld_PresupuestosCliente_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD';
fld_PresupuestosCliente_DetallesIMPORTE_TOTAL = 'IMPORTE_TOTAL';
+ fld_PresupuestosCliente_DetallesVALORADO = 'VALORADO';
fld_PresupuestosCliente_DetallesVISIBLE = 'VISIBLE';
fld_PresupuestosCliente_DetallesID_ARTICULO = 'ID_ARTICULO';
fld_PresupuestosCliente_DetallesTIPO_ARTICULO = 'TIPO_ARTICULO';
@@ -196,18 +199,19 @@ const
idx_PresupuestosCliente_DetallesCANTIDAD = 6;
idx_PresupuestosCliente_DetallesIMPORTE_UNIDAD = 7;
idx_PresupuestosCliente_DetallesIMPORTE_TOTAL = 8;
- idx_PresupuestosCliente_DetallesVISIBLE = 9;
- idx_PresupuestosCliente_DetallesID_ARTICULO = 10;
- idx_PresupuestosCliente_DetallesTIPO_ARTICULO = 11;
- idx_PresupuestosCliente_DetallesDESCUENTO = 12;
- idx_PresupuestosCliente_DetallesIMPORTE_PORTE = 13;
- idx_PresupuestosCliente_DetallesREFERENCIA = 14;
- idx_PresupuestosCliente_DetallesREFERENCIA_PROVEEDOR = 15;
+ idx_PresupuestosCliente_DetallesVALORADO = 9;
+ idx_PresupuestosCliente_DetallesVISIBLE = 10;
+ idx_PresupuestosCliente_DetallesID_ARTICULO = 11;
+ idx_PresupuestosCliente_DetallesTIPO_ARTICULO = 12;
+ idx_PresupuestosCliente_DetallesDESCUENTO = 13;
+ idx_PresupuestosCliente_DetallesIMPORTE_PORTE = 14;
+ idx_PresupuestosCliente_DetallesREFERENCIA = 15;
+ idx_PresupuestosCliente_DetallesREFERENCIA_PROVEEDOR = 16;
type
{ IValores }
IValores = interface(IDAStronglyTypedDataTable)
- ['{D5CB76A1-9B62-4056-9F89-730A4F31838D}']
+ ['{462EADE1-2E42-45FD-8E3D-02E41B35A94A}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -251,7 +255,7 @@ type
end;
{ TValoresDataTableRules }
- TValoresDataTableRules = class(TIntfObjectDADataTableRules, IValores)
+ TValoresDataTableRules = class(TDADataTableRules, IValores)
private
protected
{ Property getters and setters }
@@ -302,7 +306,7 @@ type
{ IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable)
- ['{A512708D-39DE-45D9-A514-EFD79C6FD584}']
+ ['{A2A973F8-1D1D-4C8F-9371-9B72435227EA}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -322,7 +326,7 @@ type
end;
{ TPropiedadesDataTableRules }
- TPropiedadesDataTableRules = class(TIntfObjectDADataTableRules, IPropiedades)
+ TPropiedadesDataTableRules = class(TDADataTableRules, IPropiedades)
private
protected
{ Property getters and setters }
@@ -349,7 +353,7 @@ type
{ IListaAnosPresupuestos }
IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable)
- ['{18B6359D-D371-4068-8A84-3DE897B7E7B8}']
+ ['{A0D991B4-D303-41B0-BA06-C99C6913390D}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@@ -363,7 +367,7 @@ type
end;
{ TListaAnosPresupuestosDataTableRules }
- TListaAnosPresupuestosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosPresupuestos)
+ TListaAnosPresupuestosDataTableRules = class(TDADataTableRules, IListaAnosPresupuestos)
private
protected
{ Property getters and setters }
@@ -384,7 +388,7 @@ type
{ IPresupuestosCliente }
IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
- ['{1F9AD51F-1911-49A2-82BE-37DF2D4B2A11}']
+ ['{722C48BC-8220-4F31-A68C-2FA7552D025C}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -640,7 +644,7 @@ type
end;
{ TPresupuestosClienteDataTableRules }
- TPresupuestosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPresupuestosCliente)
+ TPresupuestosClienteDataTableRules = class(TDADataTableRules, IPresupuestosCliente)
private
f_FORMA_PAGO: IROStrings;
f_PLAZO_ENTREGA: IROStrings;
@@ -911,7 +915,7 @@ type
{ ICapitulosPresupuesto }
ICapitulosPresupuesto = interface(IDAStronglyTypedDataTable)
- ['{0D499AEC-C74B-495F-84F1-3FBADEC47C7E}']
+ ['{409391D9-20DD-496C-8271-7AB8983EA3EF}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -953,6 +957,10 @@ type
procedure SetIMPORTE_PORTEValue(const aValue: Integer);
function GetIMPORTE_PORTEIsNull: Boolean;
procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean);
+ function GetVALORADOValue: Integer;
+ procedure SetVALORADOValue(const aValue: Integer);
+ function GetVALORADOIsNull: Boolean;
+ procedure SetVALORADOIsNull(const aValue: Boolean);
function GetVISIBLEValue: Integer;
procedure SetVISIBLEValue(const aValue: Integer);
function GetVISIBLEIsNull: Boolean;
@@ -980,12 +988,14 @@ type
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property IMPORTE_PORTE: Integer read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
+ property VALORADO: Integer read GetVALORADOValue write SetVALORADOValue;
+ property VALORADOIsNull: Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
end;
{ TCapitulosPresupuestoDataTableRules }
- TCapitulosPresupuestoDataTableRules = class(TIntfObjectDADataTableRules, ICapitulosPresupuesto)
+ TCapitulosPresupuestoDataTableRules = class(TDADataTableRules, ICapitulosPresupuesto)
private
protected
{ Property getters and setters }
@@ -1029,6 +1039,10 @@ type
procedure SetIMPORTE_PORTEValue(const aValue: Integer); virtual;
function GetIMPORTE_PORTEIsNull: Boolean; virtual;
procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
+ function GetVALORADOValue: Integer; virtual;
+ procedure SetVALORADOValue(const aValue: Integer); virtual;
+ function GetVALORADOIsNull: Boolean; virtual;
+ procedure SetVALORADOIsNull(const aValue: Boolean); virtual;
function GetVISIBLEValue: Integer; virtual;
procedure SetVISIBLEValue(const aValue: Integer); virtual;
function GetVISIBLEIsNull: Boolean; virtual;
@@ -1055,6 +1069,8 @@ type
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property IMPORTE_PORTE: Integer read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
+ property VALORADO: Integer read GetVALORADOValue write SetVALORADOValue;
+ property VALORADOIsNull: Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
property VISIBLE: Integer read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
@@ -1066,7 +1082,7 @@ type
{ IPresupuestosCliente_Detalles }
IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
- ['{AF58312B-DFCD-4038-8B41-696C909BD857}']
+ ['{E06194DA-C67C-4012-9645-4D98FBD1A65F}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1104,6 +1120,10 @@ type
procedure SetIMPORTE_TOTALValue(const aValue: Currency);
function GetIMPORTE_TOTALIsNull: Boolean;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean);
+ function GetVALORADOValue: SmallInt;
+ procedure SetVALORADOValue(const aValue: SmallInt);
+ function GetVALORADOIsNull: Boolean;
+ procedure SetVALORADOIsNull(const aValue: Boolean);
function GetVISIBLEValue: SmallInt;
procedure SetVISIBLEValue(const aValue: SmallInt);
function GetVISIBLEIsNull: Boolean;
@@ -1153,6 +1173,8 @@ 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 VALORADO: SmallInt read GetVALORADOValue write SetVALORADOValue;
+ property VALORADOIsNull: Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
property VISIBLE: SmallInt read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
@@ -1170,7 +1192,7 @@ type
end;
{ TPresupuestosCliente_DetallesDataTableRules }
- TPresupuestosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPresupuestosCliente_Detalles)
+ TPresupuestosCliente_DetallesDataTableRules = class(TDADataTableRules, IPresupuestosCliente_Detalles)
private
protected
{ Property getters and setters }
@@ -1210,6 +1232,10 @@ type
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
function GetIMPORTE_TOTALIsNull: Boolean; virtual;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
+ function GetVALORADOValue: SmallInt; virtual;
+ procedure SetVALORADOValue(const aValue: SmallInt); virtual;
+ function GetVALORADOIsNull: Boolean; virtual;
+ procedure SetVALORADOIsNull(const aValue: Boolean); virtual;
function GetVISIBLEValue: SmallInt; virtual;
procedure SetVISIBLEValue(const aValue: SmallInt); virtual;
function GetVISIBLEIsNull: Boolean; virtual;
@@ -1258,6 +1284,8 @@ 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 VALORADO: SmallInt read GetVALORADOValue write SetVALORADOValue;
+ property VALORADOIsNull: Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
property VISIBLE: SmallInt read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
@@ -2645,6 +2673,27 @@ begin
DataTable.Fields[idx_CapitulosPresupuestoIMPORTE_PORTE].AsVariant := Null;
end;
+function TCapitulosPresupuestoDataTableRules.GetVALORADOValue: Integer;
+begin
+ result := DataTable.Fields[idx_CapitulosPresupuestoVALORADO].AsInteger;
+end;
+
+procedure TCapitulosPresupuestoDataTableRules.SetVALORADOValue(const aValue: Integer);
+begin
+ DataTable.Fields[idx_CapitulosPresupuestoVALORADO].AsInteger := aValue;
+end;
+
+function TCapitulosPresupuestoDataTableRules.GetVALORADOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_CapitulosPresupuestoVALORADO].IsNull;
+end;
+
+procedure TCapitulosPresupuestoDataTableRules.SetVALORADOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_CapitulosPresupuestoVALORADO].AsVariant := Null;
+end;
+
function TCapitulosPresupuestoDataTableRules.GetVISIBLEValue: Integer;
begin
result := DataTable.Fields[idx_CapitulosPresupuestoVISIBLE].AsInteger;
@@ -2867,6 +2916,27 @@ begin
DataTable.Fields[idx_PresupuestosCliente_DetallesIMPORTE_TOTAL].AsVariant := Null;
end;
+function TPresupuestosCliente_DetallesDataTableRules.GetVALORADOValue: SmallInt;
+begin
+ result := DataTable.Fields[idx_PresupuestosCliente_DetallesVALORADO].AsSmallInt;
+end;
+
+procedure TPresupuestosCliente_DetallesDataTableRules.SetVALORADOValue(const aValue: SmallInt);
+begin
+ DataTable.Fields[idx_PresupuestosCliente_DetallesVALORADO].AsSmallInt := aValue;
+end;
+
+function TPresupuestosCliente_DetallesDataTableRules.GetVALORADOIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PresupuestosCliente_DetallesVALORADO].IsNull;
+end;
+
+procedure TPresupuestosCliente_DetallesDataTableRules.SetVALORADOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PresupuestosCliente_DetallesVALORADO].AsVariant := Null;
+end;
+
function TPresupuestosCliente_DetallesDataTableRules.GetVISIBLEValue: SmallInt;
begin
result := DataTable.Fields[idx_PresupuestosCliente_DetallesVISIBLE].AsSmallInt;
diff --git a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas
index 972bd7d..3dae25a 100644
--- a/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas
+++ b/Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas
@@ -9,17 +9,17 @@ 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_ValoresDelta = '{C002A600-D743-41AD-AB05-509A3CFA752B}';
- RID_PropiedadesDelta = '{F6E80F06-3BE5-4098-929E-88D75164E91E}';
- RID_ListaAnosPresupuestosDelta = '{B32D0ECD-A7F9-44BC-8F71-68F699493E80}';
- RID_PresupuestosClienteDelta = '{4589E19A-FBF6-40BF-8EDC-CDC6CF01A657}';
- RID_CapitulosPresupuestoDelta = '{CD65BC24-6D66-463B-8A39-2E83D02E7025}';
- RID_PresupuestosCliente_DetallesDelta = '{99470627-E8C7-466D-B7C9-2AB76DD558FC}';
+ RID_ValoresDelta = '{0DFF292A-C0F6-4340-B980-2E384A813763}';
+ RID_PropiedadesDelta = '{348BD315-BA9C-45E0-A524-85591A47838A}';
+ RID_ListaAnosPresupuestosDelta = '{CCFE0D8C-377A-4D72-96E7-475EDA12309D}';
+ RID_PresupuestosClienteDelta = '{E6D86574-0DF3-402A-832E-F3706341F88B}';
+ RID_CapitulosPresupuestoDelta = '{06A01999-D2F4-4C61-8036-3EB77B4BF57B}';
+ RID_PresupuestosCliente_DetallesDelta = '{2820C6A3-C1CB-47CF-94FD-2580C9CE734E}';
type
{ IValoresDelta }
IValoresDelta = interface(IValores)
- ['{C002A600-D743-41AD-AB05-509A3CFA752B}']
+ ['{0DFF292A-C0F6-4340-B980-2E384A813763}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -113,7 +113,7 @@ type
{ IPropiedadesDelta }
IPropiedadesDelta = interface(IPropiedades)
- ['{F6E80F06-3BE5-4098-929E-88D75164E91E}']
+ ['{348BD315-BA9C-45E0-A524-85591A47838A}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@@ -159,7 +159,7 @@ type
{ IListaAnosPresupuestosDelta }
IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos)
- ['{B32D0ECD-A7F9-44BC-8F71-68F699493E80}']
+ ['{CCFE0D8C-377A-4D72-96E7-475EDA12309D}']
{ Property getters and setters }
function GetOldANOValue : String;
@@ -193,7 +193,7 @@ type
{ IPresupuestosClienteDelta }
IPresupuestosClienteDelta = interface(IPresupuestosCliente)
- ['{4589E19A-FBF6-40BF-8EDC-CDC6CF01A657}']
+ ['{E6D86574-0DF3-402A-832E-F3706341F88B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -723,7 +723,7 @@ type
{ ICapitulosPresupuestoDelta }
ICapitulosPresupuestoDelta = interface(ICapitulosPresupuesto)
- ['{CD65BC24-6D66-463B-8A39-2E83D02E7025}']
+ ['{06A01999-D2F4-4C61-8036-3EB77B4BF57B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldPOSICIONValue : Integer;
@@ -735,6 +735,7 @@ type
function GetOldIMPORTE_TOTALValue : Integer;
function GetOldDESCUENTOValue : Integer;
function GetOldIMPORTE_PORTEValue : Integer;
+ function GetOldVALORADOValue : Integer;
function GetOldVISIBLEValue : Integer;
{ Properties }
@@ -748,6 +749,7 @@ type
property OldIMPORTE_TOTAL : Integer read GetOldIMPORTE_TOTALValue;
property OldDESCUENTO : Integer read GetOldDESCUENTOValue;
property OldIMPORTE_PORTE : Integer read GetOldIMPORTE_PORTEValue;
+ property OldVALORADO : Integer read GetOldVALORADOValue;
property OldVISIBLE : Integer read GetOldVISIBLEValue;
end;
@@ -816,6 +818,12 @@ type
function GetOldIMPORTE_PORTEIsNull: Boolean; virtual;
procedure SetIMPORTE_PORTEValue(const aValue: Integer); virtual;
procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
+ function GetVALORADOValue: Integer; virtual;
+ function GetVALORADOIsNull: Boolean; virtual;
+ function GetOldVALORADOValue: Integer; virtual;
+ function GetOldVALORADOIsNull: Boolean; virtual;
+ procedure SetVALORADOValue(const aValue: Integer); virtual;
+ procedure SetVALORADOIsNull(const aValue: Boolean); virtual;
function GetVISIBLEValue: Integer; virtual;
function GetVISIBLEIsNull: Boolean; virtual;
function GetOldVISIBLEValue: Integer; virtual;
@@ -864,6 +872,10 @@ type
property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
property OldIMPORTE_PORTE : Integer read GetOldIMPORTE_PORTEValue;
property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull;
+ property VALORADO : Integer read GetVALORADOValue write SetVALORADOValue;
+ property VALORADOIsNull : Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
+ property OldVALORADO : Integer read GetOldVALORADOValue;
+ property OldVALORADOIsNull : Boolean read GetOldVALORADOIsNull;
property VISIBLE : Integer read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
property OldVISIBLE : Integer read GetOldVISIBLEValue;
@@ -877,7 +889,7 @@ type
{ IPresupuestosCliente_DetallesDelta }
IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
- ['{99470627-E8C7-466D-B7C9-2AB76DD558FC}']
+ ['{2820C6A3-C1CB-47CF-94FD-2580C9CE734E}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PRESUPUESTOValue : Integer;
@@ -888,6 +900,7 @@ type
function GetOldCANTIDADValue : Currency;
function GetOldIMPORTE_UNIDADValue : Currency;
function GetOldIMPORTE_TOTALValue : Currency;
+ function GetOldVALORADOValue : SmallInt;
function GetOldVISIBLEValue : SmallInt;
function GetOldID_ARTICULOValue : Integer;
function GetOldTIPO_ARTICULOValue : String;
@@ -906,6 +919,7 @@ type
property OldCANTIDAD : Currency read GetOldCANTIDADValue;
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
+ property OldVALORADO : SmallInt read GetOldVALORADOValue;
property OldVISIBLE : SmallInt read GetOldVISIBLEValue;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
property OldTIPO_ARTICULO : String read GetOldTIPO_ARTICULOValue;
@@ -974,6 +988,12 @@ type
function GetOldIMPORTE_TOTALIsNull: Boolean; virtual;
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
+ function GetVALORADOValue: SmallInt; virtual;
+ function GetVALORADOIsNull: Boolean; virtual;
+ function GetOldVALORADOValue: SmallInt; virtual;
+ function GetOldVALORADOIsNull: Boolean; virtual;
+ procedure SetVALORADOValue(const aValue: SmallInt); virtual;
+ procedure SetVALORADOIsNull(const aValue: Boolean); virtual;
function GetVISIBLEValue: SmallInt; virtual;
function GetVISIBLEIsNull: Boolean; virtual;
function GetOldVISIBLEValue: SmallInt; virtual;
@@ -1054,6 +1074,10 @@ 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 VALORADO : SmallInt read GetVALORADOValue write SetVALORADOValue;
+ property VALORADOIsNull : Boolean read GetVALORADOIsNull write SetVALORADOIsNull;
+ property OldVALORADO : SmallInt read GetOldVALORADOValue;
+ property OldVALORADOIsNull : Boolean read GetOldVALORADOIsNull;
property VISIBLE : SmallInt read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull : Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
property OldVISIBLE : SmallInt read GetOldVISIBLEValue;
@@ -3070,6 +3094,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoIMPORTE_PORTE] := Null;
end;
+function TCapitulosPresupuestoBusinessProcessorRules.GetVALORADOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoVALORADO];
+end;
+
+function TCapitulosPresupuestoBusinessProcessorRules.GetVALORADOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoVALORADO]);
+end;
+
+function TCapitulosPresupuestoBusinessProcessorRules.GetOldVALORADOValue: Integer;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoVALORADO];
+end;
+
+function TCapitulosPresupuestoBusinessProcessorRules.GetOldVALORADOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CapitulosPresupuestoVALORADO]);
+end;
+
+procedure TCapitulosPresupuestoBusinessProcessorRules.SetVALORADOValue(const aValue: Integer);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoVALORADO] := aValue;
+end;
+
+procedure TCapitulosPresupuestoBusinessProcessorRules.SetVALORADOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoVALORADO] := Null;
+end;
+
function TCapitulosPresupuestoBusinessProcessorRules.GetVISIBLEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_CapitulosPresupuestoVISIBLE];
@@ -3392,6 +3447,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesIMPORTE_TOTAL] := Null;
end;
+function TPresupuestosCliente_DetallesBusinessProcessorRules.GetVALORADOValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesVALORADO];
+end;
+
+function TPresupuestosCliente_DetallesBusinessProcessorRules.GetVALORADOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesVALORADO]);
+end;
+
+function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldVALORADOValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesVALORADO];
+end;
+
+function TPresupuestosCliente_DetallesBusinessProcessorRules.GetOldVALORADOIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosCliente_DetallesVALORADO]);
+end;
+
+procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetVALORADOValue(const aValue: SmallInt);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesVALORADO] := aValue;
+end;
+
+procedure TPresupuestosCliente_DetallesBusinessProcessorRules.SetVALORADOIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesVALORADO] := Null;
+end;
+
function TPresupuestosCliente_DetallesBusinessProcessorRules.GetVISIBLEValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosCliente_DetallesVISIBLE];
diff --git a/Source/Modulos/Presupuestos de cliente/Model/uBizDetallesPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Model/uBizDetallesPresupuestoCliente.pas
index a673775..4f2ae4e 100644
--- a/Source/Modulos/Presupuestos de cliente/Model/uBizDetallesPresupuestoCliente.pas
+++ b/Source/Modulos/Presupuestos de cliente/Model/uBizDetallesPresupuestoCliente.pas
@@ -98,11 +98,12 @@ begin
end;
procedure TBizDetallesPresupuestoCliente.OnNewRecord(Sender: TDADataTable);
-var
- AMasterTable : TDADataTable;
+//var
+// AMasterTable : TDADataTable;
begin
inherited;
+ VALORADO := 1;
VISIBLE := 1;
{AMasterTable := DataTable.GetMasterDataTable;
diff --git a/Source/Modulos/Presupuestos de cliente/Plugin/PresupuestosCliente_plugin.RES b/Source/Modulos/Presupuestos de cliente/Plugin/PresupuestosCliente_plugin.RES
index 1641339..8b251f3 100644
Binary files a/Source/Modulos/Presupuestos de cliente/Plugin/PresupuestosCliente_plugin.RES and b/Source/Modulos/Presupuestos de cliente/Plugin/PresupuestosCliente_plugin.RES differ
diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm
index 2b4d81b..72b3f58 100644
--- a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm
+++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm
@@ -524,7 +524,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
item
Name = 'ID_PRE_CON'
DataType = datInteger
- Value = ''
+ Value = '7023'
end>
Statements = <
item
@@ -595,6 +595,10 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
item
DatasetField = 'VISIBLE'
TableField = 'VISIBLE'
+ end
+ item
+ DatasetField = 'VALORADO'
+ TableField = 'VALORADO'
end>
end>
Name = 'Informe_Capitulos_Detalles'
@@ -660,6 +664,10 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
end
+ item
+ Name = 'VALORADO'
+ DataType = datSmallInt
+ end
item
Name = 'VISIBLE'
DataType = datSmallInt
@@ -1403,6 +1411,10 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
item
Name = 'IMPORTE_DESCUENTO'
DataType = datCurrency
+ end
+ item
+ Name = 'VALORADO'
+ DataType = datSmallInt
end>
Params = <
item
@@ -1624,6 +1636,10 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
item
Name = 'VISIBLE'
DataType = datSmallInt
+ end
+ item
+ Name = 'VALORADO'
+ DataType = datSmallInt
end>
Params = <
item
diff --git a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm
index 3918d79..a95d222 100644
--- a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm
+++ b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm
@@ -546,9 +546,9 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
SQL =
'SELECT'#10' ID, POSICION, TIPO_DETALLE, TIPO_ARTICULO, CONCEPTO,'#10 +
' 1 as CANTIDAD, 0 as IMPORTE_UNIDAD, 0 as IMPORTE_TOTAL, 0 as' +
- ' DESCUENTO,'#10' 0 as IMPORTE_PORTE,'#10' 1 as VISIBLE'#10' FROM'#10' ' +
- 'PRESUPUESTOS_CLIENTE_CAPITULOS'#10' WHERE {Where}'#10' order by posici' +
- 'on'#10
+ ' DESCUENTO,'#10' 0 as IMPORTE_PORTE,'#10' 1 as VISIBLE,'#10' 1 as V' +
+ 'ALORADO'#10' FROM'#10' PRESUPUESTOS_CLIENTE_CAPITULOS'#10' WHERE {Where' +
+ '}'#10' order by posicion'#10
StatementType = stSQL
ColumnMappings = <
item
@@ -600,6 +600,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
DatasetField = 'VISIBLE'
TableField = ''
SQLOrigin = 'VISIBLE'
+ end
+ item
+ DatasetField = 'VALORADO'
+ TableField = ''
+ SQLOrigin = 'VALORADO'
end>
end>
Name = 'CapitulosPresupuesto'
@@ -659,6 +664,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
DataType = datInteger
DictionaryEntry = 'CapitulosPresupuesto_IMPORTE_PORTE'
end
+ item
+ Name = 'VALORADO'
+ DataType = datInteger
+ DictionaryEntry = 'CapitulosPresupuesto_VALORADO'
+ end
item
Name = 'VISIBLE'
DataType = datInteger
@@ -679,15 +689,16 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
'TOS_CLIENTE_DETALLES.PROPIEDAD, PRESUPUESTOS_CLIENTE_DETALLES.CO' +
'NCEPTO, PRESUPUESTOS_CLIENTE_DETALLES.CANTIDAD,'#10' PRESUPUESTOS' +
'_CLIENTE_DETALLES.IMPORTE_UNIDAD, PRESUPUESTOS_CLIENTE_DETALLES.' +
- 'IMPORTE_TOTAL,'#10' PRESUPUESTOS_CLIENTE_DETALLES.VISIBLE,'#10#10' P' +
- 'RESUPUESTOS_CLIENTE_DETALLES.ID_ARTICULO, PRESUPUESTOS_CLIENTE_D' +
- 'ETALLES.TIPO_ARTICULO,'#10' PRESUPUESTOS_CLIENTE_DETALLES.DESCUEN' +
- 'TO,'#10' PRESUPUESTOS_CLIENTE_DETALLES.IMPORTE_PORTE, ARTICULOS.R' +
- 'EFERENCIA,'#10' '#39#39' as REFERENCIA_PROVEEDOR /*Es necesario para qu' +
- 'e no fallen los detalles porque los detalles son comunes para la' +
- ' rama de cliente y de proveedor*/'#10#10'FROM PRESUPUESTOS_CLIENTE_DET' +
- 'ALLES'#10'LEFT JOIN ARTICULOS ON PRESUPUESTOS_CLIENTE_DETALLES.ID_AR' +
- 'TICULO = ARTICULOS.ID'#10'where {where}'#10'ORDER BY POSICION;'#10#10#10
+ 'IMPORTE_TOTAL,'#10' PRESUPUESTOS_CLIENTE_DETALLES.VISIBLE,'#10' PR' +
+ 'ESUPUESTOS_CLIENTE_DETALLES.VALORADO,'#10' PRESUPUESTOS_CLIENTE_D' +
+ 'ETALLES.ID_ARTICULO, PRESUPUESTOS_CLIENTE_DETALLES.TIPO_ARTICULO' +
+ ','#10' PRESUPUESTOS_CLIENTE_DETALLES.DESCUENTO,'#10' PRESUPUESTOS_' +
+ 'CLIENTE_DETALLES.IMPORTE_PORTE, ARTICULOS.REFERENCIA,'#10' '#39#39' as ' +
+ 'REFERENCIA_PROVEEDOR /*Es necesario para que no fallen los detal' +
+ 'les porque los detalles son comunes para la rama de cliente y de' +
+ ' proveedor*/'#10#10'FROM PRESUPUESTOS_CLIENTE_DETALLES'#10'LEFT JOIN ARTIC' +
+ 'ULOS ON PRESUPUESTOS_CLIENTE_DETALLES.ID_ARTICULO = ARTICULOS.ID' +
+ #10'where {where}'#10'ORDER BY POSICION;'#10#10#10
StatementType = stSQL
ColumnMappings = <
item
@@ -755,6 +766,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
item
DatasetField = 'PROPIEDAD'
TableField = 'PROPIEDAD'
+ end
+ item
+ DatasetField = 'VALORADO'
+ TableField = 'VALORADO'
end>
end>
Name = 'PresupuestosCliente_Detalles'
@@ -800,6 +815,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
end
+ item
+ Name = 'VALORADO'
+ DataType = datSmallInt
+ end
item
Name = 'VISIBLE'
DataType = datSmallInt
@@ -829,6 +848,7 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
item
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
+ Size = 255
end>
end>
JoinDataTables = <>
@@ -1253,7 +1273,6 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Statements = <
item
Connection = 'IBX'
- Default = True
TargetTable = 'PRESUPUESTOS_CLIENTE'
SQL =
'UPDATE PRESUPUESTOS_CLIENTE'#10' SET '#10' ID = :ID,'#10' FECHA_PRESU' +
@@ -1283,6 +1302,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
end
item
Params = <
+ item
+ Name = 'VALORADO'
+ DataType = datSmallInt
+ Value = ''
+ end
item
Name = 'ID'
DataType = datAutoInc
@@ -1366,12 +1390,12 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
SQL =
'INSERT'#10' INTO PRESUPUESTOS_CLIENTE_DETALLES'#10' (ID, ID_PRESUPUE' +
'STO, POSICION, TIPO_DETALLE, PROPIEDAD, CONCEPTO, CANTIDAD,'#10' ' +
- ' IMPORTE_UNIDAD, IMPORTE_TOTAL, VISIBLE, ID_ARTICULO, TIPO_ARTIC' +
- 'ULO,'#10' DESCUENTO, IMPORTE_PORTE, FECHA_ALTA)'#10' VALUES'#10' (:I' +
- 'D, :ID_PRESUPUESTO, :POSICION, :TIPO_DETALLE, :PROPIEDAD, :CONCE' +
- 'PTO,'#10' :CANTIDAD, :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE,'#10 +
- ' :ID_ARTICULO, :TIPO_ARTICULO, :DESCUENTO, :IMPORTE_PORTE, C' +
- 'URRENT_TIMESTAMP)'#10
+ ' IMPORTE_UNIDAD, IMPORTE_TOTAL, VISIBLE, VALORADO, ID_ARTICULO, ' +
+ 'TIPO_ARTICULO,'#10' DESCUENTO, IMPORTE_PORTE, FECHA_ALTA)'#10' VALU' +
+ 'ES'#10' (:ID, :ID_PRESUPUESTO, :POSICION, :TIPO_DETALLE, :PROPIED' +
+ 'AD, :CONCEPTO,'#10' :CANTIDAD, :IMPORTE_UNIDAD, :IMPORTE_TOTAL, ' +
+ ':VISIBLE, :VALORADO,'#10' :ID_ARTICULO, :TIPO_ARTICULO, :DESCUEN' +
+ 'TO, :IMPORTE_PORTE, CURRENT_TIMESTAMP)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -1399,6 +1423,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
end
item
Params = <
+ item
+ Name = 'VALORADO'
+ DataType = datSmallInt
+ Value = ''
+ end
item
Name = 'ID'
DataType = datInteger
@@ -1488,10 +1517,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
'TIPO_DETALLE = :TIPO_DETALLE, '#10' PROPIEDAD = :PROPIEDAD,'#10' C' +
'ONCEPTO = :CONCEPTO, '#10' CANTIDAD = :CANTIDAD, '#10' IMPORTE_UNI' +
'DAD = :IMPORTE_UNIDAD,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' ' +
- 'VISIBLE = :VISIBLE, '#10' ID_ARTICULO = :ID_ARTICULO, '#10' TIPO_A' +
- 'RTICULO = :TIPO_ARTICULO,'#10' DESCUENTO = :DESCUENTO, '#10' IMPOR' +
- 'TE_PORTE = :IMPORTE_PORTE,'#10' FECHA_MODIFICACION = CURRENT_TIME' +
- 'STAMP'#10' WHERE'#10' (ID = :OLD_ID)'#10
+ 'VISIBLE = :VISIBLE, '#10' VALORADO = :VALORADO,'#10' ID_ARTICULO =' +
+ ' :ID_ARTICULO, '#10' TIPO_ARTICULO = :TIPO_ARTICULO,'#10' DESCUENT' +
+ 'O = :DESCUENTO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' FECHA_M' +
+ 'ODIFICACION = CURRENT_TIMESTAMP'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -1975,6 +2004,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
item
Name = 'CapitulosPresupuesto_VISIBLE'
DataType = datInteger
+ end
+ item
+ Name = 'CapitulosPresupuesto_VALORADO'
+ DataType = datInteger
end>
Left = 48
Top = 152
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm
index d7dcf5f..147f147 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm
+++ b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm
@@ -70,46 +70,47 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente
VisibleForCustomization = False
end
inherited cxGridViewVISIBLE: TcxGridDBColumn [5]
- Caption = #191'Valorado?'
Visible = True
- Width = 30
end
- object cxGridViewPROPIEDAD: TcxGridDBColumn [6]
+ inherited cxGridViewVALORADO: TcxGridDBColumn [6]
+ Visible = True
+ end
+ object cxGridViewPROPIEDAD: TcxGridDBColumn [7]
DataBinding.FieldName = 'PROPIEDAD'
PropertiesClassName = 'TcxRichEditProperties'
OnGetPropertiesForEdit = cxGridViewPROPIEDADGetPropertiesForEdit
- BestFitMaxWidth = 150
- Width = 29
+ BestFitMaxWidth = 64
+ Width = 64
IsCaptionAssigned = True
end
- inherited cxGridViewREFERENCIA: TcxGridDBColumn [7]
+ inherited cxGridViewREFERENCIA: TcxGridDBColumn [8]
end
- inherited cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn [8]
+ inherited cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn [9]
DataBinding.FieldName = ''
end
- inherited cxGridViewDESCRIPCION: TcxGridDBColumn [9]
+ inherited cxGridViewDESCRIPCION: TcxGridDBColumn [10]
OnGetPropertiesForEdit = cxGridViewDESCRIPCIONGetPropertiesForEdit
Width = 403
end
- inherited cxGridViewCANTIDAD: TcxGridDBColumn [10]
+ inherited cxGridViewCANTIDAD: TcxGridDBColumn [11]
VisibleForCustomization = False
Width = 41
end
- inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn [11]
+ inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn [12]
VisibleForCustomization = False
Width = 56
end
- inherited cxGridViewDESCUENTO: TcxGridDBColumn [12]
+ inherited cxGridViewDESCUENTO: TcxGridDBColumn [13]
Width = 33
end
- inherited cxGridViewIMPORTENETO: TcxGridDBColumn [13]
+ inherited cxGridViewIMPORTENETO: TcxGridDBColumn [14]
Visible = False
VisibleForCustomization = False
Width = 29
end
- inherited cxGridViewIMPORTEPORTE: TcxGridDBColumn [14]
+ inherited cxGridViewIMPORTEPORTE: TcxGridDBColumn [15]
end
- inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn [15]
+ inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn [16]
VisibleForCustomization = False
Width = 48
end
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas
index 2ba2346..8ffcec2 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas
+++ b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas
@@ -69,7 +69,6 @@ type
procedure actCapituloVariosExecute(Sender: TObject);
procedure actAnadirExecute(Sender: TObject);
procedure actCapituloImportesExecute(Sender: TObject);
- procedure OnVISIBLEPropertiesEditValueChanged(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure cxGridViewPROPIEDADGetPropertiesForEdit(
Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
@@ -240,6 +239,7 @@ end;
procedure TfrViewDetallesPresupuestoCliente.CustomViewDestroy(Sender: TObject);
begin
+ cxGridViewVALORADO.Properties.OnEditValueChanged := Nil;
cxGridViewVISIBLE.Properties.OnEditValueChanged := Nil;
inherited;
end;
@@ -253,8 +253,6 @@ begin
// FPropiedades.DataTable.Active := True;
DAPropiedades.DataTable := FPropiedades.DataTable;
DAValores.DataTable := FPropiedades.Valores.DataTable;
-
- cxGridViewVISIBLE.Properties.OnEditValueChanged := OnVISIBLEPropertiesEditValueChanged;
end;
end;
@@ -300,27 +298,6 @@ begin
AProperties := cxRichEdit1.Properties;
end;
-procedure TfrViewDetallesPresupuestoCliente.OnVISIBLEPropertiesEditValueChanged(Sender: TObject);
-var
- Orden: Integer;
-begin
- inherited;
- Orden := 1;
- if (cxGridView.DataController.GetItemByFieldName(CAMPO_TIPO).EditValue = TIPO_DETALLE_TITULO)
- or (cxGridView.DataController.GetItemByFieldName(CAMPO_TIPO).EditValue = TIPO_DETALLE_TITULO_OPCIONAL)
- or (cxGridView.DataController.GetItemByFieldName(CAMPO_TIPO).EditValue = TIPO_DETALLE_SUBTOTAL) then
- begin
- cxGridView.BeginUpdate;
-
- if (cxGridView.DataController.GetItemByFieldName(CAMPO_TIPO).EditValue = TIPO_DETALLE_SUBTOTAL) then
- Orden := 0;
- (Controller as IDetallesPresupuestoClienteController).SetVisible(Detalles, cxGridView.DataController.GetItemByFieldName(CAMPO_VISIBLE).EditValue, Orden);
-
- cxGridView.EndUpdate;
- end;
- (Controller as IDetallesPresupuestoClienteController).ActualizarTotales(Detalles);
-end;
-
function TfrViewDetallesPresupuestoCliente.EsTipoEditable(AItem: TcxCustomGridTableItem): Boolean;
var
IndiceCol : Integer;
diff --git a/Source/Modulos/Relaciones/Presupuestos de cliente - Contratos de cliente/PreCli_ConCli_relation.RES b/Source/Modulos/Relaciones/Presupuestos de cliente - Contratos de cliente/PreCli_ConCli_relation.RES
index 1641339..8b251f3 100644
Binary files a/Source/Modulos/Relaciones/Presupuestos de cliente - Contratos de cliente/PreCli_ConCli_relation.RES and b/Source/Modulos/Relaciones/Presupuestos de cliente - Contratos de cliente/PreCli_ConCli_relation.RES differ
diff --git a/Source/Servidor/Configuracion/srvConfiguracion_Impl.pas b/Source/Servidor/Configuracion/srvConfiguracion_Impl.pas
index 9d794c8..cbf4ac2 100644
--- a/Source/Servidor/Configuracion/srvConfiguracion_Impl.pas
+++ b/Source/Servidor/Configuracion/srvConfiguracion_Impl.pas
@@ -141,8 +141,8 @@ procedure TsrvConfiguracion.GuardarValor(const CODIGO: AnsiString; const Valor:
var
ACurrentConn : IDAConnection;
ACommand : IDASQLCommand;
- st: TStringStream;
- st2: IROStream;
+// st: TStringStream;
+// st2: IROStream;
begin
//Creamos la variable de configuración con su valor por defecto
@@ -181,9 +181,6 @@ procedure TsrvConfiguracion.guardarValorParaEmpresa(const CODIGO: AnsiString;
var
ACurrentConn : IDAConnection;
ACommand : IDASQLCommand;
- st: TStringStream;
- st2: IROStream;
-
begin
//Creamos la variable de configuración con su valor por defecto
ACurrentConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName);
diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr
index 98dbf9a..49f24e6 100644
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/Source/Servidor/FactuGES_Server.dpr
@@ -113,20 +113,10 @@ uses
srvContratosCliente_Impl in '..\Modulos\Contratos de cliente\Servidor\srvContratosCliente_Impl.pas' {srvContratosCliente: TDataAbstractService},
uBizContratosClienteServer in '..\Modulos\Contratos de cliente\Model\uBizContratosClienteServer.pas',
uRptContratosCliente_Server in '..\Modulos\Contratos de cliente\Reports\uRptContratosCliente_Server.pas' {RptContratosCliente},
- schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
- schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
- schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
- schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
- schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
- schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
- schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
- schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
- schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
- schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
@@ -136,10 +126,20 @@ uses
schSubfamiliasServer_Intf in '..\Modulos\Subfamilias\Model\schSubfamiliasServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
- schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
- schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
+ schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
+ schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
+ schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
+ schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
+ schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_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',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
- schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas';
+ schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
+ schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
+ schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
+ schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
+ schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}
diff --git a/Source/Servidor/FactuGES_Server.res b/Source/Servidor/FactuGES_Server.res
index c3133c3..0dced15 100644
Binary files a/Source/Servidor/FactuGES_Server.res and b/Source/Servidor/FactuGES_Server.res differ