Repaso de nueva ubicacion y funciona

git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES/trunk@27 9a1d36f3-7752-2d40-8ccb-50eb49674c68
2016-02-23 12:02:28 +00:00 · 2016-02-23 12:02:28 +00:00 · 064259873c
commit 064259873c
parent 33a3edf375
36 changed files with 75 additions and 103 deletions
--- a/BD/BASEDATOS.FDB
+++ b/BD/BASEDATOS.FDB
--- a/cliente/Cliente/uViewAlbaranRelacionado.dfm
+++ b/cliente/Cliente/uViewAlbaranRelacionado.dfm
@ -84,11 +84,6 @@ inherited frViewAlbaranRelacionado: TfrViewAlbaranRelacionado
    DataBinding.DataSource = DADataSource
    Enabled = False
    ParentFont = False
-    Style.Font.Charset = DEFAULT_CHARSET
-    Style.Font.Color = clWindowText
-    Style.Font.Height = -11
-    Style.Font.Name = 'Tahoma'
-    Style.Font.Style = []
    Style.LookAndFeel.NativeStyle = True
    StyleDisabled.LookAndFeel.NativeStyle = True
    StyleDisabled.TextColor = clActiveCaption
--- a/cliente/Cliente/uViewPresupuestoAlbaran.dfm
+++ b/cliente/Cliente/uViewPresupuestoAlbaran.dfm
@ -5,8 +5,6 @@ inherited frViewPresupuestoAlbaran: TfrViewPresupuestoAlbaran
  end
  inherited edtlReferencia: TcxDBTextEdit
    StyleDisabled.BorderStyle = ebsNone
-    Height = 21
-    Width = 245
  end
  inherited ActionList1: TActionList
    inherited actElegirPresupuesto: TAction
--- a/cliente/Servidor/srvAlbaranesCliente_Impl.dfm
+++ b/cliente/Servidor/srvAlbaranesCliente_Impl.dfm
@ -6,8 +6,8 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
  ConnectionName = 'IBX'
  ServiceSchema = schAlbaranesCliente
  ServiceAdapter = DABINAdapter
-  Left = 413
-  Top = 220
+  Left = 362
+  Top = 187
  Height = 463
  Width = 347
  object schAlbaranesCliente: TDASchema
--- a/Modulos/Almacenes/Servidor/srvAlmacenes_Impl.dfm
+++ b/Modulos/Almacenes/Servidor/srvAlmacenes_Impl.dfm
@ -6,8 +6,8 @@ object srvAlmacenes: TsrvAlmacenes
  ConnectionName = 'IBX'
  ServiceSchema = schAlmacenes
  ServiceAdapter = DABINAdapter
-  Left = 200
-  Top = 175
+  Left = 176
+  Top = 149
  Height = 300
  Width = 300
  object schAlmacenes: TDASchema
--- a/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm
+++ b/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm
@ -5,8 +5,8 @@ object srvArticulos: TsrvArticulos
  ConnectionName = 'IBX'
  ServiceSchema = schArticulos
  ServiceAdapter = DABINAdapter
-  Left = 449
-  Top = 197
+  Left = 393
+  Top = 167
  Height = 300
  Width = 300
  object schArticulos: TDASchema
--- a/Modulos/Asientos/Servidor/srvAsientos_Impl.dfm
+++ b/Modulos/Asientos/Servidor/srvAsientos_Impl.dfm
@ -6,8 +6,8 @@ object srvAsientos: TsrvAsientos
  ConnectionName = 'IBX'
  ServiceSchema = schAsientos
  ServiceAdapter = DABINAdapter
-  Left = 512
-  Top = 147
+  Left = 448
+  Top = 125
  Height = 300
  Width = 300
  object schAsientos: TDASchema
--- a/Modulos/Calendarios/Servidor/srvCitas_Impl.dfm
+++ b/Modulos/Calendarios/Servidor/srvCitas_Impl.dfm
@ -6,8 +6,8 @@ object srvCitas: TsrvCitas
  ConnectionName = 'IBX'
  ServiceSchema = schCitas
  ServiceAdapter = DABINAdapter
-  Left = 502
-  Top = 180
+  Left = 439
+  Top = 153
  Height = 184
  Width = 245
  object schCitas: TDASchema
