diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm
index df03432d..a04b2e05 100644
--- a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm
+++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm
@@ -147,6 +147,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
inherited pgPaginas: TPageControl
Width = 759
Height = 454
+ ActivePage = pagContenido
TabOrder = 1
OnChanging = pgPaginasChanging
ExplicitWidth = 759
@@ -207,18 +208,12 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
inherited FontSize: TEdit
Left = 544
Top = 0
- Width = 58
+ Width = 74
ExplicitLeft = 544
ExplicitTop = 0
- ExplicitWidth = 58
+ ExplicitWidth = 74
end
- inherited UpDown1: TUpDown
- Left = 602
- Top = 0
- ExplicitLeft = 602
- ExplicitTop = 0
- end
- inherited ToolButton13: TToolButton
+ inherited ToolButton13: TToolButton [7]
Left = 0
Top = 0
Wrap = True
@@ -226,47 +221,53 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
ExplicitTop = 0
ExplicitHeight = 27
end
- inherited ToolButton6: TToolButton [9]
+ inherited UpDown1: TUpDown [8]
Left = 0
Top = 27
ExplicitLeft = 0
ExplicitTop = 27
end
- inherited ToolButton7: TToolButton [10]
- Left = 66
+ inherited ToolButton6: TToolButton [9]
+ Left = 17
Top = 27
- ExplicitLeft = 66
+ ExplicitLeft = 17
+ ExplicitTop = 27
+ end
+ inherited ToolButton7: TToolButton [10]
+ Left = 83
+ Top = 27
+ ExplicitLeft = 83
ExplicitTop = 27
end
inherited ToolButton8: TToolButton [11]
- Left = 133
+ Left = 150
Top = 27
- ExplicitLeft = 133
+ ExplicitLeft = 150
ExplicitTop = 27
end
inherited ToolButton12: TToolButton [12]
- Left = 216
+ Left = 233
Top = 27
- ExplicitLeft = 216
+ ExplicitLeft = 233
ExplicitTop = 27
ExplicitHeight = 22
end
inherited ToolButton9: TToolButton [13]
- Left = 224
+ Left = 241
Top = 27
- ExplicitLeft = 224
+ ExplicitLeft = 241
ExplicitTop = 27
end
inherited ToolButton10: TToolButton [14]
- Left = 369
+ Left = 386
Top = 27
- ExplicitLeft = 369
+ ExplicitLeft = 386
ExplicitTop = 27
end
inherited ToolButton11: TToolButton [15]
- Left = 494
+ Left = 511
Top = 27
- ExplicitLeft = 494
+ ExplicitLeft = 511
ExplicitTop = 27
end
end
@@ -277,16 +278,11 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
ExplicitTop = 77
ExplicitWidth = 751
ExplicitHeight = 349
- inherited cxGridView: TcxGridDBTableView
- inherited cxGridViewIMPORTENETO: TcxGridDBColumn
- Options.Editing = True
- end
- end
end
inherited TBXDock1: TTBXDock
Top = 51
Width = 751
- ExplicitTop = 46
+ ExplicitTop = 51
ExplicitWidth = 751
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 745
diff --git a/Source/Modulos/Albaranes de proveedor/Views/uViewDetallesAlbaranProveedor.dfm b/Source/Modulos/Albaranes de proveedor/Views/uViewDetallesAlbaranProveedor.dfm
index acff774e..88b166eb 100644
--- a/Source/Modulos/Albaranes de proveedor/Views/uViewDetallesAlbaranProveedor.dfm
+++ b/Source/Modulos/Albaranes de proveedor/Views/uViewDetallesAlbaranProveedor.dfm
@@ -89,6 +89,7 @@ inherited frViewDetallesAlbaranProveedor: TfrViewDetallesAlbaranProveedor
end>
Properties.ReadOnly = True
Properties.OnButtonClick = nil
+ Options.Editing = False
end
inherited cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn
Properties.Buttons = <
@@ -99,6 +100,7 @@ inherited frViewDetallesAlbaranProveedor: TfrViewDetallesAlbaranProveedor
end>
Properties.ReadOnly = True
Properties.OnButtonClick = nil
+ Options.Editing = False
end
inherited cxGridViewREFERENCIA_FABRICANTE: TcxGridDBColumn
Properties.Buttons = <
@@ -109,6 +111,7 @@ inherited frViewDetallesAlbaranProveedor: TfrViewDetallesAlbaranProveedor
end>
Properties.ReadOnly = True
Properties.OnButtonClick = nil
+ Options.Editing = False
end
inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn
Visible = False
diff --git a/Source/Modulos/Facturas de proveedor/Controller/uDetallesFacturaProveedorController.pas b/Source/Modulos/Facturas de proveedor/Controller/uDetallesFacturaProveedorController.pas
index 8f5a8d75..79c3477b 100644
--- a/Source/Modulos/Facturas de proveedor/Controller/uDetallesFacturaProveedorController.pas
+++ b/Source/Modulos/Facturas de proveedor/Controller/uDetallesFacturaProveedorController.pas
@@ -46,7 +46,8 @@ implementation
{ TDetallesFacturaProveedorController }
uses uDAInterfaces, Variants, uDataModuleFacturasProveedor, uArticulosFacturaProveedorController,
- uControllerDetallesBase, Dialogs, SysUtils, uDialogUtils, uCalculosUtils, schArticulosClient_Intf;
+ uControllerDetallesBase, Dialogs, SysUtils, uDialogUtils, uCalculosUtils, schArticulosClient_Intf,
+ schFacturasProveedorClient_Intf;
procedure TDetallesFacturaProveedorController.ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor);
var
@@ -150,7 +151,7 @@ begin
AField := AArticulos.DataTable.FindField(fld_ArticulosREFERENCIA_FABR);
if Assigned(AField) then
- ADetalles.DataTable.FieldByName(fld_ArticulosREFERENCIA_FABR).AsVariant := AField.AsVariant;
+ ADetalles.DataTable.FieldByName(fld_FacturasProveedor_DetallesREFERENCIA_FABRICANTE).AsVariant := AField.AsVariant;
end;
procedure TDetallesFacturaProveedorController.ValidarCampos(DataTable: TDADataTable);
diff --git a/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj b/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj
index eceefbab..1a14131b 100644
--- a/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj
+++ b/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj
@@ -11,6 +11,7 @@
+
@@ -191,14 +192,23 @@
+
+
+
+
+
+
+
+
+
-
+
-
+
-
+
\ No newline at end of file
diff --git a/Source/Modulos/Facturas de proveedor/Views/uViewDetallesFacturaProveedor.dfm b/Source/Modulos/Facturas de proveedor/Views/uViewDetallesFacturaProveedor.dfm
index 43d0ddcc..befb7d49 100644
--- a/Source/Modulos/Facturas de proveedor/Views/uViewDetallesFacturaProveedor.dfm
+++ b/Source/Modulos/Facturas de proveedor/Views/uViewDetallesFacturaProveedor.dfm
@@ -85,6 +85,7 @@ inherited frViewDetallesFacturaProveedor: TfrViewDetallesFacturaProveedor
end>
Properties.ReadOnly = True
Properties.OnButtonClick = nil
+ Options.Editing = False
end
inherited cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn
Properties.Buttons = <
@@ -95,6 +96,7 @@ inherited frViewDetallesFacturaProveedor: TfrViewDetallesFacturaProveedor
end>
Properties.ReadOnly = True
Properties.OnButtonClick = nil
+ Options.Editing = False
end
inherited cxGridViewREFERENCIA_FABRICANTE: TcxGridDBColumn
Properties.Buttons = <
@@ -105,6 +107,7 @@ inherited frViewDetallesFacturaProveedor: TfrViewDetallesFacturaProveedor
end>
Properties.ReadOnly = True
Properties.OnButtonClick = nil
+ Options.Editing = False
end
inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn
Visible = False
@@ -112,9 +115,7 @@ inherited frViewDetallesFacturaProveedor: TfrViewDetallesFacturaProveedor
end
inherited cxGridViewIMPORTENETO: TcxGridDBColumn
Caption = 'Importe coste'
- Properties.ReadOnly = False
Visible = True
- Options.Editing = True
end
end
end
diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm
index a2560026..63fd455a 100644
--- a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm
+++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm
@@ -64,6 +64,7 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
inherited pgPaginas: TPageControl
Width = 873
Height = 486
+ ActivePage = pagContenido
TabOrder = 1
OnChanging = pgPaginasChanging
ExplicitWidth = 873
@@ -100,22 +101,10 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
Height = 51
ExplicitWidth = 865
ExplicitHeight = 51
- inherited ToolButton3: TToolButton
+ inherited ToolButton14: TToolButton
Wrap = False
end
- inherited ToolButton4: TToolButton
- Left = 278
- Top = 0
- ExplicitLeft = 278
- ExplicitTop = 0
- end
- inherited ToolButton14: TToolButton [4]
- Left = 334
- Top = 0
- ExplicitLeft = 334
- ExplicitTop = 0
- end
- inherited FontName: TJvFontComboBox [5]
+ inherited FontName: TJvFontComboBox
Left = 399
Top = 0
ExplicitLeft = 399
@@ -129,13 +118,7 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
ExplicitTop = 0
ExplicitWidth = 134
end
- inherited UpDown1: TUpDown
- Left = 678
- Top = 0
- ExplicitLeft = 678
- ExplicitTop = 0
- end
- inherited ToolButton13: TToolButton
+ inherited ToolButton13: TToolButton [7]
Left = 0
Top = 0
Wrap = True
@@ -143,47 +126,54 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
ExplicitTop = 0
ExplicitHeight = 27
end
- inherited ToolButton6: TToolButton [9]
+ inherited UpDown1: TUpDown [8]
Left = 0
Top = 27
ExplicitLeft = 0
ExplicitTop = 27
end
- inherited ToolButton7: TToolButton [10]
- Left = 66
+ inherited ToolButton6: TToolButton
+ Left = 17
Top = 27
- ExplicitLeft = 66
+ ExplicitLeft = 17
ExplicitTop = 27
end
- inherited ToolButton8: TToolButton [11]
- Left = 133
+ inherited ToolButton7: TToolButton
+ Left = 83
Top = 27
- ExplicitLeft = 133
+ ExplicitLeft = 83
ExplicitTop = 27
end
- inherited ToolButton12: TToolButton [12]
- Left = 216
+ inherited ToolButton8: TToolButton
+ Left = 150
Top = 27
- ExplicitLeft = 216
+ ExplicitLeft = 150
+ ExplicitTop = 27
+ end
+ inherited ToolButton12: TToolButton
+ Left = 233
+ Top = 27
+ Wrap = False
+ ExplicitLeft = 233
ExplicitTop = 27
ExplicitHeight = 22
end
- inherited ToolButton9: TToolButton [13]
- Left = 224
+ inherited ToolButton9: TToolButton
+ Left = 241
Top = 27
- ExplicitLeft = 224
+ ExplicitLeft = 241
ExplicitTop = 27
end
- inherited ToolButton10: TToolButton [14]
- Left = 369
+ inherited ToolButton10: TToolButton
+ Left = 386
Top = 27
- ExplicitLeft = 369
+ ExplicitLeft = 386
ExplicitTop = 27
end
- inherited ToolButton11: TToolButton [15]
- Left = 494
+ inherited ToolButton11: TToolButton
+ Left = 511
Top = 27
- ExplicitLeft = 494
+ ExplicitLeft = 511
ExplicitTop = 27
end
end
@@ -195,9 +185,6 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
ExplicitWidth = 865
ExplicitHeight = 381
inherited cxGridView: TcxGridDBTableView
- inherited cxGridViewIMPORTENETO: TcxGridDBColumn
- Options.Editing = True
- end
end
end
inherited TBXDock1: TTBXDock
diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewDetallesPedidoProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Views/uViewDetallesPedidoProveedor.dfm
index ad8b6567..f72d00b1 100644
--- a/Source/Modulos/Pedidos a proveedor/Views/uViewDetallesPedidoProveedor.dfm
+++ b/Source/Modulos/Pedidos a proveedor/Views/uViewDetallesPedidoProveedor.dfm
@@ -89,6 +89,7 @@ inherited frViewDetallesPedidoProveedor: TfrViewDetallesPedidoProveedor
end>
Properties.ReadOnly = True
Properties.OnButtonClick = nil
+ Options.Editing = False
end
inherited cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn
Properties.Buttons = <
@@ -99,6 +100,7 @@ inherited frViewDetallesPedidoProveedor: TfrViewDetallesPedidoProveedor
end>
Properties.ReadOnly = True
Properties.OnButtonClick = nil
+ Options.Editing = False
end
inherited cxGridViewREFERENCIA_FABRICANTE: TcxGridDBColumn
Properties.Buttons = <
@@ -109,6 +111,7 @@ inherited frViewDetallesPedidoProveedor: TfrViewDetallesPedidoProveedor
end>
Properties.ReadOnly = True
Properties.OnButtonClick = nil
+ Options.Editing = False
end
inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn
Visible = False
diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm
index 9181b458..c9de8267 100644
--- a/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm
+++ b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm
@@ -52,11 +52,15 @@ inherited frViewRecibosProveedor: TfrViewRecibosProveedor
object cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn
Caption = 'Compensado'
DataBinding.FieldName = 'ID_RECIBO_COMPENSADO'
+ Visible = False
OnCustomDrawCell = cxGridViewID_RECIBO_COMPENSADOCustomDrawCell
+ VisibleForCustomization = False
end
object cxGridViewREFERENCIA_REC_COMPENSADO: TcxGridDBColumn
Caption = 'Ref. recibo compensado'
DataBinding.FieldName = 'REFERENCIA_REC_COMPENSADO'
+ Visible = False
+ VisibleForCustomization = False
end
object cxGridViewREFERENCIA_FACTURA_PROV: TcxGridDBColumn
Caption = 'Ref. factura prov.'
@@ -161,8 +165,8 @@ inherited frViewRecibosProveedor: TfrViewRecibosProveedor
Width = 531
ExplicitWidth = 531
inherited txtFiltroTodo: TcxTextEdit
- ExplicitWidth = 434
- Width = 434
+ ExplicitWidth = 491
+ Width = 491
end
inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 201
@@ -174,6 +178,10 @@ inherited frViewRecibosProveedor: TfrViewRecibosProveedor
ExplicitWidth = 216
Width = 216
end
+ inherited eLista: TcxComboBox
+ Left = 558
+ ExplicitLeft = 558
+ end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 531
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index d691937b..d4ba2654 100644
Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ
diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc
index b6e99f2a..a16b0cab 100644
--- a/Source/Servidor/FactuGES_Server.rc
+++ b/Source/Servidor/FactuGES_Server.rc
@@ -14,7 +14,7 @@ BEGIN
BEGIN
VALUE "FileVersion", "1.2.0.0\0"
VALUE "ProductVersion", "1.2.0.0\0"
- VALUE "CompileDate", "lunes, 04 de agosto de 2008 11:48\0"
+ VALUE "CompileDate", "lunes, 04 de agosto de 2008 15:56\0"
END
END
BLOCK "VarFileInfo"