diff --git a/BD/BASEDATOS.FDB b/BD/BASEDATOS.FDB index ba3274a..fce8054 100644 Binary files a/BD/BASEDATOS.FDB and b/BD/BASEDATOS.FDB differ diff --git a/Base/BaseD7.dof b/Base/BaseD7.dof index ab13b92..6538abe 100644 --- a/Base/BaseD7.dof +++ b/Base/BaseD7.dof @@ -168,8 +168,8 @@ Count=1 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [HistoryLists\hlSearchPath] Count=16 -Item0=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas -Item1=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas +Item0=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas +Item1=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas Item2=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente;..\..\Cuentas\Cliente Item3=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente Item4=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente @@ -189,8 +189,8 @@ Count=1 Item0=.\ [HistoryLists\hlOutputDirectorry] Count=2 -Item0=..\Output\Servidor -Item1=..\Output\Cliente +Item0=..\Output\Cliente +Item1=..\Output\Servidor [HistoryLists\hlBPLOutput] Count=3 Item0=..\..\..\Output\Cliente diff --git a/Base/uDataModuleBase.dfm b/Base/uDataModuleBase.dfm index 1d78366..6ae0d1b 100644 --- a/Base/uDataModuleBase.dfm +++ b/Base/uDataModuleBase.dfm @@ -1,8 +1,8 @@ object dmBase: TdmBase OldCreateOrder = True OnCreate = DAClientDataModuleCreate - Left = 1374 - Top = 266 + Left = 1377 + Top = 310 Height = 368 Width = 494 object SmallImages: TPngImageList diff --git a/Base/uEditorBase.dfm b/Base/uEditorBase.dfm index 77df6a1..e2a2151 100644 --- a/Base/uEditorBase.dfm +++ b/Base/uEditorBase.dfm @@ -1,6 +1,6 @@ object fEditorBase: TfEditorBase - Left = 586 - Top = 118 + Left = 587 + Top = 137 Width = 670 Height = 512 Caption = 'EditorBase' diff --git a/Base/uEditorDBItem.dfm b/Base/uEditorDBItem.dfm index 186a674..28d9e65 100644 --- a/Base/uEditorDBItem.dfm +++ b/Base/uEditorDBItem.dfm @@ -1,5 +1,5 @@ inherited fEditorDBItem: TfEditorDBItem - Left = 674 + Left = 675 Caption = 'fEditorDBItem' PixelsPerInch = 96 TextHeight = 13 diff --git a/Base/uEditorGrid.dfm b/Base/uEditorGrid.dfm index 464937e..9bb9586 100644 --- a/Base/uEditorGrid.dfm +++ b/Base/uEditorGrid.dfm @@ -1,6 +1,6 @@ inherited fEditorGrid: TfEditorGrid - Left = 386 - Top = 150 + Left = 387 + Top = 175 Width = 714 Height = 485 Caption = 'fEditorGrid' diff --git a/Base/uViewGrid.dfm b/Base/uViewGrid.dfm index 91dd463..e480d70 100644 --- a/Base/uViewGrid.dfm +++ b/Base/uViewGrid.dfm @@ -149,7 +149,7 @@ inherited frViewGrid: TfrViewGrid PrinterPage.PageSize.Y = 297000 PrinterPage._dxMeasurementUnits_ = 0 PrinterPage._dxLastMU_ = 2 - ReportDocument.CreationDate = 43563.775367581020000000 + ReportDocument.CreationDate = 43647.535044629630000000 OptionsCharts.Transparent = True OptionsFormatting.SuppressBackgroundBitmaps = True OptionsOnEveryPage.Caption = False diff --git a/Cliente/FactuGES.dof b/Cliente/FactuGES.dof index 2d8f6b4..bc1c128 100644 --- a/Cliente/FactuGES.dof +++ b/Cliente/FactuGES.dof @@ -114,7 +114,7 @@ IncludeVerInfo=1 AutoIncBuild=0 MajorVer=1 MinorVer=6 -Release=3 +Release=4 Build=0 Debug=0 PreRelease=0 @@ -126,13 +126,13 @@ CodePage=1252 [Version Info Keys] CompanyName=Rodax Software S.L. FileDescription= -FileVersion=1.6.3.0 +FileVersion=1.6.4.0 InternalName=FactuGES LegalCopyright= LegalTrademarks= OriginalFilename= ProductName=FactuGES -ProductVersion=1.6.3.0 +ProductVersion=1.6.4.0 Comments= [Excluded Packages] C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxLibraryVCLD7.bpl=Express Cross Platform Library (VCL Edition) by Developer Express Inc. @@ -183,8 +183,8 @@ Count=1 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [HistoryLists\hlSearchPath] Count=16 -Item0=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas -Item1=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas +Item0=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas +Item1=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas Item2=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente;..\..\Cuentas\Cliente Item3=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente Item4=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente @@ -204,8 +204,8 @@ Count=1 Item0=.\ [HistoryLists\hlOutputDirectorry] Count=2 -Item0=..\Output\Servidor -Item1=..\Output\Cliente +Item0=..\Output\Cliente +Item1=..\Output\Servidor [HistoryLists\hlBPLOutput] Count=3 Item0=..\..\..\Output\Cliente diff --git a/Cliente/FactuGES.res b/Cliente/FactuGES.res index eed2904..d5ebab7 100644 Binary files a/Cliente/FactuGES.res and b/Cliente/FactuGES.res differ diff --git a/Iconos/LOGO ALONSO Y SAL_2.jpg b/Iconos/LOGO ALONSO Y SAL_2.jpg new file mode 100644 index 0000000..5486553 Binary files /dev/null and b/Iconos/LOGO ALONSO Y SAL_2.jpg differ diff --git a/Modulos/Facturas de cliente/Cliente/uEditorFacturaCliente.dfm b/Modulos/Facturas de cliente/Cliente/uEditorFacturaCliente.dfm index 222ca9b..fa030b9 100644 --- a/Modulos/Facturas de cliente/Cliente/uEditorFacturaCliente.dfm +++ b/Modulos/Facturas de cliente/Cliente/uEditorFacturaCliente.dfm @@ -106,9 +106,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente inherited edtCalle: TcxDBTextEdit DataBinding.DataSource = frViewFacturaCliente1.DADataSource end - inherited ToolBar2: TToolBar - Width = 182 - end inherited edtCodigoPostal: TcxDBTextEdit DataBinding.DataSource = frViewFacturaCliente1.DADataSource end @@ -134,7 +131,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente end inherited frViewPresupuestoFactura1: TfrViewPresupuestoFactura inherited edtlReferencia: TcxDBTextEdit - DataBinding.DataField = 'REFERENCIA' + DataBinding.DataField = 'REFERENCIA_MONTAJE_PRE' + DataBinding.DataSource = dsDataTable end end end diff --git a/Modulos/Facturas de cliente/Cliente/uViewFacturaCliente.pas b/Modulos/Facturas de cliente/Cliente/uViewFacturaCliente.pas index 4c83724..4ec7d10 100644 --- a/Modulos/Facturas de cliente/Cliente/uViewFacturaCliente.pas +++ b/Modulos/Facturas de cliente/Cliente/uViewFacturaCliente.pas @@ -86,11 +86,12 @@ begin frViewDatosFacturaCliente1.DADataSource.DataTable := DADataSource.DataTable; frViewObservaciones1.DADataSource.DataTable := DADataSource.DataTable; frViewFormaPago1.DADataSource.DataTable := DADataSource.DataTable; + frViewPresupuestoFactura1.DADataSource.DataTable := DADataSource.DataTable; frViewDatosYSeleccionContacto1.Contacto := FFacturaCliente.Cliente; frViewDatosYSeleccionContacto1.OnContactoChanged := OnContactoChanged; - frViewPresupuestoFactura1.Presupuesto := dmPresupuestos.GetPresupuesto(FFacturaCliente.CODIGOALBARAN); + frViewPresupuestoFactura1.Presupuesto := dmPresupuestos.GetPresupuesto(FFacturaCliente.CODIGOPRESUPUESTO); frViewPresupuestoFactura1.OnPresupuestoChanged := OnPresupuestoChanged; end; diff --git a/Modulos/Facturas de cliente/Cliente/uViewPresupuestoFactura.dfm b/Modulos/Facturas de cliente/Cliente/uViewPresupuestoFactura.dfm new file mode 100644 index 0000000..ff4f6f6 --- /dev/null +++ b/Modulos/Facturas de cliente/Cliente/uViewPresupuestoFactura.dfm @@ -0,0 +1,7 @@ +inherited frViewPresupuestoFactura: TfrViewPresupuestoFactura + inherited ActionList1: TActionList + inherited actElegirPresupuesto: TAction + OnExecute = actElegirPresupuestoExecute + end + end +end diff --git a/Modulos/Facturas de cliente/Cliente/uViewPresupuestoFactura.pas b/Modulos/Facturas de cliente/Cliente/uViewPresupuestoFactura.pas new file mode 100644 index 0000000..c68fc6b --- /dev/null +++ b/Modulos/Facturas de cliente/Cliente/uViewPresupuestoFactura.pas @@ -0,0 +1,64 @@ +unit uViewPresupuestoFactura; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, uViewPresupuestoRelacionado, DB, uDADataTable, ImgList, + PngImageList, ActnList, cxControls, cxContainer, cxEdit, cxTextEdit, + cxDBEdit, ComCtrls, ToolWin, ExtCtrls, StdCtrls; + +type + TfrViewPresupuestoFactura = class(TfrViewPresupuestoRelacionado) + procedure actElegirPresupuestoExecute(Sender: TObject); + procedure actVerPresupuestoUpdate(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + frViewPresupuestoFactura: TfrViewPresupuestoFactura; + +implementation +{$R *.dfm} + +uses uBizPresupuestosCliente, uDataModulePresupuestos, schFacturasClienteClient_Intf, + uDAInterfaces; + +procedure TfrViewPresupuestoFactura.actElegirPresupuestoExecute(Sender: TObject); +var + APresupuesto : IBizPresupuestos; +begin + inherited; + + if Length(edtlReferencia.Text) > 0 then + if (MessageBox(0, 'Esta factura ya tiene asociado un presupuesto/albarán. '+#13+#10+ + 'Si elige otro presupuesto/albarán, se cambiará en esta factura el cliente y los conceptos '+#13+#10+ + 'para hacerlos coincidir con el presupuesto/albarán elegido. '+#13+#10+ + '¿Desea continuar?', 'Confirmación', MB_ICONQUESTION or MB_YESNO) = idNo) then + Exit; + + APresupuesto := dmPresupuestos.GetPresupuestos; + try + if APresupuesto.ShowForSelect = mrOK then + begin + Self.Presupuesto := dmPresupuestos.GetItemsSeleccionados(APresupuesto) + end; + finally + APresupuesto := NIL; + end; +end; + +procedure TfrViewPresupuestoFactura.actVerPresupuestoUpdate( + Sender: TObject); +begin +// inherited; + if assigned(DADataSource) then + begin + (Sender as TAction).Enabled := not VarIsNull(edtlReferencia.EditValue); + end; +end; + +end. diff --git a/Modulos/Montajes/Cliente/uDataModuleMontajes.dfm b/Modulos/Montajes/Cliente/uDataModuleMontajes.dfm index a8e0ecb..fba3b32 100644 --- a/Modulos/Montajes/Cliente/uDataModuleMontajes.dfm +++ b/Modulos/Montajes/Cliente/uDataModuleMontajes.dfm @@ -10,8 +10,8 @@ object dmMontajes: TdmMontajes ParamType = fResult DataType = rtString end> - Left = 423 - Top = 115 + Left = 424 + Top = 134 Height = 335 Width = 536 object RORemoteService: TRORemoteService diff --git a/Modulos/Montajes/Cliente/uEditorMontaje.dfm b/Modulos/Montajes/Cliente/uEditorMontaje.dfm index cbe65e0..7a3e980 100644 --- a/Modulos/Montajes/Cliente/uEditorMontaje.dfm +++ b/Modulos/Montajes/Cliente/uEditorMontaje.dfm @@ -1,6 +1,6 @@ inherited fEditorMontaje: TfEditorMontaje - Left = 297 - Top = 103 + Left = 298 + Top = 120 Width = 766 Height = 497 HorzScrollBar.Visible = False @@ -139,8 +139,8 @@ inherited fEditorMontaje: TfEditorMontaje ReadOnly = False inherited cxGrid: TcxGrid Width = 750 - Height = 213 - TabOrder = 2 + Height = 187 + TabOrder = 3 inherited cxGridView: TcxGridDBTableView inherited cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn IsCaptionAssigned = True @@ -181,7 +181,18 @@ inherited fEditorMontaje: TfEditorMontaje end end end - inherited dxComponentPrinter: TdxComponentPrinter [4] + inherited pnlAgrupaciones: TTBXDockablePanel + Top = 314 + inherited TBXAlignmentPanel1: TTBXAlignmentPanel + Width = 750 + inherited TBXToolbar1: TTBXToolbar + Width = 740 + end + end + end + inherited ActionList2: TActionList [5] + end + inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinterLink: TdxGridReportLink Active = False Component = nil @@ -189,15 +200,11 @@ inherited fEditorMontaje: TfEditorMontaje BuiltInReportLink = True end end - inherited dxPSEngineController1: TdxPSEngineController [5] + inherited PngImageList: TPngImageList [9] end - inherited cxStyleRepository1: TcxStyleRepository [6] + inherited PngImageList2: TPngImageList [10] end - inherited PngImageList: TPngImageList [7] - end - inherited PngImageList2: TPngImageList [8] - end - inherited ActionList1: TActionList [9] + inherited ActionList1: TActionList [11] inherited actRecibirPedido: TAction OnExecute = frViewPedidosMontajeactRecibirPedidoExecute OnUpdate = frViewPedidosMontajeactRecibirPedidoUpdate @@ -224,7 +231,7 @@ inherited fEditorMontaje: TfEditorMontaje ReadOnly = False inherited cxGrid: TcxGrid Width = 750 - Height = 213 + Height = 187 end inherited ToolBar1: TToolBar Width = 750 @@ -256,6 +263,15 @@ inherited fEditorMontaje: TfEditorMontaje end end end + inherited pnlAgrupaciones: TTBXDockablePanel + Top = 314 + inherited TBXAlignmentPanel1: TTBXAlignmentPanel + Width = 750 + inherited TBXToolbar1: TTBXToolbar + Width = 740 + end + end + end inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinterLink: TdxGridReportLink ReportDocument.CreationDate = 38751.760538553240000000 @@ -283,8 +299,8 @@ inherited fEditorMontaje: TfEditorMontaje ReadOnly = False inherited cxGrid: TcxGrid Width = 750 - Height = 213 - TabOrder = 2 + Height = 187 + TabOrder = 3 inherited cxGridView: TcxGridDBTableView DataController.Summary.FooterSummaryItems = < item @@ -338,6 +354,15 @@ inherited fEditorMontaje: TfEditorMontaje end end end + inherited pnlAgrupaciones: TTBXDockablePanel + Top = 314 + inherited TBXAlignmentPanel1: TTBXAlignmentPanel + Width = 750 + inherited TBXToolbar1: TTBXToolbar + Width = 740 + end + end + end inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinterLink: TdxGridReportLink Active = False diff --git a/Modulos/Montajes/Cliente/uViewArticulosMontaje.dfm b/Modulos/Montajes/Cliente/uViewArticulosMontaje.dfm index 9ca0f06..c6666d9 100644 --- a/Modulos/Montajes/Cliente/uViewArticulosMontaje.dfm +++ b/Modulos/Montajes/Cliente/uViewArticulosMontaje.dfm @@ -74,21 +74,6 @@ inherited frViewArticulosMontaje: TfrViewArticulosMontaje end inherited frViewFiltroBase1: TfrViewFiltroBase Top = 25 - inherited TBXDock1: TTBXDock - inherited TBXDockablePanel1: TTBXDockablePanel - inherited dxLayoutControl1: TdxLayoutControl - inherited txtFiltroTodo: TcxTextEdit - Width = 465 - end - inherited edtFechaIniFiltro: TcxDateEdit - Width = 245 - end - inherited edtFechaFinFiltro: TcxDateEdit - Width = 204 - end - end - end - end end inherited ActionList1: TActionList Images = PngImageList diff --git a/Modulos/Montajes/Cliente/uViewFichaBeneficiosMontaje.dfm b/Modulos/Montajes/Cliente/uViewFichaBeneficiosMontaje.dfm index a1fbff9..e574245 100644 --- a/Modulos/Montajes/Cliente/uViewFichaBeneficiosMontaje.dfm +++ b/Modulos/Montajes/Cliente/uViewFichaBeneficiosMontaje.dfm @@ -34,14 +34,12 @@ inherited frViewFichaBeneficiosMontaje: TfrViewFichaBeneficiosMontaje OptionsSelection.CellSelect = True object cxGridViewRecID: TcxGridDBColumn DataBinding.FieldName = 'RecID' - Visible = False end object cxGridViewCODIGOMONTAJE: TcxGridDBColumn DataBinding.FieldName = 'CODIGOMONTAJE' end object cxGridViewNUMCONCEPTO: TcxGridDBColumn DataBinding.FieldName = 'NUMCONCEPTO' - Visible = False end object cxGridViewDESCRIPCION: TcxGridDBColumn DataBinding.FieldName = 'DESCRIPCION' diff --git a/Modulos/Montajes/Servidor/srvMontajes_Impl.dfm b/Modulos/Montajes/Servidor/srvMontajes_Impl.dfm index 65edf3c..8698f72 100644 --- a/Modulos/Montajes/Servidor/srvMontajes_Impl.dfm +++ b/Modulos/Montajes/Servidor/srvMontajes_Impl.dfm @@ -5,8 +5,8 @@ object srvMontajes: TsrvMontajes ConnectionName = 'IBX' ServiceSchema = schMontajes ServiceAdapter = DABINAdapter - Left = 1065 - Top = 212 + Left = 1067 + Top = 247 Height = 356 Width = 300 object bpMontajes: TDABusinessProcessor diff --git a/Modulos/Presupuestos/Cliente/uEditorPresupuestos.dfm b/Modulos/Presupuestos/Cliente/uEditorPresupuestos.dfm index f46fbcb..cd8737b 100644 --- a/Modulos/Presupuestos/Cliente/uEditorPresupuestos.dfm +++ b/Modulos/Presupuestos/Cliente/uEditorPresupuestos.dfm @@ -1,6 +1,6 @@ inherited fEditorPresupuestos: TfEditorPresupuestos - Left = 491 - Top = 241 + Left = 492 + Top = 281 Width = 901 Caption = 'Lista de presupuestos' PixelsPerInch = 96 diff --git a/Servidor/FactuGES_Server.dof b/Servidor/FactuGES_Server.dof index f6dae04..0e3d670 100644 --- a/Servidor/FactuGES_Server.dof +++ b/Servidor/FactuGES_Server.dof @@ -183,8 +183,8 @@ Count=1 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [HistoryLists\hlSearchPath] Count=16 -Item0=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas -Item1=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas +Item0=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas +Item1=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas Item2=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente;..\..\Cuentas\Cliente Item3=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente Item4=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente @@ -204,8 +204,8 @@ Count=1 Item0=.\ [HistoryLists\hlOutputDirectorry] Count=2 -Item0=..\Output\Servidor -Item1=..\Output\Cliente +Item0=..\Output\Cliente +Item1=..\Output\Servidor [HistoryLists\hlBPLOutput] Count=3 Item0=..\..\..\Output\Cliente diff --git a/Servidor/fServerForm.pas b/Servidor/fServerForm.pas index 65676c5..9dd9a78 100644 --- a/Servidor/fServerForm.pas +++ b/Servidor/fServerForm.pas @@ -7,7 +7,7 @@ uses uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer, uROBinMessage, uROIndyHTTPServer, uROIndyTCPServer, frxClass, frxPreview, JvComponent, JvTrayIcon, ActnList, Menus, XPMan, JvExControls, - JvGradient, JvGIF, ExtCtrls; + JvGradient, JvGIF, ExtCtrls, JvComponentBase; type TServerForm = class(TForm)