--- a/Modulos/Contactos/Cliente/uDataModuleContactos.dfm
+++ b/Modulos/Contactos/Cliente/uDataModuleContactos.dfm
@ -10,8 +10,8 @@ object dmContactos: TdmContactos
      ParamType = fResult
      DataType = rtString
    end>
-  Left = 535
-  Top = 332
+  Left = 468
+  Top = 281
  Height = 498
  Width = 531
  object RORemoteService: TRORemoteService
--- a/Modulos/Contactos/Cliente/uEditorClientes.dfm
+++ b/Modulos/Contactos/Cliente/uEditorClientes.dfm
@ -1,6 +1,6 @@
 inherited fEditorClientes: TfEditorClientes
-  Left = 441
-  Top = 313
+  Left = 386
+  Top = 265
  Width = 693
  Caption = 'Lista de clientes'
  PixelsPerInch = 96
@ -45,9 +45,6 @@ inherited fEditorClientes: TfEditorClientes
  end
  inherited TBXDock: TTBXDock
    Width = 685
-    inherited tbxFiltro: TTBXToolbar
-      Left = 411
-    end
  end
  inherited StatusBar: TStatusBar
    Width = 685
--- a/Modulos/Contactos/Cliente/uEditorContacto.dfm
+++ b/Modulos/Contactos/Cliente/uEditorContacto.dfm
@ -1,6 +1,6 @@
 inherited fEditorContacto: TfEditorContacto
-  Left = 575
-  Top = 291
+  Left = 503
+  Top = 247
  HorzScrollBar.Visible = False
  VertScrollBar.Range = 0
  VertScrollBar.Visible = False
--- a/Modulos/Contactos/Cliente/uEditorContactos.dfm
+++ b/Modulos/Contactos/Cliente/uEditorContactos.dfm
@ -1,6 +1,6 @@
 inherited fEditorContactos: TfEditorContactos
-  Left = 180
-  Top = 250
+  Left = 158
+  Top = 212
  Caption = 'Lista de contactos'
  PixelsPerInch = 96
  TextHeight = 13
--- a/Modulos/Contactos/Cliente/uEditorProveedores.dfm
+++ b/Modulos/Contactos/Cliente/uEditorProveedores.dfm
@ -1,6 +1,6 @@
 inherited fEditorProveedores: TfEditorProveedores
-  Left = 406
-  Top = 352
+  Left = 355
+  Top = 298
  Caption = 'Lista de proveedores'
  PixelsPerInch = 96
  TextHeight = 13
@ -40,11 +40,6 @@ inherited fEditorProveedores: TfEditorProveedores
        FF01702244FEF5B056BE0000000049454E44AE426082}
    end
  end
-  inherited TBXDock: TTBXDock
-    inherited tbxFiltro: TTBXToolbar
-      Left = 411
-    end
-  end
  inherited frViewBarraSeleccion: TfrViewBarraSeleccion
    inherited pnlSeleccion: TPanel
      inherited bSeleccionar: TButton
--- a/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
+++ b/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
@ -7,8 +7,8 @@ object srvContactos: TsrvContactos
  ConnectionName = 'IBX'
  ServiceSchema = schContactos
  ServiceAdapter = DABINAdapter
-  Left = 617
-  Top = 273
+  Left = 540
+  Top = 232
  Height = 354
  Width = 450
  object schContactos: TDASchema
--- a/Modulos/Cuentas/Servidor/srvCuentas_Impl.dfm
+++ b/Modulos/Cuentas/Servidor/srvCuentas_Impl.dfm
@ -6,8 +6,8 @@ object srvCuentas: TsrvCuentas
  ConnectionName = 'IBX'
  ServiceSchema = schCuentas
  ServiceAdapter = DABINAdapter
-  Left = 555
-  Top = 156
+  Left = 485
+  Top = 133
  Height = 300
  Width = 300
  object schCuentas: TDASchema
--- a/cliente/Cliente/uEditorFacturaCliente.dfm
+++ b/cliente/Cliente/uEditorFacturaCliente.dfm
@ -1,6 +1,6 @@
 inherited fEditorFacturaCliente: TfEditorFacturaCliente
-  Left = 454
-  Top = 208
+  Left = 397
+  Top = 177
  Width = 777
  Height = 615
  Caption = 'Nueva factura de cliente'
