diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql index 846c3d9d..774d227d 100644 --- a/Database/scripts/factuges.sql +++ b/Database/scripts/factuges.sql @@ -643,7 +643,7 @@ CREATE TABLE COMISIONES_LIQUIDADAS ( CREATE TABLE CONFIGURACION ( ID TIPO_ID NOT NULL, CODIGO VARCHAR(50) NOT NULL, - VALOR VARCHAR(255) NOT NULL, + VALOR TIPO_CONCEPTO NOT NULL, ID_EMPRESA TIPO_ID ); diff --git a/Source/ApplicationBase/ApplicationBase.dproj b/Source/ApplicationBase/ApplicationBase.dproj index 127b24b4..2a5c22ed 100644 --- a/Source/ApplicationBase/ApplicationBase.dproj +++ b/Source/ApplicationBase/ApplicationBase.dproj @@ -49,6 +49,12 @@ + + + + + + RemObjects Data Abstract - SQLite Driver Microsoft Office 2000 Sample Automation Server Wrapper Components Microsoft Office XP Sample Automation Server Wrapper Components @@ -59,31 +65,31 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + +
fConfiguracionEditor
 diff --git a/Source/ApplicationBase/uFactuGES_App.pas b/Source/ApplicationBase/uFactuGES_App.pas index dc568741..c1f55349 100644 --- a/Source/ApplicationBase/uFactuGES_App.pas +++ b/Source/ApplicationBase/uFactuGES_App.pas @@ -35,6 +35,10 @@ type function GetModuleManager : THostManager; function GetTerminated: Boolean; function GetConfiguracionController : IConfiguracionController; + function GetFormaPagoDocumentos: String; + function GetObservacionesDocumentos: String; + procedure SetFormaPagoDocumentos(const Value: String); + procedure SetObservacionesDocumentos(const Value: String); function GetLoadModulesEvent : TAppFactuGES_Event; procedure SetLoadModulesEvent (ALoadModulesEvent : TAppFactuGES_Event); @@ -78,6 +82,8 @@ type property DoRefreshMainFormEvent : TAppFactuGES_Event read GetDoRefreshMainFormEvent write SetDoRefreshMainFormEvent; property Terminated : Boolean read GetTerminated; property Configuracion : IConfiguracionController read GetConfiguracionController; + property FormaPagoDocumentos : String read GetFormaPagoDocumentos write SetFormaPagoDocumentos; + property ObservacionesDocumentos : String read GetObservacionesDocumentos write SetObservacionesDocumentos; end; @@ -89,6 +95,8 @@ type FTiendaActiva: IBizEmpresaTienda; FEjercicioActivo: IBizEjercicio; FConfiguracionController : IConfiguracionController; + FFormaPagoDocumentos: String; + FObservacionesDocumentos: String; FAppSplashForm : IAppSplashForm; FHostManager : THostManager; @@ -111,6 +119,10 @@ type function GetModuleManager : THostManager; function GetTerminated: Boolean; function GetConfiguracionController : IConfiguracionController; + function GetFormaPagoDocumentos: String; + function GetObservacionesDocumentos: String; + procedure SetFormaPagoDocumentos(const Value: String); + procedure SetObservacionesDocumentos(const Value: String); function GetLoadModulesEvent : TAppFactuGES_Event; procedure SetLoadModulesEvent (ALoadModulesEvent : TAppFactuGES_Event); @@ -127,10 +139,11 @@ type procedure AfterLoadModule(Sender: TObject; AModuleInfo: TModuleInfo); procedure RegisterModule(AModuleInfo : TModuleInfo); procedure BuscarTiendaPorDefecto; + protected procedure DoMainForm; procedure DoRefreshMainForm; - + procedure CargarModulos; procedure ShowSplashForm; procedure HideSplashForm; @@ -167,6 +180,8 @@ type property DoRefreshMainFormEvent : TAppFactuGES_Event read GetDoRefreshMainFormEvent write SetDoRefreshMainFormEvent; property Terminated : Boolean read GetTerminated; property Configuracion : IConfiguracionController read GetConfiguracionController; + property FormaPagoDocumentos : String read GetFormaPagoDocumentos write SetFormaPagoDocumentos; + property ObservacionesDocumentos : String read GetObservacionesDocumentos write SetObservacionesDocumentos; end; var @@ -373,6 +388,11 @@ begin Result := FEmpresasController; end; +function TAppFactuGES.GetFormaPagoDocumentos: String; +begin + Result := FFormaPagoDocumentos; +end; + function TAppFactuGES.GetLoadModulesEvent: TAppFactuGES_Event; begin Result := FDoLoadModulesEvent; @@ -383,6 +403,11 @@ begin Result := FHostManager; end; +function TAppFactuGES.GetObservacionesDocumentos: String; +begin + Result := FObservacionesDocumentos; +end; + function TAppFactuGES.GetTerminated: Boolean; begin Result := FTerminated; @@ -457,6 +482,11 @@ begin FDoRefreshMainFormEvent := ARefreshMainFormEvent; end; +procedure TAppFactuGES.SetFormaPagoDocumentos(const Value: String); +begin + FFormaPagoDocumentos := Value; +end; + procedure TAppFactuGES.SeleccionarEmpresa; var JsDialog: TJSDialog; @@ -511,6 +541,11 @@ begin FDoLoadModulesEvent := ALoadModulesEvent; end; +procedure TAppFactuGES.SetObservacionesDocumentos(const Value: String); +begin + FObservacionesDocumentos:= Value; +end; + {procedure TAppFactuGES.setVAR_IDTIENDA(AValue: Integer); begin FVAR_IDTIENDA := Avalue; diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index 24686730..b36f21a8 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -44,20 +44,6 @@ Package FalseTrueFalseLibreria base de FactuGESFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 - - - - - - - - - - - - - - VCL for the Web Design Package for CodeGear RAD Studio CodeGear WebSnap Components CodeGear SOAP Components @@ -72,52 +58,52 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fConfigurarConexion
TForm diff --git a/Source/Base/Configuracion/uDataModuleConfiguracion.pas b/Source/Base/Configuracion/uDataModuleConfiguracion.pas index 1ba6b9fd..6c6beb2e 100644 --- a/Source/Base/Configuracion/uDataModuleConfiguracion.pas +++ b/Source/Base/Configuracion/uDataModuleConfiguracion.pas @@ -9,6 +9,8 @@ uses const SERVER_URL = 'http://localhost:8099/bin'; + CTE_FORMA_PAGO = 'FORMA_PAGO'; + CTE_OBSERVACIONES = 'OBSERVACIONES'; type TdmConfiguracion = class(TDataModule) diff --git a/Source/Cliente/uBootStrap.pas b/Source/Cliente/uBootStrap.pas index ff4974b2..efb7b63e 100644 --- a/Source/Cliente/uBootStrap.pas +++ b/Source/Cliente/uBootStrap.pas @@ -65,6 +65,9 @@ begin LoadModule('GestorInformes_plugin.bpl'); end; + + AppFactuGES.FormaPagoDocumentos := dmConfiguracion.DarValor(CTE_FORMA_PAGO); + AppFactuGES.ObservacionesDocumentos := dmConfiguracion.DarValor(CTE_OBSERVACIONES); end; procedure DoRefreshMainForm; diff --git a/Source/GUIBase/GUIBase.dproj b/Source/GUIBase/GUIBase.dproj index 37aa08af..f7807393 100644 --- a/Source/GUIBase/GUIBase.dproj +++ b/Source/GUIBase/GUIBase.dproj @@ -58,38 +58,38 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fDialogBase
 diff --git a/Source/GUIBase/uViewDetallesBase.dfm b/Source/GUIBase/uViewDetallesBase.dfm index 86dad3e7..72baea21 100644 --- a/Source/GUIBase/uViewDetallesBase.dfm +++ b/Source/GUIBase/uViewDetallesBase.dfm @@ -152,6 +152,8 @@ inherited frViewDetallesBase: TfrViewDetallesBase Height = 232 Align = alClient TabOrder = 1 + LookAndFeel.Kind = lfStandard + LookAndFeel.NativeStyle = True object cxGridView: TcxGridDBTableView OnKeyDown = cxGridViewKeyDown NavigatorButtons.ConfirmDelete = False diff --git a/Source/Informes/1/InfContratoCliente.fr3 b/Source/Informes/1/InfContratoCliente.fr3 index 5cfb46f7..b6dc6c15 100644 --- a/Source/Informes/1/InfContratoCliente.fr3 +++ b/Source/Informes/1/InfContratoCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -21,7 +21,7 @@ - + diff --git a/Source/Informes/1/InfPresupuestoCliente.fr3 b/Source/Informes/1/InfPresupuestoCliente.fr3 index 8912f776..328cf979 100644 --- a/Source/Informes/1/InfPresupuestoCliente.fr3 +++ b/Source/Informes/1/InfPresupuestoCliente.fr3 @@ -1,5 +1,5 @@ - + diff --git a/Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.drc b/Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.drc index 69f0b0e0..88edf5f1 100644 --- a/Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.drc +++ b/Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.drc @@ -13,4 +13,4 @@ BEGIN END /* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Controller\ContratosCliente_controller.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf4DF.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf872.tmp */ diff --git a/Source/Modulos/Contratos de cliente/Data/ContratosCliente_data.drc b/Source/Modulos/Contratos de cliente/Data/ContratosCliente_data.drc index bbb0bc1d..93e477fa 100644 --- a/Source/Modulos/Contratos de cliente/Data/ContratosCliente_data.drc +++ b/Source/Modulos/Contratos de cliente/Data/ContratosCliente_data.drc @@ -14,4 +14,4 @@ END /* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Data\uDataModuleContratosCliente.dfm */ /* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Data\ContratosCliente_data.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf4DD.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf870.tmp */ diff --git a/Source/Modulos/Contratos de cliente/Model/ContratosCliente_model.drc b/Source/Modulos/Contratos de cliente/Model/ContratosCliente_model.drc index 0fc84527..a8aed73d 100644 --- a/Source/Modulos/Contratos de cliente/Model/ContratosCliente_model.drc +++ b/Source/Modulos/Contratos de cliente/Model/ContratosCliente_model.drc @@ -13,4 +13,4 @@ BEGIN END /* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Model\ContratosCliente_model.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf4DB.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf86E.tmp */ diff --git a/Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas b/Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas index 03a9f20b..a9122b15 100644 --- a/Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas +++ b/Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas @@ -256,6 +256,9 @@ begin ID_TIENDA := AppFactuGES.TiendaActiva.ID; TIENDA := AppFactuGES.TiendaActiva.NOMBRE; + + Self.DataTable.FieldByName(fld_ContratosClienteFORMA_PAGO).AsString := AppFactuGES.FormaPagoDocumentos; + Self.DataTable.FieldByName(fld_ContratosClienteOBSERVACIONES).AsString := AppFactuGES.ObservacionesDocumentos; end; procedure TBizContratoCliente.IVAOnChange(Sender: TDACustomField); diff --git a/Source/Modulos/Contratos de cliente/Plugin/ContratosCliente_plugin.drc b/Source/Modulos/Contratos de cliente/Plugin/ContratosCliente_plugin.drc index b669d4e3..733f42db 100644 --- a/Source/Modulos/Contratos de cliente/Plugin/ContratosCliente_plugin.drc +++ b/Source/Modulos/Contratos de cliente/Plugin/ContratosCliente_plugin.drc @@ -14,4 +14,4 @@ END /* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Plugin\uPluginContratosCliente.dfm */ /* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Plugin\ContratosCliente_plugin.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf527.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf8BA.tmp */ diff --git a/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.drc b/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.drc index e5f68903..55e17053 100644 --- a/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.drc +++ b/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.drc @@ -25,4 +25,4 @@ END /* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Views\uEditorElegirArticulosContratoCliente.dfm */ /* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Views\uEditorContratosClienteReport.dfm */ /* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Views\ContratosCliente_view.res */ -/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf525.tmp */ +/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf8B8.tmp */ diff --git a/Source/Modulos/Contratos de cliente/Views/uEditorContratosCliente.dfm b/Source/Modulos/Contratos de cliente/Views/uEditorContratosCliente.dfm index a51558c7..933819d9 100644 --- a/Source/Modulos/Contratos de cliente/Views/uEditorContratosCliente.dfm +++ b/Source/Modulos/Contratos de cliente/Views/uEditorContratosCliente.dfm @@ -1957,7 +1957,9 @@ inherited fEditorContratosCliente: TfEditorContratosCliente inherited GridPopupMenu: TPopupMenu object Generarcertificado1: TMenuItem [6] Caption = 'Generar certificado' + Enabled = False ImageIndex = 26 + Visible = False end object Generar2: TMenuItem [7] Caption = 'Generar factura' diff --git a/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.dfm b/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.dfm index 8a0eec42..6902c853 100644 --- a/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.dfm +++ b/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.dfm @@ -62,6 +62,8 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente end object cxGridViewTIPO_ARTICULO: TcxGridDBColumn [4] DataBinding.FieldName = 'TIPO_ARTICULO' + Visible = False + VisibleForCustomization = False end object cxGridViewID_PROPIEDAD: TcxGridDBColumn [5] Caption = 'Propiedad' @@ -111,21 +113,31 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente inherited TBXToolbar1: TTBXToolbar ExplicitWidth = 451 object TBXSubmenuItem1: TTBXSubmenuItem [0] - Caption = 'A'#241'adir ...' + Caption = 'A'#241'adir cap'#237'tulo' + DisplayMode = nbdmImageAndText + DropdownCombo = True + ImageIndex = 12 object TBXItem14: TTBXItem Action = actCapituloArmarioF end object TBXItem17: TTBXItem Action = actCapituloArmarioI end + object TBXSeparatorItem10: TTBXSeparatorItem + end object TBXItem15: TTBXItem Action = actCapituloBano end + object TBXSeparatorItem8: TTBXSeparatorItem + end object TBXItem16: TTBXItem Action = actCapituloCocina end + object TBXSeparatorItem7: TTBXSeparatorItem + end object TBXItem19: TTBXItem Action = actCapituloElectrodomesticos + Caption = 'Cap'#237'tulo de electrodom'#233'sticos' end object TBXItem20: TTBXItem Action = actCapituloVarios @@ -185,6 +197,8 @@ inherited frViewDetallesContratoCliente: TfrViewDetallesContratoCliente object actAsignarDescuento: TAction Category = 'Operaciones' Caption = 'Asignar descuento' + Enabled = False + Visible = False OnExecute = actAsignarDescuentoExecute OnUpdate = actAsignarDescuentoUpdate end diff --git a/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.pas b/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.pas index f7859358..2d0f9ed7 100644 --- a/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.pas +++ b/Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.pas @@ -49,6 +49,9 @@ type actCapituloVarios: TAction; TBXItem19: TTBXItem; TBXItem20: TTBXItem; + TBXSeparatorItem7: TTBXSeparatorItem; + TBXSeparatorItem8: TTBXSeparatorItem; + TBXSeparatorItem10: TTBXSeparatorItem; procedure actAsignarDescuentoExecute(Sender: TObject); procedure actAsignarDescuentoUpdate(Sender: TObject); procedure CustomViewShow(Sender: TObject); diff --git a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas index 9f9f224c..9369607d 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas @@ -259,6 +259,9 @@ begin ID_TIENDA := AppFactuGES.TiendaActiva.ID; TIENDA := AppFactuGES.TiendaActiva.NOMBRE; + + Self.DataTable.FieldByName(fld_PresupuestosClienteFORMA_PAGO).AsString := AppFactuGES.FormaPagoDocumentos; + Self.DataTable.FieldByName(fld_PresupuestosClienteOBSERVACIONES).AsString := AppFactuGES.ObservacionesDocumentos; end; procedure TBizPresupuestoCliente.IVAOnChange(Sender: TDACustomField); diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm index bab6c502..4f831a7e 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm @@ -129,7 +129,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente Width = 848 ExplicitWidth = 848 inherited tbxMain: TTBXToolbar - ExplicitWidth = 613 + ExplicitWidth = 488 inherited TBXItem2: TTBXItem Visible = False end @@ -148,8 +148,10 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente object TBXItem33: TTBXItem [13] Caption = 'Generar certificado' DisplayMode = nbdmImageAndText + Enabled = False Hint = 'Generar certificado de trabajos' ImageIndex = 21 + Visible = False end end inherited tbxMenu: TTBXToolbar @@ -303,7 +305,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente ExplicitTop = 24 ExplicitWidth = 834 inherited TBXToolbar1: TTBXToolbar - ExplicitWidth = 614 + ExplicitWidth = 564 end end inherited cxLookupComboBox1: TcxLookupComboBox diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm index 58cc3e79..ff76b5fb 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm @@ -1977,19 +1977,28 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente inherited dsDataTable: TDADataSource [8] end inherited GridPopupMenu: TPopupMenu - object Generarcertificado1: TMenuItem [6] - Caption = 'Generar certificado' - ImageIndex = 26 + object Aceptar1: TMenuItem [6] + Action = actAceptar end - object Generar2: TMenuItem [7] - Caption = 'Generar factura' - ImageIndex = 26 - OnClick = actGenerarExecute + object Anular1: TMenuItem [7] + Action = actAnular end - object N4: TMenuItem [8] + object N3: TMenuItem [8] Caption = '-' end - object Enviarporemail1: TMenuItem [9] + object Generarcertificado1: TMenuItem [9] + Caption = 'Generar certificado' + Enabled = False + ImageIndex = 26 + Visible = False + end + object Generar2: TMenuItem [10] + Action = actGenerarContrato + end + object N4: TMenuItem [11] + Caption = '-' + end + object Enviarporemail1: TMenuItem [12] Action = actEnviarEMail end end diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas index 6945043a..3be514ff 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas @@ -44,6 +44,9 @@ type TBXItem46: TTBXItem; JSInformesDialog: TJSDialog; TBXItem47: TTBXItem; + Aceptar1: TMenuItem; + Anular1: TMenuItem; + N3: TMenuItem; procedure FormShow(Sender: TObject); procedure actGenerarAlbaranCliExecute(Sender: TObject); procedure actEliminarUpdate(Sender: TObject); diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm index 23b7ce3b..83c67604 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.dfm @@ -62,6 +62,8 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente end object cxGridViewTIPO_ARTICULO: TcxGridDBColumn [4] DataBinding.FieldName = 'TIPO_ARTICULO' + Visible = False + VisibleForCustomization = False end object cxGridViewID_PROPIEDAD: TcxGridDBColumn [5] Caption = 'Propiedad' @@ -109,29 +111,40 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente end inherited TBXDock1: TTBXDock inherited TBXToolbar1: TTBXToolbar + DockPos = 0 ExplicitWidth = 451 object TBXSubmenuItem1: TTBXSubmenuItem [0] - Caption = 'A'#241'adir ...' + Caption = 'A'#241'adir cap'#237'tulo' + DisplayMode = nbdmImageAndText + DropdownCombo = True + ImageIndex = 12 object TBXItem14: TTBXItem Action = actCapituloArmarioF end object TBXItem17: TTBXItem Action = actCapituloArmarioI end + object TBXSeparatorItem8: TTBXSeparatorItem + end object TBXItem15: TTBXItem Action = actCapituloBano end + object TBXSeparatorItem7: TTBXSeparatorItem + end object TBXItem16: TTBXItem Action = actCapituloCocina end + object TBXSeparatorItem10: TTBXSeparatorItem + end object TBXItem19: TTBXItem Action = actCapituloElectrodomesticos + Caption = 'Cap'#237'tulo de electrodom'#233'sticos' end object TBXItem20: TTBXItem Action = actCapituloVarios end end - object TBXSeparatorItem6: TTBXSeparatorItem [1] + object TBXSeparatorItem6: TTBXSeparatorItem [3] end object TBXSeparatorItem9: TTBXSeparatorItem end @@ -185,6 +198,8 @@ inherited frViewDetallesPresupuestoCliente: TfrViewDetallesPresupuestoCliente object actAsignarDescuento: TAction Category = 'Operaciones' Caption = 'Asignar descuento' + Enabled = False + Visible = False OnExecute = actAsignarDescuentoExecute OnUpdate = actAsignarDescuentoUpdate end diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas index 80c04b8c..930b6f48 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas @@ -49,6 +49,9 @@ type actCapituloVarios: TAction; TBXItem19: TTBXItem; TBXItem20: TTBXItem; + TBXSeparatorItem7: TTBXSeparatorItem; + TBXSeparatorItem8: TTBXSeparatorItem; + TBXSeparatorItem10: TTBXSeparatorItem; procedure actAsignarDescuentoExecute(Sender: TObject); procedure actAsignarDescuentoUpdate(Sender: TObject); procedure CustomViewShow(Sender: TObject); diff --git a/Source/Modulos/Relaciones/Contratos de cliente - Facturas de cliente/ConCli_FacCli_relation.dcu b/Source/Modulos/Relaciones/Contratos de cliente - Facturas de cliente/ConCli_FacCli_relation.dcu index d7ed7da6..34a6b1cc 100644 Binary files a/Source/Modulos/Relaciones/Contratos de cliente - Facturas de cliente/ConCli_FacCli_relation.dcu and b/Source/Modulos/Relaciones/Contratos de cliente - Facturas de cliente/ConCli_FacCli_relation.dcu differ diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index 12d64e17..0e76cb81 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 65ec4481..85410d02 100644 --- a/Source/Servidor/FactuGES_Server.rc +++ b/Source/Servidor/FactuGES_Server.rc @@ -16,7 +16,7 @@ BEGIN VALUE "FileVersion", "2.3.5.0\0" VALUE "ProductName", "FactuGES (Servidor)\0" VALUE "ProductVersion", "2.3.5.0\0" - VALUE "CompileDate", "jueves, 17 de septiembre de 2009 16:57\0" + VALUE "CompileDate", "lunes, 21 de septiembre de 2009 19:40\0" END END BLOCK "VarFileInfo"