object frmDocumentosRelacionados: TfrmDocumentosRelacionados
  Left = 0
  Top = 0
  Caption = 'Trazabilidad y Documentos Relacionados'
  ClientHeight = 520
  ClientWidth = 880
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Segoe UI'
  Font.Style = []
  Position = poOwnerFormCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 15
  object pnlHeader: TPanel
    Left = 0
    Top = 0
    Width = 880
    Height = 65
    Align = alTop
    BevelOuter = bvNone
    Color = clWhite
    ParentBackground = False
    TabOrder = 0
    object lblTitle: TLabel
      Left = 16
      Top = 10
      Width = 347
      Height = 21
      Caption = 'Cadena de Trazabilidad Documental de Venta'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 4210752
      Font.Height = -16
      Font.Name = 'Segoe UI'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lblSubTitle: TLabel
      Left = 16
      Top = 36
      Width = 129
      Height = 17
      Caption = 'Documento origen: '#8212
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -13
      Font.Name = 'Segoe UI'
      Font.Style = []
      ParentFont = False
    end
  end
  object pnlGrid: TPanel
    Left = 0
    Top = 65
    Width = 880
    Height = 395
    Align = alClient
    BevelOuter = bvNone
    Padding.Left = 10
    Padding.Top = 10
    Padding.Right = 10
    Padding.Bottom = 5
    TabOrder = 1
    object dbGridDocs: TDBGrid
      Left = 10
      Top = 10
      Width = 860
      Height = 380
      Align = alClient
      DataSource = dsDocs
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgTitleClick]
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = 'Segoe UI'
      TitleFont.Style = []
      OnDblClick = dbGridDocsDblClick
      OnTitleClick = dbGridDocsTitleClick
      Columns = <
        item
          Expanded = False
          FieldName = 'tipo_doc_desc'
          Title.Caption = 'Tipo Documento'
          Width = 140
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'serie_numero'
          Title.Caption = 'Serie / N'#250'mero'
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fecha'
          Title.Caption = 'Fecha'
          Width = 85
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tercero'
          Title.Caption = 'Cliente / Transportista'
          Width = 220
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'estado'
          Title.Caption = 'Estado'
          Width = 110
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'total_str'
          Title.Caption = 'Importe / Bultos'
          Width = 120
          Visible = True
        end>
    end
  end
  object pnlFooter: TPanel
    Left = 0
    Top = 460
    Width = 880
    Height = 60
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 2
    object btnAbrir: TBitBtn
      Left = 16
      Top = 12
      Width = 150
      Height = 36
      Caption = '  Abrir Documento'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Segoe UI'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnClick = btnAbrirClick
    end
    object btnImprimir: TBitBtn
      Left = 176
      Top = 12
      Width = 110
      Height = 36
      Caption = '  Imprimir'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Segoe UI'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = btnImprimirClick
    end
    object btnRefrescar: TBitBtn
      Left = 296
      Top = 12
      Width = 100
      Height = 36
      Caption = '  Refrescar'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Segoe UI'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = btnRefrescarClick
    end
    object btnCerrar: TBitBtn
      Left = 760
      Top = 12
      Width = 100
      Height = 36
      Cancel = True
      Caption = 'Cerrar'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Segoe UI'
      Font.Style = []
      ModalResult = 2
      ParentFont = False
      TabOrder = 3
    end
  end
  object mtDocs: TFDMemTable
    FetchOptions.AssignedValues = [evMode]
    FetchOptions.Mode = fmAll
    ResourceOptions.AssignedValues = [rvSilentMode]
    ResourceOptions.SilentMode = True
    UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
    UpdateOptions.CheckRequired = False
    UpdateOptions.AutoCommitUpdates = True
    Left = 48
    Top = 140
    object mtDocstipo_doc: TIntegerField
      FieldName = 'tipo_doc'
    end
    object mtDocstipo_doc_desc: TStringField
      FieldName = 'tipo_doc_desc'
      Size = 50
    end
    object mtDocsdoc_id: TStringField
      FieldName = 'doc_id'
      Size = 100
    end
    object mtDocsserie_numero: TStringField
      FieldName = 'serie_numero'
      Size = 50
    end
    object mtDocsfecha: TDateField
      FieldName = 'fecha'
    end
    object mtDocstercero: TStringField
      FieldName = 'tercero'
      Size = 150
    end
    object mtDocsestado: TStringField
      FieldName = 'estado'
      Size = 50
    end
    object mtDocstotal_str: TStringField
      FieldName = 'total_str'
      Size = 50
    end
    object mtDocstotal_num: TFloatField
      FieldName = 'total_num'
    end
    object mtDocsetapa_orden: TIntegerField
      FieldName = 'etapa_orden'
    end
  end
  object dsDocs: TDataSource
    DataSet = mtDocs
    Left = 120
    Top = 140
  end
end