--- a/cliente/Cliente/uViewAlbaranFactura.dfm
+++ b/cliente/Cliente/uViewAlbaranFactura.dfm
@ -1,8 +1,4 @@
 inherited frViewAlbaranFactura: TfrViewAlbaranFactura
-  inherited edtlReferencia: TcxDBTextEdit
-    Height = 21
-    Width = 245
-  end
  inherited ActionList1: TActionList
    inherited actElegirAlbaran: TAction
      OnExecute = actElegirAlbaranExecute
--- a/cliente/Servidor/srvFacturasCliente_Impl.dfm
+++ b/cliente/Servidor/srvFacturasCliente_Impl.dfm
@ -6,8 +6,8 @@ object srvFacturasCliente: TsrvFacturasCliente
  ConnectionName = 'IBX'
  ServiceSchema = schFacturasCliente
  ServiceAdapter = DABINAdapter
-  Left = 710
-  Top = 270
+  Left = 621
+  Top = 229
  Height = 490
  Width = 347
  object schFacturasCliente: TDASchema
--- a/proveedor/Cliente/uViewFacturaProveedor.dfm
+++ b/proveedor/Cliente/uViewFacturaProveedor.dfm
@ -68,6 +68,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
    end
    inherited ToolBar2: TToolBar
      Left = 181
+      Width = 201
      ButtonWidth = 197
    end
    inherited edtCodigoPostal: TcxDBTextEdit
--- a/proveedor/Servidor/srvFacturasProveedor_Impl.dfm
+++ b/proveedor/Servidor/srvFacturasProveedor_Impl.dfm
@ -6,8 +6,8 @@ object srvFacturasProveedor: TsrvFacturasProveedor
  ConnectionName = 'IBX'
  ServiceSchema = schFacturasProveedor
  ServiceAdapter = DABINAdapter
-  Left = 477
-  Top = 333
+  Left = 417
+  Top = 282
  Height = 392
  Width = 369
  object schFacturasProveedor: TDASchema
--- a/Modulos/Intervalos/Servidor/srvIntervalos_Impl.dfm
+++ b/Modulos/Intervalos/Servidor/srvIntervalos_Impl.dfm
@ -6,8 +6,8 @@ object srvIntervalos: TsrvIntervalos
  ConnectionName = 'IBX'
  ServiceSchema = schIntervalos
  ServiceAdapter = DABINAdapter
-  Left = 444
-  Top = 179
+  Left = 389
+  Top = 152
  Height = 300
  Width = 300
  object schIntervalos: TDASchema
--- a/Modulos/Montajes/Cliente/uEditorMontaje.dfm
+++ b/Modulos/Montajes/Cliente/uEditorMontaje.dfm
@ -1,6 +1,6 @@
 inherited fEditorMontaje: TfEditorMontaje
-  Left = 337
-  Top = 203
+  Left = 295
+  Top = 172
  Width = 766
  Height = 497
  HorzScrollBar.Visible = False
@ -114,9 +114,6 @@ inherited fEditorMontaje: TfEditorMontaje
          inherited edtCalle: TcxDBTextEdit
            Width = 296
          end
-          inherited ToolBar2: TToolBar
-            Width = 182
-          end
          inherited edtCodigoPostal: TcxDBTextEdit
            Width = 105
          end
@ -170,6 +167,9 @@ inherited fEditorMontaje: TfEditorMontaje
              end
              inherited TBXAlignmentPanel1: TTBXAlignmentPanel
                Width = 746
+                inherited tbxBotones: TTBXToolbar
+                  Width = 736
+                end
              end
            end
          end
@ -235,6 +235,9 @@ inherited fEditorMontaje: TfEditorMontaje
              end
              inherited TBXAlignmentPanel1: TTBXAlignmentPanel
                Width = 746
+                inherited tbxBotones: TTBXToolbar
+                  Width = 736
+                end
              end
            end
          end
--- a/Modulos/Montajes/Cliente/uViewArticulosMontaje.dfm
+++ b/Modulos/Montajes/Cliente/uViewArticulosMontaje.dfm
@ -78,13 +78,13 @@ inherited frViewArticulosMontaje: TfrViewArticulosMontaje
      inherited TBXDockablePanel1: TTBXDockablePanel
        inherited dxLayoutControl1: TdxLayoutControl
          inherited txtFiltroTodo: TcxTextEdit
