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 - - - - - - - + + + + + + +
fEditorArticulo
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 - - - - - - - + + + + + + +
fEditorElegirArticulosPresupuestoCliente
TfEditorElegirArticulosPedidoCliente @@ -82,7 +82,7 @@ TFrame
-
frViewElegirArticulosPresupuestosCliente
+
frViewDireccionEntregaPresupuestoCliente
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"