object dmclientes: Tdmclientes
  OldCreateOrder = False
  Height = 504
  Width = 841
  object dtclientes: TZQuery
    Connection = DM.DBagrigest
    AfterPost = dtclientesAfterPost
    SQL.Strings = (
      'select * from clientes')
    Params = <>
    MasterFields = 'id;idempresa'
    MasterSource = dsqclientes
    LinkedFields = 'id;idempresa'
    Left = 176
    Top = 32
    object dtclientesid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object dtclientesIdempresa: TIntegerField
      FieldName = 'Idempresa'
      Required = True
    end
    object dtclientesnif: TWideStringField
      FieldName = 'nif'
      Required = True
      Size = 18
    end
    object dtclientesnombre: TWideStringField
      FieldName = 'nombre'
      Required = True
      Size = 80
    end
    object dtclientesdireccion: TWideStringField
      FieldName = 'direccion'
      Size = 80
    end
    object dtclientespoblacion: TWideStringField
      FieldName = 'poblacion'
      Size = 80
    end
    object dtclientescodpost: TWideStringField
      FieldName = 'codpost'
      Size = 10
    end
    object dtclientesprovincia: TWideStringField
      FieldName = 'provincia'
      Size = 60
    end
    object dtclientestelefono: TWideStringField
      FieldName = 'telefono'
      Size = 24
    end
    object dtclientesemail: TWideStringField
      FieldName = 'email'
      Size = 80
    end
    object dtclientespersonacontacto: TWideStringField
      FieldName = 'personacontacto'
      Size = 80
    end
    object dtclientescodigomercado: TIntegerField
      FieldName = 'codigomercado'
      Required = True
    end
    object dtclientesactivo: TIntegerField
      FieldName = 'activo'
      Required = True
    end
    object dtclientesobservaciones: TWideStringField
      FieldName = 'observaciones'
      Size = 500
    end
    object dtclientesccontable: TIntegerField
      FieldName = 'ccontable'
    end
    object dtclientesnombre_corto: TWideStringField
      FieldName = 'nombre_corto'
      Required = True
    end
    object dtclientestelefono2: TWideStringField
      FieldName = 'telefono2'
      Size = 30
    end
    object dtclientesmovil: TWideStringField
      FieldName = 'movil'
      Size = 30
    end
    object dtclientesdescuento: TFloatField
      FieldName = 'descuento'
      Required = True
    end
    object dtclientespais: TWideStringField
      FieldName = 'pais'
      Size = 50
    end
    object dtclientesidformapago: TIntegerField
      FieldName = 'idformapago'
      Required = True
    end
    object dtclientesexento_iva: TIntegerField
      FieldName = 'exento_iva'
      Required = True
    end
    object dtclientescomision: TFloatField
      FieldName = 'comision'
      Required = True
    end
    object dtclientesidcp: TIntegerField
      FieldName = 'idcp'
    end
    object dtclientestipocliente: TWideStringField
      FieldName = 'tipocliente'
      Size = 72
    end
    object dtclientesusa_re: TIntegerField
      FieldName = 'usa_re'
    end
    object dtclientesean: TWideStringField
      FieldName = 'ean'
      Size = 26
    end
  end
  object qclientes: TZReadOnlyQuery
    Connection = DM.DBagrigest
    BeforeOpen = qclientesBeforeOpen
    SQL.Strings = (
      'select * from clientes where activo=1 order by nombre_corto asc')
    Params = <>
    MasterFields = 'id'
    MasterSource = DM.dsempresa
    LinkedFields = 'Idempresa'
    Left = 104
    Top = 32
    object qclientesid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qclientesnombre_corto: TWideStringField
      FieldName = 'nombre_corto'
      Required = True
    end
    object qclientesIdempresa: TIntegerField
      FieldName = 'Idempresa'
      Required = True
    end
  end
  object dsqclientes: TDataSource
    DataSet = qclientes
    OnDataChange = dsqclientesDataChange
    Left = 48
    Top = 32
  end
  object dsclientes: TDataSource
    DataSet = dtclientes
    OnStateChange = dsclientesStateChange
    Left = 256
    Top = 32
  end
  object dtdestinos: TZQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      'select * from clientes_destinos')
    Params = <>
    Properties.Strings = (
      'select * from clientespedidos')
    MasterFields = 'idcliente;codigo;idempresa'
    MasterSource = dsqdestinos
    LinkedFields = 'idcliente;codigo;idempresa'
    Left = 176
    Top = 80
    object dtdestinosidcliente: TIntegerField
      FieldName = 'idcliente'
      Required = True
    end
    object dtdestinosidempresa: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object dtdestinoscodigo: TWideStringField
      FieldName = 'codigo'
      Required = True
      Size = 40
    end
    object dtdestinosdescripcion: TWideStringField
      FieldName = 'descripcion'
      Required = True
      Size = 80
    end
    object dtdestinosactivo: TIntegerField
      FieldName = 'activo'
      Required = True
    end
    object dtdestinosseleccionado: TIntegerField
      FieldName = 'seleccionado'
      Required = True
    end
    object dtdestinosdireccion: TWideStringField
      FieldName = 'direccion'
      Size = 50
    end
    object dtdestinospoblacion: TWideStringField
      FieldName = 'poblacion'
      Size = 50
    end
    object dtdestinoscodpost: TWideStringField
      FieldName = 'codpost'
      Size = 10
    end
    object dtdestinosprovincia: TWideStringField
      FieldName = 'provincia'
      Size = 50
    end
    object dtdestinospais: TWideStringField
      FieldName = 'pais'
      Size = 50
    end
    object dtdestinosean: TWideStringField
      FieldName = 'ean'
      Size = 26
    end
    object dtdestinosdep: TWideStringField
      FieldName = 'dep'
      Size = 34
    end
    object dtdestinosean2: TWideStringField
      FieldName = 'ean2'
      Size = 26
    end
    object dtdestinoseanreceptor: TWideStringField
      FieldName = 'eanreceptor'
      Size = 26
    end
  end
  object dsdestinos: TDataSource
    DataSet = dtdestinos
    OnStateChange = dsdestinosStateChange
    Left = 256
    Top = 80
  end
  object dtarticulos: TZQuery
    Connection = DM.DBagrigest
    AfterOpen = dtarticulosAfterOpen
    AfterClose = dtarticulosAfterClose
    SQL.Strings = (
      'select * from clientes_articulos')
    Params = <>
    MasterFields = 'idcliente;id;idempresa'
    MasterSource = dsqarticulosx
    LinkedFields = 'idcliente;id;idempresa'
    Left = 176
    Top = 136
    object dtarticulosidempresa: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object dtarticulosidcliente: TIntegerField
      FieldName = 'idcliente'
      Required = True
    end
    object dtarticulosid: TWideStringField
      FieldName = 'id'
      Required = True
      Size = 30
    end
    object dtarticulosdesc_cliente: TWideStringField
      FieldName = 'desc_cliente'
      Required = True
      Size = 50
    end
    object dtarticulosactivo: TIntegerField
      FieldName = 'activo'
      Required = True
    end
  end
  object dsarticulos: TDataSource
    DataSet = dtarticulos
    OnStateChange = dsarticulosStateChange
    Left = 256
    Top = 136
  end
  object dspedidos: TDataSource
    DataSet = dtpedidos
    OnStateChange = dspedidosStateChange
    Left = 232
    Top = 192
  end
  object dtlinpedidos: TZQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      'select * from pedidosdetalle ')
    Params = <>
    MasterFields = 'ide;id'
    MasterSource = dspedidos
    LinkedFields = 'ide;idpedido'
    Left = 320
    Top = 184
    object dtlinpedidosid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object dtlinpedidoside: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object dtlinpedidosidpedido: TIntegerField
      FieldName = 'idpedido'
      Required = True
    end
    object dtlinpedidosidcliente: TIntegerField
      FieldName = 'idcliente'
      Required = True
    end
    object dtlinpedidosidproductocli: TWideStringField
      FieldName = 'idproductocli'
      Required = True
      Size = 30
    end
    object dtlinpedidosidenvase: TWideStringField
      FieldName = 'idenvase'
      Required = True
      Size = 30
    end
    object dtlinpedidosdesc_envase: TWideStringField
      FieldName = 'desc_envase'
      Required = True
      Size = 100
    end
    object dtlinpedidosdesc_producto: TWideStringField
      FieldName = 'desc_producto'
      Required = True
      Size = 100
    end
    object dtlinpedidoscantidad: TFloatField
      FieldName = 'cantidad'
      Required = True
    end
    object dtlinpedidoscantidadservida: TFloatField
      FieldName = 'cantidadservida'
    end
    object dtlinpedidospalets: TIntegerField
      FieldName = 'palets'
    end
    object dtlinpedidosref: TWideStringField
      FieldName = 'ref'
      Size = 30
    end
    object dtlinpedidosean: TWideStringField
      FieldName = 'ean'
      Size = 30
    end
    object dtlinpedidosmarca: TWideStringField
      FieldName = 'marca'
      Required = True
      Size = 40
    end
    object dtlinpedidosobservaciones: TWideStringField
      FieldName = 'observaciones'
      Size = 500
    end
    object dtlinpedidosidcajapropia: TWideStringField
      FieldName = 'idcajapropia'
      Required = True
      Size = 30
    end
  end
  object dspedidosdetalle: TDataSource
    DataSet = dtlinpedidos
    OnStateChange = dspedidosdetalleStateChange
    OnDataChange = dspedidosdetalleDataChange
    Left = 400
    Top = 184
  end
  object dtarticulosformato: TZQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      'select * from clientes_formatoarticulos order by id')
    Params = <>
    MasterFields = 'id;idempresa'
    MasterSource = dsqclientes
    LinkedFields = 'idcliente;idempresa'
    Left = 616
    Top = 144
    object dtarticulosformatoid: TWideStringField
      FieldName = 'id'
      Required = True
      Size = 30
    end
    object dtarticulosformatoidempresa: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object dtarticulosformatoidcliente: TIntegerField
      FieldName = 'idcliente'
      Required = True
    end
    object dtarticulosformatodes_envase: TWideStringField
      FieldName = 'des_envase'
      Required = True
      Size = 40
    end
    object dtarticulosformatodesc_cliente: TWideStringField
      FieldName = 'desc_cliente'
      Required = True
      Size = 50
    end
    object dtarticulosformatoactivo: TIntegerField
      FieldName = 'activo'
      Required = True
    end
    object dtarticulosformatoean: TWideStringField
      FieldName = 'ean'
      Required = True
      Size = 30
    end
    object dtarticulosformatomarca: TWideStringField
      FieldName = 'marca'
      Required = True
      Size = 40
    end
    object dtarticulosformatoobservaciones: TWideStringField
      FieldName = 'observaciones'
      Size = 100
    end
    object dtarticulosformatoprecio_venta: TFloatField
      FieldName = 'precio_venta'
      Required = True
    end
    object dtarticulosformatoidformato: TIntegerField
      FieldName = 'idformato'
      Required = True
    end
    object dtarticulosformatounidades: TFloatField
      FieldName = 'unidades'
      Required = True
    end
  end
  object dsarticulosformato: TDataSource
    DataSet = dtarticulosformato
    OnStateChange = dsarticulosformatoStateChange
    Left = 512
    Top = 136
  end
  object qdestinos: TZReadOnlyQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      
        'select * from clientes_destinos where activo=1 order by descripc' +
        'ion asc')
    Params = <>
    MasterFields = 'id;idempresa'
    MasterSource = dsqclientes
    LinkedFields = 'idcliente;idempresa'
    Left = 104
    Top = 80
    object qdestinosidcliente: TIntegerField
      FieldName = 'idcliente'
      Required = True
    end
    object qdestinosidempresa: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object qdestinoscodigo: TWideStringField
      FieldName = 'codigo'
      Required = True
      Size = 40
    end
    object qdestinosdescripcion: TWideStringField
      FieldName = 'descripcion'
      Required = True
      Size = 80
    end
    object qdestinosseleccionado: TIntegerField
      FieldName = 'seleccionado'
      Required = True
    end
    object qdestinosactivo: TIntegerField
      FieldName = 'activo'
      Required = True
    end
  end
  object dsqdestinos: TDataSource
    DataSet = qdestinos
    Left = 48
    Top = 80
  end
  object qarticulosx: TZReadOnlyQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      
        'select * from clientes_articulos where activo=1 order by desc_cl' +
        'iente asc')
    Params = <>
    MasterFields = 'id;idempresa'
    MasterSource = dsqclientes
    LinkedFields = 'idcliente;idempresa'
    Left = 104
    Top = 128
    object qarticulosxidempresa: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object qarticulosxidcliente: TIntegerField
      FieldName = 'idcliente'
      Required = True
    end
    object qarticulosxid: TWideStringField
      FieldName = 'id'
      Required = True
      Size = 30
    end
    object qarticulosxdesc_cliente: TWideStringField
      FieldName = 'desc_cliente'
      Required = True
      Size = 50
    end
    object qarticulosxactivo: TIntegerField
      FieldName = 'activo'
      Required = True
    end
  end
  object dsqarticulosx: TDataSource
    DataSet = qarticulosx
    Left = 48
    Top = 128
  end
  object qpedidos: TZReadOnlyQuery
    Connection = DM.DBagrigest
    BeforeOpen = qpedidosBeforeOpen
    AfterOpen = qpedidosAfterOpen
    AfterClose = qpedidosAfterClose
    SQL.Strings = (
      
        'select p.*,c.nombre,d.descripcion from pedidos p,clientes c,clie' +
        'ntes_destinos d where '
      'p.idcliente=c.id and p.iddestino=d.codigo and c.id=d.idcliente'
      'order by fecha_pedido desc, id desc')
    Params = <>
    MasterFields = 'Idempresa;id'
    MasterSource = dsclientes
    LinkedFields = 'ide;idcliente'
    Left = 88
    Top = 176
    object qpedidosid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qpedidoside: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object qpedidosidcliente: TIntegerField
      FieldName = 'idcliente'
      Required = True
    end
    object qpedidosiddestino: TWideStringField
      FieldName = 'iddestino'
      Required = True
      Size = 40
    end
    object qpedidosfecha_pedido: TDateField
      FieldName = 'fecha_pedido'
      Required = True
      DisplayFormat = 'dd/mm/yy'
    end
    object qpedidosfecha_carga: TDateField
      FieldName = 'fecha_carga'
    end
    object qpedidosfecha_entrega: TDateField
      FieldName = 'fecha_entrega'
    end
    object qpedidoshora_carga: TTimeField
      FieldName = 'hora_carga'
    end
    object qpedidospedidocliente: TWideStringField
      FieldName = 'pedidocliente'
      Size = 40
    end
    object qpedidosabierto: TIntegerField
      FieldName = 'abierto'
      Required = True
    end
    object qpedidosobservaciones: TWideStringField
      FieldName = 'observaciones'
      Size = 510
    end
    object qpedidosnombre: TWideStringField
      FieldName = 'nombre'
      Required = True
      Size = 80
    end
    object qpedidosdescripcion: TWideStringField
      FieldName = 'descripcion'
      Required = True
      Size = 80
    end
  end
  object dsqpedidos: TDataSource
    DataSet = qpedidos
    Left = 40
    Top = 176
  end
  object qpresupuestos: TZReadOnlyQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      
        'select * from clientes_pedidos order by fecha_pedido desc, id de' +
        'sc')
    Params = <>
    Left = 88
    Top = 224
    object IntegerField1: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object IntegerField2: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object IntegerField3: TIntegerField
      FieldName = 'idcliente'
      Required = True
    end
    object WideStringField1: TWideStringField
      FieldName = 'iddestino'
      Required = True
      Size = 40
    end
    object DateField1: TDateField
      FieldName = 'fecha_pedido'
      Required = True
    end
    object DateField2: TDateField
      FieldName = 'fecha_carga'
      Required = True
    end
    object DateField3: TDateField
      FieldName = 'fecha_entrega'
    end
    object WideStringField2: TWideStringField
      FieldName = 'hora_carga'
      Size = 40
    end
    object WideStringField3: TWideStringField
      FieldName = 'pedidocliente'
      Size = 40
    end
    object IntegerField4: TIntegerField
      FieldName = 'abierto'
      Required = True
    end
    object WideStringField4: TWideStringField
      FieldName = 'observaciones'
      Size = 510
    end
  end
  object dsqpresupuestos: TDataSource
    DataSet = qpresupuestos
    Left = 40
    Top = 224
  end
  object qalbaranes: TZReadOnlyQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      'select * from albaranes order by serie, fecha desc, id desc')
    Params = <>
    MasterFields = 'Idempresa;id'
    MasterSource = dsclientes
    LinkedFields = 'idempresa;idcliente'
    Left = 88
    Top = 280
    object qalbaranesserie: TWideStringField
      FieldName = 'serie'
      Required = True
      Size = 10
    end
    object qalbaranesid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qalbaranesidempresa: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object qalbaranesidcliente: TIntegerField
      FieldName = 'idcliente'
      Required = True
    end
    object qalbaranesiddestino: TWideStringField
      FieldName = 'iddestino'
      Required = True
      Size = 40
    end
    object qalbaranesnif: TWideStringField
      FieldName = 'nif'
      Size = 22
    end
    object qalbaranesdireccion: TWideStringField
      FieldName = 'direccion'
      Size = 100
    end
    object qalbaranespoblacion: TWideStringField
      FieldName = 'poblacion'
      Size = 100
    end
    object qalbaranesprovincia: TWideStringField
      FieldName = 'provincia'
      Size = 50
    end
    object qalbaranescodpost: TWideStringField
      FieldName = 'codpost'
      Size = 10
    end
    object qalbaranesfecha: TDateField
      FieldName = 'fecha'
      Required = True
    end
    object qalbaranesreferencia: TWideStringField
      FieldName = 'referencia'
      Size = 50
    end
    object qalbaranestelefono: TWideStringField
      FieldName = 'telefono'
      Size = 30
    end
    object qalbaranesnomcliente: TWideStringField
      FieldName = 'nomcliente'
      Size = 100
    end
    object qalbaranespaiscliente: TWideStringField
      FieldName = 'paiscliente'
      Size = 50
    end
    object qalbaranesnomdestino: TWideStringField
      FieldName = 'nomdestino'
      Size = 100
    end
    object qalbaranesdirecciondestino: TWideStringField
      FieldName = 'direcciondestino'
      Size = 100
    end
    object qalbaranespoblaciondestino: TWideStringField
      FieldName = 'poblaciondestino'
      Size = 50
    end
    object qalbaranescodpostdestino: TWideStringField
      FieldName = 'codpostdestino'
      Size = 50
    end
    object qalbaranesprovinciadestino: TWideStringField
      FieldName = 'provinciadestino'
      Size = 50
    end
    object qalbaranespaisdestino: TWideStringField
      FieldName = 'paisdestino'
      Size = 50
    end
    object qalbaranesneto: TFloatField
      FieldName = 'neto'
      Required = True
    end
    object qalbaranestotal: TFloatField
      FieldName = 'total'
      Required = True
    end
    object qalbaranesfacturado: TIntegerField
      FieldName = 'facturado'
    end
    object qalbaranesdocumento: TWideStringField
      FieldName = 'documento'
      Size = 50
    end
    object qalbaranesdescuento_lin: TFloatField
      FieldName = 'descuento_lin'
      Required = True
    end
    object qalbaranesdescuento_com: TFloatField
      FieldName = 'descuento_com'
      Required = True
    end
    object qalbaranesdescuento_pp: TFloatField
      FieldName = 'descuento_pp'
      Required = True
    end
    object qalbaranesdescuento_total: TFloatField
      FieldName = 'descuento_total'
      Required = True
    end
    object qalbaranestotaliva: TFloatField
      FieldName = 'totaliva'
      Required = True
    end
    object qalbaranesobservaciones: TWideStringField
      FieldName = 'observaciones'
      Size = 500
    end
    object qalbaranesidfactura: TIntegerField
      FieldName = 'idfactura'
    end
    object qalbaranesbultos: TFloatField
      FieldName = 'bultos'
      Required = True
    end
    object qalbaraneskilos: TFloatField
      FieldName = 'kilos'
      Required = True
    end
    object qalbaranesidformapago: TIntegerField
      FieldName = 'idformapago'
      Required = True
    end
  end
  object dsqalbaranes: TDataSource
    DataSet = qalbaranes
    Left = 40
    Top = 280
  end
  object qfacturas: TZReadOnlyQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      'select * from facturas order by serie,fecha desc,id desc')
    Params = <>
    MasterFields = 'Idempresa;id'
    MasterSource = dsclientes
    LinkedFields = 'idempresa;idcliente'
    Left = 88
    Top = 328
    object qfacturasserie: TWideStringField
      FieldName = 'serie'
      Required = True
      Size = 10
    end
    object qfacturasid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qfacturasidempresa: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object qfacturasidcliente: TIntegerField
      FieldName = 'idcliente'
      Required = True
    end
    object qfacturasiddestino: TWideStringField
      FieldName = 'iddestino'
      Size = 40
    end
    object qfacturasnif: TWideStringField
      FieldName = 'nif'
      Size = 22
    end
    object qfacturasdireccion: TWideStringField
      FieldName = 'direccion'
      Size = 100
    end
    object qfacturaspoblacion: TWideStringField
      FieldName = 'poblacion'
      Size = 100
    end
    object qfacturasprovincia: TWideStringField
      FieldName = 'provincia'
      Size = 50
    end
    object qfacturascodpost: TWideStringField
      FieldName = 'codpost'
      Size = 10
    end
    object qfacturasfecha: TDateField
      FieldName = 'fecha'
      Required = True
    end
    object qfacturasreferencia: TWideStringField
      FieldName = 'referencia'
      Size = 50
    end
    object qfacturastelefono: TWideStringField
      FieldName = 'telefono'
      Size = 30
    end
    object qfacturasnomcliente: TWideStringField
      FieldName = 'nomcliente'
      Size = 100
    end
    object qfacturaspaiscliente: TWideStringField
      FieldName = 'paiscliente'
      Size = 50
    end
    object qfacturasnomdestino: TWideStringField
      FieldName = 'nomdestino'
      Size = 100
    end
    object qfacturasdirecciondestino: TWideStringField
      FieldName = 'direcciondestino'
      Size = 100
    end
    object qfacturaspoblaciondestino: TWideStringField
      FieldName = 'poblaciondestino'
      Size = 50
    end
    object qfacturascodpostdestino: TWideStringField
      FieldName = 'codpostdestino'
      Size = 50
    end
    object qfacturasprovinciadestino: TWideStringField
      FieldName = 'provinciadestino'
      Size = 50
    end
    object qfacturaspaisdestino: TWideStringField
      FieldName = 'paisdestino'
      Size = 50
    end
    object qfacturasneto: TFloatField
      FieldName = 'neto'
      Required = True
    end
    object qfacturastotal: TFloatField
      FieldName = 'total'
      Required = True
    end
    object qfacturasdocumento: TWideStringField
      FieldName = 'documento'
      Size = 50
    end
    object qfacturasdescuento_lin: TFloatField
      FieldName = 'descuento_lin'
      Required = True
    end
    object qfacturasdescuento_com: TFloatField
      FieldName = 'descuento_com'
      Required = True
    end
    object qfacturasdescuento_pp: TFloatField
      FieldName = 'descuento_pp'
      Required = True
    end
    object qfacturasdescuento_total: TFloatField
      FieldName = 'descuento_total'
      Required = True
    end
    object qfacturastotaliva: TFloatField
      FieldName = 'totaliva'
      Required = True
    end
    object qfacturasobservaciones: TWideStringField
      FieldName = 'observaciones'
      Size = 510
    end
    object qfacturasbultos: TFloatField
      FieldName = 'bultos'
      Required = True
    end
    object qfacturaskilos: TFloatField
      FieldName = 'kilos'
      Required = True
    end
    object qfacturasidformapago: TIntegerField
      FieldName = 'idformapago'
      Required = True
    end
    object qfacturascobrado: TIntegerField
      FieldName = 'cobrado'
    end
  end
  object dsqfacturas: TDataSource
    DataSet = qfacturas
    Left = 40
    Top = 328
  end
  object qnotas: TZReadOnlyQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      
        'select * from clientes_pedidos order by fecha_pedido desc, id de' +
        'sc')
    Params = <>
    Left = 88
    Top = 424
    object IntegerField17: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object IntegerField18: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object IntegerField19: TIntegerField
      FieldName = 'idcliente'
      Required = True
    end
    object WideStringField17: TWideStringField
      FieldName = 'iddestino'
      Required = True
      Size = 40
    end
    object DateField13: TDateField
      FieldName = 'fecha_pedido'
      Required = True
    end
    object DateField14: TDateField
      FieldName = 'fecha_carga'
      Required = True
    end
    object DateField15: TDateField
      FieldName = 'fecha_entrega'
    end
    object WideStringField18: TWideStringField
      FieldName = 'hora_carga'
      Size = 40
    end
    object WideStringField19: TWideStringField
      FieldName = 'pedidocliente'
      Size = 40
    end
    object IntegerField20: TIntegerField
      FieldName = 'abierto'
      Required = True
    end
    object WideStringField20: TWideStringField
      FieldName = 'observaciones'
      Size = 510
    end
  end
  object dsqnotas: TDataSource
    DataSet = qnotas
    Left = 40
    Top = 424
  end
  object dtpresupuestos: TZQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      'select * from clientes_pedidos order by idcliente,id')
    Params = <>
    MasterFields = 'id;idempresa'
    MasterSource = dsqclientes
    LinkedFields = 'idcliente;idempresa'
    Left = 176
    Top = 240
    object IntegerField21: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object IntegerField22: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object IntegerField23: TIntegerField
      FieldName = 'idcliente'
      Required = True
    end
    object WideStringField21: TWideStringField
      FieldName = 'iddestino'
      Required = True
      Size = 40
    end
    object DateField16: TDateField
      FieldName = 'fecha_pedido'
      Required = True
    end
    object DateField17: TDateField
      FieldName = 'fecha_carga'
      Required = True
    end
    object DateField18: TDateField
      FieldName = 'fecha_entrega'
    end
    object WideStringField22: TWideStringField
      FieldName = 'hora_carga'
      Size = 40
    end
    object WideStringField23: TWideStringField
      FieldName = 'pedidocliente'
      Size = 40
    end
    object IntegerField24: TIntegerField
      FieldName = 'abierto'
      Required = True
    end
    object WideStringField24: TWideStringField
      FieldName = 'observaciones'
      Size = 510
    end
  end
  object dtlinpresupuestos: TZQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      'select * from clientes_pedidosdetalle order by id')
    Params = <>
    Left = 328
    Top = 240
    object IntegerField25: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object IntegerField26: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object IntegerField27: TIntegerField
      FieldName = 'idpedido'
      Required = True
    end
    object FloatField1: TFloatField
      FieldName = 'idcantidadpedida'
      Required = True
    end
    object WideStringField25: TWideStringField
      FieldName = 'idenvase'
      Required = True
      Size = 30
    end
    object WideStringField26: TWideStringField
      FieldName = 'desc_envase'
      Required = True
      Size = 100
    end
    object WideStringField27: TWideStringField
      FieldName = 'idproductocli'
      Required = True
      Size = 30
    end
    object WideStringField28: TWideStringField
      FieldName = 'desc_producto'
      Required = True
      Size = 100
    end
    object FloatField2: TFloatField
      FieldName = 'idcantidadservida'
      Required = True
    end
    object WideStringField29: TWideStringField
      FieldName = 'observaciones'
      Size = 500
    end
    object IntegerField28: TIntegerField
      FieldName = 'idcliente'
      Required = True
    end
    object IntegerField29: TIntegerField
      FieldName = 'num_palets'
    end
    object WideStringField30: TWideStringField
      FieldName = 'ref'
      Size = 30
    end
    object WideStringField31: TWideStringField
      FieldName = 'ean'
      Size = 30
    end
    object WideStringField32: TWideStringField
      FieldName = 'marca'
      Required = True
      Size = 40
    end
    object IntegerField30: TIntegerField
      FieldName = 'idcajapropia'
      Required = True
    end
  end
  object dtalbaranes: TZQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      'select * from clientes_pedidos order by idcliente,id')
    Params = <>
    MasterFields = 'id;idempresa'
    MasterSource = dsqclientes
    LinkedFields = 'idcliente;idempresa'
    Left = 176
    Top = 288
    object IntegerField31: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object IntegerField32: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object IntegerField33: TIntegerField
      FieldName = 'idcliente'
      Required = True
    end
    object WideStringField33: TWideStringField
      FieldName = 'iddestino'
      Required = True
      Size = 40
    end
    object DateField19: TDateField
      FieldName = 'fecha_pedido'
      Required = True
    end
    object DateField20: TDateField
      FieldName = 'fecha_carga'
      Required = True
    end
    object DateField21: TDateField
      FieldName = 'fecha_entrega'
    end
    object WideStringField34: TWideStringField
      FieldName = 'hora_carga'
      Size = 40
    end
    object WideStringField35: TWideStringField
      FieldName = 'pedidocliente'
      Size = 40
    end
    object IntegerField34: TIntegerField
      FieldName = 'abierto'
      Required = True
    end
    object WideStringField36: TWideStringField
      FieldName = 'observaciones'
      Size = 510
    end
  end
  object dtlinalbaranes: TZQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      'select * from clientes_pedidosdetalle order by id')
    Params = <>
    Left = 328
    Top = 288
    object IntegerField35: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object IntegerField36: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object IntegerField37: TIntegerField
      FieldName = 'idpedido'
      Required = True
    end
    object FloatField3: TFloatField
      FieldName = 'idcantidadpedida'
      Required = True
    end
    object WideStringField37: TWideStringField
      FieldName = 'idenvase'
      Required = True
      Size = 30
    end
    object WideStringField38: TWideStringField
      FieldName = 'desc_envase'
      Required = True
      Size = 100
    end
    object WideStringField39: TWideStringField
      FieldName = 'idproductocli'
      Required = True
      Size = 30
    end
    object WideStringField40: TWideStringField
      FieldName = 'desc_producto'
      Required = True
      Size = 100
    end
    object FloatField4: TFloatField
      FieldName = 'idcantidadservida'
      Required = True
    end
    object WideStringField41: TWideStringField
      FieldName = 'observaciones'
      Size = 500
    end
    object IntegerField38: TIntegerField
      FieldName = 'idcliente'
      Required = True
    end
    object IntegerField39: TIntegerField
      FieldName = 'num_palets'
    end
    object WideStringField42: TWideStringField
      FieldName = 'ref'
      Size = 30
    end
    object WideStringField43: TWideStringField
      FieldName = 'ean'
      Size = 30
    end
    object WideStringField44: TWideStringField
      FieldName = 'marca'
      Required = True
      Size = 40
    end
    object IntegerField40: TIntegerField
      FieldName = 'idcajapropia'
      Required = True
    end
  end
  object dtfacturasproforma: TZQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      'select * from clientes_pedidos order by idcliente,id')
    Params = <>
    MasterFields = 'id;idempresa'
    MasterSource = dsqclientes
    LinkedFields = 'idcliente;idempresa'
    Left = 176
    Top = 336
    object IntegerField41: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object IntegerField42: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object IntegerField43: TIntegerField
      FieldName = 'idcliente'
      Required = True
    end
    object WideStringField45: TWideStringField
      FieldName = 'iddestino'
      Required = True
      Size = 40
    end
    object DateField22: TDateField
      FieldName = 'fecha_pedido'
      Required = True
    end
    object DateField23: TDateField
      FieldName = 'fecha_carga'
      Required = True
    end
    object DateField24: TDateField
      FieldName = 'fecha_entrega'
    end
    object WideStringField46: TWideStringField
      FieldName = 'hora_carga'
      Size = 40
    end
    object WideStringField47: TWideStringField
      FieldName = 'pedidocliente'
      Size = 40
    end
    object IntegerField44: TIntegerField
      FieldName = 'abierto'
      Required = True
    end
    object WideStringField48: TWideStringField
      FieldName = 'observaciones'
      Size = 510
    end
  end
  object dtlinfacturasproforma: TZQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      'select * from clientes_pedidosdetalle order by id')
    Params = <>
    Left = 328
    Top = 336
    object IntegerField45: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object IntegerField46: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object IntegerField47: TIntegerField
      FieldName = 'idpedido'
      Required = True
    end
    object FloatField5: TFloatField
      FieldName = 'idcantidadpedida'
      Required = True
    end
    object WideStringField49: TWideStringField
      FieldName = 'idenvase'
      Required = True
      Size = 30
    end
    object WideStringField50: TWideStringField
      FieldName = 'desc_envase'
      Required = True
      Size = 100
    end
    object WideStringField51: TWideStringField
      FieldName = 'idproductocli'
      Required = True
      Size = 30
    end
    object WideStringField52: TWideStringField
      FieldName = 'desc_producto'
      Required = True
      Size = 100
    end
    object FloatField6: TFloatField
      FieldName = 'idcantidadservida'
      Required = True
    end
    object WideStringField53: TWideStringField
      FieldName = 'observaciones'
      Size = 500
    end
    object IntegerField48: TIntegerField
      FieldName = 'idcliente'
      Required = True
    end
    object IntegerField49: TIntegerField
      FieldName = 'num_palets'
    end
    object WideStringField54: TWideStringField
      FieldName = 'ref'
      Size = 30
    end
    object WideStringField55: TWideStringField
      FieldName = 'ean'
      Size = 30
    end
    object WideStringField56: TWideStringField
      FieldName = 'marca'
      Required = True
      Size = 40
    end
    object IntegerField50: TIntegerField
      FieldName = 'idcajapropia'
      Required = True
    end
  end
  object dtlinfacturas: TZQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      'select * from clientes_pedidosdetalle order by id')
    Params = <>
    Left = 328
    Top = 384
    object IntegerField55: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object IntegerField56: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object IntegerField57: TIntegerField
      FieldName = 'idpedido'
      Required = True
    end
    object FloatField7: TFloatField
      FieldName = 'idcantidadpedida'
      Required = True
    end
    object WideStringField61: TWideStringField
      FieldName = 'idenvase'
      Required = True
      Size = 30
    end
    object WideStringField62: TWideStringField
      FieldName = 'desc_envase'
      Required = True
      Size = 100
    end
    object WideStringField63: TWideStringField
      FieldName = 'idproductocli'
      Required = True
      Size = 30
    end
    object WideStringField64: TWideStringField
      FieldName = 'desc_producto'
      Required = True
      Size = 100
    end
    object FloatField8: TFloatField
      FieldName = 'idcantidadservida'
      Required = True
    end
    object WideStringField65: TWideStringField
      FieldName = 'observaciones'
      Size = 500
    end
    object IntegerField58: TIntegerField
      FieldName = 'idcliente'
      Required = True
    end
    object IntegerField59: TIntegerField
      FieldName = 'num_palets'
    end
    object WideStringField66: TWideStringField
      FieldName = 'ref'
      Size = 30
    end
    object WideStringField67: TWideStringField
      FieldName = 'ean'
      Size = 30
    end
    object WideStringField68: TWideStringField
      FieldName = 'marca'
      Required = True
      Size = 40
    end
    object IntegerField60: TIntegerField
      FieldName = 'idcajapropia'
      Required = True
    end
  end
  object dtnotas: TZQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      'select * from clientes_pedidos order by idcliente,id')
    Params = <>
    MasterFields = 'id;idempresa'
    MasterSource = dsqclientes
    LinkedFields = 'idcliente;idempresa'
    Left = 176
    Top = 432
    object IntegerField61: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object IntegerField62: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object IntegerField63: TIntegerField
      FieldName = 'idcliente'
      Required = True
    end
    object WideStringField69: TWideStringField
      FieldName = 'iddestino'
      Required = True
      Size = 40
    end
    object DateField28: TDateField
      FieldName = 'fecha_pedido'
      Required = True
    end
    object DateField29: TDateField
      FieldName = 'fecha_carga'
      Required = True
    end
    object DateField30: TDateField
      FieldName = 'fecha_entrega'
    end
    object WideStringField70: TWideStringField
      FieldName = 'hora_carga'
      Size = 40
    end
    object WideStringField71: TWideStringField
      FieldName = 'pedidocliente'
      Size = 40
    end
    object IntegerField64: TIntegerField
      FieldName = 'abierto'
      Required = True
    end
    object WideStringField72: TWideStringField
      FieldName = 'observaciones'
      Size = 510
    end
  end
  object dtlinnotas: TZQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      'select * from clientes_pedidosdetalle order by id')
    Params = <>
    Left = 336
    Top = 448
    object IntegerField65: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object IntegerField66: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object IntegerField67: TIntegerField
      FieldName = 'idpedido'
      Required = True
    end
    object FloatField9: TFloatField
      FieldName = 'idcantidadpedida'
      Required = True
    end
    object WideStringField73: TWideStringField
      FieldName = 'idenvase'
      Required = True
      Size = 30
    end
    object WideStringField74: TWideStringField
      FieldName = 'desc_envase'
      Required = True
      Size = 100
    end
    object WideStringField75: TWideStringField
      FieldName = 'idproductocli'
      Required = True
      Size = 30
    end
    object WideStringField76: TWideStringField
      FieldName = 'desc_producto'
      Required = True
      Size = 100
    end
    object FloatField10: TFloatField
      FieldName = 'idcantidadservida'
      Required = True
    end
    object WideStringField77: TWideStringField
      FieldName = 'observaciones'
      Size = 500
    end
    object IntegerField68: TIntegerField
      FieldName = 'idcliente'
      Required = True
    end
    object IntegerField69: TIntegerField
      FieldName = 'num_palets'
    end
    object WideStringField78: TWideStringField
      FieldName = 'ref'
      Size = 30
    end
    object WideStringField79: TWideStringField
      FieldName = 'ean'
      Size = 30
    end
    object WideStringField80: TWideStringField
      FieldName = 'marca'
      Required = True
      Size = 40
    end
    object IntegerField70: TIntegerField
      FieldName = 'idcajapropia'
      Required = True
    end
  end
  object dstpresupuestos: TDataSource
    DataSet = dtpresupuestos
    Left = 256
    Top = 248
  end
  object dslinpresupuestos: TDataSource
    DataSet = dtlinpresupuestos
    Left = 416
    Top = 248
  end
  object dstalbaranes: TDataSource
    DataSet = dtalbaranes
    Left = 256
    Top = 304
  end
  object dslinalbaranes: TDataSource
    DataSet = dtlinalbaranes
    Left = 416
    Top = 304
  end
  object dstfacturasproforma: TDataSource
    DataSet = dtfacturasproforma
    Left = 248
    Top = 352
  end
  object dslinfacturasproforma: TDataSource
    DataSet = dtlinfacturasproforma
    Left = 408
    Top = 352
  end
  object dstfacturas: TDataSource
    Left = 248
    Top = 400
  end
  object dslinfacturas: TDataSource
    DataSet = dtlinfacturas
    Left = 408
    Top = 400
  end
  object dstnotas: TDataSource
    DataSet = dtnotas
    Left = 248
    Top = 448
  end
  object dslinnotas: TDataSource
    DataSet = dtlinnotas
    Left = 408
    Top = 448
  end
  object dtpedidos: TZQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      'select * from pedidos')
    Params = <>
    MasterFields = 'ide;id'
    MasterSource = dsqpedidos
    LinkedFields = 'ide;id'
    Left = 176
    Top = 192
    object dtpedidosid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object dtpedidoside: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object dtpedidosidcliente: TIntegerField
      FieldName = 'idcliente'
      Required = True
    end
    object dtpedidosiddestino: TWideStringField
      FieldName = 'iddestino'
      Required = True
      Size = 40
    end
    object dtpedidosfecha_pedido: TDateField
      FieldName = 'fecha_pedido'
      Required = True
      DisplayFormat = 'dd/mm/yy'
      EditMask = '!99/99/00;1;_'
    end
    object dtpedidosfecha_carga: TDateField
      FieldName = 'fecha_carga'
      DisplayFormat = 'dd/mm/yy'
      EditMask = '!99/99/00;1;_'
    end
    object dtpedidosfecha_entrega: TDateField
      FieldName = 'fecha_entrega'
      DisplayFormat = 'dd/mm/yy'
      EditMask = '!99/99/00;1;_'
    end
    object dtpedidoshora_carga: TTimeField
      FieldName = 'hora_carga'
      DisplayFormat = 'hh:mm'
      EditMask = '!90:00;1;_'
    end
    object dtpedidospedidocliente: TWideStringField
      FieldName = 'pedidocliente'
      Size = 40
    end
    object dtpedidosabierto: TIntegerField
      FieldName = 'abierto'
      Required = True
    end
    object dtpedidosobservaciones: TWideStringField
      FieldName = 'observaciones'
      Size = 510
    end
    object dtpedidosfecha_elavoracion: TDateField
      FieldName = 'fecha_elavoracion'
      Required = True
      DisplayFormat = 'dd/mm/yy'
      EditMask = '!99/99/00;1;_'
    end
  end
  object dtlinpedidos2: TZQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      'select * from pedidosdetalle')
    Params = <>
    Left = 408
    Top = 16
    object dtlinpedidos2id: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object dtlinpedidos2ide: TIntegerField
      FieldName = 'ide'
      Required = True
    end
    object dtlinpedidos2idpedido: TIntegerField
      FieldName = 'idpedido'
      Required = True
    end
    object dtlinpedidos2idcliente: TIntegerField
      FieldName = 'idcliente'
      Required = True
    end
    object dtlinpedidos2idproductocli: TWideStringField
      FieldName = 'idproductocli'
      Required = True
      Size = 30
    end
    object dtlinpedidos2idenvase: TWideStringField
      FieldName = 'idenvase'
      Required = True
      Size = 30
    end
    object dtlinpedidos2desc_envase: TWideStringField
      FieldName = 'desc_envase'
      Required = True
      Size = 100
    end
    object dtlinpedidos2desc_producto: TWideStringField
      FieldName = 'desc_producto'
      Required = True
      Size = 100
    end
    object dtlinpedidos2cantidad: TFloatField
      FieldName = 'cantidad'
      Required = True
    end
    object dtlinpedidos2cantidadservida: TFloatField
      FieldName = 'cantidadservida'
    end
    object dtlinpedidos2palets: TIntegerField
      FieldName = 'palets'
    end
    object dtlinpedidos2ref: TWideStringField
      FieldName = 'ref'
      Size = 30
    end
    object dtlinpedidos2ean: TWideStringField
      FieldName = 'ean'
      Size = 30
    end
    object dtlinpedidos2marca: TWideStringField
      FieldName = 'marca'
      Required = True
      Size = 40
    end
    object dtlinpedidos2observaciones: TWideStringField
      FieldName = 'observaciones'
      Size = 500
    end
    object dtlinpedidos2idcajapropia: TWideStringField
      FieldName = 'idcajapropia'
      Required = True
      Size = 30
    end
  end
  object dspedidosdestalle2: TDataSource
    DataSet = dtlinpedidos2
    OnStateChange = dspedidosdestalle2StateChange
    Left = 328
    Top = 8
  end
  object qarticulosfinal: TZReadOnlyQuery
    Connection = DM.DBagrigest
    BeforeOpen = qarticulosfinalBeforeOpen
    SQL.Strings = (
      'select * from articulosf where activo=1 order by descripcion asc')
    Params = <>
    Left = 592
    Top = 80
    object qarticulosfinalidempresa: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object qarticulosfinalid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qarticulosfinalcodigo: TWideStringField
      FieldName = 'codigo'
      Required = True
      Size = 40
    end
    object qarticulosfinaldescripcion: TWideStringField
      FieldName = 'descripcion'
      Required = True
      Size = 100
    end
    object qarticulosfinalactivo: TIntegerField
      FieldName = 'activo'
      Required = True
    end
    object qarticulosfinalpeso: TFloatField
      FieldName = 'peso'
    end
    object qarticulosfinalult_preciocompra: TFloatField
      FieldName = 'ult_preciocompra'
      Required = True
    end
  end
  object dsqarticulosfinal: TDataSource
    DataSet = qarticulosfinal
    Left = 512
    Top = 80
  end
  object dsqpedidosclientes: TDataSource
    DataSet = qpedidosclientes
    Left = 520
    Top = 24
  end
  object qpedidosclientes: TZReadOnlyQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      
        'select p.pedidocliente,p.id,p.idcliente,p.iddestino,p.fecha_pedi' +
        'do,p.fecha_carga,pd.idpedido,pd.id,pd.idalbaran,pd.idexpedicion ' +
        'from pedidos p, pedidosdetalle pd where p.id=pd.idpedido and p.i' +
        'de=pd.ide order by p.fecha_pedido desc,pd.id')
    Params = <>
    Left = 584
    Top = 24
    object qpedidosclientesid: TIntegerField
      FieldName = 'id'
      Required = True
    end
    object qpedidosclientesidcliente: TIntegerField
      FieldName = 'idcliente'
      Required = True
    end
    object qpedidosclientesiddestino: TWideStringField
      FieldName = 'iddestino'
      Required = True
      Size = 40
    end
    object qpedidosclientesfecha_pedido: TDateField
      FieldName = 'fecha_pedido'
      Required = True
    end
    object qpedidosclientesfecha_carga: TDateField
      FieldName = 'fecha_carga'
    end
    object qpedidosclientesidpedido: TIntegerField
      FieldName = 'idpedido'
      Required = True
    end
    object qpedidosclientesid_1: TIntegerField
      FieldName = 'id_1'
      Required = True
    end
    object qpedidosclientesidalbaran: TWideStringField
      FieldName = 'idalbaran'
      Size = 22
    end
    object qpedidosclientesidexpedicion: TWideStringField
      FieldName = 'idexpedicion'
      Size = 22
    end
    object qpedidosclientespedidocliente: TWideStringField
      FieldName = 'pedidocliente'
      Size = 40
    end
  end
  object dsqclientescalidad: TDataSource
    DataSet = qclientescalidad
    OnStateChange = dsqclientescalidadStateChange
    Left = 512
    Top = 200
  end
  object qclientescalidad: TZQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      'select * from clientes_calidad order by descripcion')
    Params = <>
    MasterFields = 'id;idempresa'
    MasterSource = dsqclientes
    LinkedFields = 'idcliente;idempresa'
    Left = 592
    Top = 200
    object qclientescalidadid: TWideStringField
      FieldName = 'id'
      Required = True
      Size = 30
    end
    object qclientescalidadidempresa: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object qclientescalidadidcliente: TIntegerField
      FieldName = 'idcliente'
      Required = True
    end
    object qclientescalidaddescripcion: TWideStringField
      FieldName = 'descripcion'
      Size = 50
    end
    object qclientescalidadactivo: TIntegerField
      FieldName = 'activo'
      Required = True
    end
  end
  object qarticulos: TZQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      
        'select * from clientes_articulos where activo=1 order by desc_cl' +
        'iente asc')
    Params = <>
    MasterFields = 'id;idempresa'
    MasterSource = dsqclientes
    LinkedFields = 'idcliente;idempresa'
    Left = 720
    Top = 224
    object qarticulosidempresa: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object qarticulosidcliente: TIntegerField
      FieldName = 'idcliente'
      Required = True
    end
    object qarticulosid: TWideStringField
      FieldName = 'id'
      Required = True
      Size = 30
    end
    object qarticulosdesc_cliente: TWideStringField
      FieldName = 'desc_cliente'
      Size = 50
    end
    object qarticulosactivo: TIntegerField
      FieldName = 'activo'
    end
  end
  object dsqclientesacabados: TDataSource
    DataSet = qclientesacabados
    OnStateChange = dsqclientesacabadosStateChange
    Left = 504
    Top = 280
  end
  object qclientesacabados: TZQuery
    Connection = DM.DBagrigest
    SQL.Strings = (
      'select * from clientes_acabados order by descripcion')
    Params = <>
    MasterFields = 'id;idempresa'
    MasterSource = dsqclientes
    LinkedFields = 'idcliente;idempresa'
    Left = 584
    Top = 280
    object qclientesacabadosid: TWideStringField
      FieldName = 'id'
      Required = True
      Size = 30
    end
    object qclientesacabadosidempresa: TIntegerField
      FieldName = 'idempresa'
      Required = True
    end
    object qclientesacabadosidcliente: TIntegerField
      FieldName = 'idcliente'
      Required = True
    end
    object qclientesacabadosdescripcion: TWideStringField
      FieldName = 'descripcion'
      Size = 40
    end
    object qclientesacabadosactivo: TIntegerField
      FieldName = 'activo'
      Required = True
    end
    object qclientesacabadosean: TWideStringField
      FieldName = 'ean'
      Size = 30
    end
    object qclientesacabadosmarca: TWideStringField
      FieldName = 'marca'
      Size = 40
    end
    object qclientesacabadosobservaciones: TWideStringField
      FieldName = 'observaciones'
      Size = 100
    end
  end
  object dsqarticulos: TDataSource
    DataSet = qarticulos
    OnStateChange = dsqarticulosStateChange
    Left = 712
    Top = 176
  end
end