inherited frmPedidosEditor: TfrmPedidosEditor
  Caption = 'Editor de Pedido de Cliente'
  ClientHeight = 678
  ClientWidth = 1058
  OnShow = FormShow
  ExplicitWidth = 1074
  ExplicitHeight = 717
  PixelsPerInch = 96
  TextHeight = 16
  inherited pnlToolbar: TPanel
    Width = 1058
    ExplicitWidth = 997
    inherited btnImprimir: TBitBtn
      Width = 69
      ExplicitWidth = 69
    end
    inherited btnRect: TBitBtn
      Left = 729
      ExplicitLeft = 729
    end
    inherited btnAyuda: TBitBtn
      Left = 948
      ExplicitLeft = 887
    end
    inherited btnSalir: TBitBtn
      Left = 1003
      TabOrder = 16
      ExplicitLeft = 942
    end
    object btnGenerarAlbaran: TBitBtn
      Left = 784
      Top = 0
      Width = 65
      Height = 65
      Align = alLeft
      Caption = 'Albar'#225'n'
      ImageIndex = 6
      ImageName = 'Albar'#225'n de Entrega'
      Images = dmgMain.imgListRibbon
      Layout = blGlyphTop
      TabOrder = 15
      WordWrap = True
      OnClick = btnGenerarAlbaranClick
    end
  end
  inherited pnlMain: TPanel
    Width = 1058
    Height = 513
    ExplicitWidth = 997
    ExplicitHeight = 513
    inherited pgcDetails: TPageControl
      Width = 1058
      Height = 513
      ExplicitWidth = 997
      ExplicitHeight = 513
      inherited tsDatosEnvio: TTabSheet
        ExplicitWidth = 1050
        ExplicitHeight = 484
        inherited dbgItems: TDBGrid
          Top = 225
          Width = 975
          Height = 259
          DataSource = dsDetail
          Columns = <
            item
              Expanded = False
              FieldName = 'id_articulo'
              Title.Caption = 'C'#243'd. Art.'
              Width = 70
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'descripcion'
              Title.Caption = 'Descripci'#243'n'
              Width = 350
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'cantidad'
              Title.Caption = 'Cantidad'
              Width = 80
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'bultos'
              Title.Caption = 'Bultos'
              Width = 80
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'precio'
              Title.Caption = 'Precio'
              Width = 90
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'total'
              Title.Caption = 'Total'
              Width = 100
              Visible = True
            end>
        end
        inherited pnlSideToolbar: TPanel
          Left = 975
          Top = 225
          Height = 259
          ExplicitLeft = 914
          ExplicitTop = 225
          ExplicitHeight = 259
        end
        inherited pnlHeader: TPanel
          Width = 1050
          Height = 225
          ExplicitWidth = 989
          ExplicitHeight = 225
          object lblCliente: TLabel
            Left = 16
            Top = 60
            Width = 42
            Height = 15
            Caption = 'Cliente:'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'Segoe UI'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object lblDestino: TLabel
            Left = 242
            Top = 60
            Width = 46
            Height = 15
            Caption = 'Destino:'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'Segoe UI'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object lblNumPedido: TLabel
            Left = 16
            Top = 10
            Width = 58
            Height = 15
            Caption = 'N'#186' Pedido:'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'Segoe UI'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object lblFechaPedido: TLabel
            Left = 130
            Top = 10
            Width = 76
            Height = 15
            Caption = 'Fecha Pedido:'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'Segoe UI'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object lblFechaEntrega: TLabel
            Left = 244
            Top = 10
            Width = 81
            Height = 15
            Caption = 'Fecha Entrega:'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'Segoe UI'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object lblEstado: TLabel
            Left = 358
            Top = 10
            Width = 39
            Height = 15
            Caption = 'Estado:'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'Segoe UI'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object lblObs: TLabel
            Left = 490
            Top = 10
            Width = 84
            Height = 15
            Caption = 'Observaciones:'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'Segoe UI'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object lblOrigen: TLabel
            Left = 412
            Top = 60
            Width = 41
            Height = 15
            Caption = 'Origen:'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'Segoe UI'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object lblAlbaranDoc: TLabel
            Left = 497
            Top = 107
            Width = 62
            Height = 15
            Caption = 'N'#186' Albar'#225'n:'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'Segoe UI'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object lblFacturaDoc: TLabel
            Left = 611
            Top = 107
            Width = 58
            Height = 15
            Caption = 'N'#186' Factura'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'Segoe UI'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object lblEmpresa: TLabel
            Left = 715
            Top = 107
            Width = 50
            Height = 15
            Caption = 'Empresa:'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'Segoe UI'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object btnBuscarCliente: TSpeedButton
            Tag = 999
            Left = 186
            Top = 78
            Width = 24
            Height = 24
            Hint = 'Buscar cliente en el listado'
            Caption = #62733
            Flat = True
            ParentShowHint = False
            ShowHint = True
            OnClick = btnBuscarClienteClick
          end
          object btnNuevoCliente: TSpeedButton
            Tag = 999
            Left = 212
            Top = 78
            Width = 24
            Height = 24
            Hint = 'Crear nuevo cliente'
            Caption = '+'
            Flat = True
            ParentShowHint = False
            ShowHint = True
            OnClick = btnNuevoClienteClick
          end
          object btnBuscarDestino: TSpeedButton
            Tag = 999
            Left = 356
            Top = 78
            Width = 24
            Height = 24
            Hint = 'Buscar sucursal / destino en el listado'
            Caption = #62733
            Flat = True
            ParentShowHint = False
            ShowHint = True
            OnClick = btnBuscarDestinoClick
          end
          object btnNuevoDestino: TSpeedButton
            Tag = 999
            Left = 382
            Top = 78
            Width = 24
            Height = 24
            Hint = 'Crear nuevo destino'
            Caption = '+'
            Flat = True
            ParentShowHint = False
            ShowHint = True
            OnClick = btnNuevoDestinoClick
          end
          object dbEmpresa: TDBLookupComboBox
            Left = 715
            Top = 128
            Width = 235
            Height = 24
            DataField = 'empresa_id'
            DataSource = dsMaster
            KeyField = 'id'
            ListField = 'nombre'
            ListSource = dsEmpresas
            TabOrder = 12
          end
          object dbClient: TDBLookupComboBox
            Left = 16
            Top = 78
            Width = 166
            Height = 24
            DataField = 'cliente_id'
            DataSource = dsMaster
            KeyField = 'id'
            ListField = 'nombre_fiscal'
            ListSource = dsClientList
            TabOrder = 4
            OnCloseUp = dbClientCloseUp
          end
          object dbDest: TDBLookupComboBox
            Left = 242
            Top = 78
            Width = 110
            Height = 24
            DataField = 'clientedestino_id'
            DataSource = dsMaster
            KeyField = 'id'
            ListField = 'descripcion'
            ListSource = dsDestList
            TabOrder = 5
          end
          object dbOrigen: TDBEdit
            Left = 412
            Top = 78
            Width = 70
            Height = 24
            DataField = 'origen'
            DataSource = dsMaster
            ReadOnly = True
            TabOrder = 7
          end
          object dbNumPedido: TDBEdit
            Left = 16
            Top = 28
            Width = 100
            Height = 24
            DataField = 'numero_pedido'
            DataSource = dsMaster
            TabOrder = 0
          end
          object dbFechaPedido: TDBEdit
            Left = 130
            Top = 28
            Width = 100
            Height = 24
            DataField = 'fecha_pedido'
            DataSource = dsMaster
            TabOrder = 1
          end
          object dbFechaEntrega: TDBEdit
            Left = 244
            Top = 28
            Width = 100
            Height = 24
            DataField = 'fecha_entrega'
            DataSource = dsMaster
            TabOrder = 2
          end
          object dbEstado: TDBComboBox
            Left = 358
            Top = 28
            Width = 110
            Height = 24
            Style = csDropDownList
            DataField = 'estado'
            DataSource = dsMaster
            Items.Strings = (
              'PENDIENTE'
              'PROCESADO'
              'EN PREPARACION'
              'PREPARADO'
              'ENVIADO'
              'COMPLETADO'
              'RECHAZADO'
              'CANCELADO'
              'ERROR')
            TabOrder = 3
          end
          object dbObs: TDBMemo
            Left = 490
            Top = 28
            Width = 460
            Height = 74
            DataField = 'observaciones'
            DataSource = dsMaster
            TabOrder = 6
          end
          object pnlClienteInfo: TPanel
            Left = 16
            Top = 110
            Width = 452
            Height = 53
            BevelOuter = bvNone
            Color = clSkyBlue
            ParentBackground = False
            TabOrder = 8
            object lblClienteInfo: TLabel
              Left = 0
              Top = 0
              Width = 452
              Height = 53
              Align = alClient
              AutoSize = False
              WordWrap = True
              ExplicitHeight = 48
            end
          end
          object pnlDestinoInfo: TPanel
            Left = 16
            Top = 165
            Width = 452
            Height = 56
            BevelOuter = bvNone
            Color = clMoneyGreen
            ParentBackground = False
            TabOrder = 9
            object lblDestinoInfo: TLabel
              Left = 0
              Top = 0
              Width = 452
              Height = 56
              Align = alClient
              AutoSize = False
              WordWrap = True
              ExplicitHeight = 48
            end
          end
          object edtAlbaranDoc: TEdit
            Tag = 999
            Left = 497
            Top = 128
            Width = 89
            Height = 24
            TabOrder = 10
            Text = 'edtAlbaranDoc'
          end
          object edtFacturaDoc: TEdit
            Tag = 999
            Left = 609
            Top = 128
            Width = 89
            Height = 24
            TabOrder = 11
            Text = 'edtAlbaranDoc'
          end
        end
      end
      inherited TsListado: TTabSheet
        ExplicitWidth = 1050
        ExplicitHeight = 484
      end
      object tsRecogida: TTabSheet
        Caption = 'Detalles de Recogida / Env'#237'o'
        ImageIndex = 2
        DesignSize = (
          1050
          484)
        object lblInfoRecogida: TLabel
          Left = 20
          Top = 20
          Width = 240
          Height = 15
          Caption = 'No se ha solicitado recogida para este pedido.'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clGray
          Font.Height = -12
          Font.Name = 'Segoe UI'
          Font.Style = [fsItalic]
          ParentFont = False
        end
        object grpRecogidaInfo: TGroupBox
          Left = 16
          Top = 16
          Width = 480
          Height = 390
          Caption = ' Informaci'#243'n de la Recogida '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'Segoe UI'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 0
          Visible = False
          object lblRecTransp: TLabel
            Left = 15
            Top = 25
            Width = 75
            Height = 15
            Caption = 'Transportista:'
          end
          object lblRecCodigo: TLabel
            Left = 15
            Top = 55
            Width = 71
            Height = 15
            Caption = 'N'#186' Recogida:'
          end
          object lblRecFecha: TLabel
            Left = 15
            Top = 85
            Width = 89
            Height = 15
            Caption = 'Fecha Recogida:'
          end
          object lblRecBultos: TLabel
            Left = 255
            Top = 85
            Width = 38
            Height = 15
            Caption = 'Bultos:'
          end
          object lblRecEstado: TLabel
            Left = 15
            Top = 115
            Width = 39
            Height = 15
            Caption = 'Estado:'
          end
          object lblRecAlbaran: TLabel
            Left = 15
            Top = 145
            Width = 97
            Height = 15
            Caption = 'Albar'#225'n de Venta:'
          end
          object lblRecConductor: TLabel
            Left = 15
            Top = 175
            Width = 61
            Height = 15
            Caption = 'Conductor:'
          end
          object lblRecMatricula: TLabel
            Left = 255
            Top = 175
            Width = 55
            Height = 15
            Caption = 'Matr'#237'cula:'
          end
          object edtRecTransp: TEdit
            Tag = 999
            Left = 130
            Top = 22
            Width = 335
            Height = 23
            ReadOnly = True
            TabOrder = 0
          end
          object edtRecCodigo: TEdit
            Tag = 999
            Left = 130
            Top = 52
            Width = 335
            Height = 23
            ReadOnly = True
            TabOrder = 1
          end
          object edtRecFecha: TEdit
            Tag = 999
            Left = 130
            Top = 82
            Width = 110
            Height = 23
            ReadOnly = True
            TabOrder = 2
          end
          object edtRecBultos: TEdit
            Tag = 999
            Left = 310
            Top = 82
            Width = 155
            Height = 23
            ReadOnly = True
            TabOrder = 3
          end
          object edtRecEstado: TEdit
            Tag = 999
            Left = 130
            Top = 112
            Width = 335
            Height = 23
            ReadOnly = True
            TabOrder = 4
          end
          object edtRecAlbaran: TEdit
            Tag = 999
            Left = 130
            Top = 142
            Width = 335
            Height = 23
            ReadOnly = True
            TabOrder = 5
          end
          object edtRecConductor: TEdit
            Tag = 999
            Left = 130
            Top = 172
            Width = 110
            Height = 23
            ReadOnly = True
            TabOrder = 6
          end
          object edtRecMatricula: TEdit
            Tag = 999
            Left = 310
            Top = 172
            Width = 155
            Height = 23
            ReadOnly = True
            TabOrder = 7
          end
          object btnImprimirEtiquetas: TButton
            Left = 15
            Top = 220
            Width = 140
            Height = 35
            Caption = 'Imprimir Etiquetas'
            TabOrder = 8
            OnClick = btnImprimirEtiquetasClick
          end
          object btnVerCarga: TButton
            Left = 165
            Top = 220
            Width = 145
            Height = 35
            Caption = 'Ver Albar'#225'n de Carga'
            TabOrder = 9
            OnClick = btnVerCargaClick
          end
          object btnRegistrarFirma: TButton
            Left = 320
            Top = 220
            Width = 145
            Height = 35
            Caption = 'Firma Conductor'
            TabOrder = 10
            OnClick = btnRegistrarFirmaClick
          end
        end
        object grpPreparacionPedido: TGroupBox
          Tag = 999
          Left = 508
          Top = 16
          Width = 538
          Height = 418
          Anchors = [akLeft, akTop, akRight, akBottom]
          Caption = ' Preparaci'#243'n del Pedido (Bultos y Contenido SSCC) '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'Segoe UI'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 1
          object pnlPrepHeader: TPanel
            Tag = 999
            Left = 2
            Top = 17
            Width = 534
            Height = 36
            Align = alTop
            BevelOuter = bvNone
            TabOrder = 0
            object lblPrepSSCC: TLabel
              Left = 8
              Top = 9
              Width = 60
              Height = 15
              Caption = 'Palet SSCC:'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -12
              Font.Name = 'Segoe UI'
              Font.Style = []
              ParentFont = False
            end
            object lblPrepBultos: TLabel
              Left = 248
              Top = 9
              Width = 36
              Height = 15
              Caption = 'Bultos:'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -12
              Font.Name = 'Segoe UI'
              Font.Style = []
              ParentFont = False
            end
            object edtPrepSSCC: TEdit
              Tag = 999
              Left = 76
              Top = 6
              Width = 165
              Height = 23
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -12
              Font.Name = 'Segoe UI'
              Font.Style = []
              ParentFont = False
              ReadOnly = True
              TabOrder = 0
            end
            object edtPrepBultos: TEdit
              Tag = 999
              Left = 290
              Top = 6
              Width = 45
              Height = 23
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -12
              Font.Name = 'Segoe UI'
              Font.Style = []
              ParentFont = False
              ReadOnly = True
              TabOrder = 1
            end
            object btnPrepRefrescar: TButton
              Tag = 999
              Left = 345
              Top = 5
              Width = 105
              Height = 25
              Caption = 'Refrescar '#193'rbol'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'Segoe UI'
              Font.Style = []
              ParentFont = False
              TabOrder = 2
              OnClick = btnPrepRefrescarClick
            end
          end
          object tvPreparacionBultos: TTreeView
            Tag = 999
            Left = 2
            Top = 53
            Width = 534
            Height = 363
            Align = alClient
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'Segoe UI'
            Font.Style = []
            HideSelection = False
            Indent = 19
            ParentFont = False
            ReadOnly = True
            RowSelect = True
            TabOrder = 1
          end
        end
      end
      object tsEdi: TTabSheet
        Caption = 'Datos EDI / Edicom'
        object splitterEdi: TSplitter
          Left = 460
          Top = 80
          Width = 5
          Height = 404
          ExplicitHeight = 376
        end
        object pnlEdiHeader: TPanel
          Left = 0
          Top = 0
          Width = 1050
          Height = 80
          Align = alTop
          BevelOuter = bvNone
          TabOrder = 0
          object lblEdiOrderType: TLabel
            Left = 16
            Top = 10
            Width = 98
            Height = 15
            Caption = 'Tipo Mensaje EDI:'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'Segoe UI'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object lblEdiIncoterm: TLabel
            Left = 130
            Top = 10
            Width = 55
            Height = 15
            Caption = 'Incoterm:'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'Segoe UI'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object lblFechaLimite: TLabel
            Left = 244
            Top = 10
            Width = 109
            Height = 15
            Caption = 'Fec. L'#237'mite Entrega:'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'Segoe UI'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object lblEdiIdenticket: TLabel
            Left = 380
            Top = 10
            Width = 135
            Height = 15
            Caption = 'Identificador Ticket EDI:'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'Segoe UI'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object dbEdiOrderType: TDBEdit
            Left = 16
            Top = 28
            Width = 100
            Height = 24
            DataField = 'edi_order_type'
            DataSource = dsMaster
            ReadOnly = True
            TabOrder = 0
          end
          object dbEdiIncoterm: TDBEdit
            Left = 130
            Top = 28
            Width = 100
            Height = 24
            DataField = 'edi_incoterm'
            DataSource = dsMaster
            ReadOnly = True
            TabOrder = 1
          end
          object dbFechaLimite: TDBEdit
            Left = 244
            Top = 28
            Width = 120
            Height = 24
            DataField = 'fecha_entrega_limite'
            DataSource = dsMaster
            ReadOnly = True
            TabOrder = 2
          end
          object dbEdiIdenticket: TDBEdit
            Left = 380
            Top = 28
            Width = 250
            Height = 24
            DataField = 'edi_identicket'
            DataSource = dsMaster
            ReadOnly = True
            TabOrder = 3
          end
        end
        object pnlLeftEdi: TPanel
          Left = 0
          Top = 80
          Width = 460
          Height = 404
          Align = alLeft
          BevelOuter = bvNone
          TabOrder = 1
          object lblHeaderDiscounts: TLabel
            Left = 0
            Top = 0
            Width = 460
            Height = 15
            Align = alTop
            Caption = '  Descuentos y Cargos de Cabecera (General)'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'Segoe UI'
            Font.Style = [fsBold]
            ParentFont = False
            Layout = tlCenter
            ExplicitWidth = 246
          end
          object gridHeaderDiscounts: TDBGrid
            Left = 0
            Top = 15
            Width = 460
            Height = 389
            Align = alClient
            DataSource = dsHeaderDiscounts
            Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
            ReadOnly = True
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -13
            TitleFont.Name = 'Segoe UI'
            TitleFont.Style = []
          end
        end
        object pnlRightEdi: TPanel
          Left = 465
          Top = 80
          Width = 585
          Height = 404
          Align = alClient
          BevelOuter = bvNone
          TabOrder = 2
          object lblLineDiscounts: TLabel
            Left = 0
            Top = 0
            Width = 585
            Height = 15
            Align = alTop
            Caption = '  Descuentos y Cargos por L'#237'nea de Detalle'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'Segoe UI'
            Font.Style = [fsBold]
            ParentFont = False
            Layout = tlCenter
            ExplicitWidth = 234
          end
          object gridLineDiscounts: TDBGrid
            Left = 0
            Top = 15
            Width = 585
            Height = 389
            Align = alClient
            DataSource = dsLineDiscounts
            Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
            ReadOnly = True
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -13
            TitleFont.Name = 'Segoe UI'
            TitleFont.Style = []
          end
        end
      end
    end
  end
  inherited pnlFooter: TPanel
    Top = 578
    Width = 1058
    ExplicitTop = 578
    ExplicitWidth = 997
    object lblBase: TLabel
      Left = 603
      Top = 12
      Width = 99
      Height = 17
      Alignment = taRightJustify
      Caption = 'Base Imponible:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Segoe UI'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lblIva: TLabel
      Left = 603
      Top = 42
      Width = 22
      Height = 17
      Alignment = taRightJustify
      Caption = 'Iva:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Segoe UI'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lblTotal: TLabel
      Left = 599
      Top = 72
      Width = 35
      Height = 17
      Alignment = taRightJustify
      Caption = 'Total:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Segoe UI'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object dbBase: TDBEdit
      Left = 720
      Top = 9
      Width = 120
      Height = 25
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Segoe UI'
      Font.Style = [fsBold]
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
    end
    object dbIva: TDBEdit
      Left = 720
      Top = 39
      Width = 120
      Height = 25
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Segoe UI'
      Font.Style = [fsBold]
      ParentFont = False
      ReadOnly = True
      TabOrder = 1
    end
    object dbTotal: TDBEdit
      Left = 720
      Top = 69
      Width = 120
      Height = 25
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Segoe UI'
      Font.Style = [fsBold]
      ParentFont = False
      ReadOnly = True
      TabOrder = 2
    end
  end
  object dsMaster: TDataSource
    DataSet = qMaster
    Left = 60
    Top = 220
  end
  object qMaster: TFDQuery
    AfterScroll = qMasterAfterScroll
    Connection = dmgMain.dbConn
    Left = 120
    Top = 220
  end
  object dsDetail: TDataSource
    DataSet = qDetail
    Left = 60
    Top = 280
  end
  object qDetail: TFDQuery
    BeforePost = qDetailBeforePost
    AfterPost = qDetailAfterPost
    Connection = dmgMain.dbConn
    Left = 120
    Top = 280
  end
  object dsClientList: TDataSource
    DataSet = qClientList
    Left = 60
    Top = 340
  end
  object qClientList: TFDQuery
    Connection = dmgMain.dbConn
    Left = 120
    Top = 340
  end
  object dsDestList: TDataSource
    DataSet = qDestList
    Left = 60
    Top = 400
  end
  object qDestList: TFDQuery
    Connection = dmgMain.dbConn
    Left = 120
    Top = 400
  end
  object qHeaderDiscounts: TFDQuery
    Connection = dmgMain.dbConn
    SQL.Strings = (
      'SELECT tipo, codigo_motivo, porcentaje, importe '
      'FROM ge_pedidos_descuentos_cargos '
      'WHERE id_pedido = :id_pedido')
    Left = 180
    Top = 220
  end
  object dsHeaderDiscounts: TDataSource
    DataSet = qHeaderDiscounts
    Left = 240
    Top = 220
  end
  object qLineDiscounts: TFDQuery
    Connection = dmgMain.dbConn
    SQL.Strings = (
      
        'SELECT l.descripcion AS articulo, ld.tipo, ld.codigo_motivo, ld.' +
        'porcentaje, ld.importe '
      'FROM ge_pedidos_lineas_descuentos ld '
      'JOIN ge_pedidos_lineas l ON ld.id_pedido_linea = l.id '
      'WHERE l.id_pedido = :id_pedido')
    Left = 180
    Top = 280
  end
  object dsLineDiscounts: TDataSource
    DataSet = qLineDiscounts
    Left = 240
    Top = 280
  end
  object qEmpresas: TFDQuery
    Connection = dmgMain.dbConn
    SQL.Strings = (
      
        'SELECT id, nombre FROM ge_empresas WHERE activo = 1 ORDER BY nom' +
        'bre')
    Left = 320
    Top = 220
  end
  object dsEmpresas: TDataSource
    DataSet = qEmpresas
    Left = 380
    Top = 220
  end
end