diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj
index 5dbb2378..0adbf988 100644
--- a/Source/Cliente/FactuGES.dproj
+++ b/Source/Cliente/FactuGES.dproj
@@ -59,6 +59,10 @@
+
+
+
+
ExpressPrinting System by Developer Express Inc.
PluginSDK for Delphi 10 (Runtime)
Microsoft Office 2000 Sample Automation Server Wrapper Components
diff --git a/Source/GUIBase/uViewDetallesBase.dfm b/Source/GUIBase/uViewDetallesBase.dfm
index b2ccb3df..b3222408 100644
--- a/Source/GUIBase/uViewDetallesBase.dfm
+++ b/Source/GUIBase/uViewDetallesBase.dfm
@@ -64,7 +64,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
DroppedDownWidth = 145
MaxMRUCount = 0
FontName = 'Tahoma'
- ItemIndex = 42
+ ItemIndex = 43
Options = [foTrueTypeOnly, foNoOEMFonts, foScalableOnly, foWysiWyg]
Sorted = True
TabOrder = 2
@@ -309,6 +309,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
Caption = 'Importe unidad'
DataBinding.FieldName = 'IMPORTE_UNIDAD'
PropertiesClassName = 'TcxCurrencyEditProperties'
+ Properties.Alignment.Horz = taRightJustify
BestFitMaxWidth = 120
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify
diff --git a/Source/GUIBase/uViewDetallesBase.pas b/Source/GUIBase/uViewDetallesBase.pas
index c9878933..55209ede 100644
--- a/Source/GUIBase/uViewDetallesBase.pas
+++ b/Source/GUIBase/uViewDetallesBase.pas
@@ -19,7 +19,7 @@ uses
dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,
dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinXmas2008Blue, dxSkinscxPCPainter, cxGridCustomPopupMenu, cxGridPopupMenu,
- Menus, cxDBLookupComboBox, cxDropDownEdit;
+ Menus;
type
IViewDetallesBase = interface(IViewBase)
diff --git a/Source/GUIBase/uViewDetallesDTO.dfm b/Source/GUIBase/uViewDetallesDTO.dfm
index 474c904a..b9d6c56c 100644
--- a/Source/GUIBase/uViewDetallesDTO.dfm
+++ b/Source/GUIBase/uViewDetallesDTO.dfm
@@ -3,22 +3,23 @@ inherited frViewDetallesDTO: TfrViewDetallesDTO
inherited ToolButton1: TToolButton
ExplicitWidth = 109
end
- inherited ToolButton3: TToolButton [1]
+ inherited ToolButton2: TToolButton
Left = 109
ExplicitLeft = 109
- end
- inherited ToolButton4: TToolButton [2]
- Left = 164
- end
- inherited ToolButton14: TToolButton [3]
- Left = 220
- Wrap = False
- end
- inherited ToolButton2: TToolButton [4]
- Left = 285
- ExplicitLeft = 285
ExplicitWidth = 114
end
+ inherited ToolButton3: TToolButton
+ Left = 223
+ ExplicitLeft = 223
+ end
+ inherited ToolButton4: TToolButton
+ Left = 278
+ ExplicitLeft = 278
+ end
+ inherited ToolButton14: TToolButton
+ Left = 334
+ ExplicitLeft = 334
+ end
inherited FontSize: TEdit
Width = 41
ExplicitWidth = 41
@@ -45,10 +46,9 @@ inherited frViewDetallesDTO: TfrViewDetallesDTO
end
end
inherited cxGrid: TcxGrid
+ ExplicitTop = 126
+ ExplicitHeight = 210
inherited cxGridView: TcxGridDBTableView
- inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn
- Properties.ImmediateDropDown = True
- end
object cxGridViewDESCUENTO: TcxGridDBColumn [7]
Caption = 'Dto'
DataBinding.FieldName = 'DESCUENTO'
@@ -87,6 +87,9 @@ inherited frViewDetallesDTO: TfrViewDetallesDTO
end
end
end
+ inherited TBXDock1: TTBXDock
+ ExplicitTop = 100
+ end
inherited ActionListContenido: TActionList
inherited actAnadir: TAction
Caption = 'A'#241'adir concepto'
diff --git a/Source/GUIBase/uViewDetallesDTO.pas b/Source/GUIBase/uViewDetallesDTO.pas
index ab005fcd..89ad570f 100644
--- a/Source/GUIBase/uViewDetallesDTO.pas
+++ b/Source/GUIBase/uViewDetallesDTO.pas
@@ -17,7 +17,7 @@ uses
dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,
dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinXmas2008Blue, dxSkinscxPCPainter, Menus, cxGridCustomPopupMenu,
- cxGridPopupMenu, cxDBLookupComboBox, cxDropDownEdit;
+ cxGridPopupMenu;
type
IViewDetallesDTO = interface(IViewDetallesBase)
diff --git a/Source/Modulos/Articulos/Views/Articulos_view.dpk b/Source/Modulos/Articulos/Views/Articulos_view.dpk
index efc209df..ffd8975f 100644
Binary files a/Source/Modulos/Articulos/Views/Articulos_view.dpk and b/Source/Modulos/Articulos/Views/Articulos_view.dpk differ
diff --git a/Source/Modulos/Articulos/Views/Articulos_view.dproj b/Source/Modulos/Articulos/Views/Articulos_view.dproj
index 22bb0653..021bde20 100644
--- a/Source/Modulos/Articulos/Views/Articulos_view.dproj
+++ b/Source/Modulos/Articulos/Views/Articulos_view.dproj
@@ -55,13 +55,13 @@
MainSource
-
-
-
-
-
-
-
+
+
+
+
+
+
+
diff --git a/Source/Modulos/Articulos/Views/Articulos_view.res b/Source/Modulos/Articulos/Views/Articulos_view.res
index 1641339f..8b251f31 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/Articulos/Views/uViewDetallesArticulos.dfm b/Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm
index a0a694ee..398ffb09 100644
--- a/Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm
+++ b/Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm
@@ -2,44 +2,66 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
ParentBiDiMode = False
OnShow = CustomViewShow
inherited ToolBar1: TToolBar
- Height = 122
- ExplicitHeight = 122
- inherited ToolButton13: TToolButton [3]
- Left = 0
- Top = 0
- Wrap = True
- ExplicitLeft = 0
- ExplicitTop = 0
- ExplicitHeight = 27
+ Height = 100
+ ExplicitHeight = 100
+ inherited ToolButton14: TToolButton
+ Wrap = False
end
- inherited ToolButton4: TToolButton [4]
- Top = 27
- end
- inherited ToolButton7: TToolButton [5]
- Left = 56
- Top = 27
- ExplicitLeft = 56
- ExplicitTop = 27
+ inherited ToolButton9: TToolButton [5]
+ Left = 121
+ Top = 22
+ ExplicitLeft = 121
+ ExplicitTop = 22
end
inherited FontName: TJvFontComboBox [6]
- Left = 123
- Top = 27
- ExplicitLeft = 123
- ExplicitTop = 27
+ Left = 266
+ Top = 22
+ ExplicitLeft = 266
+ ExplicitTop = 22
end
- inherited ToolButton14: TToolButton [7]
- Left = 268
- Top = 27
- ExplicitLeft = 268
- ExplicitTop = 27
+ inherited UpDown1: TUpDown
+ Left = 411
+ Top = 22
+ Width = 17
+ ExplicitLeft = 411
+ ExplicitTop = 22
+ ExplicitWidth = 17
end
- inherited ToolButton9: TToolButton [8]
+ inherited ToolButton13: TToolButton
+ Left = 0
+ Top = 22
+ Wrap = True
+ ExplicitLeft = 0
+ ExplicitTop = 22
+ ExplicitHeight = 27
+ end
+ inherited ToolButton6: TToolButton
Left = 0
Top = 49
ExplicitLeft = 0
ExplicitTop = 49
end
- inherited ToolButton12: TToolButton [9]
+ inherited ToolButton7: TToolButton
+ Left = 66
+ Top = 49
+ ExplicitLeft = 66
+ ExplicitTop = 49
+ end
+ inherited FontSize: TEdit [11]
+ Left = 133
+ Top = 49
+ Width = 42
+ ExplicitLeft = 133
+ ExplicitTop = 49
+ ExplicitWidth = 42
+ end
+ inherited ToolButton11: TToolButton [12]
+ Left = 175
+ Top = 49
+ ExplicitLeft = 175
+ ExplicitTop = 49
+ end
+ inherited ToolButton12: TToolButton [13]
Left = 0
Top = 49
Wrap = True
@@ -47,53 +69,24 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
ExplicitTop = 49
ExplicitHeight = 27
end
- inherited FontSize: TEdit [10]
+ inherited ToolButton10: TToolButton
Left = 0
Top = 76
- Width = 106
ExplicitLeft = 0
ExplicitTop = 76
- ExplicitWidth = 106
end
- inherited UpDown1: TUpDown [11]
- Left = 106
+ inherited ToolButton8: TToolButton [15]
+ Left = 125
Top = 76
- Width = 17
- ExplicitLeft = 106
+ ExplicitLeft = 125
ExplicitTop = 76
- ExplicitWidth = 17
- end
- inherited ToolButton6: TToolButton [12]
- Left = 123
- Top = 76
- ExplicitLeft = 123
- ExplicitTop = 76
- end
- inherited ToolButton10: TToolButton [13]
- Left = 189
- Top = 76
- Wrap = True
- ExplicitLeft = 189
- ExplicitTop = 76
- end
- inherited ToolButton8: TToolButton [14]
- Left = 0
- Top = 98
- ExplicitLeft = 0
- ExplicitTop = 98
- end
- inherited ToolButton11: TToolButton
- Left = 83
- Top = 98
- ExplicitLeft = 83
- ExplicitTop = 98
end
end
inherited cxGrid: TcxGrid
- Top = 148
- Height = 156
- ExplicitTop = 126
- ExplicitHeight = 178
+ Top = 126
+ Height = 178
+ ExplicitTop = 99
+ ExplicitHeight = 205
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewTIPO: TcxGridDBColumn
MinWidth = 69
@@ -101,7 +94,6 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
end
object cxGridViewID_ARTICULO: TcxGridDBColumn [4]
DataBinding.FieldName = 'ID_ARTICULO'
- PropertiesClassName = 'TcxCalcEditProperties'
Visible = False
VisibleForCustomization = False
Width = 31
@@ -184,7 +176,7 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
end
end
inherited TBXDock1: TTBXDock
- Top = 122
+ Top = 100
ExplicitTop = 68
inherited TBXToolbar1: TTBXToolbar
inherited TBXSubmenuItem1: TTBXSubmenuItem
@@ -448,11 +440,15 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
Bitmap = {}
end
object cxEditRepository1: TcxEditRepository
- Left = 128
+ Left = 112
Top = 184
- object cxEditRepository1ComboBoxItem1: TcxEditRepositoryComboBoxItem
+ object cxEditRepositoryComboBox_IMPORTEUNIDAD: TcxEditRepositoryComboBoxItem
+ Properties.ImmediateDropDown = False
+ Properties.ImmediatePost = True
+ Properties.ImmediateUpdateText = True
+ Properties.PostPopupValueOnTab = True
end
- object cxEditRepository1CurrencyItem1: TcxEditRepositoryCurrencyItem
+ object cxEditRepositoryCurrencyItem_IMPORTEUNIDAD: TcxEditRepositoryCurrencyItem
end
end
end
diff --git a/Source/Modulos/Articulos/Views/uViewDetallesArticulos.pas b/Source/Modulos/Articulos/Views/uViewDetallesArticulos.pas
index f59c7d77..b439b0a8 100644
--- a/Source/Modulos/Articulos/Views/uViewDetallesArticulos.pas
+++ b/Source/Modulos/Articulos/Views/uViewDetallesArticulos.pas
@@ -18,7 +18,7 @@ uses
dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,
dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinXmas2008Blue, dxSkinscxPCPainter, Menus, cxGridCustomPopupMenu,
- cxGridPopupMenu, cxDBLookupComboBox, cxCalc, cxEditRepositoryItems;
+ cxGridPopupMenu, cxEditRepositoryItems;
type
IViewDetallesArticulos = interface(IViewDetallesDTO)
@@ -36,8 +36,8 @@ type
TBXItem17: TTBXItem;
cxGridViewREFERENCIA_FABRICANTE: TcxGridDBColumn;
cxEditRepository1: TcxEditRepository;
- cxEditRepository1ComboBoxItem1: TcxEditRepositoryComboBoxItem;
- cxEditRepository1CurrencyItem1: TcxEditRepositoryCurrencyItem;
+ cxEditRepositoryComboBox_IMPORTEUNIDAD: TcxEditRepositoryComboBoxItem;
+ cxEditRepositoryCurrencyItem_IMPORTEUNIDAD: TcxEditRepositoryCurrencyItem;
procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure actAnadirArticulosExecute(Sender: TObject);
@@ -45,19 +45,21 @@ type
procedure OnValidateReferencia(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure OnValidateReferenciaProveedor(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure CustomViewShow(Sender: TObject);
- procedure cxGridViewREFERENCIAPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+ procedure cxGridViewREFERENCIAPropertiesButtonClick(Sender: TObject;
+ AButtonIndex: Integer);
procedure actBuscarArticuloExecute(Sender: TObject);
procedure actBuscarArticuloUpdate(Sender: TObject);
procedure actDetalleCopiarExecute(Sender: TObject);
procedure actDetallePegarExecute(Sender: TObject);
procedure actDetalleCortarExecute(Sender: TObject);
- procedure cxGridViewREFERENCIA_PROVEEDORPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
- procedure cxGridViewREFERENCIA_FABRICANTEPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
- procedure OnGetPropertiesForEditIMPORTE_UNIDAD(Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
- var AProperties: TcxCustomEditProperties);
+ procedure cxGridViewREFERENCIA_PROVEEDORPropertiesButtonClick(
+ Sender: TObject; AButtonIndex: Integer);
+ procedure cxGridViewREFERENCIA_FABRICANTEPropertiesButtonClick(
+ Sender: TObject; AButtonIndex: Integer);
procedure cxGridViewIMPORTEUNIDADGetProperties(
Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
var AProperties: TcxCustomEditProperties);
+ procedure cxGridViewIMPORTEUNIDAD_OnInitPopup(Sender: TObject);
private
procedure RecuperarListaUnidadesMedida;
protected
@@ -96,7 +98,6 @@ end;
procedure TfrViewDetallesArticulos.CustomViewCreate(Sender: TObject);
begin
inherited;
- cxGridViewIMPORTEUNIDAD.OnGetPropertiesForEdit := OnGetPropertiesForEditIMPORTE_UNIDAD;
cxGridViewREFERENCIA.Properties.OnValidate := OnValidateReferencia;
cxGridViewREFERENCIA_PROVEEDOR.Properties.OnValidate := OnValidateReferenciaProveedor;
end;
@@ -104,7 +105,6 @@ end;
procedure TfrViewDetallesArticulos.CustomViewDestroy(Sender: TObject);
begin
inherited;
- cxGridViewIMPORTEUNIDAD.OnGetPropertiesForEdit := Nil;
cxGridViewREFERENCIA.Properties.OnValidate := Nil;
cxGridViewREFERENCIA_PROVEEDOR.Properties.OnValidate := Nil;
end;
@@ -151,14 +151,34 @@ begin
SeleccionarFilaActual;
end;
-procedure TfrViewDetallesArticulos.OnGetPropertiesForEditIMPORTE_UNIDAD(Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
- var AProperties: TcxCustomEditProperties);
+procedure TfrViewDetallesArticulos.cxGridViewIMPORTEUNIDAD_OnInitPopup(
+ Sender: TObject);
var
- IndiceCol: Integer;
- IdArticulo: Variant;
-
+ AIndiceCol : Integer;
+ AIDArticulo : Variant;
begin
inherited;
+
+ AIndiceCol := cxGridView.DataController.GetItemByFieldName('REFERENCIA').Index;
+ AIDArticulo := cxGridView.DataController.Values[cxGridView.DataController.FocusedRecordIndex, AIndiceCol];
+
+ with cxEditRepositoryComboBox_IMPORTEUNIDAD.Properties do
+ begin
+
+ BeginUpdate;
+ Items.BeginUpdate;
+ try
+ Items.Clear;
+ Items.Add('1');
+ Items.Add('2');
+ Items.Add('3');
+ Items.Add(VarToStr(AIDArticulo));
+ finally
+ Items.EndUpdate;
+ EndUpdate;
+ end;
+ end;
+
{
DADataSource.DataTable.DisableControls;
try
@@ -182,6 +202,7 @@ begin
HideHourglassCursor;
end;
end
+
end
else
AProperties := cxEditRepository1CurrencyItem1.properties;
@@ -189,52 +210,41 @@ begin
finally
DADataSource.DataTable.EnableControls;
- end;
-}
+ end;}
end;
procedure TfrViewDetallesArticulos.cxGridViewIMPORTEUNIDADGetProperties(
Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
var AProperties: TcxCustomEditProperties);
var
- IndiceCol: Integer;
- IdArticulo: Variant;
-
+ Aux_IDArticulo: Variant;
begin
- inherited;
-{
- DADataSource.DataTable.DisableControls;
- try
- IndiceCol := cxGridView.DataController.GetItemByFieldName('ID_ARTICULO').Index;
- IdArticulo := cxGridView.DataController.Values[Sender.DataBinding.DataController.FocusedRecordIndex, IndiceCol];
+ Aux_IDArticulo := Null;
+ cxEditRepositoryComboBox_IMPORTEUNIDAD.Properties.Items.Clear;
- if not VarIsNull(IdArticulo)
- and (IdArticulo > 0) then
+ if (_FocusedView.DataController.RecordCount > 0) then
+ begin
+ Aux_IDArticulo := ARecord.Values[cxGridViewID_ARTICULO.Index];
+ if not VarIsNull(Aux_IDArticulo) and (Aux_IDArticulo > 0) then
begin
- //Lo tratamos como combox
- AProperties := cxEditRepository1ComboBoxItem1.Properties;
-{ with TcxComboBoxProperties(cxGridViewIMPORTEUNIDAD.Properties).Items do
- begin
+ with cxEditRepositoryComboBox_IMPORTEUNIDAD.Properties do
+ begin
ShowHourglassCursor;
- BeginUpdate;
+ Items.BeginUpdate;
try
- Clear;
- AddStrings((Controller as IControllerDetallesArticulos).DarPrecioPVPVenta(IdArticulo));
+ Items.Clear;
+ Items.AddStrings((Controller as IControllerDetallesArticulos).DarPrecioPVPVenta(Aux_IDArticulo));
finally
- EndUpdate;
+ Items.EndUpdate;
HideHourglassCursor;
end;
- end
-}
-{ end
- else
- AProperties := cxEditRepository1CurrencyItem1.properties;
-// cxGridViewIMPORTEUNIDAD.PropertiesClassName := 'TcxCurrencyEditProperties';
-
- finally
- DADataSource.DataTable.EnableControls;
+ end;
+ AProperties := cxEditRepositoryComboBox_IMPORTEUNIDAD.Properties;
+ end
+ else begin
+ AProperties := cxEditRepositoryCurrencyItem_IMPORTEUNIDAD.Properties;
+ end;
end;
-}
end;
procedure TfrViewDetallesArticulos.cxGridViewREFERENCIAPropertiesButtonClick(
diff --git a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj
index e96278e2..141ae6f6 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj
+++ b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj
@@ -49,13 +49,13 @@
MainSource
-
-
-
-
-
-
-
+
+
+
+
+
+
+
TfEditorElegirArticulosPedidoCliente
@@ -82,7 +82,7 @@
TFrame
-
+
TFrame
@@ -107,7 +107,7 @@ Activate Handle=1
Save Log File=1
Foreground Tab=0
Freeze Activate=0
-Freeze Timeout=0
+Freeze Timeout=1
SMTP From=eurekalog@email.com
SMTP Host=
SMTP Port=25
@@ -580,5 +580,5 @@ Count mtException_AntiFreeze=1
mtException_AntiFreeze0="The application seems to be frozen."
Count mtInvalidEmailMsg=1
mtInvalidEmailMsg0="Invalid email."
-TextsCollection=English
+TextsCollection=
EurekaLog Last Line -->
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index 3c108e6c..d14b5dea 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 2de34797..c15b6a0b 100644
--- a/Source/Servidor/FactuGES_Server.rc
+++ b/Source/Servidor/FactuGES_Server.rc
@@ -14,7 +14,7 @@ BEGIN
BEGIN
VALUE "FileVersion", "1.0.8.0\0"
VALUE "ProductVersion", "1.0.8.0\0"
- VALUE "CompileDate", "miércoles, 18 de junio de 2008 18:49\0"
+ VALUE "CompileDate", "viernes, 20 de junio de 2008 9:56\0"
END
END
BLOCK "VarFileInfo"