-            Width = 273
+            Width = 465
          end
          inherited edtFechaIniFiltro: TcxDateEdit
-            Width = 121
+            Width = 245
          end
          inherited edtFechaFinFiltro: TcxDateEdit
-            Width = 121
+            Width = 204
          end
        end
      end
--- a/Modulos/Montajes/Cliente/uViewFichaBeneficiosMontaje.dfm
+++ b/Modulos/Montajes/Cliente/uViewFichaBeneficiosMontaje.dfm
@ -1,10 +1,7 @@
 inherited frViewFichaBeneficiosMontaje: TfrViewFichaBeneficiosMontaje
-  Width = 783
-  Height = 378
  inherited cxGrid: TcxGrid
    Top = 127
-    Width = 783
-    Height = 251
+    Height = 143
    inherited cxGridView: TcxGridDBTableView
      DataController.DataModeController.SmartRefresh = False
      DataController.DataModeController.SyncMode = True
@ -88,7 +85,7 @@ inherited frViewFichaBeneficiosMontaje: TfrViewFichaBeneficiosMontaje
  object ToolBar1: TToolBar [1]
    Left = 0
    Top = 0
-    Width = 783
+    Width = 443
    Height = 25
    ButtonWidth = 63
    Caption = 'ToolBar1'
@ -121,27 +118,17 @@ inherited frViewFichaBeneficiosMontaje: TfrViewFichaBeneficiosMontaje
  end
  inherited frViewFiltroBase1: TfrViewFiltroBase
    Top = 25
-    Width = 783
    inherited TBXDock1: TTBXDock
-      Width = 783
      inherited TBXDockablePanel1: TTBXDockablePanel
        inherited dxLayoutControl1: TdxLayoutControl
-          Width = 779
          inherited txtFiltroTodo: TcxTextEdit
-            Width = 273
+            Width = 465
          end
          inherited edtFechaIniFiltro: TcxDateEdit
-            Width = 121
+            Width = 245
          end
          inherited edtFechaFinFiltro: TcxDateEdit
-            Left = 479
-            Width = 121
-          end
-        end
-        inherited TBXAlignmentPanel1: TTBXAlignmentPanel
-          Width = 779
-          inherited tbxBotones: TTBXToolbar
-            Width = 769
+            Width = 204
          end
        end
      end
--- a/Modulos/Montajes/Cliente/uViewPedidosMontaje.dfm
+++ b/Modulos/Montajes/Cliente/uViewPedidosMontaje.dfm
@ -135,13 +135,13 @@ inherited frViewPedidosMontaje: TfrViewPedidosMontaje
      inherited TBXDockablePanel1: TTBXDockablePanel
        inherited dxLayoutControl1: TdxLayoutControl
          inherited txtFiltroTodo: TcxTextEdit
-            Width = 273
+            Width = 465
          end
          inherited edtFechaIniFiltro: TcxDateEdit
-            Width = 121
+            Width = 245
          end
          inherited edtFechaFinFiltro: TcxDateEdit
-            Width = 121
+            Width = 204
          end
        end
      end
--- 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 = 647
-  Top = 181
+  Left = 566
+  Top = 154
  Height = 356
  Width = 300
  object bpMontajes: TDABusinessProcessor
--- a/Modulos/Pagos/Cliente/uDataModulePagos.dfm
+++ b/Modulos/Pagos/Cliente/uDataModulePagos.dfm
@ -10,8 +10,8 @@ object dmPagos: TdmPagos
      ParamType = fResult
      DataType = rtString
    end>
-  Left = 241
-  Top = 140
+  Left = 211
+  Top = 119
  Height = 208
  Width = 313
  object RORemoteService: TRORemoteService
--- a/Modulos/Pagos/Cliente/uViewDatosPago.dfm
+++ b/Modulos/Pagos/Cliente/uViewDatosPago.dfm
@ -99,11 +99,6 @@ inherited frViewDatosPago: TfrViewDatosPago
    Properties.UseLeftAlignmentOnEditing = False
    Properties.UseThousandSeparator = True
    Style.Color = clInfoBk
