object fbuscararticulos: Tfbuscararticulos
  Left = 0
  Top = 0
  Caption = 'Articulos'
  ClientHeight = 341
  ClientWidth = 484
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 484
    Height = 65
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 3
      Top = 18
      Width = 60
      Height = 19
      Caption = 'Buscar:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Edit1: TEdit
      Left = 65
      Top = 16
      Width = 320
      Height = 27
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnChange = Edit1Change
      OnExit = Edit1Exit
    end
    object btAguardar: TButton
      Left = 401
      Top = 1
      Width = 82
      Height = 63
      Align = alRight
      Caption = 'Aceptar'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ImageAlignment = iaBottom
      ImageIndex = 140
      ParentFont = False
      TabOrder = 1
      OnClick = btAguardarClick
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 65
    Width = 484
    Height = 276
    Align = alClient
    DataSource = dsqarticulos
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
    OnColExit = DBGrid1ColExit
    Columns = <
      item
        Expanded = False
        FieldName = 'codigo'
        Title.Caption = 'C'#243'digo'
        Width = 112
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'descripcion'
        Title.Caption = 'Descripci'#243'n'
        Width = 334
        Visible = True
      end>
  end
  object qarticulos: TZReadOnlyQuery
    Connection = dm.DBfactugest
    BeforeOpen = qarticulosBeforeOpen
    SQL.Strings = (
      
        'select * from articulosf where activo=1 and facturable=1 order b' +
        'y descripcion')
    Params = <>
    Left = 104
    Top = 136
    object qarticulosidempresa: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object qarticulosid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qarticuloscodigo: TWideStringField
      FieldName = 'codigo'
      Required = True
      Size = 40
    end
    object qarticulosdescripcion: TWideStringField
      FieldName = 'descripcion'
      Required = True
      Size = 100
    end
    object qarticulospvp: TFloatField
      FieldName = 'pvp'
      Required = True
    end
    object qarticulostipoiva: TIntegerField
      FieldName = 'tipoiva'
      Required = True
    end
  end
  object dsqarticulos: TDataSource
    DataSet = qarticulos
    Left = 104
    Top = 96
  end
  object DataSource1: TDataSource
    DataSet = qtipos_iva
    Left = 208
    Top = 112
  end
  object qtipos_iva: TZReadOnlyQuery
    Connection = dm.DBfactugest
    BeforeOpen = qarticulosBeforeOpen
    SQL.Strings = (
      'select * from tipos_iva')
    Params = <>
    MasterFields = 'tipoiva'
    MasterSource = dsqarticulos
    LinkedFields = 'id'
    Left = 208
    Top = 129
    object qtipos_ivaid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qtipos_ivadescripcion: TWideStringField
      FieldName = 'descripcion'
      Required = True
      Size = 50
    end
    object qtipos_ivatipo: TIntegerField
      FieldName = 'tipo'
      Required = True
    end
    object qtipos_ivatipo_req: TFloatField
      FieldName = 'tipo_req'
      Required = True
    end
  end
end