-    Style.Font.Charset = DEFAULT_CHARSET
-    Style.Font.Color = clWindowText
-    Style.Font.Height = -11
-    Style.Font.Name = 'MS Sans Serif'
-    Style.Font.Style = []
    Style.LookAndFeel.Kind = lfStandard
    Style.LookAndFeel.NativeStyle = True
    Style.TextColor = clWindowText
--- a/Modulos/Pagos/Cliente/uViewPagoProveedor.dfm
+++ b/Modulos/Pagos/Cliente/uViewPagoProveedor.dfm
@ -35,4 +35,9 @@ inherited frViewPagoProveedor: TfrViewPagoProveedor
      end
    end
  end
+  inherited frListaCuentas1: TfrListaCuentas
+    inherited cxCuenta: TcxDBLookupComboBox
+      DataBinding.DataSource = DADataSource
+    end
+  end
 end
--- a/Modulos/Pagos/Servidor/srvPagos_Impl.dfm
+++ b/Modulos/Pagos/Servidor/srvPagos_Impl.dfm
@ -6,8 +6,8 @@ object srvPagos: TsrvPagos
  ConnectionName = 'IBX'
  ServiceSchema = schPagos
  ServiceAdapter = DABINAdapter
-  Left = 345
-  Top = 394
+  Left = 302
+  Top = 334
  Height = 300
  Width = 300
  object schPagos: TDASchema
--- a/proveedor/Servidor/srvPedidosProveedor_Impl.dfm
+++ b/proveedor/Servidor/srvPedidosProveedor_Impl.dfm
@ -6,8 +6,8 @@ object srvPedidosProveedor: TsrvPedidosProveedor
  ConnectionName = 'IBX'
  ServiceSchema = schPedidosProveedor
  ServiceAdapter = DABINAdapter
-  Left = 445
-  Top = 267
+  Left = 389
+  Top = 226
  Height = 459
  Width = 300
  object schPedidosProveedor: TDASchema
--- a/Modulos/Presupuestos/Cliente/uDataModulePresupuestos.dfm
+++ b/Modulos/Presupuestos/Cliente/uDataModulePresupuestos.dfm
@ -10,8 +10,8 @@ object dmPresupuestos: TdmPresupuestos
      ParamType = fResult
      DataType = rtString
    end>
-  Left = 628
-  Top = 377
+  Left = 549
+  Top = 319
  Height = 326
  Width = 367
  object RORemoteService: TRORemoteService
--- a/Modulos/Presupuestos/Cliente/uEditorPresupuestos.dfm
+++ b/Modulos/Presupuestos/Cliente/uEditorPresupuestos.dfm
@ -1,6 +1,6 @@
 inherited fEditorPresupuestos: TfEditorPresupuestos
-  Left = 221
-  Top = 205
+  Left = 194
+  Top = 174
  Width = 781
  Caption = 'Lista de presupuestos'
  PixelsPerInch = 96
--- a/Modulos/Presupuestos/Servidor/srvPresupuestos_Impl.dfm
+++ b/Modulos/Presupuestos/Servidor/srvPresupuestos_Impl.dfm
@ -6,8 +6,8 @@ object srvPresupuestos: TsrvPresupuestos
  ConnectionName = 'IBX'
  ServiceSchema = schPresupuestos
  ServiceAdapter = DABINAdapter
-  Left = 728
-  Top = 316
+  Left = 636
+  Top = 268
  Height = 359
  Width = 328
  object schPresupuestos: TDASchema
--- a/Servidor/srvComisiones_Impl.dfm
+++ b/Servidor/srvComisiones_Impl.dfm
@ -5,8 +5,8 @@ object srvComisiones: TsrvComisiones
  AcquireConnection = True
  ServiceSchema = schComisiones
  ServiceAdapter = DABINAdapter
-  Left = 677
-  Top = 169
+  Left = 592
+  Top = 144
  Height = 300
  Width = 300
  object schComisiones: TDASchema
--- a/Servidor/srvConfiguracion_Impl.dfm
+++ b/Servidor/srvConfiguracion_Impl.dfm
@ -6,8 +6,8 @@ object srvConfiguracion: TsrvConfiguracion
  ConnectionName = 'IBX'
  ServiceSchema = schConfiguracion
  ServiceAdapter = DABINAdapter
-  Left = 706
-  Top = 96
+  Left = 617
+  Top = 82
  Height = 161
  Width = 300
  object schConfiguracion: TDASchema