object DMGS: TDMGS
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  Left = 142
  Top = 101
  Height = 616
  Width = 726
  object DCOMConnection1: TDCOMConnection
    ServerGUID = '{F66B33AA-8B49-4301-8D74-CDD98EA1FA4A}'
    ServerName = 'GESTISHOP.AGESTISHOP'
    AfterConnect = DCOMConnection1AfterConnect
    ComputerName = 'localhost'
    Left = 24
    Top = 16
  end
  object CDSQ_PROVEEDOR_ACREEDOR: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'ID_PROVEEDOR'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'NOMBRE'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'NIF'
        DataType = ftString
        Size = 9
      end
      item
        Name = 'DIRECCION'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'DIRECCION_POSTAL'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'POBLACION'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'POBLACION_POSTAL'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'COD_POSTAL'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'COD_POSTAL_POSTAL'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'PROVINCIA'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'PROVINCIA_POSTAL'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'EMAIL'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'HTTP'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'OBSERVACIONES'
        DataType = ftString
        Size = 150
      end
      item
        Name = 'MISMA_DIRECCION'
        DataType = ftSmallint
      end
      item
        Name = 'BORRADO'
        DataType = ftSmallint
      end
      item
        Name = 'TELEFONO'
        DataType = ftString
        Size = 13
      end
      item
        Name = 'FAX'
        DataType = ftString
        Size = 13
      end
      item
        Name = 'ALMACENABLEBORRAR'
        DataType = ftSmallint
      end>
    IndexDefs = <>
    Params = <>
    ProviderName = 'DSPQ_PROVEEDOR_ACREEDOR'
    RemoteServer = DCOMConnection1
    StoreDefs = True
    BeforeOpen = CDSQ_PROVEEDOR_ACREEDORBeforeOpen
    BeforeClose = CDSQ_PROVEEDOR_ACREEDORBeforeClose
    AfterInsert = CDSQ_PROVEEDOR_ACREEDORAfterInsert
    BeforePost = CDSQ_PROVEEDOR_ACREEDORBeforePost
    AfterPost = CDSQ_PROVEEDOR_ACREEDORAfterPost
    OnCalcFields = CDSQ_PROVEEDOR_ACREEDORCalcFields
    OnDeleteError = CDSQ_PROVEEDOR_ACREEDORDeleteError
    OnEditError = CDSQ_PROVEEDOR_ACREEDOREditError
    OnPostError = CDSQ_PROVEEDOR_ACREEDORPostError
    OnReconcileError = CDSQ_PROVEEDOR_ACREEDORReconcileError
    BeforeGetRecords = CDSQ_PROVEEDOR_ACREEDORBeforeGetRecords
    AfterGetRecords = CDSQ_PROVEEDOR_ACREEDORAfterGetRecords
    Left = 80
    Top = 496
    object CDSQ_PROVEEDOR_ACREEDORBORRADO: TSmallintField
      FieldName = 'BORRADO'
    end
    object CDSQ_PROVEEDOR_ACREEDORID_PROVEEDOR: TIntegerField
      FieldName = 'ID_PROVEEDOR'
      Required = True
    end
    object CDSQ_PROVEEDOR_ACREEDORNOMBRE: TStringField
      FieldName = 'NOMBRE'
      Size = 50
    end
    object CDSQ_PROVEEDOR_ACREEDORNIF: TStringField
      FieldName = 'NIF'
      Size = 9
    end
    object CDSQ_PROVEEDOR_ACREEDORDIRECCION: TStringField
      FieldName = 'DIRECCION'
      Size = 50
    end
    object CDSQ_PROVEEDOR_ACREEDORDIRECCION_POSTAL: TStringField
      FieldName = 'DIRECCION_POSTAL'
      Size = 50
    end
    object CDSQ_PROVEEDOR_ACREEDORPOBLACION: TStringField
      FieldName = 'POBLACION'
      Size = 50
    end
    object CDSQ_PROVEEDOR_ACREEDORPOBLACION_POSTAL: TStringField
      FieldName = 'POBLACION_POSTAL'
      Size = 50
    end
    object CDSQ_PROVEEDOR_ACREEDORCOD_POSTAL: TStringField
      FieldName = 'COD_POSTAL'
      Size = 5
    end
    object CDSQ_PROVEEDOR_ACREEDORCOD_POSTAL_POSTAL: TStringField
      FieldName = 'COD_POSTAL_POSTAL'
      Size = 5
    end
    object CDSQ_PROVEEDOR_ACREEDORPROVINCIA: TStringField
      FieldName = 'PROVINCIA'
      Size = 50
    end
    object CDSQ_PROVEEDOR_ACREEDORPROVINCIA_POSTAL: TStringField
      FieldName = 'PROVINCIA_POSTAL'
      Size = 50
    end
    object CDSQ_PROVEEDOR_ACREEDOREMAIL: TStringField
      FieldName = 'EMAIL'
      Size = 50
    end
    object CDSQ_PROVEEDOR_ACREEDORHTTP: TStringField
      FieldName = 'HTTP'
      Size = 50
    end
    object CDSQ_PROVEEDOR_ACREEDOROBSERVACIONES: TStringField
      FieldName = 'OBSERVACIONES'
      Size = 150
    end
    object CDSQ_PROVEEDOR_ACREEDORMISMA_DIRECCION: TSmallintField
      FieldName = 'MISMA_DIRECCION'
    end
    object CDSQ_PROVEEDOR_ACREEDORTELEFONO: TStringField
      FieldName = 'TELEFONO'
      Size = 13
    end
    object CDSQ_PROVEEDOR_ACREEDORFAX: TStringField
      FieldName = 'FAX'
      Size = 13
    end
    object CDSQ_PROVEEDOR_ACREEDORborrados: TBooleanField
      FieldKind = fkCalculated
      FieldName = 'borrados'
      Calculated = True
    end
    object CDSQ_PROVEEDOR_ACREEDORALMACENABLEBORRAR: TSmallintField
      FieldName = 'ALMACENABLEBORRAR'
    end
  end
  object CDSQ_FPROVEEDOR: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPQ_FPROVEEDOR'
    RemoteServer = DCOMConnection1
    BeforeOpen = CDSQ_FPROVEEDORBeforeOpen
    BeforeClose = CDSQ_FPROVEEDORBeforeClose
    OnReconcileError = CDSQ_FPROVEEDORReconcileError
    BeforeGetRecords = CDSQ_FPROVEEDORBeforeGetRecords
    Left = 128
    Top = 144
    object CDSQ_FPROVEEDORNIF: TStringField
      FieldName = 'NIF'
      Size = 9
    end
    object CDSQ_FPROVEEDORNOMBRE: TStringField
      FieldName = 'NOMBRE'
      Size = 50
    end
  end
  object CDSQ_MAXIMO: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPQ_MAXIMO'
    RemoteServer = DCOMConnection1
    Left = 88
    Top = 56
  end
  object CDSQ_TIPOS: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPQ_TIPOS'
    RemoteServer = DCOMConnection1
    BeforeOpen = CDSQ_TIPOSBeforeOpen
    BeforeClose = CDSQ_TIPOSBeforeClose
    AfterInsert = CDSQ_TIPOSAfterInsert
    AfterPost = CDSQ_TIPOSAfterPost
    OnDeleteError = CDSQ_TIPOSDeleteError
    OnEditError = CDSQ_TIPOSEditError
    OnPostError = CDSQ_TIPOSPostError
    OnReconcileError = CDSQ_TIPOSReconcileError
    BeforeGetRecords = CDSQ_TIPOSBeforeGetRecords
    Left = 56
    Top = 200
    object CDSQ_TIPOSID_TIPO: TStringField
      FieldName = 'ID_TIPO'
      Required = True
      Size = 10
    end
    object CDSQ_TIPOSID_PROVEEDOR: TIntegerField
      FieldName = 'ID_PROVEEDOR'
      Required = True
    end
    object CDSQ_TIPOSSUBCUENTA: TStringField
      FieldName = 'SUBCUENTA'
      Size = 12
    end
  end
  object CDSQ_FAMILIAS: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPQ_FAMILIAS'
    RemoteServer = DCOMConnection1
    BeforeOpen = CDSQ_FAMILIASBeforeOpen
    BeforeClose = CDSQ_FAMILIASBeforeClose
    AfterInsert = CDSQ_FAMILIASAfterInsert
    BeforePost = CDSQ_FAMILIASBeforePost
    AfterPost = CDSQ_FAMILIASAfterPost
    BeforeDelete = CDSQ_FAMILIASBeforeDelete
    OnDeleteError = CDSQ_FAMILIASDeleteError
    OnEditError = CDSQ_FAMILIASEditError
    OnPostError = CDSQ_FAMILIASPostError
    OnReconcileError = CDSQ_FAMILIASReconcileError
    BeforeGetRecords = CDSQ_FAMILIASBeforeGetRecords
    AfterGetRecords = CDSQ_FAMILIASAfterGetRecords
    Left = 496
    Top = 8
    object CDSQ_FAMILIASCOD_FAMILIA: TStringField
      FieldName = 'COD_FAMILIA'
      Required = True
      Size = 30
    end
    object CDSQ_FAMILIASPROFUNDIDAD: TSmallintField
      FieldName = 'PROFUNDIDAD'
      Required = True
    end
    object CDSQ_FAMILIASID_FAMILIA: TStringField
      FieldName = 'ID_FAMILIA'
      Required = True
      Size = 2
    end
    object CDSQ_FAMILIASPADRE: TStringField
      FieldName = 'PADRE'
      Size = 30
    end
    object CDSQ_FAMILIASDESCRIPCION: TStringField
      FieldName = 'DESCRIPCION'
      Size = 100
    end
    object CDSQ_FAMILIASSUBCUENTA: TStringField
      FieldName = 'SUBCUENTA'
      Size = 12
    end
    object CDSQ_FAMILIASCOD_ARTICULO: TIntegerField
      FieldName = 'COD_ARTICULO'
    end
    object CDSQ_FAMILIASBENEFICIO: TFloatField
      FieldName = 'BENEFICIO'
    end
    object CDSQ_FAMILIASIMAGEN: TBlobField
      FieldName = 'IMAGEN'
      Size = 1
    end
    object CDSQ_FAMILIASMOSTRARIMAGEN: TSmallintField
      FieldName = 'MOSTRARIMAGEN'
    end
    object CDSQ_FAMILIASMOSTRARDESCRIPCION: TSmallintField
      FieldName = 'MOSTRARDESCRIPCION'
    end
    object CDSQ_FAMILIASFPOSICION: TSmallintField
      FieldName = 'FPOSICION'
    end
    object CDSQ_FAMILIASORDENPOSICION: TSmallintField
      FieldName = 'ORDENPOSICION'
    end
    object CDSQ_FAMILIASORDENPOSICIONUSO: TSmallintField
      FieldName = 'ORDENPOSICIONUSO'
    end
    object CDSQ_FAMILIASORDENDESCRIPCION: TSmallintField
      FieldName = 'ORDENDESCRIPCION'
    end
    object CDSQ_FAMILIASFPOSICIONUSO: TSmallintField
      FieldName = 'FPOSICIONUSO'
    end
    object CDSQ_FAMILIASPOSICION: TSmallintField
      FieldName = 'POSICION'
    end
    object CDSQ_FAMILIASPOSICIONUSO: TSmallintField
      FieldName = 'POSICIONUSO'
    end
    object CDSQ_FAMILIASDESCRIPCIONBOTON: TStringField
      FieldName = 'DESCRIPCIONBOTON'
      Size = 50
    end
    object CDSQ_FAMILIASAMOSTRARIMAGEN: TSmallintField
      FieldName = 'AMOSTRARIMAGEN'
    end
    object CDSQ_FAMILIASAMOSTRARDESCRIPCION: TSmallintField
      FieldName = 'AMOSTRARDESCRIPCION'
    end
    object CDSQ_FAMILIASAMOSTRARPOSICION: TSmallintField
      FieldName = 'AMOSTRARPOSICION'
    end
    object CDSQ_FAMILIASAMOSTRARPOSICIONUSO: TSmallintField
      FieldName = 'AMOSTRARPOSICIONUSO'
    end
    object CDSQ_FAMILIASAORDENPOSICION: TSmallintField
      FieldName = 'AORDENPOSICION'
    end
    object CDSQ_FAMILIASAORDENPOSICIONUSO: TSmallintField
      FieldName = 'AORDENPOSICIONUSO'
    end
    object CDSQ_FAMILIASAORDENDESCRIPCION: TSmallintField
      FieldName = 'AORDENDESCRIPCION'
    end
  end
  object CDSQ_FAMILIASAUX: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPQ_FAMILIASAUX'
    RemoteServer = DCOMConnection1
    BeforeOpen = CDSQ_FAMILIASAUXBeforeOpen
    BeforeClose = CDSQ_FAMILIASAUXBeforeClose
    OnReconcileError = CDSQ_FAMILIASAUXReconcileError
    BeforeGetRecords = CDSQ_FAMILIASAUXBeforeGetRecords
    AfterGetRecords = CDSQ_FAMILIASAUXAfterGetRecords
    Left = 528
    Top = 8
    object CDSQ_FAMILIASAUXCOD_FAMILIA: TStringField
      FieldName = 'COD_FAMILIA'
      Required = True
      Size = 30
    end
    object CDSQ_FAMILIASAUXPROFUNDIDAD: TSmallintField
      FieldName = 'PROFUNDIDAD'
      Required = True
    end
    object CDSQ_FAMILIASAUXID_FAMILIA: TStringField
      FieldName = 'ID_FAMILIA'
      Required = True
      Size = 2
    end
    object CDSQ_FAMILIASAUXPADRE: TStringField
      FieldName = 'PADRE'
      Size = 30
    end
    object CDSQ_FAMILIASAUXDESCRIPCION: TStringField
      FieldName = 'DESCRIPCION'
      Size = 100
    end
    object CDSQ_FAMILIASAUXSUBCUENTA: TStringField
      FieldName = 'SUBCUENTA'
      Size = 12
    end
    object CDSQ_FAMILIASAUXCOD_ARTICULO: TIntegerField
      FieldName = 'COD_ARTICULO'
    end
    object CDSQ_FAMILIASAUXBENEFICIO: TFloatField
      FieldName = 'BENEFICIO'
    end
    object CDSQ_FAMILIASAUXIMAGEN: TBlobField
      FieldName = 'IMAGEN'
      Size = 1
    end
    object CDSQ_FAMILIASAUXMOSTRARIMAGEN: TSmallintField
      FieldName = 'MOSTRARIMAGEN'
    end
    object CDSQ_FAMILIASAUXMOSTRARDESCRIPCION: TSmallintField
      FieldName = 'MOSTRARDESCRIPCION'
    end
    object CDSQ_FAMILIASAUXFPOSICION: TSmallintField
      FieldName = 'FPOSICION'
    end
    object CDSQ_FAMILIASAUXORDENPOSICION: TSmallintField
      FieldName = 'ORDENPOSICION'
    end
    object CDSQ_FAMILIASAUXORDENPOSICIONUSO: TSmallintField
      FieldName = 'ORDENPOSICIONUSO'
    end
    object CDSQ_FAMILIASAUXORDENDESCRIPCION: TSmallintField
      FieldName = 'ORDENDESCRIPCION'
    end
    object CDSQ_FAMILIASAUXFPOSICIONUSO: TSmallintField
      FieldName = 'FPOSICIONUSO'
    end
    object CDSQ_FAMILIASAUXPOSICION: TSmallintField
      FieldName = 'POSICION'
    end
    object CDSQ_FAMILIASAUXPOSICIONUSO: TSmallintField
      FieldName = 'POSICIONUSO'
    end
    object CDSQ_FAMILIASAUXDESCRIPCIONBOTON: TStringField
      FieldName = 'DESCRIPCIONBOTON'
      Size = 50
    end
    object CDSQ_FAMILIASAUXAMOSTRARIMAGEN: TSmallintField
      FieldName = 'AMOSTRARIMAGEN'
    end
    object CDSQ_FAMILIASAUXAMOSTRARDESCRIPCION: TSmallintField
      FieldName = 'AMOSTRARDESCRIPCION'
    end
    object CDSQ_FAMILIASAUXAMOSTRARPOSICION: TSmallintField
      FieldName = 'AMOSTRARPOSICION'
    end
    object CDSQ_FAMILIASAUXAMOSTRARPOSICIONUSO: TSmallintField
      FieldName = 'AMOSTRARPOSICIONUSO'
    end
    object CDSQ_FAMILIASAUXAORDENPOSICION: TSmallintField
      FieldName = 'AORDENPOSICION'
    end
    object CDSQ_FAMILIASAUXAORDENPOSICIONUSO: TSmallintField
      FieldName = 'AORDENPOSICIONUSO'
    end
    object CDSQ_FAMILIASAUXAORDENDESCRIPCION: TSmallintField
      FieldName = 'AORDENDESCRIPCION'
    end
  end
  object CDSQ_ARTICULOS: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'colordescripcion'
        Attributes = [faReadonly]
        DataType = ftString
        Size = 150
      end
      item
        Name = 'nombreproveedor'
        Attributes = [faReadonly]
        DataType = ftString
        Size = 150
      end
      item
        Name = 'familiadescripcion'
        Attributes = [faReadonly]
        DataType = ftString
        Size = 150
      end
      item
        Name = 'COD_ARTICULO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'COD_FAMILIA'
        Attributes = [faRequired]
        DataType = ftString
        Size = 30
      end
      item
        Name = 'PROFUNDIDAD'
        Attributes = [faRequired]
        DataType = ftSmallint
      end
      item
        Name = 'ID_ARTICULO'
        Attributes = [faRequired]
        DataType = ftString
        Size = 30
      end
      item
        Name = 'DESCRIPCION'
        DataType = ftString
        Size = 250
      end
      item
        Name = 'DESCRIPCIONTICKET'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'BENEFICIO'
        DataType = ftFloat
      end
      item
        Name = 'PRECIO_COSTE'
        DataType = ftFloat
      end
      item
        Name = 'PRECIO_MAX_COSTE'
        DataType = ftFloat
      end
      item
        Name = 'PRECIO_MIN_COSTE'
        DataType = ftFloat
      end
      item
        Name = 'PRECIO_MED_COSTE'
        DataType = ftFloat
      end
      item
        Name = 'PRECIO_VENTA'
        DataType = ftFloat
      end
      item
        Name = 'IVA'
        DataType = ftFloat
      end
      item
        Name = 'BRAZOS'
        DataType = ftInteger
      end
      item
        Name = 'ID_COLOR'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'PVPCAT'
        DataType = ftFloat
      end
      item
        Name = 'DESCUENTO'
        DataType = ftFloat
      end
      item
        Name = 'MARCA'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'IMAGEN'
        DataType = ftBlob
        Size = 1
      end
      item
        Name = 'TRANS'
        DataType = ftFloat
      end
      item
        Name = 'ART_PROVEEDOR'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'ID_PROVEEDOR'
        DataType = ftInteger
      end
      item
        Name = 'OBSERVACIONES'
        DataType = ftString
        Size = 150
      end
      item
        Name = 'OLDART_PROVEEDOR'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'OLDID_PROVEEDOR'
        DataType = ftInteger
      end
      item
        Name = 'MOSTRARIMAGEN'
        DataType = ftSmallint
      end
      item
        Name = 'MOSTRARDESCRIPCION'
        DataType = ftSmallint
      end
      item
        Name = 'POSICION'
        DataType = ftSmallint
      end
      item
        Name = 'POSICIONUSO'
        DataType = ftSmallint
      end
      item
        Name = 'DESCRIPCIONBOTON'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'MOSTRARPOSICION'
        DataType = ftSmallint
      end
      item
        Name = 'MOSTRARPOSICIONUSO'
        DataType = ftSmallint
      end
      item
        Name = 'BORRADO'
        DataType = ftSmallint
      end
      item
        Name = 'ALMACENABLEBORRAR'
        DataType = ftFloat
      end
      item
        Name = 'ALMACENABLE'
        DataType = ftSmallint
      end
      item
        Name = 'TRANSPORTES'
        DataType = ftSmallint
      end
      item
        Name = 'FINANCIEROS'
        DataType = ftSmallint
      end
      item
        Name = 'OTROSCOSTES'
        DataType = ftSmallint
      end
      item
        Name = 'PVPPROV'
        DataType = ftFloat
      end
      item
        Name = 'PVP2'
        DataType = ftFloat
      end
      item
        Name = 'FMODIFICACION'
        DataType = ftDate
      end
      item
        Name = 'CONTADOR'
        DataType = ftInteger
      end>
    IndexDefs = <
      item
        Name = 'ID_ARTICULOINDEX'
        DescFields = 'ID_ARTICULO'
        Fields = 'ID_ARTICULO'
        Options = [ixDescending]
      end
      item
        Name = 'MARCAINDEX'
        DescFields = 'MARCA'
        Fields = 'MARCA'
        Options = [ixDescending]
      end
      item
        Name = 'DESCRIPCIONINDEX'
        DescFields = 'DESCRIPCION'
        Fields = 'DESCRIPCION'
        Options = [ixDescending]
      end
      item
        Name = 'PRECIO_VENTAINDEX'
        DescFields = 'PRECIO_VENTA'
        Fields = 'PRECIO_VENTA'
        Options = [ixDescending]
      end
      item
        Name = 'COD_FAMILIAINDEX'
        DescFields = 'COD_FAMILIA'
        Fields = 'COD_FAMILIA'
        Options = [ixDescending]
      end>
    Params = <>
    ProviderName = 'DSPQ_ARTICULOS'
    RemoteServer = DCOMConnection1
    StoreDefs = True
    BeforeOpen = CDSQ_ARTICULOSBeforeOpen
    BeforeClose = CDSQ_ARTICULOSBeforeClose
    AfterInsert = CDSQ_ARTICULOSAfterInsert
    BeforePost = CDSQ_ARTICULOSBeforePost
    AfterPost = CDSQ_ARTICULOSAfterPost
    BeforeCancel = CDSQ_ARTICULOSBeforeCancel
    BeforeDelete = CDSQ_ARTICULOSBeforeDelete
    BeforeRefresh = CDSQ_ARTICULOSBeforeRefresh
    AfterRefresh = CDSQ_ARTICULOSAfterRefresh
    OnCalcFields = CDSQ_ARTICULOSCalcFields
    OnDeleteError = CDSQ_ARTICULOSDeleteError
    OnEditError = CDSQ_ARTICULOSEditError
    OnPostError = CDSQ_ARTICULOSPostError
    OnReconcileError = CDSQ_ARTICULOSReconcileError
    AfterApplyUpdates = CDSQ_ARTICULOSAfterApplyUpdates
    BeforeGetRecords = CDSQ_ARTICULOSBeforeGetRecords
    AfterGetRecords = CDSQ_ARTICULOSAfterGetRecords
    Left = 224
    Top = 488
    object CDSQ_ARTICULOSnombreproveedor: TStringField
      FieldName = 'nombreproveedor'
      ReadOnly = True
      Size = 150
    end
    object CDSQ_ARTICULOScolordescripcion: TStringField
      FieldName = 'colordescripcion'
      ReadOnly = True
      Size = 150
    end
    object CDSQ_ARTICULOSfamiliadescripcion: TStringField
      FieldName = 'familiadescripcion'
      ReadOnly = True
      Size = 150
    end
    object CDSQ_ARTICULOSFAMILIAESTA: TBooleanField
      FieldKind = fkInternalCalc
      FieldName = 'FAMILIAESTA'
    end
    object CDSQ_ARTICULOSFAMILIAOLD: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'FAMILIAOLD'
    end
    object CDSQ_ARTICULOSCOLORESTA: TBooleanField
      FieldKind = fkInternalCalc
      FieldName = 'COLORESTA'
    end
    object CDSQ_ARTICULOSCOLOROLD: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'COLOROLD'
    end
    object CDSQ_ARTICULOSCDESCRIPCION: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'CDESCRIPCION'
    end
    object CDSQ_ARTICULOSFDESCRIPCION: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'FDESCRIPCION'
    end
    object CDSQ_ARTICULOSproveedoresta: TBooleanField
      FieldKind = fkInternalCalc
      FieldName = 'proveedoresta'
    end
    object CDSQ_ARTICULOSnproveedor: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'nproveedor'
    end
    object CDSQ_ARTICULOSCOD_ARTICULO: TIntegerField
      FieldName = 'COD_ARTICULO'
      Required = True
    end
    object CDSQ_ARTICULOSCOD_FAMILIA: TStringField
      FieldName = 'COD_FAMILIA'
      Required = True
      Size = 30
    end
    object CDSQ_ARTICULOSPROFUNDIDAD: TSmallintField
      FieldName = 'PROFUNDIDAD'
      Required = True
    end
    object CDSQ_ARTICULOSID_ARTICULO: TStringField
      FieldName = 'ID_ARTICULO'
      Required = True
      Size = 30
    end
    object CDSQ_ARTICULOSDESCRIPCION: TStringField
      FieldName = 'DESCRIPCION'
      Size = 250
    end
    object CDSQ_ARTICULOSDESCRIPCIONTICKET: TStringField
      FieldName = 'DESCRIPCIONTICKET'
      Size = 50
    end
    object CDSQ_ARTICULOSBENEFICIO: TFloatField
      FieldName = 'BENEFICIO'
    end
    object CDSQ_ARTICULOSPRECIO_COSTE: TFloatField
      FieldName = 'PRECIO_COSTE'
    end
    object CDSQ_ARTICULOSPRECIO_MAX_COSTE: TFloatField
      FieldName = 'PRECIO_MAX_COSTE'
    end
    object CDSQ_ARTICULOSPRECIO_MIN_COSTE: TFloatField
      FieldName = 'PRECIO_MIN_COSTE'
    end
    object CDSQ_ARTICULOSPRECIO_MED_COSTE: TFloatField
      FieldName = 'PRECIO_MED_COSTE'
    end
    object CDSQ_ARTICULOSPRECIO_VENTA: TFloatField
      FieldName = 'PRECIO_VENTA'
    end
    object CDSQ_ARTICULOSIVA: TFloatField
      FieldName = 'IVA'
    end
    object CDSQ_ARTICULOSBRAZOS: TIntegerField
      FieldName = 'BRAZOS'
    end
    object CDSQ_ARTICULOSID_COLOR: TStringField
      FieldName = 'ID_COLOR'
      Size = 5
    end
    object CDSQ_ARTICULOSPVPCAT: TFloatField
      FieldName = 'PVPCAT'
    end
    object CDSQ_ARTICULOSDESCUENTO: TFloatField
      FieldName = 'DESCUENTO'
    end
    object CDSQ_ARTICULOSMARCA: TStringField
      FieldName = 'MARCA'
      Size = 10
    end
    object CDSQ_ARTICULOSIMAGEN: TBlobField
      FieldName = 'IMAGEN'
      Size = 1
    end
    object CDSQ_ARTICULOSTRANS: TFloatField
      FieldName = 'TRANS'
    end
    object CDSQ_ARTICULOSART_PROVEEDOR: TStringField
      FieldName = 'ART_PROVEEDOR'
      Size = 30
    end
    object CDSQ_ARTICULOSID_PROVEEDOR: TIntegerField
      FieldName = 'ID_PROVEEDOR'
    end
    object CDSQ_ARTICULOSOBSERVACIONES: TStringField
      FieldName = 'OBSERVACIONES'
      Size = 150
    end
    object CDSQ_ARTICULOSOLDART_PROVEEDOR: TStringField
      FieldName = 'OLDART_PROVEEDOR'
      Size = 30
    end
    object CDSQ_ARTICULOSOLDID_PROVEEDOR: TIntegerField
      FieldName = 'OLDID_PROVEEDOR'
    end
    object CDSQ_ARTICULOSMOSTRARIMAGEN: TSmallintField
      FieldName = 'MOSTRARIMAGEN'
    end
    object CDSQ_ARTICULOSMOSTRARDESCRIPCION: TSmallintField
      FieldName = 'MOSTRARDESCRIPCION'
    end
    object CDSQ_ARTICULOSPOSICION: TSmallintField
      FieldName = 'POSICION'
    end
    object CDSQ_ARTICULOSPOSICIONUSO: TSmallintField
      FieldName = 'POSICIONUSO'
    end
    object CDSQ_ARTICULOSDESCRIPCIONBOTON: TStringField
      FieldName = 'DESCRIPCIONBOTON'
      Size = 50
    end
    object CDSQ_ARTICULOSMOSTRARPOSICION: TSmallintField
      FieldName = 'MOSTRARPOSICION'
    end
    object CDSQ_ARTICULOSMOSTRARPOSICIONUSO: TSmallintField
      FieldName = 'MOSTRARPOSICIONUSO'
    end
    object CDSQ_ARTICULOSBORRADO: TSmallintField
      FieldName = 'BORRADO'
    end
    object CDSQ_ARTICULOSALMACENABLEBORRAR: TFloatField
      FieldName = 'ALMACENABLEBORRAR'
    end
    object CDSQ_ARTICULOSALMACENABLE: TSmallintField
      FieldName = 'ALMACENABLE'
    end
    object CDSQ_ARTICULOSTRANSPORTES: TSmallintField
      FieldName = 'TRANSPORTES'
    end
    object CDSQ_ARTICULOSFINANCIEROS: TSmallintField
      FieldName = 'FINANCIEROS'
    end
    object CDSQ_ARTICULOSOTROSCOSTES: TSmallintField
      FieldName = 'OTROSCOSTES'
    end
    object CDSQ_ARTICULOSproveedorold: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'proveedorold'
    end
    object CDSQ_ARTICULOSPVPPROV: TFloatField
      FieldName = 'PVPPROV'
    end
    object CDSQ_ARTICULOSPVP2: TFloatField
      FieldName = 'PVP2'
    end
    object CDSQ_ARTICULOSFMODIFICACION: TDateField
      FieldName = 'FMODIFICACION'
      EditMask = '!99/99/00;1;_'
    end
    object CDSQ_ARTICULOSCONTADOR: TIntegerField
      FieldName = 'CONTADOR'
    end
    object CDSQ_ARTICULOSTieneEan: TBooleanField
      FieldKind = fkInternalCalc
      FieldName = 'TieneEan'
    end
  end
  object CDSQ_COLORES: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPQ_COLORES'
    RemoteServer = DCOMConnection1
    BeforeOpen = CDSQ_COLORESBeforeOpen
    BeforeClose = CDSQ_COLORESBeforeClose
    BeforePost = CDSQ_COLORESBeforePost
    AfterPost = CDSQ_COLORESAfterPost
    BeforeDelete = CDSQ_COLORESBeforeDelete
    OnDeleteError = CDSQ_COLORESDeleteError
    OnEditError = CDSQ_COLORESEditError
    OnPostError = CDSQ_COLORESPostError
    OnReconcileError = CDSQ_COLORESReconcileError
    BeforeGetRecords = CDSQ_COLORESBeforeGetRecords
    AfterGetRecords = CDSQ_COLORESAfterGetRecords
    Left = 440
    Top = 184
    object CDSQ_COLORESID_COLOR: TStringField
      FieldName = 'ID_COLOR'
      Required = True
      Size = 5
    end
    object CDSQ_COLORESDESCRIPCION: TStringField
      FieldName = 'DESCRIPCION'
      Size = 50
    end
  end
  object CDSQ_COLORESAUX: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPQ_COLORESAUX'
    RemoteServer = DCOMConnection1
    BeforeOpen = CDSQ_COLORESAUXBeforeOpen
    BeforeClose = CDSQ_COLORESAUXBeforeClose
    OnReconcileError = CDSQ_COLORESAUXReconcileError
    BeforeGetRecords = CDSQ_COLORESAUXBeforeGetRecords
    AfterGetRecords = CDSQ_COLORESAUXAfterGetRecords
    Left = 472
    Top = 184
    object CDSQ_COLORESAUXID_COLOR: TStringField
      FieldName = 'ID_COLOR'
      Required = True
      Size = 5
    end
    object CDSQ_COLORESAUXDESCRIPCION: TStringField
      FieldName = 'DESCRIPCION'
      Size = 50
    end
  end
  object CDSQ_EAN: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPQ_EAN'
    RemoteServer = DCOMConnection1
    BeforeOpen = CDSQ_EANBeforeOpen
    BeforeClose = CDSQ_EANBeforeClose
    BeforePost = CDSQ_EANBeforePost
    AfterPost = CDSQ_EANAfterPost
    BeforeDelete = CDSQ_EANBeforeDelete
    OnDeleteError = CDSQ_EANDeleteError
    OnEditError = CDSQ_EANEditError
    OnPostError = CDSQ_EANPostError
    OnReconcileError = CDSQ_EANReconcileError
    BeforeGetRecords = CDSQ_EANBeforeGetRecords
    AfterGetRecords = CDSQ_EANAfterGetRecords
    Left = 144
    Top = 232
    object CDSQ_EANID_ARTICULO: TStringField
      FieldName = 'ID_ARTICULO'
      Required = True
      Size = 30
    end
    object CDSQ_EANEAN: TStringField
      FieldName = 'EAN'
      Required = True
      Size = 40
    end
  end
  object CDSQ_CLIENTE: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'ID_CLIENTE'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'NIF'
        DataType = ftString
        Size = 15
      end
      item
        Name = 'NOMBRE'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'NOMBRE_COMERCIAL'
        DataType = ftString
        Size = 100
      end
      item
        Name = 'DIRECCION'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'DIRECCION_POSTAL'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'POBLACION'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'POBLACION_POSTAL'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'COD_POSTAL'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'COD_POSTAL_POSTAL'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'PROVINCIA'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'PROVINCIA_POSTAL'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'EMAIL'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'HTTP'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'SUBCUENTA'
        DataType = ftString
        Size = 12
      end
      item
        Name = 'OBSERVACIONES'
        DataType = ftString
        Size = 150
      end
      item
        Name = 'MISMA_DIRECCION'
        DataType = ftSmallint
      end
      item
        Name = 'BORRADO'
        DataType = ftSmallint
      end
      item
        Name = 'TELEFONO'
        DataType = ftString
        Size = 13
      end
      item
        Name = 'FAX'
        DataType = ftString
        Size = 13
      end
      item
        Name = 'TELEFONO2'
        DataType = ftString
        Size = 13
      end
      item
        Name = 'CC_BANCO'
        DataType = ftString
        Size = 4
      end
      item
        Name = 'CC_OFICINA'
        DataType = ftString
        Size = 4
      end
      item
        Name = 'CC_DC'
        DataType = ftString
        Size = 2
      end
      item
        Name = 'CC_CC'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'NO_POR_BANCO'
        DataType = ftSmallint
      end
      item
        Name = 'ALMACENABLEBORRAR'
        DataType = ftSmallint
      end
      item
        Name = 'VEHICULO'
        DataType = ftString
        Size = 120
      end
      item
        Name = 'MATRICULA'
        DataType = ftString
        Size = 20
      end>
    IndexDefs = <
      item
        Name = 'ID_CLIENTEINDEX'
        DescFields = 'ID_CLIENTE'
        Fields = 'ID_CLIENTE'
        Options = [ixDescending]
      end
      item
        Name = 'NOMBREINDEX'
        DescFields = 'NOMBRE'
        Fields = 'NOMBRE'
        Options = [ixDescending]
      end
      item
        Name = 'NIFINDEX'
        DescFields = 'NIF'
        Fields = 'NIF'
        Options = [ixDescending]
      end
      item
        Name = 'BORRADOINDEX'
        DescFields = 'BORRADO'
        Fields = 'BORRADO'
        Options = [ixDescending]
      end>
    Params = <>
    ProviderName = 'DSPQ_CLIENTES'
    RemoteServer = DCOMConnection1
    StoreDefs = True
    BeforeOpen = CDSQ_CLIENTEBeforeOpen
    BeforeClose = CDSQ_CLIENTEBeforeClose
    AfterInsert = CDSQ_CLIENTEAfterInsert
    BeforePost = CDSQ_CLIENTEBeforePost
    AfterPost = CDSQ_CLIENTEAfterPost
    OnCalcFields = CDSQ_CLIENTECalcFields
    OnDeleteError = CDSQ_CLIENTEDeleteError
    OnEditError = CDSQ_CLIENTEEditError
    OnPostError = CDSQ_CLIENTEPostError
    OnReconcileError = CDSQ_CLIENTEReconcileError
    BeforeGetRecords = CDSQ_CLIENTEBeforeGetRecords
    AfterGetRecords = CDSQ_CLIENTEAfterGetRecords
    Left = 352
    Top = 488
    object CDSQ_CLIENTEID_CLIENTE: TIntegerField
      FieldName = 'ID_CLIENTE'
      Required = True
    end
    object CDSQ_CLIENTENOMBRE: TStringField
      FieldName = 'NOMBRE'
      Size = 50
    end
    object CDSQ_CLIENTENIF: TStringField
      FieldName = 'NIF'
      Size = 15
    end
    object CDSQ_CLIENTEDIRECCION: TStringField
      FieldName = 'DIRECCION'
      Size = 50
    end
    object CDSQ_CLIENTEPOBLACION: TStringField
      FieldName = 'POBLACION'
      Size = 50
    end
    object CDSQ_CLIENTEPOBLACION_POSTAL: TStringField
      FieldName = 'POBLACION_POSTAL'
      Size = 50
    end
    object CDSQ_CLIENTECOD_POSTAL: TStringField
      FieldName = 'COD_POSTAL'
      Size = 5
    end
    object CDSQ_CLIENTECOD_POSTAL_POSTAL: TStringField
      FieldName = 'COD_POSTAL_POSTAL'
      Size = 5
    end
    object CDSQ_CLIENTEPROVINCIA: TStringField
      FieldName = 'PROVINCIA'
      Size = 50
    end
    object CDSQ_CLIENTEPROVINCIA_POSTAL: TStringField
      FieldName = 'PROVINCIA_POSTAL'
      Size = 50
    end
    object CDSQ_CLIENTEEMAIL: TStringField
      FieldName = 'EMAIL'
      Size = 50
    end
    object CDSQ_CLIENTEHTTP: TStringField
      FieldName = 'HTTP'
      Size = 50
    end
    object CDSQ_CLIENTEDIRECCION_POSTAL: TStringField
      FieldName = 'DIRECCION_POSTAL'
      Size = 50
    end
    object CDSQ_CLIENTESUBCUENTA: TStringField
      FieldName = 'SUBCUENTA'
      Size = 12
    end
    object CDSQ_CLIENTEOBSERVACIONES: TStringField
      FieldName = 'OBSERVACIONES'
      Size = 150
    end
    object CDSQ_CLIENTEMISMA_DIRECCION: TSmallintField
      FieldName = 'MISMA_DIRECCION'
    end
    object CDSQ_CLIENTETELEFONO: TStringField
      FieldName = 'TELEFONO'
      Size = 13
    end
    object CDSQ_CLIENTEFAX: TStringField
      FieldName = 'FAX'
      Size = 13
    end
    object CDSQ_CLIENTEBORRADO: TSmallintField
      FieldName = 'BORRADO'
    end
    object CDSQ_CLIENTENOMBRE_COMERCIAL: TStringField
      FieldName = 'NOMBRE_COMERCIAL'
      Size = 100
    end
    object CDSQ_CLIENTETELEFONO2: TStringField
      FieldName = 'TELEFONO2'
      Size = 13
    end
    object CDSQ_CLIENTECC_BANCO: TStringField
      FieldName = 'CC_BANCO'
      Size = 4
    end
    object CDSQ_CLIENTECC_OFICINA: TStringField
      FieldName = 'CC_OFICINA'
      Size = 4
    end
    object CDSQ_CLIENTECC_DC: TStringField
      FieldName = 'CC_DC'
      Size = 2
    end
    object CDSQ_CLIENTECC_CC: TStringField
      FieldName = 'CC_CC'
      Size = 10
    end
    object CDSQ_CLIENTENO_POR_BANCO: TSmallintField
      FieldName = 'NO_POR_BANCO'
    end
    object CDSQ_CLIENTEBORRADOS: TStringField
      FieldKind = fkCalculated
      FieldName = 'BORRADOS'
      Calculated = True
    end
    object CDSQ_CLIENTEALMACENABLEBORRAR: TSmallintField
      FieldName = 'ALMACENABLEBORRAR'
    end
    object CDSQ_CLIENTEVEHICULO: TStringField
      FieldName = 'VEHICULO'
      Size = 120
    end
    object CDSQ_CLIENTEMATRICULA: TStringField
      FieldName = 'MATRICULA'
    end
  end
  object CDSQ_FCLIENTE: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPQ_FCLIENTE'
    RemoteServer = DCOMConnection1
    BeforeOpen = CDSQ_FCLIENTEBeforeOpen
    BeforeClose = CDSQ_FCLIENTEBeforeClose
    OnReconcileError = CDSQ_FCLIENTEReconcileError
    BeforeGetRecords = CDSQ_FCLIENTEBeforeGetRecords
    Left = 352
    Top = 504
    object CDSQ_FCLIENTENIF: TStringField
      FieldName = 'NIF'
      Size = 15
    end
    object CDSQ_FCLIENTENOMBRE: TStringField
      FieldName = 'NOMBRE'
      Size = 50
    end
  end
  object CDSQ_CLIENTEAUX: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'ID_CLIENTE'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'NIF'
        DataType = ftString
        Size = 15
      end
      item
        Name = 'NOMBRE'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'NOMBRE_COMERCIAL'
        DataType = ftString
        Size = 100
      end
      item
        Name = 'DIRECCION'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'DIRECCION_POSTAL'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'POBLACION'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'POBLACION_POSTAL'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'COD_POSTAL'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'COD_POSTAL_POSTAL'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'PROVINCIA'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'PROVINCIA_POSTAL'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'EMAIL'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'HTTP'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'SUBCUENTA'
        DataType = ftString
        Size = 12
      end
      item
        Name = 'OBSERVACIONES'
        DataType = ftString
        Size = 150
      end
      item
        Name = 'MISMA_DIRECCION'
        DataType = ftSmallint
      end
      item
        Name = 'BORRADO'
        DataType = ftSmallint
      end
      item
        Name = 'TELEFONO'
        DataType = ftString
        Size = 13
      end
      item
        Name = 'FAX'
        DataType = ftString
        Size = 13
      end
      item
        Name = 'TELEFONO2'
        DataType = ftString
        Size = 13
      end
      item
        Name = 'CC_BANCO'
        DataType = ftString
        Size = 4
      end
      item
        Name = 'CC_OFICINA'
        DataType = ftString
        Size = 4
      end
      item
        Name = 'CC_DC'
        DataType = ftString
        Size = 2
      end
      item
        Name = 'CC_CC'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'NO_POR_BANCO'
        DataType = ftSmallint
      end
      item
        Name = 'ALMACENABLEBORRAR'
        DataType = ftSmallint
      end
      item
        Name = 'VEHICULO'
        DataType = ftString
        Size = 120
      end
      item
        Name = 'MATRICULA'
        DataType = ftString
        Size = 20
      end>
    IndexDefs = <
      item
        Name = 'ID_CLIENTEINDEX'
        DescFields = 'ID_CLIENTE'
        Fields = 'ID_CLIENTE'
        Options = [ixDescending]
      end
      item
        Name = 'NOMBREINDEX'
        DescFields = 'NOMBRE'
        Fields = 'NOMBRE'
        Options = [ixDescending]
      end
      item
        Name = 'NIFINDEX'
        DescFields = 'NIF'
        Fields = 'NIF'
        Options = [ixDescending]
      end
      item
        Name = 'BORRADOINDEX'
        DescFields = 'BORRADO'
        Fields = 'BORRADO'
        Options = [ixDescending]
      end>
    Params = <>
    ProviderName = 'DSPQ_CLIENTEAUX'
    RemoteServer = DCOMConnection1
    StoreDefs = True
    BeforeOpen = CDSQ_CLIENTEAUXBeforeOpen
    BeforeClose = CDSQ_CLIENTEAUXBeforeClose
    OnCalcFields = CDSQ_CLIENTEAUXCalcFields
    OnReconcileError = CDSQ_CLIENTEAUXReconcileError
    BeforeGetRecords = CDSQ_CLIENTEAUXBeforeGetRecords
    AfterGetRecords = CDSQ_CLIENTEAUXAfterGetRecords
    Left = 352
    Top = 512
    object CDSQ_CLIENTEAUXBORRADOS: TBooleanField
      FieldKind = fkCalculated
      FieldName = 'BORRADOS'
      DisplayValues = 'SI;NO'
      Calculated = True
    end
    object CDSQ_CLIENTEAUXID_CLIENTE: TIntegerField
      FieldName = 'ID_CLIENTE'
      Required = True
    end
    object CDSQ_CLIENTEAUXNIF: TStringField
      FieldName = 'NIF'
      Size = 15
    end
    object CDSQ_CLIENTEAUXNOMBRE: TStringField
      FieldName = 'NOMBRE'
      Size = 50
    end
    object CDSQ_CLIENTEAUXDIRECCION: TStringField
      FieldName = 'DIRECCION'
      Size = 50
    end
    object CDSQ_CLIENTEAUXDIRECCION_POSTAL: TStringField
      FieldName = 'DIRECCION_POSTAL'
      Size = 50
    end
    object CDSQ_CLIENTEAUXPOBLACION: TStringField
      FieldName = 'POBLACION'
      Size = 50
    end
    object CDSQ_CLIENTEAUXPOBLACION_POSTAL: TStringField
      FieldName = 'POBLACION_POSTAL'
      Size = 50
    end
    object CDSQ_CLIENTEAUXCOD_POSTAL: TStringField
      FieldName = 'COD_POSTAL'
      Size = 5
    end
    object CDSQ_CLIENTEAUXCOD_POSTAL_POSTAL: TStringField
      FieldName = 'COD_POSTAL_POSTAL'
      Size = 5
    end
    object CDSQ_CLIENTEAUXPROVINCIA: TStringField
      FieldName = 'PROVINCIA'
      Size = 50
    end
    object CDSQ_CLIENTEAUXPROVINCIA_POSTAL: TStringField
      FieldName = 'PROVINCIA_POSTAL'
      Size = 50
    end
    object CDSQ_CLIENTEAUXEMAIL: TStringField
      FieldName = 'EMAIL'
      Size = 50
    end
    object CDSQ_CLIENTEAUXHTTP: TStringField
      FieldName = 'HTTP'
      Size = 50
    end
    object CDSQ_CLIENTEAUXSUBCUENTA: TStringField
      FieldName = 'SUBCUENTA'
      Size = 12
    end
    object CDSQ_CLIENTEAUXOBSERVACIONES: TStringField
      FieldName = 'OBSERVACIONES'
      Size = 150
    end
    object CDSQ_CLIENTEAUXMISMA_DIRECCION: TSmallintField
      FieldName = 'MISMA_DIRECCION'
    end
    object CDSQ_CLIENTEAUXBORRADO: TSmallintField
      FieldName = 'BORRADO'
    end
    object CDSQ_CLIENTEAUXTELEFONO: TStringField
      FieldName = 'TELEFONO'
      Size = 13
    end
    object CDSQ_CLIENTEAUXFAX: TStringField
      FieldName = 'FAX'
      Size = 13
    end
    object CDSQ_CLIENTEAUXNOMBRE_COMERCIAL: TStringField
      FieldName = 'NOMBRE_COMERCIAL'
      Size = 100
    end
    object CDSQ_CLIENTEAUXTELEFONO2: TStringField
      FieldName = 'TELEFONO2'
      Size = 13
    end
    object CDSQ_CLIENTEAUXCC_BANCO: TStringField
      FieldName = 'CC_BANCO'
      Size = 4
    end
    object CDSQ_CLIENTEAUXCC_OFICINA: TStringField
      FieldName = 'CC_OFICINA'
      Size = 4
    end
    object CDSQ_CLIENTEAUXCC_DC: TStringField
      FieldName = 'CC_DC'
      Size = 2
    end
    object CDSQ_CLIENTEAUXCC_CC: TStringField
      FieldName = 'CC_CC'
      Size = 10
    end
    object CDSQ_CLIENTEAUXNO_POR_BANCO: TSmallintField
      FieldName = 'NO_POR_BANCO'
    end
    object CDSQ_CLIENTEAUXVEHICULO: TStringField
      FieldName = 'VEHICULO'
      Size = 120
    end
    object CDSQ_CLIENTEAUXMATRICULA: TStringField
      FieldName = 'MATRICULA'
    end
  end
  object CDSQ_SERIES: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPQ_SERIES'
    RemoteServer = DCOMConnection1
    BeforeOpen = CDSQ_SERIESBeforeOpen
    BeforeClose = CDSQ_SERIESBeforeClose
    AfterInsert = CDSQ_SERIESAfterInsert
    BeforePost = CDSQ_SERIESBeforePost
    AfterPost = CDSQ_SERIESAfterPost
    BeforeDelete = CDSQ_SERIESBeforeDelete
    OnDeleteError = CDSQ_SERIESDeleteError
    OnEditError = CDSQ_SERIESEditError
    OnPostError = CDSQ_SERIESPostError
    OnReconcileError = CDSQ_SERIESReconcileError
    BeforeGetRecords = CDSQ_SERIESBeforeGetRecords
    AfterGetRecords = CDSQ_SERIESAfterGetRecords
    Left = 440
    Top = 128
    object CDSQ_SERIESID_SERIE: TStringField
      FieldName = 'ID_SERIE'
      Required = True
      Size = 3
    end
    object CDSQ_SERIESID_EMPRESA: TSmallintField
      FieldName = 'ID_EMPRESA'
      Required = True
    end
    object CDSQ_SERIESSIG_ALBARAN: TIntegerField
      FieldName = 'SIG_ALBARAN'
    end
    object CDSQ_SERIESSIG_FACTURA: TIntegerField
      FieldName = 'SIG_FACTURA'
    end
    object CDSQ_SERIESOBSERVACIONES: TStringField
      FieldName = 'OBSERVACIONES'
      FixedChar = True
      Size = 255
    end
    object CDSQ_SERIESANYO: TSmallintField
      FieldName = 'ANYO'
      Required = True
    end
    object CDSQ_SERIESTICKET: TIntegerField
      FieldName = 'TICKET'
    end
    object CDSQ_SERIESPRECIO: TStringField
      FieldName = 'PRECIO'
      Size = 10
    end
  end
  object CDSQ_EMPRESA: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPQ_EMPRESA'
    RemoteServer = DCOMConnection1
    BeforeOpen = CDSQ_EMPRESABeforeOpen
    BeforeClose = CDSQ_EMPRESABeforeClose
    AfterInsert = CDSQ_EMPRESAAfterInsert
    BeforePost = CDSQ_EMPRESABeforePost
    AfterPost = CDSQ_EMPRESAAfterPost
    BeforeDelete = CDSQ_EMPRESABeforeDelete
    OnDeleteError = CDSQ_EMPRESADeleteError
    OnEditError = CDSQ_EMPRESAEditError
    OnPostError = CDSQ_EMPRESAPostError
    OnReconcileError = CDSQ_EMPRESAReconcileError
    BeforeGetRecords = CDSQ_EMPRESABeforeGetRecords
    AfterGetRecords = CDSQ_ALMACENAfterGetRecords
    Left = 384
    Top = 16
    object CDSQ_EMPRESAID_EMPRESA: TSmallintField
      FieldName = 'ID_EMPRESA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object CDSQ_EMPRESACIF_EMPRESA: TStringField
      FieldName = 'CIF_EMPRESA'
      Size = 9
    end
    object CDSQ_EMPRESANOMBRE: TStringField
      FieldName = 'NOMBRE'
      Size = 155
    end
    object CDSQ_EMPRESADIRECCION: TStringField
      FieldName = 'DIRECCION'
      Size = 50
    end
    object CDSQ_EMPRESADIRECCION_POSTAL: TStringField
      FieldName = 'DIRECCION_POSTAL'
      Size = 50
    end
    object CDSQ_EMPRESAPOBLACION: TStringField
      FieldName = 'POBLACION'
      Size = 50
    end
    object CDSQ_EMPRESAPOBLACION_POSTAL: TStringField
      FieldName = 'POBLACION_POSTAL'
      Size = 50
    end
    object CDSQ_EMPRESAPROVINCIA: TStringField
      FieldName = 'PROVINCIA'
      Size = 50
    end
    object CDSQ_EMPRESAPROVINCIA_POSTAL: TStringField
      FieldName = 'PROVINCIA_POSTAL'
      Size = 50
    end
    object CDSQ_EMPRESACOD_POSTAL: TStringField
      FieldName = 'COD_POSTAL'
      Size = 5
    end
    object CDSQ_EMPRESACOD_POSTAL_POSTAL: TStringField
      FieldName = 'COD_POSTAL_POSTAL'
      Size = 5
    end
    object CDSQ_EMPRESAEMAIL: TStringField
      FieldName = 'EMAIL'
      Size = 50
    end
    object CDSQ_EMPRESAHTTP: TStringField
      FieldName = 'HTTP'
      Size = 100
    end
    object CDSQ_EMPRESAOBSERVACIONES: TStringField
      FieldName = 'OBSERVACIONES'
      Size = 150
    end
    object CDSQ_EMPRESAMISMA_DIRECCION: TSmallintField
      FieldName = 'MISMA_DIRECCION'
    end
    object CDSQ_EMPRESAFAX: TStringField
      FieldName = 'FAX'
      Size = 13
    end
    object CDSQ_EMPRESATELEFONO: TStringField
      FieldName = 'TELEFONO'
      Size = 13
    end
    object CDSQ_EMPRESADESGLOSAR_IVA: TSmallintField
      FieldName = 'DESGLOSAR_IVA'
    end
    object CDSQ_EMPRESAV_PRECIO_MAX_COSTE: TSmallintField
      FieldName = 'V_PRECIO_MAX_COSTE'
    end
    object CDSQ_EMPRESAV_LINEAS_FACT: TSmallintField
      FieldName = 'V_LINEAS_FACT'
    end
    object CDSQ_EMPRESABENEFICIO_MIN: TSmallintField
      FieldName = 'BENEFICIO_MIN'
    end
    object CDSQ_EMPRESACOPIAS_FACTURAS: TSmallintField
      FieldName = 'COPIAS_FACTURAS'
    end
    object CDSQ_EMPRESACOPIAS_REPARACIONES: TSmallintField
      FieldName = 'COPIAS_REPARACIONES'
    end
    object CDSQ_EMPRESACOPIAS_AVISOS: TSmallintField
      FieldName = 'COPIAS_AVISOS'
    end
    object CDSQ_EMPRESALOGO: TBlobField
      FieldName = 'LOGO'
      Size = 1
    end
    object CDSQ_EMPRESAMOVIL: TStringField
      FieldName = 'MOVIL'
      Size = 13
    end
    object CDSQ_EMPRESATICKET: TIntegerField
      FieldName = 'TICKET'
    end
    object CDSQ_EMPRESAPREVIOS: TSmallintField
      FieldName = 'PREVIOS'
    end
    object CDSQ_EMPRESAIMPRIMIRTICKET: TSmallintField
      FieldName = 'IMPRIMIRTICKET'
    end
    object CDSQ_EMPRESAID_COBRO: TIntegerField
      FieldName = 'ID_COBRO'
    end
    object CDSQ_EMPRESAID_ENTRADA: TIntegerField
      FieldName = 'ID_ENTRADA'
    end
    object CDSQ_EMPRESAID_PRESUPUESTO: TIntegerField
      FieldName = 'ID_PRESUPUESTO'
    end
    object CDSQ_EMPRESAID_SALIDA: TSmallintField
      FieldName = 'ID_SALIDA'
    end
    object CDSQ_EMPRESAID_AVISO: TIntegerField
      FieldName = 'ID_AVISO'
    end
    object CDSQ_EMPRESAID_SERIE: TStringField
      FieldName = 'ID_SERIE'
      Size = 3
    end
    object CDSQ_EMPRESAPRESUPUESTOVALIDO: TSmallintField
      FieldName = 'PRESUPUESTOVALIDO'
    end
    object CDSQ_EMPRESATIPO: TSmallintField
      FieldName = 'TIPO'
    end
    object CDSQ_EMPRESABENEFICIO: TFloatField
      FieldName = 'BENEFICIO'
    end
    object CDSQ_EMPRESAAVISAR: TFloatField
      FieldName = 'AVISAR'
    end
    object CDSQ_EMPRESADAR_AVISO: TSmallintField
      FieldName = 'DAR_AVISO'
    end
    object CDSQ_EMPRESATRANS: TFloatField
      FieldName = 'TRANS'
    end
    object CDSQ_EMPRESAANYADIR_TRANS: TSmallintField
      FieldName = 'ANYADIR_TRANS'
    end
    object CDSQ_EMPRESANODESCONTAR: TSmallintField
      FieldName = 'NODESCONTAR'
    end
    object CDSQ_EMPRESACLXDEFECTO: TIntegerField
      FieldName = 'CLXDEFECTO'
    end
    object CDSQ_EMPRESAMOSTRARIMAGEN: TSmallintField
      FieldName = 'MOSTRARIMAGEN'
    end
    object CDSQ_EMPRESAMOSTRARDESCRIPCION: TSmallintField
      FieldName = 'MOSTRARDESCRIPCION'
    end
    object CDSQ_EMPRESAFPOSICION: TSmallintField
      FieldName = 'FPOSICION'
    end
    object CDSQ_EMPRESAFPOSICIONUSO: TSmallintField
      FieldName = 'FPOSICIONUSO'
    end
    object CDSQ_EMPRESAFDESCRIPCION: TSmallintField
      FieldName = 'FDESCRIPCION'
    end
    object CDSQ_EMPRESAFORMAPAGO: TStringField
      FieldName = 'FORMAPAGO'
      Size = 5
    end
    object CDSQ_EMPRESAREGISTRO: TStringField
      FieldName = 'REGISTRO'
      Size = 500
    end
    object CDSQ_EMPRESADESFASEARQUEO: TFloatField
      FieldName = 'DESFASEARQUEO'
    end
    object CDSQ_EMPRESAIMPRESORATICKET: TStringField
      FieldName = 'IMPRESORATICKET'
      Size = 400
    end
    object CDSQ_EMPRESAIMPRESORAINFORMES: TStringField
      FieldName = 'IMPRESORAINFORMES'
      Size = 400
    end
    object CDSQ_EMPRESACAJA: TSmallintField
      FieldName = 'CAJA'
    end
    object CDSQ_EMPRESAIMPRIMIRFACTURA: TSmallintField
      FieldName = 'IMPRIMIRFACTURA'
    end
    object CDSQ_EMPRESAIMPRIMIRALBARAN: TSmallintField
      FieldName = 'IMPRIMIRALBARAN'
    end
    object CDSQ_EMPRESACOPIASALBARAN: TSmallintField
      FieldName = 'COPIASALBARAN'
    end
    object CDSQ_EMPRESANOMBRE_COMERCIAL: TStringField
      FieldName = 'NOMBRE_COMERCIAL'
      Size = 254
    end
    object CDSQ_EMPRESARUTAIMAGEN: TStringField
      FieldName = 'RUTAIMAGEN'
      Size = 100
    end
    object CDSQ_EMPRESAALBSINIVA: TSmallintField
      FieldName = 'ALBSINIVA'
    end
    object CDSQ_EMPRESAPUERTOIMPTICKET: TStringField
      FieldName = 'PUERTOIMPTICKET'
      Size = 40
    end
  end
  object CDSQ_EMPRESAAUX: TClientDataSet
    Aggregates = <>
    AutoCalcFields = False
    Params = <>
    ProviderName = 'DSPQ_EMPRESAAUX'
    RemoteServer = DCOMConnection1
    BeforeOpen = CDSQ_EMPRESAAUXBeforeOpen
    BeforeClose = CDSQ_EMPRESAAUXBeforeClose
    OnReconcileError = CDSQ_EMPRESAAUXReconcileError
    BeforeGetRecords = CDSQ_EMPRESAAUXBeforeGetRecords
    AfterGetRecords = CDSQ_EMPRESAAUXAfterGetRecords
    Left = 408
    Top = 16
    object CDSQ_EMPRESAAUXID_EMPRESA: TSmallintField
      FieldName = 'ID_EMPRESA'
      Required = True
    end
    object CDSQ_EMPRESAAUXCIF_EMPRESA: TStringField
      FieldName = 'CIF_EMPRESA'
      Size = 9
    end
    object CDSQ_EMPRESAAUXNOMBRE: TStringField
      FieldName = 'NOMBRE'
      Size = 155
    end
    object CDSQ_EMPRESAAUXDIRECCION: TStringField
      FieldName = 'DIRECCION'
      Size = 50
    end
    object CDSQ_EMPRESAAUXDIRECCION_POSTAL: TStringField
      FieldName = 'DIRECCION_POSTAL'
      Size = 50
    end
    object CDSQ_EMPRESAAUXPOBLACION: TStringField
      FieldName = 'POBLACION'
      Size = 50
    end
    object CDSQ_EMPRESAAUXPOBLACION_POSTAL: TStringField
      FieldName = 'POBLACION_POSTAL'
      Size = 50
    end
    object CDSQ_EMPRESAAUXPROVINCIA: TStringField
      FieldName = 'PROVINCIA'
      Size = 50
    end
    object CDSQ_EMPRESAAUXPROVINCIA_POSTAL: TStringField
      FieldName = 'PROVINCIA_POSTAL'
      Size = 50
    end
    object CDSQ_EMPRESAAUXCOD_POSTAL: TStringField
      FieldName = 'COD_POSTAL'
      Size = 5
    end
    object CDSQ_EMPRESAAUXCOD_POSTAL_POSTAL: TStringField
      FieldName = 'COD_POSTAL_POSTAL'
      Size = 5
    end
    object CDSQ_EMPRESAAUXEMAIL: TStringField
      FieldName = 'EMAIL'
      Size = 50
    end
    object CDSQ_EMPRESAAUXHTTP: TStringField
      FieldName = 'HTTP'
      Size = 100
    end
    object CDSQ_EMPRESAAUXOBSERVACIONES: TStringField
      FieldName = 'OBSERVACIONES'
      Size = 150
    end
    object CDSQ_EMPRESAAUXMISMA_DIRECCION: TSmallintField
      FieldName = 'MISMA_DIRECCION'
    end
    object CDSQ_EMPRESAAUXFAX: TStringField
      FieldName = 'FAX'
      Size = 13
    end
    object CDSQ_EMPRESAAUXTELEFONO: TStringField
      FieldName = 'TELEFONO'
      Size = 13
    end
    object CDSQ_EMPRESAAUXDESGLOSAR_IVA: TSmallintField
      FieldName = 'DESGLOSAR_IVA'
    end
    object CDSQ_EMPRESAAUXV_PRECIO_MAX_COSTE: TSmallintField
      FieldName = 'V_PRECIO_MAX_COSTE'
    end
    object CDSQ_EMPRESAAUXV_LINEAS_FACT: TSmallintField
      FieldName = 'V_LINEAS_FACT'
    end
    object CDSQ_EMPRESAAUXBENEFICIO_MIN: TSmallintField
      FieldName = 'BENEFICIO_MIN'
    end
    object CDSQ_EMPRESAAUXCOPIAS_FACTURAS: TSmallintField
      FieldName = 'COPIAS_FACTURAS'
    end
    object CDSQ_EMPRESAAUXCOPIAS_REPARACIONES: TSmallintField
      FieldName = 'COPIAS_REPARACIONES'
    end
    object CDSQ_EMPRESAAUXCOPIAS_AVISOS: TSmallintField
      FieldName = 'COPIAS_AVISOS'
    end
    object CDSQ_EMPRESAAUXLOGO: TBlobField
      FieldName = 'LOGO'
      Size = 1
    end
    object CDSQ_EMPRESAAUXMOVIL: TStringField
      FieldName = 'MOVIL'
      Size = 13
    end
    object CDSQ_EMPRESAAUXTICKET: TIntegerField
      FieldName = 'TICKET'
    end
    object CDSQ_EMPRESAAUXPREVIOS: TSmallintField
      FieldName = 'PREVIOS'
    end
    object CDSQ_EMPRESAAUXIMPRIMIRTICKET: TSmallintField
      FieldName = 'IMPRIMIRTICKET'
    end
    object CDSQ_EMPRESAAUXID_COBRO: TIntegerField
      FieldName = 'ID_COBRO'
    end
    object CDSQ_EMPRESAAUXID_ENTRADA: TIntegerField
      FieldName = 'ID_ENTRADA'
    end
    object CDSQ_EMPRESAAUXID_PRESUPUESTO: TIntegerField
      FieldName = 'ID_PRESUPUESTO'
    end
    object CDSQ_EMPRESAAUXID_SALIDA: TSmallintField
      FieldName = 'ID_SALIDA'
    end
    object CDSQ_EMPRESAAUXID_AVISO: TIntegerField
      FieldName = 'ID_AVISO'
    end
    object CDSQ_EMPRESAAUXID_SERIE: TStringField
      FieldName = 'ID_SERIE'
      Size = 3
    end
    object CDSQ_EMPRESAAUXPRESUPUESTOVALIDO: TSmallintField
      FieldName = 'PRESUPUESTOVALIDO'
    end
    object CDSQ_EMPRESAAUXTIPO: TSmallintField
      FieldName = 'TIPO'
    end
    object CDSQ_EMPRESAAUXBENEFICIO: TFloatField
      FieldName = 'BENEFICIO'
    end
    object CDSQ_EMPRESAAUXAVISAR: TFloatField
      FieldName = 'AVISAR'
    end
    object CDSQ_EMPRESAAUXDAR_AVISO: TSmallintField
      FieldName = 'DAR_AVISO'
    end
    object CDSQ_EMPRESAAUXTRANS: TFloatField
      FieldName = 'TRANS'
    end
    object CDSQ_EMPRESAAUXANYADIR_TRANS: TSmallintField
      FieldName = 'ANYADIR_TRANS'
    end
    object CDSQ_EMPRESAAUXNODESCONTAR: TSmallintField
      FieldName = 'NODESCONTAR'
    end
    object CDSQ_EMPRESAAUXCLXDEFECTO: TIntegerField
      FieldName = 'CLXDEFECTO'
    end
    object CDSQ_EMPRESAAUXMOSTRARIMAGEN: TSmallintField
      FieldName = 'MOSTRARIMAGEN'
    end
    object CDSQ_EMPRESAAUXMOSTRARDESCRIPCION: TSmallintField
      FieldName = 'MOSTRARDESCRIPCION'
    end
    object CDSQ_EMPRESAAUXFPOSICION: TSmallintField
      FieldName = 'FPOSICION'
    end
    object CDSQ_EMPRESAAUXFPOSICIONUSO: TSmallintField
      FieldName = 'FPOSICIONUSO'
    end
    object CDSQ_EMPRESAAUXFDESCRIPCION: TSmallintField
      FieldName = 'FDESCRIPCION'
    end
    object CDSQ_EMPRESAAUXFORMAPAGO: TStringField
      FieldName = 'FORMAPAGO'
      Size = 5
    end
    object CDSQ_EMPRESAAUXREGISTRO: TStringField
      FieldName = 'REGISTRO'
      Size = 500
    end
    object CDSQ_EMPRESAAUXDESFASEARQUEO: TFloatField
      FieldName = 'DESFASEARQUEO'
    end
    object CDSQ_EMPRESAAUXIMPRESORATICKET: TStringField
      FieldName = 'IMPRESORATICKET'
      Size = 400
    end
    object CDSQ_EMPRESAAUXIMPRESORAINFORMES: TStringField
      FieldName = 'IMPRESORAINFORMES'
      Size = 400
    end
    object CDSQ_EMPRESAAUXCAJA: TSmallintField
      FieldName = 'CAJA'
    end
    object CDSQ_EMPRESAAUXIMPRIMIRFACTURA: TSmallintField
      FieldName = 'IMPRIMIRFACTURA'
    end
    object CDSQ_EMPRESAAUXIMPRIMIRALBARAN: TSmallintField
      FieldName = 'IMPRIMIRALBARAN'
    end
    object CDSQ_EMPRESAAUXCOPIASALBARAN: TSmallintField
      FieldName = 'COPIASALBARAN'
    end
    object CDSQ_EMPRESAAUXNOMBRE_COMERCIAL: TStringField
      FieldName = 'NOMBRE_COMERCIAL'
      Size = 254
    end
    object CDSQ_EMPRESAAUXRUTAIMAGEN: TStringField
      FieldName = 'RUTAIMAGEN'
      Size = 100
    end
    object CDSQ_EMPRESAAUXALBSINIVA: TSmallintField
      FieldName = 'ALBSINIVA'
    end
    object CDSQ_EMPRESAAUXPUERTOIMPTICKET: TStringField
      FieldName = 'PUERTOIMPTICKET'
      Size = 40
    end
  end
  object CDSQ_SERIESAUX: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPQ_SERIESAUX'
    RemoteServer = DCOMConnection1
    BeforeOpen = CDSQ_SERIESAUXBeforeOpen
    BeforeClose = CDSQ_SERIESAUXBeforeClose
    OnReconcileError = CDSQ_SERIESAUXReconcileError
    BeforeGetRecords = CDSQ_SERIESAUXBeforeGetRecords
    AfterGetRecords = CDSQ_SERIESAUXAfterGetRecords
    Left = 480
    Top = 128
    object CDSQ_SERIESAUXID_SERIE: TStringField
      FieldName = 'ID_SERIE'
      Required = True
      Size = 3
    end
    object CDSQ_SERIESAUXID_EMPRESA: TSmallintField
      FieldName = 'ID_EMPRESA'
      Required = True
    end
    object CDSQ_SERIESAUXSIG_ALBARAN: TIntegerField
      FieldName = 'SIG_ALBARAN'
    end
    object CDSQ_SERIESAUXSIG_FACTURA: TIntegerField
      FieldName = 'SIG_FACTURA'
    end
    object CDSQ_SERIESAUXOBSERVACIONES: TStringField
      FieldName = 'OBSERVACIONES'
      FixedChar = True
      Size = 255
    end
    object CDSQ_SERIESAUXANYO: TSmallintField
      FieldName = 'ANYO'
      Required = True
    end
    object CDSQ_SERIESAUXTICKET: TIntegerField
      FieldName = 'TICKET'
    end
    object CDSQ_SERIESAUXPRECIO: TStringField
      FieldName = 'PRECIO'
      Size = 10
    end
  end
  object CDSQ_MDPRESUPUESTO: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'NOMBRECLIENTE'
        Attributes = [faReadonly]
        DataType = ftString
        Size = 80
      end
      item
        Name = 'ID_PRESUPUESTO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'ID_EMPRESA'
        Attributes = [faRequired]
        DataType = ftSmallint
      end
      item
        Name = 'ANYO'
        Attributes = [faRequired]
        DataType = ftSmallint
      end
      item
        Name = 'ID_CLIENTE'
        DataType = ftInteger
      end
      item
        Name = 'BASE_PRESUPUESTO'
        DataType = ftFloat
      end
      item
        Name = 'BASE_PRESUPUESTOSINIVA'
        DataType = ftFloat
      end
      item
        Name = 'FECHA'
        DataType = ftDate
      end
      item
        Name = 'DESCUENTO'
        DataType = ftFloat
      end
      item
        Name = 'IVA'
        DataType = ftFloat
      end
      item
        Name = 'VALIDEZ'
        DataType = ftDate
      end
      item
        Name = 'OBSERVACIONES'
        DataType = ftString
        Size = 200
      end
      item
        Name = 'RE'
        DataType = ftFloat
      end
      item
        Name = 'QMD_LINPRESUPUESTO'
        DataType = ftDataSet
      end
      item
        Name = 'TOTALRE'
        DataType = ftFloat
      end
      item
        Name = 'TOTALIVA'
        DataType = ftFloat
      end
      item
        Name = 'TOTALDESCUENTOAUX'
        DataType = ftFloat
      end>
    IndexDefs = <
      item
        Name = 'DESCTOTALINDEX'
        DescFields = 'DESCTOTAL'
        Fields = 'DESCTOTAL'
        Options = [ixDescending]
      end
      item
        Name = 'BPSINIVAINDEX'
        DescFields = 'BPSINIVA'
        Fields = 'BPSINIVA'
        Options = [ixDescending]
      end
      item
        Name = 'MARCAINDEX'
        DescFields = 'MARCA'
        Fields = 'MARCA'
        Options = [ixDescending]
      end
      item
        Name = 'TOTALDESCUENTOINDEX'
        DescFields = 'TOTALDESCUENTO'
        Fields = 'TOTALDESCUENTO'
        Options = [ixDescending]
      end
      item
        Name = 'NOMBRECLIENTEINDEX'
        DescFields = 'NOMBRECLIENTE'
        Fields = 'NOMBRECLIENTE'
        Options = [ixDescending]
      end
      item
        Name = 'REINDEX'
        DescFields = 'RE'
        Fields = 'RE'
        Options = [ixDescending]
      end
      item
        Name = 'IVAINDEX'
        DescFields = 'IVA'
        Fields = 'IVA'
        Options = [ixDescending]
      end
      item
        Name = 'ID_PRESUPUESTOINDEX'
        DescFields = 'ID_PRESUPUESTO'
        Fields = 'ID_PRESUPUESTO'
        Options = [ixDescending]
      end
      item
        Name = 'ID_EMPRESAINDEX'
        DescFields = 'ID_EMPRESA'
        Fields = 'ID_EMPRESA'
        Options = [ixDescending]
      end
      item
        Name = 'ID_CLIENTEINDEX'
        DescFields = 'ID_CLIENTE'
        Fields = 'ID_CLIENTE'
        Options = [ixDescending]
      end
      item
        Name = 'BASE_PRESUPUESTOINDEX'
        DescFields = 'BASE_PRESUPUESTO'
        Fields = 'BASE_PRESUPUESTO'
        Options = [ixDescending]
      end
      item
        Name = 'FECHAINDEX'
        DescFields = 'FECHA'
        Fields = 'FECHA'
        Options = [ixDescending]
      end
      item
        Name = 'DESCUENTOINDEX'
        DescFields = 'DESCUENTO'
        Fields = 'DESCUENTO'
        Options = [ixDescending]
      end
      item
        Name = 'OBSERVACIONESINDEX'
        DescFields = 'OBSERVACIONES'
        Fields = 'OBSERVACIONES'
        Options = [ixDescending]
      end
      item
        Name = 'VALIDEZINDEX'
        DescFields = 'VALIDEZ'
        Fields = 'VALIDEZ'
        Options = [ixDescending]
      end
      item
        Name = 'ANYOINDEX'
        DescFields = 'ANYO'
        Fields = 'ANYO'
        Options = [ixDescending]
      end
      item
        Name = 'TOTALIVAINDEX'
        DescFields = 'TOTALIVA'
        Fields = 'TOTALIVA'
        Options = [ixDescending]
      end
      item
        Name = 'TOTALREINDEX'
        DescFields = 'TOTALRE'
        Fields = 'TOTALRE'
        Options = [ixDescending]
      end
      item
        Name = 'BASE_PRESUPUESTOSINIVAINDEX'
        DescFields = 'BASE_PRESUPUESTOSINIVA'
        Fields = 'BASE_PRESUPUESTOSINIVA'
        Options = [ixDescending]
      end>
    Params = <>
    ProviderName = 'DSPQ_MDPRESUPUESTO'
    RemoteServer = DCOMConnection1
    StoreDefs = True
    BeforeOpen = CDSQ_MDPRESUPUESTOBeforeOpen
    BeforeClose = CDSQ_MDPRESUPUESTOBeforeClose
    AfterInsert = CDSQ_MDPRESUPUESTOAfterInsert
    BeforePost = CDSQ_MDPRESUPUESTOBeforePost
    AfterPost = CDSQ_MDPRESUPUESTOAfterPost
    BeforeDelete = CDSQ_MDPRESUPUESTOBeforeDelete
    OnCalcFields = CDSQ_MDPRESUPUESTOCalcFields
    OnDeleteError = CDSQ_MDPRESUPUESTODeleteError
    OnEditError = CDSQ_MDPRESUPUESTOEditError
    OnPostError = CDSQ_MDPRESUPUESTOPostError
    OnReconcileError = CDSQ_MDPRESUPUESTOReconcileError
    AfterApplyUpdates = CDSQ_MDPRESUPUESTOAfterApplyUpdates
    BeforeGetRecords = CDSQ_MDPRESUPUESTOBeforeGetRecords
    AfterGetRecords = CDSQ_MDPRESUPUESTOAfterGetRecords
    Left = 641
    Top = 16
    object CDSQ_MDPRESUPUESTODESCTOTAL: TFloatField
      FieldKind = fkCalculated
      FieldName = 'DESCTOTAL'
      OnSetText = ESFLOATSetText
      currency = True
      Calculated = True
    end
    object CDSQ_MDPRESUPUESTOBPSINIVA: TCurrencyField
      FieldKind = fkCalculated
      FieldName = 'BPSINIVA'
      Calculated = True
    end
    object CDSQ_MDPRESUPUESTOMARCA: TStringField
      FieldKind = fkCalculated
      FieldName = 'MARCA'
      Calculated = True
    end
    object CDSQ_MDPRESUPUESTOTOTALDESCUENTO: TFloatField
      FieldKind = fkCalculated
      FieldName = 'TOTALDESCUENTO'
      currency = True
      Calculated = True
    end
    object CDSQ_MDPRESUPUESTONOMBRECLIENTE: TStringField
      FieldName = 'NOMBRECLIENTE'
      ReadOnly = True
      Size = 80
    end
    object CDSQ_MDPRESUPUESTOID_PRESUPUESTO: TIntegerField
      FieldName = 'ID_PRESUPUESTO'
      Required = True
    end
    object CDSQ_MDPRESUPUESTOID_EMPRESA: TSmallintField
      FieldName = 'ID_EMPRESA'
      Required = True
    end
    object CDSQ_MDPRESUPUESTOID_CLIENTE: TIntegerField
      FieldName = 'ID_CLIENTE'
    end
    object CDSQ_MDPRESUPUESTOFECHA: TDateField
      FieldName = 'FECHA'
      OnSetText = pcomprobarfecha
      EditMask = '!99/99/00;1;_'
    end
    object CDSQ_MDPRESUPUESTOOBSERVACIONES: TStringField
      FieldName = 'OBSERVACIONES'
      Size = 200
    end
    object CDSQ_MDPRESUPUESTOVALIDEZ: TDateField
      FieldName = 'VALIDEZ'
      OnSetText = pcomprobarfecha
      EditMask = '!99/99/00;1;_'
    end
    object CDSQ_MDPRESUPUESTOANYO: TSmallintField
      FieldName = 'ANYO'
      Required = True
    end
    object CDSQ_MDPRESUPUESTOQMD_LINPRESUPUESTO: TDataSetField
      FieldName = 'QMD_LINPRESUPUESTO'
    end
    object CDSQ_MDPRESUPUESTOTOTALDESCUENTOAUX: TFloatField
      FieldKind = fkInternalCalc
      FieldName = 'TOTALDESCUENTOAUX'
      currency = True
    end
    object CDSQ_MDPRESUPUESTODESCUENTO: TFloatField
      FieldName = 'DESCUENTO'
    end
    object CDSQ_MDPRESUPUESTOIVA: TFloatField
      FieldName = 'IVA'
    end
    object CDSQ_MDPRESUPUESTORE: TFloatField
      FieldName = 'RE'
    end
    object CDSQ_MDPRESUPUESTOBASE_PRESUPUESTOSINIVA: TFloatField
      FieldName = 'BASE_PRESUPUESTOSINIVA'
    end
    object CDSQ_MDPRESUPUESTOBASE_PRESUPUESTO: TFloatField
      FieldName = 'BASE_PRESUPUESTO'
    end
    object CDSQ_MDPRESUPUESTOTOTALIVA: TFloatField
      FieldKind = fkInternalCalc
      FieldName = 'TOTALIVA'
    end
    object CDSQ_MDPRESUPUESTOTOTALRE: TFloatField
      FieldKind = fkInternalCalc
      FieldName = 'TOTALRE'
    end
  end
  object CDsq_MDLINPRESUPUESTO: TClientDataSet
    Aggregates = <
      item
        AggregateName = 'total'
        Expression = 'sum(importe)'
        Visible = False
      end>
    AggregatesActive = True
    DataSetField = CDSQ_MDPRESUPUESTOQMD_LINPRESUPUESTO
    FieldDefs = <
      item
        Name = 'MARCA'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'IVA'
        DataType = ftFloat
      end
      item
        Name = 'DESCRIPCION'
        DataType = ftString
        Size = 700
      end
      item
        Name = 'ID_PRESUPUESTO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'ID_EMPRESA'
        Attributes = [faRequired]
        DataType = ftSmallint
      end
      item
        Name = 'ID_ARTICULO'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'CANTIDAD'
        DataType = ftFloat
      end
      item
        Name = 'DESCUENTO'
        DataType = ftFloat
      end
      item
        Name = 'PRECIO'
        DataType = ftFloat
      end
      item
        Name = 'IMPORTE'
        DataType = ftFloat
      end
      item
        Name = 'IMPORTE_FACT'
        DataType = ftFloat
      end
      item
        Name = 'BASE_LINEA'
        DataType = ftFloat
      end
      item
        Name = 'ESTADO'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'LINEA'
        Attributes = [faRequired]
        DataType = ftSmallint
      end
      item
        Name = 'ART_PROVEEDOR'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'ID_PROVEEDOR'
        DataType = ftInteger
      end
      item
        Name = 'PRECIO_COSTE'
        DataType = ftFloat
      end
      item
        Name = 'ANYO'
        Attributes = [faRequired]
        DataType = ftSmallint
      end>
    IndexDefs = <
      item
        Name = 'MARCAINDEX'
        DescFields = 'MARCA'
        Fields = 'MARCA'
        Options = [ixDescending]
      end
      item
        Name = 'IVAINDEX'
        DescFields = 'IVA'
        Fields = 'IVA'
        Options = [ixDescending]
      end
      item
        Name = 'DESCRIPCIONINDEX'
        DescFields = 'DESCRIPCION'
        Fields = 'DESCRIPCION'
        Options = [ixDescending]
      end
      item
        Name = 'ID_PRESUPUESTOINDEX'
        DescFields = 'ID_PRESUPUESTO'
        Fields = 'ID_PRESUPUESTO'
        Options = [ixDescending]
      end
      item
        Name = 'ID_EMPRESAINDEX'
        DescFields = 'ID_EMPRESA'
        Fields = 'ID_EMPRESA'
        Options = [ixDescending]
      end
      item
        Name = 'ID_ARTICULOINDEX'
        DescFields = 'ID_ARTICULO'
        Fields = 'ID_ARTICULO'
        Options = [ixDescending]
      end
      item
        Name = 'CANTIDADINDEX'
        DescFields = 'CANTIDAD'
        Fields = 'CANTIDAD'
        Options = [ixDescending]
      end
      item
        Name = 'DESCUENTOINDEX'
        DescFields = 'DESCUENTO'
        Fields = 'DESCUENTO'
        Options = [ixDescending]
      end
      item
        Name = 'PRECIOINDEX'
        DescFields = 'PRECIO'
        Fields = 'PRECIO'
        Options = [ixDescending]
      end
      item
        Name = 'IMPORTEINDEX'
        DescFields = 'IMPORTE'
        Fields = 'IMPORTE'
        Options = [ixDescending]
      end
      item
        Name = 'IMPORTE_FACTINDEX'
        DescFields = 'IMPORTE_FACT'
        Fields = 'IMPORTE_FACT'
        Options = [ixDescending]
      end
      item
        Name = 'BASE_LINEAINDEX'
        DescFields = 'BASE_LINEA'
        Fields = 'BASE_LINEA'
        Options = [ixDescending]
      end
      item
        Name = 'ESTADOINDEX'
        DescFields = 'ESTADO'
        Fields = 'ESTADO'
        Options = [ixDescending]
      end
      item
        Name = 'LINEAINDEX'
        DescFields = 'LINEA'
        Fields = 'LINEA'
        Options = [ixDescending]
      end
      item
        Name = 'ART_PROVEEDORINDEX'
        DescFields = 'ART_PROVEEDOR'
        Fields = 'ART_PROVEEDOR'
        Options = [ixDescending]
      end
      item
        Name = 'PRECIO_COSTEINDEX'
        DescFields = 'PRECIO_COSTE'
        Fields = 'PRECIO_COSTE'
        Options = [ixDescending]
      end
      item
        Name = 'ANYOINDEX'
        DescFields = 'ANYO'
        Fields = 'ANYO'
        Options = [ixDescending]
      end>
    Params = <>
    StoreDefs = True
    BeforeOpen = CDsq_MDLINPRESUPUESTOBeforeOpen
    AfterInsert = CDsq_MDLINPRESUPUESTOAfterInsert
    BeforePost = CDsq_MDLINPRESUPUESTOBeforePost
    AfterPost = CDsq_MDLINPRESUPUESTOAfterPost
    BeforeCancel = CDsq_MDLINPRESUPUESTOBeforeCancel
    BeforeDelete = CDsq_MDLINPRESUPUESTOBeforeDelete
    OnCalcFields = CDsq_MDLINPRESUPUESTOCalcFields
    OnDeleteError = CDsq_MDLINPRESUPUESTODeleteError
    OnEditError = CDsq_MDLINPRESUPUESTOEditError
    OnPostError = CDsq_MDLINPRESUPUESTOPostError
    OnReconcileError = CDsq_MDLINPRESUPUESTOReconcileError
    Left = 641
    Top = 24
    object CDsq_MDLINPRESUPUESTOMARCA: TStringField
      FieldName = 'MARCA'
      Size = 10
    end
    object CDsq_MDLINPRESUPUESTODESCRIPCION: TStringField
      FieldName = 'DESCRIPCION'
      Size = 700
    end
    object CDsq_MDLINPRESUPUESTOID_PRESUPUESTO: TIntegerField
      FieldName = 'ID_PRESUPUESTO'
      Required = True
    end
    object CDsq_MDLINPRESUPUESTOID_EMPRESA: TSmallintField
      FieldName = 'ID_EMPRESA'
      Required = True
    end
    object CDsq_MDLINPRESUPUESTOID_ARTICULO: TStringField
      FieldName = 'ID_ARTICULO'
      Size = 30
    end
    object CDsq_MDLINPRESUPUESTOESTADO: TStringField
      FieldName = 'ESTADO'
      Size = 5
    end
    object CDsq_MDLINPRESUPUESTOLINEA: TSmallintField
      FieldName = 'LINEA'
      Required = True
    end
    object CDsq_MDLINPRESUPUESTOART_PROVEEDOR: TStringField
      FieldName = 'ART_PROVEEDOR'
      Size = 30
    end
    object CDsq_MDLINPRESUPUESTOID_PROVEEDOR: TIntegerField
      FieldName = 'ID_PROVEEDOR'
    end
    object CDsq_MDLINPRESUPUESTOANYO: TSmallintField
      FieldName = 'ANYO'
      Required = True
    end
    object CDsq_MDLINPRESUPUESTOIVA: TFloatField
      FieldName = 'IVA'
    end
    object CDsq_MDLINPRESUPUESTOCANTIDAD: TFloatField
      FieldName = 'CANTIDAD'
    end
    object CDsq_MDLINPRESUPUESTODESCUENTO: TFloatField
      FieldName = 'DESCUENTO'
    end
    object CDsq_MDLINPRESUPUESTOPRECIO: TFloatField
      FieldName = 'PRECIO'
    end
    object CDsq_MDLINPRESUPUESTOIMPORTE: TFloatField
      FieldName = 'IMPORTE'
    end
    object CDsq_MDLINPRESUPUESTOIMPORTE_FACT: TFloatField
      FieldName = 'IMPORTE_FACT'
    end
    object CDsq_MDLINPRESUPUESTOBASE_LINEA: TFloatField
      FieldName = 'BASE_LINEA'
    end
    object CDsq_MDLINPRESUPUESTOPRECIO_COSTE: TFloatField
      FieldName = 'PRECIO_COSTE'
    end
    object CDsq_MDLINPRESUPUESTONOBORRARNOSEUSA: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'NOBORRARNOSEUSA'
      Size = 30
    end
  end
  object CDSQ_ARTICULOSAUX: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'COD_ARTICULO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'COD_FAMILIA'
        Attributes = [faRequired]
        DataType = ftString
        Size = 30
      end
      item
        Name = 'PROFUNDIDAD'
        Attributes = [faRequired]
        DataType = ftSmallint
      end
      item
        Name = 'ID_ARTICULO'
        Attributes = [faRequired]
        DataType = ftString
        Size = 30
      end
      item
        Name = 'DESCRIPCION'
        DataType = ftString
        Size = 250
      end
      item
        Name = 'DESCRIPCIONTICKET'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'BENEFICIO'
        DataType = ftFloat
      end
      item
        Name = 'PRECIO_COSTE'
        DataType = ftFloat
      end
      item
        Name = 'PRECIO_MAX_COSTE'
        DataType = ftFloat
      end
      item
        Name = 'PRECIO_MIN_COSTE'
        DataType = ftFloat
      end
      item
        Name = 'PRECIO_MED_COSTE'
        DataType = ftFloat
      end
      item
        Name = 'PRECIO_VENTA'
        DataType = ftFloat
      end
      item
        Name = 'IVA'
        DataType = ftFloat
      end
      item
        Name = 'BRAZOS'
        DataType = ftInteger
      end
      item
        Name = 'ID_COLOR'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'PVPCAT'
        DataType = ftFloat
      end
      item
        Name = 'DESCUENTO'
        DataType = ftFloat
      end
      item
        Name = 'MARCA'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'IMAGEN'
        DataType = ftBlob
        Size = 1
      end
      item
        Name = 'TRANS'
        DataType = ftFloat
      end
      item
        Name = 'ART_PROVEEDOR'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'ID_PROVEEDOR'
        DataType = ftInteger
      end
      item
        Name = 'OBSERVACIONES'
        DataType = ftString
        Size = 150
      end
      item
        Name = 'OLDART_PROVEEDOR'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'OLDID_PROVEEDOR'
        DataType = ftInteger
      end
      item
        Name = 'MOSTRARIMAGEN'
        DataType = ftSmallint
      end
      item
        Name = 'MOSTRARDESCRIPCION'
        DataType = ftSmallint
      end
      item
        Name = 'POSICION'
        DataType = ftSmallint
      end
      item
        Name = 'POSICIONUSO'
        DataType = ftSmallint
      end
      item
        Name = 'DESCRIPCIONBOTON'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'MOSTRARPOSICION'
        DataType = ftSmallint
      end
      item
        Name = 'MOSTRARPOSICIONUSO'
        DataType = ftSmallint
      end
      item
        Name = 'BORRADO'
        DataType = ftSmallint
      end
      item
        Name = 'nombreproveedor'
        Attributes = [faReadonly]
        DataType = ftString
        Size = 20
      end
      item
        Name = 'ALMACENABLE'
        DataType = ftSmallint
      end
      item
        Name = 'TRANSPORTES'
        DataType = ftSmallint
      end
      item
        Name = 'FINANCIEROS'
        DataType = ftSmallint
      end
      item
        Name = 'OTROSCOSTES'
        DataType = ftSmallint
      end
      item
        Name = 'ALMACENABLEBORRAR'
        DataType = ftFloat
      end
      item
        Name = 'PVPPROV'
        DataType = ftFloat
      end
      item
        Name = 'PVP2'
        DataType = ftFloat
      end
      item
        Name = 'FMODIFICACION'
        DataType = ftDate
      end
      item
        Name = 'CONTADOR'
        DataType = ftInteger
      end>
    IndexDefs = <
      item
        Name = 'OBSERVACIONESINDEX'
        DescFields = 'OBSERVACIONES'
        Fields = 'OBSERVACIONES'
        Options = [ixDescending]
      end
      item
        Name = 'ART_PROVEEDORINDEX'
        DescFields = 'ART_PROVEEDOR'
        Fields = 'ART_PROVEEDOR'
        Options = [ixDescending]
      end
      item
        Name = 'NOMBREPROVEEDORINDEX'
        DescFields = 'NOMBREPROVEEDOR'
        Fields = 'NOMBREPROVEEDOR'
        Options = [ixDescending]
      end
      item
        Name = 'PRECIO_VENTAINDEX'
        DescFields = 'PRECIO_VENTA'
        Fields = 'PRECIO_VENTA'
        Options = [ixDescending]
      end
      item
        Name = 'DESCRIPCIONINDEX'
        DescFields = 'DESCRIPCION'
        Fields = 'DESCRIPCION'
        Options = [ixDescending]
      end
      item
        Name = 'MARCAINDEX'
        DescFields = 'MARCA'
        Fields = 'MARCA'
        Options = [ixDescending]
      end
      item
        Name = 'ID_ARTICULOINDEX'
        DescFields = 'ID_ARTICULO'
        Fields = 'ID_ARTICULO'
        Options = [ixDescending]
      end>
    Params = <>
    ProviderName = 'DSPQ_ARTICULOSAUX'
    RemoteServer = DCOMConnection1
    StoreDefs = True
    BeforeOpen = CDSQ_ARTICULOSAUXBeforeOpen
    BeforeClose = CDSQ_ARTICULOSAUXBeforeClose
    OnReconcileError = CDSQ_ARTICULOSAUXReconcileError
    BeforeGetRecords = CDSQ_ARTICULOSAUXBeforeGetRecords
    AfterGetRecords = CDSQ_ARTICULOSAUXAfterGetRecords
    Left = 224
    Top = 512
    object CDSQ_ARTICULOSAUXCOD_ARTICULO: TIntegerField
      FieldName = 'COD_ARTICULO'
      Required = True
    end
    object CDSQ_ARTICULOSAUXCOD_FAMILIA: TStringField
      FieldName = 'COD_FAMILIA'
      Required = True
      Size = 30
    end
    object CDSQ_ARTICULOSAUXPROFUNDIDAD: TSmallintField
      FieldName = 'PROFUNDIDAD'
      Required = True
    end
    object CDSQ_ARTICULOSAUXID_ARTICULO: TStringField
      FieldName = 'ID_ARTICULO'
      Required = True
      Size = 30
    end
    object CDSQ_ARTICULOSAUXDESCRIPCION: TStringField
      FieldName = 'DESCRIPCION'
      Size = 250
    end
    object CDSQ_ARTICULOSAUXDESCRIPCIONTICKET: TStringField
      FieldName = 'DESCRIPCIONTICKET'
      Size = 50
    end
    object CDSQ_ARTICULOSAUXBENEFICIO: TFloatField
      FieldName = 'BENEFICIO'
    end
    object CDSQ_ARTICULOSAUXPRECIO_COSTE: TFloatField
      FieldName = 'PRECIO_COSTE'
    end
    object CDSQ_ARTICULOSAUXPRECIO_MAX_COSTE: TFloatField
      FieldName = 'PRECIO_MAX_COSTE'
    end
    object CDSQ_ARTICULOSAUXPRECIO_MIN_COSTE: TFloatField
      FieldName = 'PRECIO_MIN_COSTE'
    end
    object CDSQ_ARTICULOSAUXPRECIO_MED_COSTE: TFloatField
      FieldName = 'PRECIO_MED_COSTE'
    end
    object CDSQ_ARTICULOSAUXPRECIO_VENTA: TFloatField
      FieldName = 'PRECIO_VENTA'
    end
    object CDSQ_ARTICULOSAUXIVA: TFloatField
      FieldName = 'IVA'
    end
    object CDSQ_ARTICULOSAUXBRAZOS: TIntegerField
      FieldName = 'BRAZOS'
    end
    object CDSQ_ARTICULOSAUXID_COLOR: TStringField
      FieldName = 'ID_COLOR'
      Size = 5
    end
    object CDSQ_ARTICULOSAUXPVPCAT: TFloatField
      FieldName = 'PVPCAT'
    end
    object CDSQ_ARTICULOSAUXDESCUENTO: TFloatField
      FieldName = 'DESCUENTO'
    end
    object CDSQ_ARTICULOSAUXMARCA: TStringField
      FieldName = 'MARCA'
      Size = 10
    end
    object CDSQ_ARTICULOSAUXIMAGEN: TBlobField
      FieldName = 'IMAGEN'
      Size = 1
    end
    object CDSQ_ARTICULOSAUXTRANS: TFloatField
      FieldName = 'TRANS'
    end
    object CDSQ_ARTICULOSAUXART_PROVEEDOR: TStringField
      FieldName = 'ART_PROVEEDOR'
      Size = 30
    end
    object CDSQ_ARTICULOSAUXID_PROVEEDOR: TIntegerField
      FieldName = 'ID_PROVEEDOR'
    end
    object CDSQ_ARTICULOSAUXOBSERVACIONES: TStringField
      FieldName = 'OBSERVACIONES'
      Size = 150
    end
    object CDSQ_ARTICULOSAUXOLDART_PROVEEDOR: TStringField
      FieldName = 'OLDART_PROVEEDOR'
      Size = 30
    end
    object CDSQ_ARTICULOSAUXOLDID_PROVEEDOR: TIntegerField
      FieldName = 'OLDID_PROVEEDOR'
    end
    object CDSQ_ARTICULOSAUXMOSTRARIMAGEN: TSmallintField
      FieldName = 'MOSTRARIMAGEN'
    end
    object CDSQ_ARTICULOSAUXMOSTRARDESCRIPCION: TSmallintField
      FieldName = 'MOSTRARDESCRIPCION'
    end
    object CDSQ_ARTICULOSAUXPOSICION: TSmallintField
      FieldName = 'POSICION'
    end
    object CDSQ_ARTICULOSAUXPOSICIONUSO: TSmallintField
      FieldName = 'POSICIONUSO'
    end
    object CDSQ_ARTICULOSAUXDESCRIPCIONBOTON: TStringField
      FieldName = 'DESCRIPCIONBOTON'
      Size = 50
    end
    object CDSQ_ARTICULOSAUXMOSTRARPOSICION: TSmallintField
      FieldName = 'MOSTRARPOSICION'
    end
    object CDSQ_ARTICULOSAUXMOSTRARPOSICIONUSO: TSmallintField
      FieldName = 'MOSTRARPOSICIONUSO'
    end
    object CDSQ_ARTICULOSAUXBORRADO: TSmallintField
      FieldName = 'BORRADO'
    end
    object CDSQ_ARTICULOSAUXnombreproveedor: TStringField
      FieldName = 'nombreproveedor'
      ReadOnly = True
    end
    object CDSQ_ARTICULOSAUXALMACENABLE: TSmallintField
      FieldName = 'ALMACENABLE'
    end
    object CDSQ_ARTICULOSAUXTRANSPORTES: TSmallintField
      FieldName = 'TRANSPORTES'
    end
    object CDSQ_ARTICULOSAUXFINANCIEROS: TSmallintField
      FieldName = 'FINANCIEROS'
    end
    object CDSQ_ARTICULOSAUXOTROSCOSTES: TSmallintField
      FieldName = 'OTROSCOSTES'
    end
    object CDSQ_ARTICULOSAUXALMACENABLEBORRAR: TFloatField
      FieldName = 'ALMACENABLEBORRAR'
    end
    object CDSQ_ARTICULOSAUXPVPPROV: TFloatField
      FieldName = 'PVPPROV'
    end
    object CDSQ_ARTICULOSAUXPVP2: TFloatField
      FieldName = 'PVP2'
    end
    object CDSQ_ARTICULOSAUXFMODIFICACION: TDateField
      FieldName = 'FMODIFICACION'
      EditMask = '!99/99/00;1;_'
    end
    object CDSQ_ARTICULOSAUXCONTADOR: TIntegerField
      FieldName = 'CONTADOR'
    end
  end
  object CDSQ_PROCEDURE: TClientDataSet
    Aggregates = <>
    CommandText = 'SELECT * FROM RETID_PRESUPUESTO '
    Params = <>
    ProviderName = 'DSPQ_PROCEDURE'
    RemoteServer = DCOMConnection1
    BeforeClose = CDSQ_PROCEDUREBeforeClose
    BeforeGetRecords = CDSQ_PROCEDUREBeforeGetRecords
    AfterGetRecords = CDSQ_PROCEDUREAfterGetRecords
    Left = 24
    Top = 136
  end
  object CDSQ_ARTICULOEAN: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPQ_ARTICULOEAN'
    RemoteServer = DCOMConnection1
    BeforeClose = CDSQ_ARTICULOEANBeforeClose
    BeforeGetRecords = CDSQ_ARTICULOEANBeforeGetRecords
    Left = 56
    Top = 256
    object CDSQ_ARTICULOEANID_ARTICULO: TStringField
      FieldName = 'ID_ARTICULO'
      Required = True
      Size = 30
    end
    object CDSQ_ARTICULOEANMARCA: TStringField
      FieldName = 'MARCA'
      Size = 10
    end
    object CDSQ_ARTICULOEANDESCRIPCION: TStringField
      FieldName = 'DESCRIPCION'
      Size = 50
    end
    object CDSQ_ARTICULOEANID_PROVEEDOR: TIntegerField
      FieldName = 'ID_PROVEEDOR'
    end
    object CDSQ_ARTICULOEANDESCRIPCIONTICKET: TStringField
      FieldName = 'DESCRIPCIONTICKET'
      Size = 50
    end
    object CDSQ_ARTICULOEANPRECIO_VENTA: TFloatField
      FieldName = 'PRECIO_VENTA'
    end
    object CDSQ_ARTICULOEANIVA: TFloatField
      FieldName = 'IVA'
    end
    object CDSQ_ARTICULOEANPRECIO_COSTE: TFloatField
      FieldName = 'PRECIO_COSTE'
    end
    object CDSQ_ARTICULOEANART_PROVEEDOR: TStringField
      FieldName = 'ART_PROVEEDOR'
      Size = 30
    end
    object CDSQ_ARTICULOEANPVP2: TFloatField
      FieldName = 'PVP2'
    end
    object CDSQ_ARTICULOEANCOD_ARTICULO: TIntegerField
      FieldName = 'COD_ARTICULO'
      Required = True
    end
    object CDSQ_ARTICULOEANCOD_FAMILIA: TStringField
      FieldName = 'COD_FAMILIA'
      Required = True
      Size = 30
    end
    object CDSQ_ARTICULOEANPROFUNDIDAD: TSmallintField
      FieldName = 'PROFUNDIDAD'
      Required = True
    end
    object CDSQ_ARTICULOEANBENEFICIO: TFloatField
      FieldName = 'BENEFICIO'
    end
    object CDSQ_ARTICULOEANPRECIO_MAX_COSTE: TFloatField
      FieldName = 'PRECIO_MAX_COSTE'
    end
    object CDSQ_ARTICULOEANPRECIO_MIN_COSTE: TFloatField
      FieldName = 'PRECIO_MIN_COSTE'
    end
    object CDSQ_ARTICULOEANPRECIO_MED_COSTE: TFloatField
      FieldName = 'PRECIO_MED_COSTE'
    end
    object CDSQ_ARTICULOEANBRAZOS: TIntegerField
      FieldName = 'BRAZOS'
    end
    object CDSQ_ARTICULOEANID_COLOR: TStringField
      FieldName = 'ID_COLOR'
      Size = 5
    end
    object CDSQ_ARTICULOEANPVPCAT: TFloatField
      FieldName = 'PVPCAT'
    end
    object CDSQ_ARTICULOEANDESCUENTO: TFloatField
      FieldName = 'DESCUENTO'
    end
    object CDSQ_ARTICULOEANIMAGEN: TBlobField
      FieldName = 'IMAGEN'
      Size = 1
    end
    object CDSQ_ARTICULOEANTRANS: TFloatField
      FieldName = 'TRANS'
    end
    object CDSQ_ARTICULOEANOBSERVACIONES: TStringField
      FieldName = 'OBSERVACIONES'
      Size = 150
    end
    object CDSQ_ARTICULOEANOLDART_PROVEEDOR: TStringField
      FieldName = 'OLDART_PROVEEDOR'
      Size = 30
    end
    object CDSQ_ARTICULOEANOLDID_PROVEEDOR: TIntegerField
      FieldName = 'OLDID_PROVEEDOR'
    end
    object CDSQ_ARTICULOEANMOSTRARIMAGEN: TSmallintField
      FieldName = 'MOSTRARIMAGEN'
    end
    object CDSQ_ARTICULOEANMOSTRARDESCRIPCION: TSmallintField
      FieldName = 'MOSTRARDESCRIPCION'
    end
    object CDSQ_ARTICULOEANPOSICION: TSmallintField
      FieldName = 'POSICION'
    end
    object CDSQ_ARTICULOEANPOSICIONUSO: TSmallintField
      FieldName = 'POSICIONUSO'
    end
    object CDSQ_ARTICULOEANDESCRIPCIONBOTON: TStringField
      FieldName = 'DESCRIPCIONBOTON'
      Size = 50
    end
    object CDSQ_ARTICULOEANMOSTRARPOSICION: TSmallintField
      FieldName = 'MOSTRARPOSICION'
    end
    object CDSQ_ARTICULOEANMOSTRARPOSICIONUSO: TSmallintField
      FieldName = 'MOSTRARPOSICIONUSO'
    end
    object CDSQ_ARTICULOEANBORRADO: TSmallintField
      FieldName = 'BORRADO'
    end
    object CDSQ_ARTICULOEANALMACENABLE: TSmallintField
      FieldName = 'ALMACENABLE'
    end
    object CDSQ_ARTICULOEANTRANSPORTES: TSmallintField
      FieldName = 'TRANSPORTES'
    end
    object CDSQ_ARTICULOEANFINANCIEROS: TSmallintField
      FieldName = 'FINANCIEROS'
    end
    object CDSQ_ARTICULOEANOTROSCOSTES: TSmallintField
      FieldName = 'OTROSCOSTES'
    end
    object CDSQ_ARTICULOEANALMACENABLEBORRAR: TFloatField
      FieldName = 'ALMACENABLEBORRAR'
    end
    object CDSQ_ARTICULOEANPVPPROV: TFloatField
      FieldName = 'PVPPROV'
    end
    object CDSQ_ARTICULOEANFMODIFICACION: TDateField
      FieldName = 'FMODIFICACION'
    end
  end
  object CDSQ_MDENTRADA: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'ID_ENTRADA'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'ID_EMPRESA'
        Attributes = [faRequired]
        DataType = ftSmallint
      end
      item
        Name = 'ANYO'
        Attributes = [faRequired]
        DataType = ftSmallint
      end
      item
        Name = 'FECHA'
        DataType = ftDate
      end
      item
        Name = 'ALBARAN_FACT_PROVEEDOR'
        Attributes = [faFixed]
        DataType = ftString
        Size = 18
      end
      item
        Name = 'ID_PROVEEDOR'
        DataType = ftInteger
      end
      item
        Name = 'IVA'
        DataType = ftFloat
      end
      item
        Name = 'OBSERVACIONES'
        DataType = ftString
        Size = 200
      end
      item
        Name = 'BASE_ENTRADA'
        DataType = ftFloat
      end
      item
        Name = 'DESCUENTO'
        DataType = ftFloat
      end
      item
        Name = 'RE'
        DataType = ftFloat
      end
      item
        Name = 'DESCUENTOEURO'
        DataType = ftFloat
      end
      item
        Name = 'TOTALCOBRADO'
        DataType = ftFloat
      end
      item
        Name = 'TOTALDESCUENTO'
        DataType = ftFloat
      end
      item
        Name = 'QMD_LINEAENTRADA'
        DataType = ftDataSet
      end>
    IndexDefs = <
      item
        Name = 'ID_ENTRADAINDEX'
        DescFields = 'ID_ENTRADA'
        Fields = 'ID_ENTRADA'
        Options = [ixDescending]
      end
      item
        Name = 'ID_EMPRESAINDEX'
        DescFields = 'ID_EMPRESA'
        Fields = 'ID_EMPRESA'
        Options = [ixDescending]
      end
      item
        Name = 'FECHAINDEX'
        DescFields = 'FECHA'
        Fields = 'FECHA'
        Options = [ixDescending]
      end
      item
        Name = 'BASE_ENTRADAINDEX'
        DescFields = 'BASE_ENTRADA'
        Fields = 'BASE_ENTRADA'
        Options = [ixDescending]
      end>
    Params = <>
    ProviderName = 'DSPQ_MDENTRADAS'
    RemoteServer = DCOMConnection1
    StoreDefs = True
    BeforeOpen = CDSQ_MDENTRADABeforeOpen
    BeforeClose = CDSQ_MDENTRADABeforeClose
    AfterInsert = CDSQ_MDENTRADAAfterInsert
    BeforePost = CDSQ_MDENTRADABeforePost
    AfterPost = CDSQ_MDENTRADAAfterPost
    OnCalcFields = CDSQ_MDENTRADACalcFields
    OnDeleteError = CDSQ_MDENTRADADeleteError
    OnEditError = CDSQ_MDENTRADAEditError
    OnPostError = CDSQ_MDENTRADAPostError
    OnReconcileError = CDSQ_MDENTRADAReconcileError
    BeforeApplyUpdates = CDSQ_MDENTRADABeforeApplyUpdates
    AfterApplyUpdates = CDSQ_MDENTRADAAfterApplyUpdates
    BeforeGetRecords = CDSQ_MDENTRADABeforeGetRecords
    AfterGetRecords = CDSQ_MDENTRADAAfterGetRecords
    Left = 649
    Top = 408
    object CDSQ_MDENTRADADESCTOTAL: TFloatField
      FieldKind = fkCalculated
      FieldName = 'DESCTOTAL'
      OnSetText = ESFLOATSetText
      currency = True
      Calculated = True
    end
    object CDSQ_MDENTRADABPSINIVA: TCurrencyField
      FieldKind = fkCalculated
      FieldName = 'BPSINIVA'
      Calculated = True
    end
    object CDSQ_MDENTRADATOTALIVA: TFloatField
      FieldKind = fkCalculated
      FieldName = 'TOTALIVA'
      currency = True
      Calculated = True
    end
    object CDSQ_MDENTRADAID_EMPRESA: TSmallintField
      FieldName = 'ID_EMPRESA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object CDSQ_MDENTRADAID_ENTRADA: TIntegerField
      FieldName = 'ID_ENTRADA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object CDSQ_MDENTRADAFECHA: TDateField
      FieldName = 'FECHA'
      OnSetText = pcomprobarfecha
      EditMask = '!99/99/00;1;_'
    end
    object CDSQ_MDENTRADAALBARAN_FACT_PROVEEDOR: TStringField
      FieldName = 'ALBARAN_FACT_PROVEEDOR'
      FixedChar = True
      Size = 18
    end
    object CDSQ_MDENTRADAID_PROVEEDOR: TIntegerField
      FieldName = 'ID_PROVEEDOR'
    end
    object CDSQ_MDENTRADAOBSERVACIONES: TStringField
      FieldName = 'OBSERVACIONES'
      Size = 200
    end
    object CDSQ_MDENTRADAANYO: TSmallintField
      FieldName = 'ANYO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object CDSQ_MDENTRADAQMD_LINEAENTRADA: TDataSetField
      FieldName = 'QMD_LINEAENTRADA'
    end
    object CDSQ_MDENTRADATOTALRE: TCurrencyField
      FieldKind = fkCalculated
      FieldName = 'TOTALRE'
      Calculated = True
    end
    object CDSQ_MDENTRADABASE: TFloatField
      FieldKind = fkCalculated
      FieldName = 'BASE'
      currency = True
      Calculated = True
    end
    object CDSQ_MDENTRADAIVA: TFloatField
      FieldName = 'IVA'
    end
    object CDSQ_MDENTRADABASE_ENTRADA: TFloatField
      FieldName = 'BASE_ENTRADA'
      currency = True
    end
    object CDSQ_MDENTRADARE: TFloatField
      FieldName = 'RE'
    end
    object CDSQ_MDENTRADADESCUENTOEURO: TFloatField
      FieldName = 'DESCUENTOEURO'
    end
    object CDSQ_MDENTRADATOTALCOBRADO: TFloatField
      FieldName = 'TOTALCOBRADO'
      currency = True
    end
    object CDSQ_MDENTRADATOTALDESCUENTO: TFloatField
      FieldName = 'TOTALDESCUENTO'
      currency = True
    end
    object CDSQ_MDENTRADADESCUENTO: TFloatField
      FieldName = 'DESCUENTO'
    end
    object CDSQ_MDENTRADATOTALDESCUENTOAUX: TFloatField
      FieldKind = fkCalculated
      FieldName = 'TOTALDESCUENTOAUX'
      Calculated = True
    end
    object CDSQ_MDENTRADANOBORRAR: TIntegerField
      FieldKind = fkInternalCalc
      FieldName = 'NOBORRAR'
    end
  end
  object CDSQ_MDLINEAENTRADA: TClientDataSet
    Aggregates = <>
    AggregatesActive = True
    DataSetField = CDSQ_MDENTRADAQMD_LINEAENTRADA
    FieldDefs = <
      item
        Name = 'ID_ENTRADA'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'ID_EMPRESA'
        Attributes = [faRequired]
        DataType = ftSmallint
      end
      item
        Name = 'ID_ARTICULO'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'ANYO'
        Attributes = [faRequired]
        DataType = ftSmallint
      end
      item
        Name = 'ART_PROVEEDOR'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'CANTIDAD'
        DataType = ftFloat
      end
      item
        Name = 'PRECIO'
        DataType = ftFloat
      end
      item
        Name = 'DESCUENTO'
        DataType = ftFloat
      end
      item
        Name = 'PRECIO_REAL'
        DataType = ftFloat
      end
      item
        Name = 'IVA_INCLUIDO'
        DataType = ftSmallint
      end
      item
        Name = 'IVA'
        DataType = ftFloat
      end
      item
        Name = 'MARCA'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'DESCRIPCION'
        DataType = ftString
        Size = 250
      end
      item
        Name = 'OBSERVACIONES'
        DataType = ftString
        Size = 100
      end
      item
        Name = 'IMPORTE'
        DataType = ftFloat
      end
      item
        Name = 'SERVIDO'
        DataType = ftFloat
      end
      item
        Name = 'USOINTERNO'
        DataType = ftFloat
      end
      item
        Name = 'ESTROPEADO'
        DataType = ftFloat
      end
      item
        Name = 'DESCUENTOEURO'
        DataType = ftFloat
      end
      item
        Name = 'LINEA'
        Attributes = [faRequired]
        DataType = ftSmallint
      end
      item
        Name = 'NUM_SERIE'
        DataType = ftString
        Size = 100
      end
      item
        Name = 'FECHA_CADUCIDAD'
        DataType = ftDate
      end>
    IndexDefs = <
      item
        Name = 'ID_ARTICULOINDEX'
        DescFields = 'ID_ARTICULO'
        Fields = 'ID_ARTICULO'
        Options = [ixDescending]
      end
      item
        Name = 'MARCAINDEX'
        DescFields = 'MARCA'
        Fields = 'MARCA'
        Options = [ixDescending]
      end
      item
        Name = 'DESCRIPCIONINDEX'
        DescFields = 'DESCRIPCION'
        Fields = 'DESCRIPCION'
        Options = [ixDescending]
      end
      item
        Name = 'ART_PROVEEDORINDEX'
        DescFields = 'ART_PROVEEDOR'
        Fields = 'ART_PROVEEDOR'
        Options = [ixDescending]
      end
      item
        Name = 'CANTIDADINDEX'
        DescFields = 'CANTIDAD'
        Fields = 'CANTIDAD'
        Options = [ixDescending]
      end
      item
        Name = 'PRECIOINDEX'
        DescFields = 'PRECIO'
        Fields = 'PRECIO'
        Options = [ixDescending]
      end
      item
        Name = 'DESCUENTOINDEX'
        DescFields = 'DESCUENTO'
        Fields = 'DESCUENTO'
        Options = [ixDescending]
      end
      item
        Name = 'DESCUENTOEUROINDEX'
        DescFields = 'DESCUENTOEURO'
        Fields = 'DESCUENTOEURO'
        Options = [ixDescending]
      end
      item
        Name = 'PRECIO_REALINDEX'
        DescFields = 'PRECIO_REAL'
        Fields = 'PRECIO_REAL'
        Options = [ixDescending]
      end
      item
        Name = 'IMPORTEINDEX'
        DescFields = 'IMPORTE'
        Fields = 'IMPORTE'
        Options = [ixDescending]
      end>
    Params = <>
    StoreDefs = True
    BeforeOpen = CDSQ_MDLINEAENTRADABeforeOpen
    AfterInsert = CDSQ_MDLINEAENTRADAAfterInsert
    BeforePost = CDSQ_MDLINEAENTRADABeforePost
    AfterPost = CDSQ_MDLINEAENTRADAAfterPost
    BeforeCancel = CDSQ_MDLINEAENTRADABeforeCancel
    BeforeDelete = CDSQ_MDLINEAENTRADABeforeDelete
    OnCalcFields = CDSQ_MDLINEAENTRADACalcFields
    OnDeleteError = CDSQ_MDLINEAENTRADADeleteError
    OnEditError = CDSQ_MDLINEAENTRADAEditError
    OnPostError = CDSQ_MDLINEAENTRADAPostError
    OnReconcileError = CDSQ_MDLINEAENTRADAReconcileError
    Left = 649
    Top = 416
    object CDSQ_MDLINEAENTRADAID_EMPRESA: TSmallintField
      FieldName = 'ID_EMPRESA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object CDSQ_MDLINEAENTRADAID_ENTRADA: TIntegerField
      FieldName = 'ID_ENTRADA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object CDSQ_MDLINEAENTRADAID_ARTICULO: TStringField
      FieldName = 'ID_ARTICULO'
      Size = 30
    end
    object CDSQ_MDLINEAENTRADAMARCA: TStringField
      FieldName = 'MARCA'
      Size = 10
    end
    object CDSQ_MDLINEAENTRADADESCRIPCION: TStringField
      FieldName = 'DESCRIPCION'
      Size = 250
    end
    object CDSQ_MDLINEAENTRADAART_PROVEEDOR: TStringField
      FieldName = 'ART_PROVEEDOR'
    end
    object CDSQ_MDLINEAENTRADAIVA_INCLUIDO: TSmallintField
      FieldName = 'IVA_INCLUIDO'
    end
    object CDSQ_MDLINEAENTRADAANYO: TSmallintField
      FieldName = 'ANYO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object CDSQ_MDLINEAENTRADAOBSERVACIONES: TStringField
      FieldName = 'OBSERVACIONES'
      Size = 100
    end
    object CDSQ_MDLINEAENTRADACANTIDAD: TFloatField
      FieldName = 'CANTIDAD'
    end
    object CDSQ_MDLINEAENTRADAPRECIO: TFloatField
      FieldName = 'PRECIO'
      currency = True
    end
    object CDSQ_MDLINEAENTRADADESCUENTO: TFloatField
      FieldName = 'DESCUENTO'
    end
    object CDSQ_MDLINEAENTRADAPRECIO_REAL: TFloatField
      FieldName = 'PRECIO_REAL'
      currency = True
    end
    object CDSQ_MDLINEAENTRADAIVA: TFloatField
      FieldName = 'IVA'
    end
    object CDSQ_MDLINEAENTRADAIMPORTE: TFloatField
      FieldName = 'IMPORTE'
      currency = True
    end
    object CDSQ_MDLINEAENTRADASERVIDO: TFloatField
      FieldName = 'SERVIDO'
    end
    object CDSQ_MDLINEAENTRADAUSOINTERNO: TFloatField
      FieldName = 'USOINTERNO'
    end
    object CDSQ_MDLINEAENTRADAESTROPEADO: TFloatField
      FieldName = 'ESTROPEADO'
    end
    object CDSQ_MDLINEAENTRADADESCUENTOEURO: TFloatField
      FieldName = 'DESCUENTOEURO'
      currency = True
    end
    object CDSQ_MDLINEAENTRADANUM_SERIE: TStringField
      FieldName = 'NUM_SERIE'
      Size = 100
    end
    object CDSQ_MDLINEAENTRADAFECHA_CADUCIDAD: TDateField
      FieldName = 'FECHA_CADUCIDAD'
    end
    object CDSQ_MDLINEAENTRADALINEA: TSmallintField
      FieldName = 'LINEA'
      Required = True
    end
  end
  object cdsq_proveedor_acreedoraux: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspq_proveedor_acreedoraux'
    RemoteServer = DCOMConnection1
    BeforeOpen = cdsq_proveedor_acreedorauxBeforeOpen
    BeforeClose = cdsq_proveedor_acreedorauxBeforeClose
    OnCalcFields = cdsq_proveedor_acreedorauxCalcFields
    OnReconcileError = cdsq_proveedor_acreedorauxReconcileError
    BeforeGetRecords = cdsq_proveedor_acreedorauxBeforeGetRecords
    AfterGetRecords = cdsq_proveedor_acreedorauxAfterGetRecords
    Left = 104
    Top = 496
    object cdsq_proveedor_acreedorauxborrados: TBooleanField
      FieldKind = fkCalculated
      FieldName = 'borrados'
      DisplayValues = 'SI;NO'
      Calculated = True
    end
    object cdsq_proveedor_acreedorauxBORRADO: TSmallintField
      FieldName = 'BORRADO'
    end
    object cdsq_proveedor_acreedorauxID_PROVEEDOR: TIntegerField
      FieldName = 'ID_PROVEEDOR'
      Required = True
    end
    object cdsq_proveedor_acreedorauxNOMBRE: TStringField
      FieldName = 'NOMBRE'
      Size = 50
    end
    object cdsq_proveedor_acreedorauxNIF: TStringField
      FieldName = 'NIF'
      Size = 9
    end
    object cdsq_proveedor_acreedorauxDIRECCION: TStringField
      FieldName = 'DIRECCION'
      Size = 50
    end
    object cdsq_proveedor_acreedorauxDIRECCION_POSTAL: TStringField
      FieldName = 'DIRECCION_POSTAL'
      Size = 50
    end
    object cdsq_proveedor_acreedorauxPOBLACION: TStringField
      FieldName = 'POBLACION'
      Size = 50
    end
    object cdsq_proveedor_acreedorauxPOBLACION_POSTAL: TStringField
      FieldName = 'POBLACION_POSTAL'
      Size = 50
    end
    object cdsq_proveedor_acreedorauxCOD_POSTAL: TStringField
      FieldName = 'COD_POSTAL'
      Size = 5
    end
    object cdsq_proveedor_acreedorauxCOD_POSTAL_POSTAL: TStringField
      FieldName = 'COD_POSTAL_POSTAL'
      Size = 5
    end
    object cdsq_proveedor_acreedorauxPROVINCIA: TStringField
      FieldName = 'PROVINCIA'
      Size = 50
    end
    object cdsq_proveedor_acreedorauxPROVINCIA_POSTAL: TStringField
      FieldName = 'PROVINCIA_POSTAL'
      Size = 50
    end
    object cdsq_proveedor_acreedorauxEMAIL: TStringField
      FieldName = 'EMAIL'
      Size = 50
    end
    object cdsq_proveedor_acreedorauxHTTP: TStringField
      FieldName = 'HTTP'
      Size = 50
    end
    object cdsq_proveedor_acreedorauxOBSERVACIONES: TStringField
      FieldName = 'OBSERVACIONES'
      Size = 150
    end
    object cdsq_proveedor_acreedorauxMISMA_DIRECCION: TSmallintField
      FieldName = 'MISMA_DIRECCION'
    end
    object cdsq_proveedor_acreedorauxTELEFONO: TStringField
      FieldName = 'TELEFONO'
      Size = 13
    end
    object cdsq_proveedor_acreedorauxFAX: TStringField
      FieldName = 'FAX'
      Size = 13
    end
  end
  object CDSQ_MDALBARAN: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'NOMBRECLIENTE'
        Attributes = [faReadonly]
        DataType = ftString
        Size = 80
      end
      item
        Name = 'ID_ALBARAN'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'ANYO'
        Attributes = [faRequired]
        DataType = ftSmallint
      end
      item
        Name = 'ID_EMPRESA'
        Attributes = [faRequired]
        DataType = ftSmallint
      end
      item
        Name = 'ID_SERIE'
        Attributes = [faRequired]
        DataType = ftString
        Size = 3
      end
      item
        Name = 'FECHA'
        DataType = ftDate
      end
      item
        Name = 'ID_CLIENTE'
        DataType = ftInteger
      end
      item
        Name = 'OBSERVACIONES'
        DataType = ftString
        Size = 200
      end
      item
        Name = 'ID_PRESUPUESTO'
        DataType = ftInteger
      end
      item
        Name = 'ANULADO'
        DataType = ftSmallint
      end
      item
        Name = 'COBRADO'
        DataType = ftSmallint
      end
      item
        Name = 'ID_FORMA'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'HORACOBRO'
        DataType = ftTime
      end
      item
        Name = 'FECHACOBRO'
        DataType = ftDate
      end
      item
        Name = 'IVA'
        DataType = ftFloat
      end
      item
        Name = 'BASE_ALBARAN'
        DataType = ftFloat
      end
      item
        Name = 'BASE_ALBARANSINIVA'
        DataType = ftFloat
      end
      item
        Name = 'DESCUENTO'
        DataType = ftFloat
      end
      item
        Name = 'RE'
        DataType = ftFloat
      end
      item
        Name = 'TOTAL_COBRADO'
        DataType = ftFloat
      end
      item
        Name = 'DESCUENTOEURO'
        DataType = ftFloat
      end
      item
        Name = 'ENTREGA'
        DataType = ftFloat
      end
      item
        Name = 'DEVOLUCION'
        DataType = ftFloat
      end
      item
        Name = 'TOTALCOBRADO'
        DataType = ftFloat
      end
      item
        Name = 'TOTALDESCUENTO'
        DataType = ftFloat
      end
      item
        Name = 'HORA'
        DataType = ftTime
      end
      item
        Name = 'FECHAFIN'
        DataType = ftDate
      end
      item
        Name = 'Q_MDLINEAALBARAN'
        DataType = ftDataSet
      end>
    IndexDefs = <
      item
        Name = 'BPSINIVAINDEX'
        DescFields = 'BPSINIVA'
        Fields = 'BPSINIVA'
        Options = [ixDescending]
      end
      item
        Name = 'DESCTOTALINDEX'
        DescFields = 'DESCTOTAL'
        Fields = 'DESCTOTAL'
        Options = [ixDescending]
      end
      item
        Name = 'COBRADOSINDEX'
        DescFields = 'COBRADOS'
        Fields = 'COBRADOS'
        Options = [ixDescending]
      end
      item
        Name = 'ANULADOSINDEX'
        DescFields = 'ANULADOS'
        Fields = 'ANULADOS'
        Options = [ixDescending]
      end
      item
        Name = 'IMPRIMIRANYOINDEX'
        DescFields = 'IMPRIMIRANYO'
        Fields = 'IMPRIMIRANYO'
        Options = [ixDescending]
      end
      item
        Name = 'FACTURADOINDEX'
        DescFields = 'FACTURADO'
        Fields = 'FACTURADO'
        Options = [ixDescending]
      end
      item
        Name = 'BASEINDEX'
        DescFields = 'BASE'
        Fields = 'BASE'
        Options = [ixDescending]
      end
      item
        Name = 'NOMBRECLIENTEINDEX'
        DescFields = 'NOMBRECLIENTE'
        Fields = 'NOMBRECLIENTE'
        Options = [ixDescending]
      end
      item
        Name = 'ID_ALBARANINDEX'
        DescFields = 'ID_ALBARAN'
        Fields = 'ID_ALBARAN'
        Options = [ixDescending]
      end
      item
        Name = 'ANYOINDEX'
        DescFields = 'ANYO'
        Fields = 'ANYO'
        Options = [ixDescending]
      end
      item
        Name = 'ID_EMPRESAINDEX'
        DescFields = 'ID_EMPRESA'
        Fields = 'ID_EMPRESA'
        Options = [ixDescending]
      end
      item
        Name = 'ID_SERIEINDEX'
        DescFields = 'ID_SERIE'
        Fields = 'ID_SERIE'
        Options = [ixDescending]
      end
      item
        Name = 'FECHAINDEX'
        DescFields = 'FECHA'
        Fields = 'FECHA'
        Options = [ixDescending]
      end
      item
        Name = 'ID_CLIENTEINDEX'
        DescFields = 'ID_CLIENTE'
        Fields = 'ID_CLIENTE'
        Options = [ixDescending]
      end
      item
        Name = 'IVAINDEX'
        DescFields = 'IVA'
        Fields = 'IVA'
        Options = [ixDescending]
      end
      item
        Name = 'OBSERVACIONESINDEX'
        DescFields = 'OBSERVACIONES'
        Fields = 'OBSERVACIONES'
        Options = [ixDescending]
      end
      item
        Name = 'BASE_ALBARANINDEX'
        DescFields = 'BASE_ALBARAN'
        Fields = 'BASE_ALBARAN'
        Options = [ixDescending]
      end
      item
        Name = 'DESCUENTOINDEX'
        DescFields = 'DESCUENTO'
        Fields = 'DESCUENTO'
        Options = [ixDescending]
      end
      item
        Name = 'REINDEX'
        DescFields = 'RE'
        Fields = 'RE'
        Options = [ixDescending]
      end
      item
        Name = 'ID_PRESUPUESTOINDEX'
        DescFields = 'ID_PRESUPUESTO'
        Fields = 'ID_PRESUPUESTO'
        Options = [ixDescending]
      end
      item
        Name = 'ANULADOINDEX'
        DescFields = 'ANULADO'
        Fields = 'ANULADO'
        Options = [ixDescending]
      end
      item
        Name = 'COBRADOINDEX'
        DescFields = 'COBRADO'
        Fields = 'COBRADO'
        Options = [ixDescending]
      end
      item
        Name = 'ID_FORMAINDEX'
        DescFields = 'ID_FORMA'
        Fields = 'ID_FORMA'
        Options = [ixDescending]
      end
      item
        Name = 'TOTAL_COBRADOINDEX'
        DescFields = 'TOTAL_COBRADO'
        Fields = 'TOTAL_COBRADO'
        Options = [ixDescending]
      end
      item
        Name = 'TOTALIVAINDEX'
        DescFields = 'TOTALIVA'
        Fields = 'TOTALIVA'
        Options = [ixDescending]
      end
      item
        Name = 'TOTALREINDEX'
        DescFields = 'TOTALRE'
        Fields = 'TOTALRE'
        Options = [ixDescending]
      end
      item
        Name = 'BASE_ALBARANSINIVAINDEX'
        DescFields = 'BASE_ALBARANSINIVA'
        Fields = 'BASE_ALBARANSINIVA'
        Options = [ixDescending]
      end
      item
        Name = 'HORACOBROINDEX'
        DescFields = 'HORACOBRO'
        Fields = 'HORACOBRO'
        Options = [ixDescending]
      end
      item
        Name = 'FECHACOBROINDEX'
        DescFields = 'FECHACOBRO'
        Fields = 'FECHACOBRO'
        Options = [ixDescending]
      end
      item
        Name = 'DESCUENTOEUROINDEX'
        DescFields = 'DESCUENTOEURO'
        Fields = 'DESCUENTOEURO'
        Options = [ixDescending]
      end
      item
        Name = 'ENTREGAINDEX'
        DescFields = 'ENTREGA'
        Fields = 'ENTREGA'
        Options = [ixDescending]
      end
      item
        Name = 'DEVOLUCIONINDEX'
        DescFields = 'DEVOLUCION'
        Fields = 'DEVOLUCION'
        Options = [ixDescending]
      end
      item
        Name = 'TOTALCOBRADOINDEX'
        DescFields = 'TOTALCOBRADO'
        Fields = 'TOTALCOBRADO'
        Options = [ixDescending]
      end
      item
        Name = 'TOTALDESCUENTOINDEX'
        DescFields = 'TOTALDESCUENTO'
        Fields = 'TOTALDESCUENTO'
        Options = [ixDescending]
      end
      item
        Name = 'TOTALDESCUENTOAUXINDEX'
        DescFields = 'TOTALDESCUENTOAUX'
        Fields = 'TOTALDESCUENTOAUX'
        Options = [ixDescending]
      end>
    Params = <>
    ProviderName = 'DSPQ_MDALBARAN'
    RemoteServer = DCOMConnection1
    StoreDefs = True
    BeforeOpen = CDSQ_MDALBARANBeforeOpen
    BeforeClose = CDSQ_MDALBARANBeforeClose
    AfterInsert = CDSQ_MDALBARANAfterInsert
    BeforePost = CDSQ_MDALBARANBeforePost
    AfterPost = CDSQ_MDALBARANAfterPost
    OnCalcFields = CDSQ_MDALBARANCalcFields
    OnDeleteError = CDSQ_MDALBARANDeleteError
    OnEditError = CDSQ_MDALBARANEditError
    OnPostError = CDSQ_MDALBARANPostError
    OnReconcileError = CDSQ_MDALBARANReconcileError
    BeforeApplyUpdates = CDSQ_MDALBARANBeforeApplyUpdates
    AfterApplyUpdates = CDSQ_MDALBARANAfterApplyUpdates
    BeforeGetRecords = CDSQ_MDALBARANBeforeGetRecords
    AfterGetRecords = CDSQ_MDALBARANAfterGetRecords
    Left = 568
    Top = 152
    object CDSQ_MDALBARANDESCTOTAL: TFloatField
      FieldKind = fkCalculated
      FieldName = 'DESCTOTAL'
      OnSetText = ESFLOATSetText
      currency = True
      Calculated = True
    end
    object CDSQ_MDALBARANCOBRADOS: TBooleanField
      FieldKind = fkCalculated
      FieldName = 'COBRADOS'
      DisplayValues = 'SI;NO'
      Calculated = True
    end
    object CDSQ_MDALBARANANULADOS: TBooleanField
      FieldKind = fkCalculated
      FieldName = 'ANULADOS'
      DisplayValues = 'SI;NO'
      Calculated = True
    end
    object CDSQ_MDALBARANIMPRIMIRANYO: TStringField
      FieldKind = fkCalculated
      FieldName = 'IMPRIMIRANYO'
      Calculated = True
    end
    object CDSQ_MDALBARANFACTURADO: TStringField
      FieldKind = fkCalculated
      FieldName = 'FACTURADO'
      Size = 10
      Calculated = True
    end
    object CDSQ_MDALBARANBASE: TFloatField
      FieldKind = fkCalculated
      FieldName = 'BASE'
      currency = True
      Calculated = True
    end
    object CDSQ_MDALBARANTOTALRE: TCurrencyField
      FieldKind = fkCalculated
      FieldName = 'TOTALRE'
      Calculated = True
    end
    object CDSQ_MDALBARANBASE_ALBARANSINIVA: TCurrencyField
      FieldKind = fkCalculated
      FieldName = 'BASE_ALBARANSINIVA'
      Calculated = True
    end
    object CDSQ_MDALBARANTOTALDESCUENTOAUX: TFloatField
      FieldKind = fkInternalCalc
      FieldName = 'TOTALDESCUENTOAUX'
      currency = True
    end
    object CDSQ_MDALBARANTOTALIVA: TFloatField
      FieldKind = fkCalculated
      FieldName = 'TOTALIVA'
      currency = True
      Calculated = True
    end
    object CDSQ_MDALBARANBPSINIVA: TCurrencyField
      FieldKind = fkCalculated
      FieldName = 'BPSINIVA'
      Calculated = True
    end
    object CDSQ_MDALBARANNOMBRECLIENTE: TStringField
      FieldName = 'NOMBRECLIENTE'
      ReadOnly = True
      Size = 80
    end
    object CDSQ_MDALBARANID_ALBARAN: TIntegerField
      FieldName = 'ID_ALBARAN'
      Required = True
    end
    object CDSQ_MDALBARANANYO: TSmallintField
      FieldName = 'ANYO'
      Required = True
    end
    object CDSQ_MDALBARANID_EMPRESA: TSmallintField
      FieldName = 'ID_EMPRESA'
      Required = True
    end
    object CDSQ_MDALBARANID_SERIE: TStringField
      FieldName = 'ID_SERIE'
      Required = True
      Size = 3
    end
    object CDSQ_MDALBARANFECHA: TDateField
      FieldName = 'FECHA'
      EditMask = '!99/99/00;1;_'
    end
    object CDSQ_MDALBARANID_CLIENTE: TIntegerField
      FieldName = 'ID_CLIENTE'
    end
    object CDSQ_MDALBARANOBSERVACIONES: TStringField
      FieldName = 'OBSERVACIONES'
      Size = 200
    end
    object CDSQ_MDALBARANID_PRESUPUESTO: TIntegerField
      FieldName = 'ID_PRESUPUESTO'
    end
    object CDSQ_MDALBARANANULADO: TSmallintField
      FieldName = 'ANULADO'
    end
    object CDSQ_MDALBARANCOBRADO: TSmallintField
      FieldName = 'COBRADO'
    end
    object CDSQ_MDALBARANID_FORMA: TStringField
      FieldName = 'ID_FORMA'
      Size = 5
    end
    object CDSQ_MDALBARANHORACOBRO: TTimeField
      FieldName = 'HORACOBRO'
    end
    object CDSQ_MDALBARANFECHACOBRO: TDateField
      FieldName = 'FECHACOBRO'
      EditMask = '!99/99/00;1;_'
    end
    object CDSQ_MDALBARANIVA: TFloatField
      FieldName = 'IVA'
    end
    object CDSQ_MDALBARANBASE_ALBARAN: TFloatField
      FieldName = 'BASE_ALBARAN'
    end
    object CDSQ_MDALBARANDESCUENTO: TFloatField
      FieldName = 'DESCUENTO'
    end
    object CDSQ_MDALBARANRE: TFloatField
      FieldName = 'RE'
    end
    object CDSQ_MDALBARANTOTAL_COBRADO: TFloatField
      FieldName = 'TOTAL_COBRADO'
    end
    object CDSQ_MDALBARANDESCUENTOEURO: TFloatField
      FieldName = 'DESCUENTOEURO'
    end
    object CDSQ_MDALBARANENTREGA: TFloatField
      FieldName = 'ENTREGA'
    end
    object CDSQ_MDALBARANDEVOLUCION: TFloatField
      FieldName = 'DEVOLUCION'
    end
    object CDSQ_MDALBARANTOTALCOBRADO: TFloatField
      FieldName = 'TOTALCOBRADO'
    end
    object CDSQ_MDALBARANTOTALDESCUENTO: TFloatField
      FieldName = 'TOTALDESCUENTO'
    end
    object CDSQ_MDALBARANQ_MDLINEAALBARAN: TDataSetField
      FieldName = 'Q_MDLINEAALBARAN'
    end
    object CDSQ_MDALBARANNOBORRARNECESARIO: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'NOBORRARNECESARIO'
    end
    object CDSQ_MDALBARANHORA: TTimeField
      FieldName = 'HORA'
    end
    object CDSQ_MDALBARANFECHAFIN: TDateField
      FieldName = 'FECHAFIN'
      EditMask = '!99/99/00;1;_'
    end
  end
  object CDSQ_MDLINEAALBARAN: TClientDataSet
    Aggregates = <>
    DataSetField = CDSQ_MDALBARANQ_MDLINEAALBARAN
    FieldDefs = <
      item
        Name = 'ID_ALBARAN'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'ANYO'
        Attributes = [faRequired]
        DataType = ftSmallint
      end
      item
        Name = 'ID_EMPRESA'
        Attributes = [faRequired]
        DataType = ftSmallint
      end
      item
        Name = 'ID_SERIE'
        Attributes = [faRequired]
        DataType = ftString
        Size = 3
      end
      item
        Name = 'ID_ARTICULO'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'CANTIDAD'
        DataType = ftFloat
      end
      item
        Name = 'PRECIO'
        DataType = ftFloat
      end
      item
        Name = 'DESCUENTO'
        DataType = ftFloat
      end
      item
        Name = 'IVA_INCLUIDO'
        DataType = ftSmallint
      end
      item
        Name = 'IVA'
        DataType = ftFloat
      end
      item
        Name = 'MARCA'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'DESCRIPCION'
        DataType = ftString
        Size = 700
      end
      item
        Name = 'IMPORTE'
        DataType = ftFloat
      end
      item
        Name = 'IMPORTESINIVA'
        DataType = ftFloat
      end
      item
        Name = 'NUM_SERIE'
        DataType = ftString
        Size = 100
      end
      item
        Name = 'LINEA'
        Attributes = [faRequired]
        DataType = ftSmallint
      end
      item
        Name = 'DESCRIPCIONGAR'
        DataType = ftString
        Size = 100
      end
      item
        Name = 'DESCUENTOEURO'
        DataType = ftFloat
      end
      item
        Name = 'PRECIO_COSTE'
        DataType = ftFloat
      end
      item
        Name = 'CODIGO_BARRAS'
        DataType = ftString
        Size = 250
      end>
    IndexDefs = <
      item
        Name = 'DESCRIPCIONGARINDEX'
        DescFields = 'DESCRIPCIONGAR'
        Fields = 'DESCRIPCIONGAR'
        Options = [ixDescending]
      end
      item
        Name = 'ID_ALBARANINDEX'
        DescFields = 'ID_ALBARAN'
        Fields = 'ID_ALBARAN'
        Options = [ixDescending]
      end
      item
        Name = 'ANYOINDEX'
        DescFields = 'ANYO'
        Fields = 'ANYO'
        Options = [ixDescending]
      end
      item
        Name = 'ID_EMPRESAINDEX'
        DescFields = 'ID_EMPRESA'
        Fields = 'ID_EMPRESA'
        Options = [ixDescending]
      end
      item
        Name = 'ID_SERIEINDEX'
        DescFields = 'ID_SERIE'
        Fields = 'ID_SERIE'
        Options = [ixDescending]
      end
      item
        Name = 'ID_ARTICULOINDEX'
        DescFields = 'ID_ARTICULO'
        Fields = 'ID_ARTICULO'
        Options = [ixDescending]
      end
      item
        Name = 'CANTIDADINDEX'
        DescFields = 'CANTIDAD'
        Fields = 'CANTIDAD'
        Options = [ixDescending]
      end
      item
        Name = 'PRECIOINDEX'
        DescFields = 'PRECIO'
        Fields = 'PRECIO'
        Options = [ixDescending]
      end
      item
        Name = 'DESCUENTOINDEX'
        DescFields = 'DESCUENTO'
        Fields = 'DESCUENTO'
        Options = [ixDescending]
      end
      item
        Name = 'IVA_INCLUIDOINDEX'
        DescFields = 'IVA_INCLUIDO'
        Fields = 'IVA_INCLUIDO'
        Options = [ixDescending]
      end
      item
        Name = 'IVAINDEX'
        DescFields = 'IVA'
        Fields = 'IVA'
        Options = [ixDescending]
      end
      item
        Name = 'MARCAINDEX'
        DescFields = 'MARCA'
        Fields = 'MARCA'
        Options = [ixDescending]
      end
      item
        Name = 'DESCRIPCIONINDEX'
        DescFields = 'DESCRIPCION'
        Fields = 'DESCRIPCION'
        Options = [ixDescending]
      end
      item
        Name = 'IMPORTEINDEX'
        DescFields = 'IMPORTE'
        Fields = 'IMPORTE'
        Options = [ixDescending]
      end
      item
        Name = 'NUM_SERIEINDEX'
        DescFields = 'NUM_SERIE'
        Fields = 'NUM_SERIE'
        Options = [ixDescending]
      end
      item
        Name = 'LINEAINDEX'
        DescFields = 'LINEA'
        Fields = 'LINEA'
        Options = [ixDescending]
      end
      item
        Name = 'DESCUENTOEUROINDEX'
        DescFields = 'DESCUENTOEURO'
        Fields = 'DESCUENTOEURO'
        Options = [ixDescending]
      end
      item
        Name = 'PRECIO_COSTEINDEX'
        DescFields = 'PRECIO_COSTE'
        Fields = 'PRECIO_COSTE'
        Options = [ixDescending]
      end>
    Params = <>
    StoreDefs = True
    BeforeOpen = CDSQ_MDLINEAALBARANBeforeOpen
    AfterInsert = CDSQ_MDLINEAALBARANAfterInsert
    BeforePost = CDSQ_MDLINEAALBARANBeforePost
    AfterPost = CDSQ_MDLINEAALBARANAfterPost
    BeforeCancel = CDSQ_MDLINEAALBARANBeforeCancel
    BeforeDelete = CDSQ_MDLINEAALBARANBeforeDelete
    OnCalcFields = CDSQ_MDLINEAALBARANCalcFields
    OnDeleteError = CDSQ_MDLINEAALBARANDeleteError
    OnEditError = CDSQ_MDLINEAALBARANEditError
    OnPostError = CDSQ_MDLINEAALBARANPostError
    OnReconcileError = CDSQ_MDLINEAALBARANReconcileError
    Left = 568
    Top = 176
    object CDSQ_MDLINEAALBARANID_ALBARAN: TIntegerField
      FieldName = 'ID_ALBARAN'
      Required = True
    end
    object CDSQ_MDLINEAALBARANANYO: TSmallintField
      FieldName = 'ANYO'
      Required = True
    end
    object CDSQ_MDLINEAALBARANID_EMPRESA: TSmallintField
      FieldName = 'ID_EMPRESA'
      Required = True
    end
    object CDSQ_MDLINEAALBARANID_SERIE: TStringField
      FieldName = 'ID_SERIE'
      Required = True
      Size = 3
    end
    object CDSQ_MDLINEAALBARANID_ARTICULO: TStringField
      FieldName = 'ID_ARTICULO'
      Size = 30
    end
    object CDSQ_MDLINEAALBARANCANTIDAD: TFloatField
      FieldName = 'CANTIDAD'
    end
    object CDSQ_MDLINEAALBARANPRECIO: TFloatField
      FieldName = 'PRECIO'
    end
    object CDSQ_MDLINEAALBARANDESCUENTO: TFloatField
      FieldName = 'DESCUENTO'
    end
    object CDSQ_MDLINEAALBARANIVA_INCLUIDO: TSmallintField
      FieldName = 'IVA_INCLUIDO'
    end
    object CDSQ_MDLINEAALBARANIVA: TFloatField
      FieldName = 'IVA'
    end
    object CDSQ_MDLINEAALBARANMARCA: TStringField
      FieldName = 'MARCA'
      Size = 10
    end
    object CDSQ_MDLINEAALBARANDESCRIPCION: TStringField
      FieldName = 'DESCRIPCION'
      Size = 700
    end
    object CDSQ_MDLINEAALBARANIMPORTE: TFloatField
      FieldName = 'IMPORTE'
    end
    object CDSQ_MDLINEAALBARANIMPORTESINIVA: TFloatField
      FieldName = 'IMPORTESINIVA'
    end
    object CDSQ_MDLINEAALBARANNUM_SERIE: TStringField
      FieldName = 'NUM_SERIE'
      Size = 100
    end
    object CDSQ_MDLINEAALBARANLINEA: TSmallintField
      FieldName = 'LINEA'
      Required = True
    end
    object CDSQ_MDLINEAALBARANDESCRIPCIONGAR: TStringField
      FieldName = 'DESCRIPCIONGAR'
      Size = 100
    end
    object CDSQ_MDLINEAALBARANDESCUENTOEURO: TFloatField
      FieldName = 'DESCUENTOEURO'
    end
    object CDSQ_MDLINEAALBARANPRECIO_COSTE: TFloatField
      FieldName = 'PRECIO_COSTE'
    end
    object CDSQ_MDLINEAALBARANCODIGO_BARRAS: TStringField
      FieldName = 'CODIGO_BARRAS'
      Size = 250
    end
    object CDSQ_MDLINEAALBARANNOBORRARNECESARIO: TIntegerField
      FieldKind = fkInternalCalc
      FieldName = 'NOBORRARNECESARIO'
    end
    object CDSQ_MDLINEAALBARANNUMERO_SERIE: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'NUMERO_SERIE'
    end
  end
  object CDSQ_MDPRESUPUESTOAUX: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'NOMBRECLIENTE'
        Attributes = [faReadonly]
        DataType = ftString
        Size = 80
      end
      item
        Name = 'ID_PRESUPUESTO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'ID_EMPRESA'
        Attributes = [faRequired]
        DataType = ftSmallint
      end
      item
        Name = 'ID_CLIENTE'
        DataType = ftInteger
      end
      item
        Name = 'BASE_PRESUPUESTO'
        DataType = ftFloat
      end
      item
        Name = 'FECHA'
        DataType = ftDate
      end
      item
        Name = 'BASE_PRESUPUESTOSINIVA'
        DataType = ftFloat
      end
      item
        Name = 'DESCUENTO'
        DataType = ftFloat
      end
      item
        Name = 'OBSERVACIONES'
        DataType = ftString
        Size = 200
      end
      item
        Name = 'VALIDEZ'
        DataType = ftDate
      end
      item
        Name = 'ANYO'
        Attributes = [faRequired]
        DataType = ftSmallint
      end
      item
        Name = 'NOMBRE'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'RE'
        DataType = ftFloat
      end
      item
        Name = 'IVA'
        DataType = ftFloat
      end
      item
        Name = 'Q_MDLINPRESUPUESTOAUX'
        DataType = ftDataSet
      end>
    IndexDefs = <
      item
        Name = 'NOMBRECLIENTEINDEX'
        DescFields = 'NOMBRECLIENTE'
        Fields = 'NOMBRECLIENTE'
        Options = [ixDescending]
      end
      item
        Name = 'REINDEX'
        DescFields = 'RE'
        Fields = 'RE'
        Options = [ixDescending]
      end
      item
        Name = 'IVAINDEX'
        DescFields = 'IVA'
        Fields = 'IVA'
        Options = [ixDescending]
      end
      item
        Name = 'ID_PRESUPUESTOINDEX'
        DescFields = 'ID_PRESUPUESTO'
        Fields = 'ID_PRESUPUESTO'
        Options = [ixDescending]
      end
      item
        Name = 'ID_EMPRESAINDEX'
        DescFields = 'ID_EMPRESA'
        Fields = 'ID_EMPRESA'
        Options = [ixDescending]
      end
      item
        Name = 'ID_CLIENTEINDEX'
        DescFields = 'ID_CLIENTE'
        Fields = 'ID_CLIENTE'
        Options = [ixDescending]
      end
      item
        Name = 'BASE_PRESUPUESTOINDEX'
        DescFields = 'BASE_PRESUPUESTO'
        Fields = 'BASE_PRESUPUESTO'
        Options = [ixDescending]
      end
      item
        Name = 'FECHAINDEX'
        DescFields = 'FECHA'
        Fields = 'FECHA'
        Options = [ixDescending]
      end
      item
        Name = 'DESCUENTOINDEX'
        DescFields = 'DESCUENTO'
        Fields = 'DESCUENTO'
        Options = [ixDescending]
      end
      item
        Name = 'OBSERVACIONESINDEX'
        DescFields = 'OBSERVACIONES'
        Fields = 'OBSERVACIONES'
        Options = [ixDescending]
      end
      item
        Name = 'VALIDEZINDEX'
        DescFields = 'VALIDEZ'
        Fields = 'VALIDEZ'
        Options = [ixDescending]
      end
      item
        Name = 'ANYOINDEX'
        DescFields = 'ANYO'
        Fields = 'ANYO'
        Options = [ixDescending]
      end
      item
        Name = 'NOMBREINDEX'
        DescFields = 'NOMBRE'
        Fields = 'NOMBRE'
        Options = [ixDescending]
      end>
    Params = <>
    ProviderName = 'DSPQ_MDPRESUPUESTOAUX'
    RemoteServer = DCOMConnection1
    StoreDefs = True
    BeforeOpen = CDSQ_MDPRESUPUESTOAUXBeforeOpen
    BeforeClose = CDSQ_MDPRESUPUESTOAUXBeforeClose
    OnReconcileError = CDSQ_MDPRESUPUESTOAUXReconcileError
    BeforeGetRecords = CDSQ_MDPRESUPUESTOAUXBeforeGetRecords
    AfterGetRecords = CDSQ_MDPRESUPUESTOAUXAfterGetRecords
    Left = 256
    Top = 16
    object CDSQ_MDPRESUPUESTOAUXNOMBRECLIENTE: TStringField
      FieldName = 'NOMBRECLIENTE'
      ReadOnly = True
      Size = 80
    end
    object CDSQ_MDPRESUPUESTOAUXID_PRESUPUESTO: TIntegerField
      FieldName = 'ID_PRESUPUESTO'
      Required = True
    end
    object CDSQ_MDPRESUPUESTOAUXID_EMPRESA: TSmallintField
      FieldName = 'ID_EMPRESA'
      Required = True
    end
    object CDSQ_MDPRESUPUESTOAUXID_CLIENTE: TIntegerField
      FieldName = 'ID_CLIENTE'
    end
    object CDSQ_MDPRESUPUESTOAUXFECHA: TDateField
      FieldName = 'FECHA'
      OnSetText = pcomprobarfecha
      EditMask = '!99/99/00;1;_'
    end
    object CDSQ_MDPRESUPUESTOAUXOBSERVACIONES: TStringField
      FieldName = 'OBSERVACIONES'
      Size = 200
    end
    object CDSQ_MDPRESUPUESTOAUXVALIDEZ: TDateField
      FieldName = 'VALIDEZ'
      OnSetText = pcomprobarfecha
      EditMask = '!99/99/00;1;_'
    end
    object CDSQ_MDPRESUPUESTOAUXANYO: TSmallintField
      FieldName = 'ANYO'
      Required = True
    end
    object CDSQ_MDPRESUPUESTOAUXNOMBRE: TStringField
      FieldName = 'NOMBRE'
      Size = 50
    end
    object CDSQ_MDPRESUPUESTOAUXQ_MDLINPRESUPUESTOAUX: TDataSetField
      FieldName = 'Q_MDLINPRESUPUESTOAUX'
    end
    object CDSQ_MDPRESUPUESTOAUXBASE_PRESUPUESTO: TFloatField
      FieldName = 'BASE_PRESUPUESTO'
    end
    object CDSQ_MDPRESUPUESTOAUXBASE_PRESUPUESTOSINIVA: TFloatField
      FieldName = 'BASE_PRESUPUESTOSINIVA'
    end
    object CDSQ_MDPRESUPUESTOAUXDESCUENTO: TFloatField
      FieldName = 'DESCUENTO'
    end
    object CDSQ_MDPRESUPUESTOAUXRE: TFloatField
      FieldName = 'RE'
    end
    object CDSQ_MDPRESUPUESTOAUXIVA: TFloatField
      FieldName = 'IVA'
    end
  end
  object CDSQ_MDLINPRESUPUESTOAUX: TClientDataSet
    Aggregates = <>
    DataSetField = CDSQ_MDPRESUPUESTOAUXQ_MDLINPRESUPUESTOAUX
    Params = <>
    Left = 256
    Top = 24
    object CDSQ_MDLINPRESUPUESTOAUXMARCA: TStringField
      FieldName = 'MARCA'
      Size = 10
    end
    object CDSQ_MDLINPRESUPUESTOAUXDESCRIPCION: TStringField
      FieldName = 'DESCRIPCION'
      Size = 700
    end
    object CDSQ_MDLINPRESUPUESTOAUXID_PRESUPUESTO: TIntegerField
      FieldName = 'ID_PRESUPUESTO'
      Required = True
    end
    object CDSQ_MDLINPRESUPUESTOAUXID_EMPRESA: TSmallintField
      FieldName = 'ID_EMPRESA'
      Required = True
    end
    object CDSQ_MDLINPRESUPUESTOAUXID_ARTICULO: TStringField
      FieldName = 'ID_ARTICULO'
      Size = 30
    end
    object CDSQ_MDLINPRESUPUESTOAUXESTADO: TStringField
      FieldName = 'ESTADO'
      Size = 5
    end
    object CDSQ_MDLINPRESUPUESTOAUXLINEA: TSmallintField
      FieldName = 'LINEA'
      Required = True
    end
    object CDSQ_MDLINPRESUPUESTOAUXART_PROVEEDOR: TStringField
      FieldName = 'ART_PROVEEDOR'
      Size = 30
    end
    object CDSQ_MDLINPRESUPUESTOAUXID_PROVEEDOR: TIntegerField
      FieldName = 'ID_PROVEEDOR'
    end
    object CDSQ_MDLINPRESUPUESTOAUXANYO: TSmallintField
      FieldName = 'ANYO'
      Required = True
    end
    object CDSQ_MDLINPRESUPUESTOAUXIVA: TFloatField
      FieldName = 'IVA'
    end
    object CDSQ_MDLINPRESUPUESTOAUXCANTIDAD: TFloatField
      FieldName = 'CANTIDAD'
    end
    object CDSQ_MDLINPRESUPUESTOAUXDESCUENTO: TFloatField
      FieldName = 'DESCUENTO'
    end
    object CDSQ_MDLINPRESUPUESTOAUXPRECIO: TFloatField
      FieldName = 'PRECIO'
    end
    object CDSQ_MDLINPRESUPUESTOAUXIMPORTE: TFloatField
      FieldName = 'IMPORTE'
    end
    object CDSQ_MDLINPRESUPUESTOAUXIMPORTE_FACT: TFloatField
      FieldName = 'IMPORTE_FACT'
    end
    object CDSQ_MDLINPRESUPUESTOAUXBASE_LINEA: TFloatField
      FieldName = 'BASE_LINEA'
    end
    object CDSQ_MDLINPRESUPUESTOAUXPRECIO_COSTE: TFloatField
      FieldName = 'PRECIO_COSTE'
    end
  end
  object CDSQ_MDFACTURA: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'NOMBRECLIENTE'
        Attributes = [faReadonly]
        DataType = ftString
        Size = 80
      end
      item
        Name = 'ID_FACTURA'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'ANYO'
        Attributes = [faRequired]
        DataType = ftSmallint
      end
      item
        Name = 'ID_EMPRESA'
        Attributes = [faRequired]
        DataType = ftSmallint
      end
      item
        Name = 'ID_SERIE'
        Attributes = [faRequired]
        DataType = ftString
        Size = 3
      end
      item
        Name = 'FECHA'
        DataType = ftDate
      end
      item
        Name = 'ID_CLIENTE'
        DataType = ftInteger
      end
      item
        Name = 'OBSERVACIONES'
        DataType = ftString
        Size = 200
      end
      item
        Name = 'ID_PRESUPUESTO'
        DataType = ftInteger
      end
      item
        Name = 'ID_ALBARAN'
        DataType = ftInteger
      end
      item
        Name = 'ANULADO'
        DataType = ftSmallint
      end
      item
        Name = 'COBRADO'
        DataType = ftSmallint
      end
      item
        Name = 'ASIENTO'
        DataType = ftInteger
      end
      item
        Name = 'ID_FORMA'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'ALBANYO'
        DataType = ftSmallint
      end
      item
        Name = 'ALBID_SERIE'
        DataType = ftString
        Size = 3
      end
      item
        Name = 'TICANYO'
        DataType = ftSmallint
      end
      item
        Name = 'TICID_SERIE'
        DataType = ftString
        Size = 3
      end
      item
        Name = 'ID_TICKET'
        DataType = ftInteger
      end
      item
        Name = 'IMPRESO'
        DataType = ftSmallint
      end
      item
        Name = 'HORACOBRO'
        DataType = ftTime
      end
      item
        Name = 'FECHACOBRO'
        DataType = ftDate
      end
      item
        Name = 'IVA'
        DataType = ftFloat
      end
      item
        Name = 'BASE_FACTURA'
        DataType = ftFloat
      end
      item
        Name = 'DESCUENTO'
        DataType = ftFloat
      end
      item
        Name = 'RE'
        DataType = ftFloat
      end
      item
        Name = 'TOTAL_COBRADO'
        DataType = ftFloat
      end
      item
        Name = 'DESCUENTOEURO'
        DataType = ftFloat
      end
      item
        Name = 'ENTREGA'
        DataType = ftFloat
      end
      item
        Name = 'DEVOLUCION'
        DataType = ftFloat
      end
      item
        Name = 'TOTALCOBRADO'
        DataType = ftFloat
      end
      item
        Name = 'TOTALDESCUENTO'
        DataType = ftFloat
      end
      item
        Name = 'HORA'
        DataType = ftTime
      end
      item
        Name = 'Q_MDLINEAFACTURA'
        DataType = ftDataSet
      end>
    IndexDefs = <
      item
        Name = 'ID_FACTURAINDEX'
        DescFields = 'ID_FACTURA'
        Fields = 'ID_FACTURA'
        Options = [ixDescending]
      end
      item
        Name = 'ID_SERIEINDEX'
        DescFields = 'ID_SERIE'
        Fields = 'ID_SERIE'
        Options = [ixDescending]
      end
      item
        Name = 'NOMBRECLIENTEINDEX'
        DescFields = 'NOMBRECLIENTE'
        Fields = 'NOMBRECLIENTE'
        Options = [ixDescending]
      end
      item
        Name = 'FECHAINDEX'
        DescFields = 'FECHA'
        Fields = 'FECHA'
        Options = [ixDescending]
      end
      item
        Name = 'BASE_FACTURAINDEX'
        DescFields = 'BASE_FACTURA'
        Fields = 'BASE_FACTURA'
        Options = [ixDescending]
      end
      item
        Name = 'TOTAL_COBRADOINDEX'
        DescFields = 'TOTAL_COBRADO'
        Fields = 'TOTAL_COBRADO'
        Options = [ixDescending]
      end>
    Params = <>
    ProviderName = 'DSPQ_MDFACTURA'
    RemoteServer = DCOMConnection1
    StoreDefs = True
    BeforeOpen = CDSQ_MDFACTURABeforeOpen
    AfterOpen = CDSQ_MDFACTURAAfterOpen
    BeforeClose = CDSQ_MDFACTURABeforeClose
    AfterInsert = CDSQ_MDFACTURAAfterInsert
    BeforeEdit = CDSQ_MDFACTURABeforeEdit
    AfterEdit = CDSQ_MDFACTURAAfterEdit
    BeforePost = CDSQ_MDFACTURABeforePost
    AfterPost = CDSQ_MDFACTURAAfterPost
    OnCalcFields = CDSQ_MDFACTURACalcFields
    OnDeleteError = CDSQ_MDFACTURADeleteError
    OnEditError = CDSQ_MDFACTURAEditError
    OnPostError = CDSQ_MDFACTURAPostError
    OnReconcileError = CDSQ_MDFACTURAReconcileError
    BeforeApplyUpdates = CDSQ_MDFACTURABeforeApplyUpdates
    AfterApplyUpdates = CDSQ_MDFACTURAAfterApplyUpdates
    BeforeGetRecords = CDSQ_MDFACTURABeforeGetRecords
    AfterGetRecords = CDSQ_MDFACTURAAfterGetRecords
    Left = 648
    Top = 72
    object CDSQ_MDFACTURAIMPRIMIRANYO: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'IMPRIMIRANYO'
      Size = 2
    end
    object CDSQ_MDFACTURAANULADOS: TBooleanField
      FieldKind = fkInternalCalc
      FieldName = 'ANULADOS'
    end
    object CDSQ_MDFACTURATOTALRE: TCurrencyField
      FieldKind = fkInternalCalc
      FieldName = 'TOTALRE'
    end
    object CDSQ_MDFACTURATOTALDESCUENTOAUX: TFloatField
      FieldKind = fkInternalCalc
      FieldName = 'TOTALDESCUENTOAUX'
      currency = True
    end
    object CDSQ_MDFACTURACOBRADOS: TBooleanField
      FieldKind = fkInternalCalc
      FieldName = 'COBRADOS'
    end
    object CDSQ_MDFACTURADESCTOTAL: TFloatField
      FieldKind = fkInternalCalc
      FieldName = 'DESCTOTAL'
      currency = True
    end
    object CDSQ_MDFACTURATOTALIVA: TFloatField
      FieldKind = fkInternalCalc
      FieldName = 'TOTALIVA'
      currency = True
    end
    object CDSQ_MDFACTURABASE: TFloatField
      FieldKind = fkInternalCalc
      FieldName = 'BASE'
      currency = True
    end
    object CDSQ_MDFACTURANOMBRECLIENTE: TStringField
      FieldName = 'NOMBRECLIENTE'
      ReadOnly = True
      Size = 80
    end
    object CDSQ_MDFACTURAID_FACTURA: TIntegerField
      FieldName = 'ID_FACTURA'
      Required = True
    end
    object CDSQ_MDFACTURAANYO: TSmallintField
      FieldName = 'ANYO'
      Required = True
    end
    object CDSQ_MDFACTURAID_EMPRESA: TSmallintField
      FieldName = 'ID_EMPRESA'
      Required = True
    end
    object CDSQ_MDFACTURAID_SERIE: TStringField
      FieldName = 'ID_SERIE'
      Required = True
      Size = 3
    end
    object CDSQ_MDFACTURAFECHA: TDateField
      FieldName = 'FECHA'
      OnSetText = pcomprobarfecha
      EditMask = '!99/99/00;1;_'
    end
    object CDSQ_MDFACTURAID_CLIENTE: TIntegerField
      FieldName = 'ID_CLIENTE'
    end
    object CDSQ_MDFACTURAOBSERVACIONES: TStringField
      FieldName = 'OBSERVACIONES'
      Size = 200
    end
    object CDSQ_MDFACTURAID_PRESUPUESTO: TIntegerField
      FieldName = 'ID_PRESUPUESTO'
    end
    object CDSQ_MDFACTURAID_ALBARAN: TIntegerField
      FieldName = 'ID_ALBARAN'
    end
    object CDSQ_MDFACTURAANULADO: TSmallintField
      FieldName = 'ANULADO'
    end
    object CDSQ_MDFACTURACOBRADO: TSmallintField
      FieldName = 'COBRADO'
    end
    object CDSQ_MDFACTURAASIENTO: TIntegerField
      FieldName = 'ASIENTO'
    end
    object CDSQ_MDFACTURAID_FORMA: TStringField
      FieldName = 'ID_FORMA'
      Size = 5
    end
    object CDSQ_MDFACTURAALBANYO: TSmallintField
      FieldName = 'ALBANYO'
    end
    object CDSQ_MDFACTURAALBID_SERIE: TStringField
      FieldName = 'ALBID_SERIE'
      Size = 3
    end
    object CDSQ_MDFACTURATICANYO: TSmallintField
      FieldName = 'TICANYO'
    end
    object CDSQ_MDFACTURATICID_SERIE: TStringField
      FieldName = 'TICID_SERIE'
      Size = 3
    end
    object CDSQ_MDFACTURAID_TICKET: TIntegerField
      FieldName = 'ID_TICKET'
    end
    object CDSQ_MDFACTURAIMPRESO: TSmallintField
      FieldName = 'IMPRESO'
    end
    object CDSQ_MDFACTURAHORACOBRO: TTimeField
      FieldName = 'HORACOBRO'
    end
    object CDSQ_MDFACTURAFECHACOBRO: TDateField
      FieldName = 'FECHACOBRO'
      OnSetText = pcomprobarfecha
      EditMask = '!99/99/00;1;_'
    end
    object CDSQ_MDFACTURAQ_MDLINEAFACTURA: TDataSetField
      FieldName = 'Q_MDLINEAFACTURA'
    end
    object CDSQ_MDFACTURAIVA: TFloatField
      FieldName = 'IVA'
    end
    object CDSQ_MDFACTURABASE_FACTURA: TFloatField
      FieldName = 'BASE_FACTURA'
      currency = True
    end
    object CDSQ_MDFACTURADESCUENTO: TFloatField
      FieldName = 'DESCUENTO'
    end
    object CDSQ_MDFACTURARE: TFloatField
      FieldName = 'RE'
    end
    object CDSQ_MDFACTURATOTAL_COBRADO: TFloatField
      FieldName = 'TOTAL_COBRADO'
      currency = True
    end
    object CDSQ_MDFACTURADESCUENTOEURO: TFloatField
      FieldName = 'DESCUENTOEURO'
      currency = True
    end
    object CDSQ_MDFACTURAENTREGA: TFloatField
      FieldName = 'ENTREGA'
      currency = True
    end
    object CDSQ_MDFACTURADEVOLUCION: TFloatField
      FieldName = 'DEVOLUCION'
      currency = True
    end
    object CDSQ_MDFACTURATOTALCOBRADO: TFloatField
      FieldName = 'TOTALCOBRADO'
      currency = True
    end
    object CDSQ_MDFACTURATOTALDESCUENTO: TFloatField
      FieldName = 'TOTALDESCUENTO'
      currency = True
    end
    object CDSQ_MDFACTURANOBORRARNECESARIO: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'NOBORRARNECESARIO'
    end
    object CDSQ_MDFACTURAHORA: TTimeField
      FieldName = 'HORA'
    end
  end
  object CDSQ_MDLINEAFACTURA: TClientDataSet
    Aggregates = <>
    DataSetField = CDSQ_MDFACTURAQ_MDLINEAFACTURA
    FieldDefs = <
      item
        Name = 'ID_FACTURA'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'ANYO'
        Attributes = [faRequired]
        DataType = ftSmallint
      end
      item
        Name = 'ID_EMPRESA'
        Attributes = [faRequired]
        DataType = ftSmallint
      end
      item
        Name = 'ID_SERIE'
        Attributes = [faRequired]
        DataType = ftString
        Size = 3
      end
      item
        Name = 'ID_ARTICULO'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'CANTIDAD'
        DataType = ftFloat
      end
      item
        Name = 'PRECIO'
        DataType = ftFloat
      end
      item
        Name = 'DESCUENTO'
        DataType = ftFloat
      end
      item
        Name = 'IVA_INCLUIDO'
        DataType = ftSmallint
      end
      item
        Name = 'IVA'
        DataType = ftFloat
      end
      item
        Name = 'MARCA'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'DESCRIPCION'
        DataType = ftString
        Size = 700
      end
      item
        Name = 'IMPORTE'
        DataType = ftFloat
      end
      item
        Name = 'NUM_SERIE'
        DataType = ftString
        Size = 100
      end
      item
        Name = 'LINEA'
        Attributes = [faRequired]
        DataType = ftSmallint
      end
      item
        Name = 'DESCRIPCIONGAR'
        DataType = ftString
        Size = 100
      end
      item
        Name = 'NUMERO'
        DataType = ftInteger
      end
      item
        Name = 'ALBANYO'
        DataType = ftSmallint
      end
      item
        Name = 'ALBID_EMPRESA'
        DataType = ftSmallint
      end
      item
        Name = 'ALBID_SERIE'
        DataType = ftString
        Size = 3
      end
      item
        Name = 'TIPO'
        DataType = ftString
        Size = 2
      end
      item
        Name = 'DESCUENTOEURO'
        DataType = ftFloat
      end
      item
        Name = 'PRECIO_COSTE'
        DataType = ftFloat
      end
      item
        Name = 'CODIGO_BARRAS'
        DataType = ftString
        Size = 250
      end>
    IndexDefs = <
      item
        Name = 'NUMEROINDEX'
        DescFields = 'NUMERO'
        Fields = 'NUMERO'
        Options = [ixDescending]
      end
      item
        Name = 'ID_ARTICULOINDEX'
        DescFields = 'ID_ARTICULO'
        Fields = 'ID_ARTICULO'
        Options = [ixDescending]
      end
      item
        Name = 'MARCAINDEX'
        DescFields = 'MARCA'
        Fields = 'MARCA'
        Options = [ixDescending]
      end
      item
        Name = 'DESCRIPCIONINDEX'
        DescFields = 'DESCRIPCION'
        Fields = 'DESCRIPCION'
        Options = [ixDescending]
      end
      item
        Name = 'NUM_SERIEINDEX'
        DescFields = 'NUM_SERIE'
        Fields = 'NUM_SERIE'
        Options = [ixDescending]
      end
      item
        Name = 'CANTIDADINDEX'
        DescFields = 'CANTIDAD'
        Fields = 'CANTIDAD'
        Options = [ixDescending]
      end
      item
        Name = 'DESCUENTOINDEX'
        DescFields = 'DESCUENTO'
        Fields = 'DESCUENTO'
        Options = [ixDescending]
      end
      item
        Name = 'DESCUENTOEUROINDEX'
        DescFields = 'DESCUENTOEURO'
        Fields = 'DESCUENTOEURO'
        Options = [ixDescending]
      end
      item
        Name = 'PRECIOINDEX'
        DescFields = 'PRECIO'
        Fields = 'PRECIO'
        Options = [ixDescending]
      end
      item
        Name = 'IMPORTEINDEX'
        DescFields = 'IMPORTE'
        Fields = 'IMPORTE'
        Options = [ixDescending]
      end>
    Params = <>
    StoreDefs = True
    BeforeOpen = CDSQ_MDLINEAFACTURABeforeOpen
    AfterInsert = CDSQ_MDLINEAFACTURAAfterInsert
    BeforePost = CDSQ_MDLINEAFACTURABeforePost
    AfterPost = CDSQ_MDLINEAFACTURAAfterPost
    BeforeCancel = CDSQ_MDLINEAFACTURABeforeCancel
    BeforeDelete = CDSQ_MDLINEAFACTURABeforeDelete
    OnCalcFields = CDSQ_MDLINEAFACTURACalcFields
    OnDeleteError = CDSQ_MDLINEAFACTURADeleteError
    OnEditError = CDSQ_MDLINEAFACTURAEditError
    OnPostError = CDSQ_MDLINEAFACTURAPostError
    OnReconcileError = CDSQ_MDLINEAFACTURAReconcileError
    Left = 648
    Top = 88
    object CDSQ_MDLINEAFACTURAID_FACTURA: TIntegerField
      FieldName = 'ID_FACTURA'
      Required = True
    end
    object CDSQ_MDLINEAFACTURAANYO: TSmallintField
      FieldName = 'ANYO'
      Required = True
    end
    object CDSQ_MDLINEAFACTURAID_EMPRESA: TSmallintField
      FieldName = 'ID_EMPRESA'
      Required = True
    end
    object CDSQ_MDLINEAFACTURAID_SERIE: TStringField
      FieldName = 'ID_SERIE'
      Required = True
      Size = 3
    end
    object CDSQ_MDLINEAFACTURAIVA_INCLUIDO: TSmallintField
      FieldName = 'IVA_INCLUIDO'
    end
    object CDSQ_MDLINEAFACTURAMARCA: TStringField
      FieldName = 'MARCA'
      Size = 10
    end
    object CDSQ_MDLINEAFACTURADESCRIPCION: TStringField
      FieldName = 'DESCRIPCION'
      Size = 700
    end
    object CDSQ_MDLINEAFACTURANUM_SERIE: TStringField
      FieldName = 'NUM_SERIE'
      Size = 100
    end
    object CDSQ_MDLINEAFACTURALINEA: TSmallintField
      FieldName = 'LINEA'
      Required = True
    end
    object CDSQ_MDLINEAFACTURAID_ARTICULO: TStringField
      FieldName = 'ID_ARTICULO'
      Size = 30
    end
    object CDSQ_MDLINEAFACTURADESCRIPCIONGAR: TStringField
      FieldName = 'DESCRIPCIONGAR'
      Size = 100
    end
    object CDSQ_MDLINEAFACTURANUMERO: TIntegerField
      FieldName = 'NUMERO'
    end
    object CDSQ_MDLINEAFACTURAALBANYO: TSmallintField
      FieldName = 'ALBANYO'
    end
    object CDSQ_MDLINEAFACTURAALBID_EMPRESA: TSmallintField
      FieldName = 'ALBID_EMPRESA'
    end
    object CDSQ_MDLINEAFACTURAALBID_SERIE: TStringField
      FieldName = 'ALBID_SERIE'
      Size = 3
    end
    object CDSQ_MDLINEAFACTURATIPO: TStringField
      FieldName = 'TIPO'
      Size = 2
    end
    object CDSQ_MDLINEAFACTURACANTIDAD: TFloatField
      FieldName = 'CANTIDAD'
    end
    object CDSQ_MDLINEAFACTURAPRECIO: TFloatField
      FieldName = 'PRECIO'
      currency = True
    end
    object CDSQ_MDLINEAFACTURADESCUENTO: TFloatField
      FieldName = 'DESCUENTO'
    end
    object CDSQ_MDLINEAFACTURAIVA: TFloatField
      FieldName = 'IVA'
    end
    object CDSQ_MDLINEAFACTURAIMPORTE: TFloatField
      FieldName = 'IMPORTE'
      currency = True
    end
    object CDSQ_MDLINEAFACTURADESCUENTOEURO: TFloatField
      FieldName = 'DESCUENTOEURO'
      currency = True
    end
    object CDSQ_MDLINEAFACTURAPRECIO_COSTE: TFloatField
      FieldName = 'PRECIO_COSTE'
      currency = True
    end
    object CDSQ_MDLINEAFACTURACODIGO_BARRAS: TStringField
      FieldName = 'CODIGO_BARRAS'
      Size = 250
    end
    object CDSQ_MDLINEAFACTURANOBORRARNECESARIO: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'NOBORRARNECESARIO'
    end
    object CDSQ_MDLINEAFACTURANUMERO_SERIE: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'NUMERO_SERIE'
    end
  end
  object CDSQ_MDALBARANAUX: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'NOMBRECLIENTE'
        Attributes = [faReadonly]
        DataType = ftString
        Size = 80
      end
      item
        Name = 'NOMBRE'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'ID_ALBARAN'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'ANYO'
        Attributes = [faRequired]
        DataType = ftSmallint
      end
      item
        Name = 'ID_EMPRESA'
        Attributes = [faRequired]
        DataType = ftSmallint
      end
      item
        Name = 'ID_SERIE'
        Attributes = [faRequired]
        DataType = ftString
        Size = 3
      end
      item
        Name = 'FECHA'
        DataType = ftDate
      end
      item
        Name = 'ID_CLIENTE'
        DataType = ftInteger
      end
      item
        Name = 'OBSERVACIONES'
        DataType = ftString
        Size = 200
      end
      item
        Name = 'ID_PRESUPUESTO'
        DataType = ftInteger
      end
      item
        Name = 'ANULADO'
        DataType = ftSmallint
      end
      item
        Name = 'COBRADO'
        DataType = ftSmallint
      end
      item
        Name = 'ID_FORMA'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'FECHACOBRO'
        DataType = ftDate
      end
      item
        Name = 'HORACOBRO'
        DataType = ftTime
      end
      item
        Name = 'DESCUENTOEURO'
        DataType = ftFloat
      end
      item
        Name = 'ENTREGA'
        DataType = ftFloat
      end
      item
        Name = 'DEVOLUCION'
        DataType = ftFloat
      end
      item
        Name = 'TOTALCOBRADO'
        DataType = ftFloat
      end
      item
        Name = 'TOTALDESCUENTO'
        DataType = ftFloat
      end
      item
        Name = 'BASE_ALBARANSINIVA'
        DataType = ftFloat
      end
      item
        Name = 'IVA'
        DataType = ftFloat
      end
      item
        Name = 'BASE_ALBARAN'
        DataType = ftFloat
      end
      item
        Name = 'DESCUENTO'
        DataType = ftFloat
      end
      item
        Name = 'RE'
        DataType = ftFloat
      end
      item
        Name = 'TOTAL_COBRADO'
        DataType = ftFloat
      end
      item
        Name = 'HORA'
        DataType = ftTime
      end
      item
        Name = 'FECHAFIN'
        DataType = ftDate
      end
      item
        Name = 'Q_MDLINEAALBARANAUX'
        DataType = ftDataSet
      end>
    IndexDefs = <
      item
        Name = 'FACTURADOINDEX'
        DescFields = 'FACTURADO'
        Fields = 'FACTURADO'
        Options = [ixDescending]
      end
      item
        Name = 'COBRADOSINDEX'
        DescFields = 'COBRADOS'
        Fields = 'COBRADOS'
        Options = [ixDescending]
      end
      item
        Name = 'RESTOINDEX'
        DescFields = 'RESTO'
        Fields = 'RESTO'
        Options = [ixDescending]
      end
      item
        Name = 'NOMBRECLIENTEINDEX'
        DescFields = 'NOMBRECLIENTE'
        Fields = 'NOMBRECLIENTE'
        Options = [ixDescending]
      end
      item
        Name = 'NOMBREINDEX'
        DescFields = 'NOMBRE'
        Fields = 'NOMBRE'
        Options = [ixDescending]
      end
      item
        Name = 'ID_ALBARANINDEX'
        DescFields = 'ID_ALBARAN'
        Fields = 'ID_ALBARAN'
        Options = [ixDescending]
      end
      item
        Name = 'ANYOINDEX'
        DescFields = 'ANYO'
        Fields = 'ANYO'
        Options = [ixDescending]
      end
      item
        Name = 'ID_EMPRESAINDEX'
        DescFields = 'ID_EMPRESA'
        Fields = 'ID_EMPRESA'
        Options = [ixDescending]
      end
      item
        Name = 'ID_SERIEINDEX'
        DescFields = 'ID_SERIE'
        Fields = 'ID_SERIE'
        Options = [ixDescending]
      end
      item
        Name = 'FECHAINDEX'
        DescFields = 'FECHA'
        Fields = 'FECHA'
        Options = [ixDescending]
      end
      item
        Name = 'ID_CLIENTEINDEX'
        DescFields = 'ID_CLIENTE'
        Fields = 'ID_CLIENTE'
        Options = [ixDescending]
      end
      item
        Name = 'IVAINDEX'
        DescFields = 'IVA'
        Fields = 'IVA'
        Options = [ixDescending]
      end
      item
        Name = 'OBSERVACIONESINDEX'
        DescFields = 'OBSERVACIONES'
        Fields = 'OBSERVACIONES'
        Options = [ixDescending]
      end
      item
        Name = 'BASE_ALBARANINDEX'
        DescFields = 'BASE_ALBARAN'
        Fields = 'BASE_ALBARAN'
        Options = [ixDescending]
      end
      item
        Name = 'DESCUENTOINDEX'
        DescFields = 'DESCUENTO'
        Fields = 'DESCUENTO'
        Options = [ixDescending]
      end
      item
        Name = 'REINDEX'
        DescFields = 'RE'
        Fields = 'RE'
        Options = [ixDescending]
      end
      item
        Name = 'ID_PRESUPUESTOINDEX'
        DescFields = 'ID_PRESUPUESTO'
        Fields = 'ID_PRESUPUESTO'
        Options = [ixDescending]
      end
      item
        Name = 'ANULADOINDEX'
        DescFields = 'ANULADO'
        Fields = 'ANULADO'
        Options = [ixDescending]
      end
      item
        Name = 'COBRADOINDEX'
        DescFields = 'COBRADO'
        Fields = 'COBRADO'
        Options = [ixDescending]
      end
      item
        Name = 'ID_FORMAINDEX'
        DescFields = 'ID_FORMA'
        Fields = 'ID_FORMA'
        Options = [ixDescending]
      end
      item
        Name = 'TOTAL_COBRADOINDEX'
        DescFields = 'TOTAL_COBRADO'
        Fields = 'TOTAL_COBRADO'
        Options = [ixDescending]
      end
      item
        Name = 'FACTURAINDEX'
        DescFields = 'FACTURADO'
        Fields = 'FACTURADO'
        Options = [ixDescending]
      end
      item
        Name = 'FECHACOBROINDEX'
        DescFields = 'FECHACOBRO'
        Fields = 'FECHACOBRO'
        Options = [ixDescending]
      end
      item
        Name = 'DESCUENTOEUROINDEX'
        DescFields = 'DESCUENTOEURO'
        Fields = 'DESCUENTOEURO'
        Options = [ixDescending]
      end
      item
        Name = 'ENTREGAINDEX'
        DescFields = 'ENTREGA'
        Fields = 'ENTREGA'
        Options = [ixDescending]
      end
      item
        Name = 'DEVOLUCIONINDEX'
        DescFields = 'DEVOLUCION'
        Fields = 'DEVOLUCION'
        Options = [ixDescending]
      end
      item
        Name = 'TOTALCOBRADOINDEX'
        DescFields = 'TOTALCOBRADO'
        Fields = 'TOTALCOBRADO'
        Options = [ixDescending]
      end
      item
        Name = 'TOTALDESCUENTOINDEX'
        DescFields = 'TOTALDESCUENTO'
        Fields = 'TOTALDESCUENTO'
        Options = [ixDescending]
      end
      item
        Name = 'TOTALREINDEX'
        DescFields = 'TOTALRE'
        Fields = 'TOTALRE'
        Options = [ixDescending]
      end
      item
        Name = 'TOTALIVAINDEX'
        DescFields = 'TOTALIVA'
        Fields = 'TOTALIVA'
        Options = [ixDescending]
      end
      item
        Name = 'DESCTOTALINDEX'
        DescFields = 'DESCTOTAL'
        Fields = 'DESCTOTAL'
        Options = [ixDescending]
      end>
    Params = <>
    ProviderName = 'DSPQ_MDALBARANAUX'
    RemoteServer = DCOMConnection1
    StoreDefs = True
    BeforeOpen = CDSQ_MDALBARANAUXBeforeOpen
    BeforeClose = CDSQ_MDALBARANAUXBeforeClose
    OnCalcFields = CDSQ_MDALBARANAUXCalcFields
    OnReconcileError = CDSQ_MDALBARANAUXReconcileError
    BeforeGetRecords = CDSQ_MDALBARANAUXBeforeGetRecords
    AfterGetRecords = CDSQ_MDALBARANAUXAfterGetRecords
    Left = 248
    Top = 128
    object CDSQ_MDALBARANAUXRESTO: TFloatField
      FieldKind = fkInternalCalc
      FieldName = 'RESTO'
      currency = True
    end
    object CDSQ_MDALBARANAUXTOTALRE: TFloatField
      FieldKind = fkInternalCalc
      FieldName = 'TOTALRE'
      currency = True
    end
    object CDSQ_MDALBARANAUXTOTALIVA: TFloatField
      FieldKind = fkInternalCalc
      FieldName = 'TOTALIVA'
      currency = True
    end
    object CDSQ_MDALBARANAUXDESCTOTAL: TFloatField
      FieldKind = fkInternalCalc
      FieldName = 'DESCTOTAL'
      currency = True
    end
    object CDSQ_MDALBARANAUXQ_MDLINEAALBARANAUX: TDataSetField
      FieldName = 'Q_MDLINEAALBARANAUX'
    end
    object CDSQ_MDALBARANAUXNOMBRECLIENTE: TStringField
      FieldName = 'NOMBRECLIENTE'
      ReadOnly = True
      Size = 80
    end
    object CDSQ_MDALBARANAUXNOMBRE: TStringField
      FieldName = 'NOMBRE'
      Size = 50
    end
    object CDSQ_MDALBARANAUXID_ALBARAN: TIntegerField
      FieldName = 'ID_ALBARAN'
      Required = True
    end
    object CDSQ_MDALBARANAUXANYO: TSmallintField
      FieldName = 'ANYO'
      Required = True
    end
    object CDSQ_MDALBARANAUXID_EMPRESA: TSmallintField
      FieldName = 'ID_EMPRESA'
      Required = True
    end
    object CDSQ_MDALBARANAUXID_SERIE: TStringField
      FieldName = 'ID_SERIE'
      Required = True
      Size = 3
    end
    object CDSQ_MDALBARANAUXFECHA: TDateField
      FieldName = 'FECHA'
      OnSetText = pcomprobarfecha
      EditMask = '!99/99/00;1;_'
    end
    object CDSQ_MDALBARANAUXID_CLIENTE: TIntegerField
      FieldName = 'ID_CLIENTE'
    end
    object CDSQ_MDALBARANAUXOBSERVACIONES: TStringField
      FieldName = 'OBSERVACIONES'
      Size = 200
    end
    object CDSQ_MDALBARANAUXID_PRESUPUESTO: TIntegerField
      FieldName = 'ID_PRESUPUESTO'
    end
    object CDSQ_MDALBARANAUXANULADO: TSmallintField
      FieldName = 'ANULADO'
    end
    object CDSQ_MDALBARANAUXCOBRADO: TSmallintField
      FieldName = 'COBRADO'
    end
    object CDSQ_MDALBARANAUXID_FORMA: TStringField
      FieldName = 'ID_FORMA'
      Size = 5
    end
    object CDSQ_MDALBARANAUXFECHACOBRO: TDateField
      FieldName = 'FECHACOBRO'
      OnSetText = pcomprobarfecha
      EditMask = '!99/99/00;1;_'
    end
    object CDSQ_MDALBARANAUXHORACOBRO: TTimeField
      FieldName = 'HORACOBRO'
    end
    object CDSQ_MDALBARANAUXFACTURADO: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'FACTURADO'
      Size = 2
    end
    object CDSQ_MDALBARANAUXDESCUENTOEURO: TFloatField
      FieldName = 'DESCUENTOEURO'
      currency = True
    end
    object CDSQ_MDALBARANAUXENTREGA: TFloatField
      FieldName = 'ENTREGA'
      currency = True
    end
    object CDSQ_MDALBARANAUXDEVOLUCION: TFloatField
      FieldName = 'DEVOLUCION'
      currency = True
    end
    object CDSQ_MDALBARANAUXTOTALCOBRADO: TFloatField
      FieldName = 'TOTALCOBRADO'
      currency = True
    end
    object CDSQ_MDALBARANAUXTOTALDESCUENTO: TFloatField
      FieldName = 'TOTALDESCUENTO'
      currency = True
    end
    object CDSQ_MDALBARANAUXBASE_ALBARANSINIVA: TFloatField
      FieldName = 'BASE_ALBARANSINIVA'
      currency = True
    end
    object CDSQ_MDALBARANAUXIVA: TFloatField
      FieldName = 'IVA'
    end
    object CDSQ_MDALBARANAUXBASE_ALBARAN: TFloatField
      FieldName = 'BASE_ALBARAN'
      currency = True
    end
    object CDSQ_MDALBARANAUXDESCUENTO: TFloatField
      FieldName = 'DESCUENTO'
    end
    object CDSQ_MDALBARANAUXRE: TFloatField
      FieldName = 'RE'
    end
    object CDSQ_MDALBARANAUXTOTAL_COBRADO: TFloatField
      FieldName = 'TOTAL_COBRADO'
      currency = True
    end
    object CDSQ_MDALBARANAUXCOBRADOS: TBooleanField
      FieldKind = fkCalculated
      FieldName = 'COBRADOS'
      DisplayValues = 'SI;NO'
      Calculated = True
    end
    object CDSQ_MDALBARANAUXHORA: TTimeField
      FieldName = 'HORA'
    end
    object CDSQ_MDALBARANAUXFECHAFIN: TDateField
      FieldName = 'FECHAFIN'
    end
  end
  object CDSQ_MDLINEAALBARANAUX: TClientDataSet
    Aggregates = <>
    DataSetField = CDSQ_MDALBARANAUXQ_MDLINEAALBARANAUX
    Params = <>
    Left = 248
    Top = 144
    object CDSQ_MDLINEAALBARANAUXID_ALBARAN: TIntegerField
      FieldName = 'ID_ALBARAN'
      Required = True
    end
    object CDSQ_MDLINEAALBARANAUXANYO: TSmallintField
      FieldName = 'ANYO'
      Required = True
    end
    object CDSQ_MDLINEAALBARANAUXID_EMPRESA: TSmallintField
      FieldName = 'ID_EMPRESA'
      Required = True
    end
    object CDSQ_MDLINEAALBARANAUXID_SERIE: TStringField
      FieldName = 'ID_SERIE'
      Required = True
      Size = 3
    end
    object CDSQ_MDLINEAALBARANAUXIVA_INCLUIDO: TSmallintField
      FieldName = 'IVA_INCLUIDO'
    end
    object CDSQ_MDLINEAALBARANAUXMARCA: TStringField
      FieldName = 'MARCA'
      Size = 10
    end
    object CDSQ_MDLINEAALBARANAUXDESCRIPCION: TStringField
      FieldName = 'DESCRIPCION'
      Size = 700
    end
    object CDSQ_MDLINEAALBARANAUXNUM_SERIE: TStringField
      FieldName = 'NUM_SERIE'
      Size = 100
    end
    object CDSQ_MDLINEAALBARANAUXLINEA: TSmallintField
      FieldName = 'LINEA'
      Required = True
    end
    object CDSQ_MDLINEAALBARANAUXID_ARTICULO: TStringField
      FieldName = 'ID_ARTICULO'
      Size = 30
    end
    object CDSQ_MDLINEAALBARANAUXDESCRIPCIONGAR: TStringField
      FieldName = 'DESCRIPCIONGAR'
      Size = 100
    end
    object CDSQ_MDLINEAALBARANAUXPRECIO: TFloatField
      FieldName = 'PRECIO'
    end
    object CDSQ_MDLINEAALBARANAUXCANTIDAD: TFloatField
      FieldName = 'CANTIDAD'
    end
    object CDSQ_MDLINEAALBARANAUXDESCUENTO: TFloatField
      FieldName = 'DESCUENTO'
    end
    object CDSQ_MDLINEAALBARANAUXIVA: TFloatField
      FieldName = 'IVA'
    end
    object CDSQ_MDLINEAALBARANAUXIMPORTE: TFloatField
      FieldName = 'IMPORTE'
    end
    object CDSQ_MDLINEAALBARANAUXDESCUENTOEURO: TFloatField
      FieldName = 'DESCUENTOEURO'
    end
    object CDSQ_MDLINEAALBARANAUXPRECIO_COSTE: TFloatField
      FieldName = 'PRECIO_COSTE'
    end
  end
  object CDSQ_FORMAPAGO: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPQ_FORMAPAGO'
    RemoteServer = DCOMConnection1
    BeforeOpen = CDSQ_FORMAPAGOBeforeOpen
    BeforeClose = CDSQ_FORMAPAGOBeforeClose
    BeforePost = CDSQ_FORMAPAGOBeforePost
    AfterPost = CDSQ_FORMAPAGOAfterPost
    BeforeDelete = CDSQ_FORMAPAGOBeforeDelete
    OnDeleteError = CDSQ_FORMAPAGODeleteError
    OnEditError = CDSQ_FORMAPAGOEditError
    OnPostError = CDSQ_FORMAPAGOPostError
    OnReconcileError = CDSQ_FORMAPAGOReconcileError
    BeforeGetRecords = CDSQ_FORMAPAGOBeforeGetRecords
    AfterGetRecords = CDSQ_FORMAPAGOAfterGetRecords
    Left = 440
    Top = 248
    object CDSQ_FORMAPAGOID_FORMA: TStringField
      FieldName = 'ID_FORMA'
      Required = True
      Size = 5
    end
    object CDSQ_FORMAPAGODESCRIPCION: TStringField
      FieldName = 'DESCRIPCION'
      Size = 50
    end
  end
  object CDSQ_FORMAPAGOAUX: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPQ_FORMAPAGOAUX'
    RemoteServer = DCOMConnection1
    BeforeOpen = CDSQ_FORMAPAGOAUXBeforeOpen
    BeforeClose = CDSQ_FORMAPAGOAUXBeforeClose
    OnReconcileError = CDSQ_FORMAPAGOAUXReconcileError
    BeforeGetRecords = CDSQ_FORMAPAGOAUXBeforeGetRecords
    AfterGetRecords = CDSQ_FORMAPAGOAUXAfterGetRecords
    Left = 480
    Top = 248
    object CDSQ_FORMAPAGOAUXID_FORMA: TStringField
      FieldName = 'ID_FORMA'
      Required = True
      Size = 5
    end
    object CDSQ_FORMAPAGOAUXDESCRIPCION: TStringField
      FieldName = 'DESCRIPCION'
      Size = 50
    end
  end
  object CDSQ_MDCOBRO: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'NOMBRECLIENTE'
        Attributes = [faReadonly]
        DataType = ftString
        Size = 80
      end
      item
        Name = 'ID_SERIE'
        DataType = ftString
        Size = 3
      end
      item
        Name = 'ID_COBRO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'ANYO'
        Attributes = [faRequired]
        DataType = ftSmallint
      end
      item
        Name = 'TIPO'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'ID_EMPRESA'
        Attributes = [faRequired]
        DataType = ftSmallint
      end
      item
        Name = 'ID'
        DataType = ftInteger
      end
      item
        Name = 'OBSERVACIONES'
        DataType = ftString
        Size = 200
      end
      item
        Name = 'BASE'
        DataType = ftFloat
      end
      item
        Name = 'ESTADO'
        DataType = ftString
        Size = 15
      end
      item
        Name = 'ID_CLIENTE'
        DataType = ftInteger
      end
      item
        Name = 'TOTAL_COBRADO'
        DataType = ftFloat
      end
      item
        Name = 'ANYOSERIE'
        DataType = ftSmallint
      end
      item
        Name = 'Q_MDLINEACOBRO'
        DataType = ftDataSet
      end>
    IndexDefs = <
      item
        Name = 'ID_COBROINDEX'
        DescFields = 'ID_COBRO'
        Fields = 'ID_COBRO'
        Options = [ixDescending]
      end
      item
        Name = 'ID_SERIEINDEX'
        DescFields = 'ID_SERIE'
        Fields = 'ID_SERIE'
        Options = [ixDescending]
      end
      item
        Name = 'NOMBRECLIENTEINDEX'
        DescFields = 'NOMBRECLIENTE'
        Fields = 'NOMBRECLIENTE'
        Options = [ixDescending]
      end
      item
        Name = 'BASEINDEX'
        DescFields = 'BASE'
        Fields = 'BASE'
        Options = [ixDescending]
      end
      item
        Name = 'TOTAL_COBRADOINDEX'
        DescFields = 'TOTAL_COBRADO'
        Fields = 'TOTAL_COBRADO'
        Options = [ixDescending]
      end
      item
        Name = 'COBRADOINDEX'
        DescFields = 'COBRADO'
        Fields = 'COBRADO'
        Options = [ixDescending]
      end
      item
        Name = 'RESTOINDEX'
        DescFields = 'RESTO'
        Fields = 'RESTO'
        Options = [ixDescending]
      end
      item
        Name = 'ESTADOINDEX'
        DescFields = 'ESTADO'
        Fields = 'ESTADO'
        Options = [ixDescending]
      end>
    Params = <>
    ProviderName = 'DSPQ_MDCOBRO'
    RemoteServer = DCOMConnection1
    StoreDefs = True
    BeforeOpen = CDSQ_MDCOBROBeforeOpen
    BeforeClose = CDSQ_MDCOBROBeforeClose
    AfterInsert = CDSQ_MDCOBROAfterInsert
    BeforeEdit = CDSQ_MDCOBROBeforeEdit
    BeforePost = CDSQ_MDCOBROBeforePost
    AfterPost = CDSQ_MDCOBROAfterPost
    OnCalcFields = CDSQ_MDCOBROCalcFields
    OnDeleteError = CDSQ_MDCOBRODeleteError
    OnEditError = CDSQ_MDCOBROEditError
    OnPostError = CDSQ_MDCOBROPostError
    OnReconcileError = CDSQ_MDCOBROReconcileError
    BeforeGetRecords = CDSQ_MDCOBROBeforeGetRecords
    AfterGetRecords = CDSQ_MDCOBROAfterGetRecords
    Left = 648
    Top = 344
    object CDSQ_MDCOBROCOBRADO: TStringField
      FieldKind = fkCalculated
      FieldName = 'COBRADO'
      Calculated = True
    end
    object CDSQ_MDCOBROQ_MDLINEACOBRO: TDataSetField
      FieldName = 'Q_MDLINEACOBRO'
    end
    object CDSQ_MDCOBRORESTO: TFloatField
      FieldKind = fkCalculated
      FieldName = 'RESTO'
      currency = True
      Calculated = True
    end
    object CDSQ_MDCOBRONOMBRECLIENTE: TStringField
      FieldName = 'NOMBRECLIENTE'
      ReadOnly = True
      Size = 80
    end
    object CDSQ_MDCOBROID_SERIE: TStringField
      FieldName = 'ID_SERIE'
      Size = 3
    end
    object CDSQ_MDCOBROID_COBRO: TIntegerField
      FieldName = 'ID_COBRO'
      Required = True
    end
    object CDSQ_MDCOBROANYO: TSmallintField
      FieldName = 'ANYO'
      Required = True
    end
    object CDSQ_MDCOBROTIPO: TStringField
      FieldName = 'TIPO'
      Size = 10
    end
    object CDSQ_MDCOBROID_EMPRESA: TSmallintField
      FieldName = 'ID_EMPRESA'
      Required = True
    end
    object CDSQ_MDCOBROID: TIntegerField
      FieldName = 'ID'
    end
    object CDSQ_MDCOBROOBSERVACIONES: TStringField
      FieldName = 'OBSERVACIONES'
      Size = 200
    end
    object CDSQ_MDCOBROBASE: TFloatField
      FieldName = 'BASE'
      currency = True
    end
    object CDSQ_MDCOBROESTADO: TStringField
      FieldName = 'ESTADO'
      Size = 15
    end
    object CDSQ_MDCOBROID_CLIENTE: TIntegerField
      FieldName = 'ID_CLIENTE'
    end
    object CDSQ_MDCOBROTOTAL_COBRADO: TFloatField
      FieldName = 'TOTAL_COBRADO'
      currency = True
    end
    object CDSQ_MDCOBROANYOSERIE: TSmallintField
      FieldName = 'ANYOSERIE'
    end
  end
  object CDSQ_MDLINEACOBRO: TClientDataSet
    Aggregates = <>
    DataSetField = CDSQ_MDCOBROQ_MDLINEACOBRO
    FieldDefs = <
      item
        Name = 'ID_COBRO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'ANYO'
        Attributes = [faRequired]
        DataType = ftSmallint
      end
      item
        Name = 'ID_EMPRESA'
        Attributes = [faRequired]
        DataType = ftSmallint
      end
      item
        Name = 'NUM_LINEA'
        Attributes = [faRequired]
        DataType = ftSmallint
      end
      item
        Name = 'FECHA'
        DataType = ftDate
      end
      item
        Name = 'ID_FORMA'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'OBSERVACIONES'
        DataType = ftString
        Size = 200
      end
      item
        Name = 'CANTIDAD'
        DataType = ftFloat
      end
      item
        Name = 'NUM_DOCUMENTO'
        DataType = ftString
        Size = 100
      end
      item
        Name = 'HORA'
        Attributes = [faRequired]
        DataType = ftTime
      end>
    IndexDefs = <
      item
        Name = 'NUM_LINEAINDEX'
        DescFields = 'NUM_LINEA'
        Fields = 'NUM_LINEA'
        Options = [ixDescending]
      end
      item
        Name = 'FECHAINDEX'
        DescFields = 'FECHA'
        Fields = 'FECHA'
        Options = [ixDescending]
      end
      item
        Name = 'HORAINDEX'
        DescFields = 'HORA'
        Fields = 'HORA'
        Options = [ixDescending]
      end
      item
        Name = 'OBSERVACIONESINDEX'
        DescFields = 'OBSERVACIONES'
        Fields = 'OBSERVACIONES'
        Options = [ixDescending]
      end
      item
        Name = 'NUM_DOCUMENTOINDEX'
        DescFields = 'NUM_DOCUMENTO'
        Fields = 'NUM_DOCUMENTO'
        Options = [ixDescending]
      end
      item
        Name = 'ID_FORMAINDEX'
        DescFields = 'ID_FORMA'
        Fields = 'ID_FORMA'
        Options = [ixDescending]
      end
      item
        Name = 'CANTIDADINDEX'
        DescFields = 'CANTIDAD'
        Fields = 'CANTIDAD'
        Options = [ixDescending]
      end>
    Params = <>
    StoreDefs = True
    BeforeOpen = CDSQ_MDLINEACOBROBeforeOpen
    AfterInsert = CDSQ_MDLINEACOBROAfterInsert
    BeforePost = CDSQ_MDLINEACOBROBeforePost
    AfterPost = CDSQ_MDLINEACOBROAfterPost
    BeforeCancel = CDSQ_MDLINEACOBROBeforeCancel
    BeforeDelete = CDSQ_MDLINEACOBROBeforeDelete
    OnDeleteError = CDSQ_MDLINEACOBRODeleteError
    OnEditError = CDSQ_MDLINEACOBROEditError
    OnPostError = CDSQ_MDLINEACOBROPostError
    OnReconcileError = CDSQ_MDLINEACOBROReconcileError
    Left = 648
    Top = 360
    object CDSQ_MDLINEACOBROID_COBRO: TIntegerField
      FieldName = 'ID_COBRO'
      Required = True
    end
    object CDSQ_MDLINEACOBROANYO: TSmallintField
      FieldName = 'ANYO'
      Required = True
    end
    object CDSQ_MDLINEACOBROID_EMPRESA: TSmallintField
      FieldName = 'ID_EMPRESA'
      Required = True
    end
    object CDSQ_MDLINEACOBRONUM_LINEA: TSmallintField
      FieldName = 'NUM_LINEA'
      Required = True
    end
    object CDSQ_MDLINEACOBROFECHA: TDateField
      FieldName = 'FECHA'
      OnSetText = pcomprobarfecha
      EditMask = '!99/99/00;1;_'
    end
    object CDSQ_MDLINEACOBROID_FORMA: TStringField
      FieldName = 'ID_FORMA'
      Size = 5
    end
    object CDSQ_MDLINEACOBROOBSERVACIONES: TStringField
      FieldName = 'OBSERVACIONES'
      Size = 200
    end
    object CDSQ_MDLINEACOBRONUM_DOCUMENTO: TStringField
      FieldName = 'NUM_DOCUMENTO'
      Size = 100
    end
    object CDSQ_MDLINEACOBROHORA: TTimeField
      FieldName = 'HORA'
      EditMask = '!90:00;1;_'
    end
    object CDSQ_MDLINEACOBROCANTIDAD: TFloatField
      FieldName = 'CANTIDAD'
    end
  end
  object CDSQ_ACTUALIZAR: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPQ_ACTUALIZAR'
    RemoteServer = DCOMConnection1
    OnReconcileError = CDSQ_ACTUALIZARReconcileError
    BeforeExecute = CDSQ_ACTUALIZARBeforeExecute
    AfterExecute = CDSQ_ACTUALIZARAfterExecute
    Left = 56
    Top = 304
  end
  object CDSQ_MDFACTURAAUX: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'NOMBRECLIENTE'
        Attributes = [faReadonly]
        DataType = ftString
        Size = 80
      end
      item
        Name = 'FECHACOBRO'
        DataType = ftDate
      end
      item
        Name = 'HORACOBRO'
        DataType = ftTime
      end
      item
        Name = 'ID_TICKET'
        DataType = ftInteger
      end
      item
        Name = 'ID_FACTURA'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'ANYO'
        Attributes = [faRequired]
        DataType = ftSmallint
      end
      item
        Name = 'ID_EMPRESA'
        Attributes = [faRequired]
        DataType = ftSmallint
      end
      item
        Name = 'ID_SERIE'
        Attributes = [faRequired]
        DataType = ftString
        Size = 3
      end
      item
        Name = 'FECHA'
        DataType = ftDate
      end
      item
        Name = 'ID_CLIENTE'
        DataType = ftInteger
      end
      item
        Name = 'OBSERVACIONES'
        DataType = ftString
        Size = 200
      end
      item
        Name = 'ID_PRESUPUESTO'
        DataType = ftInteger
      end
      item
        Name = 'ID_ALBARAN'
        DataType = ftInteger
      end
      item
        Name = 'ANULADO'
        DataType = ftSmallint
      end
      item
        Name = 'COBRADO'
        DataType = ftSmallint
      end
      item
        Name = 'ASIENTO'
        DataType = ftInteger
      end
      item
        Name = 'ID_FORMA'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'TICANYO'
        DataType = ftSmallint
      end
      item
        Name = 'TICID_SERIE'
        DataType = ftString
        Size = 3
      end
      item
        Name = 'NOMBRE'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'IMPRESO'
        DataType = ftSmallint
      end
      item
        Name = 'ENTREGA'
        DataType = ftFloat
      end
      item
        Name = 'DEVOLUCION'
        DataType = ftFloat
      end
      item
        Name = 'TOTALCOBRADO'
        DataType = ftFloat
      end
      item
        Name = 'TOTALDESCUENTO'
        DataType = ftFloat
      end
      item
        Name = 'DESCUENTOEURO'
        DataType = ftFloat
      end
      item
        Name = 'IVA'
        DataType = ftFloat
      end
      item
        Name = 'BASE_FACTURA'
        DataType = ftFloat
      end
      item
        Name = 'DESCUENTO'
        DataType = ftFloat
      end
      item
        Name = 'RE'
        DataType = ftFloat
      end
      item
        Name = 'TOTAL_COBRADO'
        DataType = ftFloat
      end
      item
        Name = 'HORA'
        DataType = ftTime
      end
      item
        Name = 'Q_MDLINEAFACTURAAUX'
        DataType = ftDataSet
      end>
    IndexDefs = <
      item
        Name = 'ID_FACTURAINDEX'
        DescFields = 'ID_FACTURA'
        Fields = 'ID_FACTURA'
        Options = [ixDescending]
      end
      item
        Name = 'ID_SERIEINDEX'
        DescFields = 'ID_SERIE'
        Fields = 'ID_SERIE'
        Options = [ixDescending]
      end
      item
        Name = 'NOMBREINDEX'
        DescFields = 'NOMBRE'
        Fields = 'NOMBRE'
        Options = [ixDescending]
      end
      item
        Name = 'FECHAINDEX'
        DescFields = 'FECHA'
        Fields = 'FECHA'
        Options = [ixDescending]
      end
      item
        Name = 'BASE_FACTURAINDEX'
        DescFields = 'BASE_FACTURA'
        Fields = 'BASE_FACTURA'
        Options = [ixDescending]
      end
      item
        Name = 'TOTAL_COBRADOINDEX'
        DescFields = 'TOTAL_COBRADO'
        Fields = 'TOTAL_COBRADO'
        Options = [ixDescending]
      end>
    Params = <>
    ProviderName = 'DSPQ_MDFACTURAAUX'
    RemoteServer = DCOMConnection1
    StoreDefs = True
    BeforeOpen = CDSQ_MDFACTURAAUXBeforeOpen
    BeforeClose = CDSQ_MDFACTURAAUXBeforeClose
    OnCalcFields = CDSQ_MDFACTURAAUXCalcFields
    OnReconcileError = CDSQ_MDFACTURAAUXReconcileError
    BeforeGetRecords = CDSQ_MDFACTURAAUXBeforeGetRecords
    AfterGetRecords = CDSQ_MDFACTURAAUXAfterGetRecords
    Left = 256
    Top = 64
    object CDSQ_MDFACTURAAUXRESTO: TFloatField
      FieldKind = fkCalculated
      FieldName = 'RESTO'
      currency = True
      Calculated = True
    end
    object CDSQ_MDFACTURAAUXCOBRADOS: TBooleanField
      FieldKind = fkCalculated
      FieldName = 'COBRADOS'
      Calculated = True
    end
    object CDSQ_MDFACTURAAUXDESCTOTAL: TFloatField
      FieldKind = fkCalculated
      FieldName = 'DESCTOTAL'
      currency = True
      Calculated = True
    end
    object CDSQ_MDFACTURAAUXTOTALIVA: TFloatField
      FieldKind = fkCalculated
      FieldName = 'TOTALIVA'
      currency = True
      Calculated = True
    end
    object CDSQ_MDFACTURAAUXBASE: TFloatField
      FieldKind = fkCalculated
      FieldName = 'BASE'
      currency = True
      Calculated = True
    end
    object CDSQ_MDFACTURAAUXNOMBRECLIENTE: TStringField
      FieldName = 'NOMBRECLIENTE'
      ReadOnly = True
      Size = 80
    end
    object CDSQ_MDFACTURAAUXFECHACOBRO: TDateField
      FieldName = 'FECHACOBRO'
      OnSetText = pcomprobarfecha
      EditMask = '!99/99/00;1;_'
    end
    object CDSQ_MDFACTURAAUXHORACOBRO: TTimeField
      FieldName = 'HORACOBRO'
    end
    object CDSQ_MDFACTURAAUXID_TICKET: TIntegerField
      FieldName = 'ID_TICKET'
    end
    object CDSQ_MDFACTURAAUXID_FACTURA: TIntegerField
      FieldName = 'ID_FACTURA'
      Required = True
    end
    object CDSQ_MDFACTURAAUXANYO: TSmallintField
      FieldName = 'ANYO'
      Required = True
    end
    object CDSQ_MDFACTURAAUXID_EMPRESA: TSmallintField
      FieldName = 'ID_EMPRESA'
      Required = True
    end
    object CDSQ_MDFACTURAAUXID_SERIE: TStringField
      FieldName = 'ID_SERIE'
      Required = True
      Size = 3
    end
    object CDSQ_MDFACTURAAUXFECHA: TDateField
      FieldName = 'FECHA'
      OnSetText = pcomprobarfecha
      EditMask = '!99/99/00;1;_'
    end
    object CDSQ_MDFACTURAAUXID_CLIENTE: TIntegerField
      FieldName = 'ID_CLIENTE'
    end
    object CDSQ_MDFACTURAAUXOBSERVACIONES: TStringField
      FieldName = 'OBSERVACIONES'
      Size = 200
    end
    object CDSQ_MDFACTURAAUXID_PRESUPUESTO: TIntegerField
      FieldName = 'ID_PRESUPUESTO'
    end
    object CDSQ_MDFACTURAAUXID_ALBARAN: TIntegerField
      FieldName = 'ID_ALBARAN'
    end
    object CDSQ_MDFACTURAAUXANULADO: TSmallintField
      FieldName = 'ANULADO'
    end
    object CDSQ_MDFACTURAAUXCOBRADO: TSmallintField
      FieldName = 'COBRADO'
    end
    object CDSQ_MDFACTURAAUXASIENTO: TIntegerField
      FieldName = 'ASIENTO'
    end
    object CDSQ_MDFACTURAAUXID_FORMA: TStringField
      FieldName = 'ID_FORMA'
      Size = 5
    end
    object CDSQ_MDFACTURAAUXTICANYO: TSmallintField
      FieldName = 'TICANYO'
    end
    object CDSQ_MDFACTURAAUXTICID_SERIE: TStringField
      FieldName = 'TICID_SERIE'
      Size = 3
    end
    object CDSQ_MDFACTURAAUXNOMBRE: TStringField
      FieldName = 'NOMBRE'
      Size = 50
    end
    object CDSQ_MDFACTURAAUXIMPRESO: TSmallintField
      FieldName = 'IMPRESO'
    end
    object CDSQ_MDFACTURAAUXQ_MDLINEAFACTURAAUX: TDataSetField
      FieldName = 'Q_MDLINEAFACTURAAUX'
    end
    object CDSQ_MDFACTURAAUXTOTALDESCUENTOAUX: TFloatField
      FieldKind = fkCalculated
      FieldName = 'TOTALDESCUENTOAUX'
      currency = True
      Calculated = True
    end
    object CDSQ_MDFACTURAAUXENTREGA: TFloatField
      FieldName = 'ENTREGA'
      currency = True
    end
    object CDSQ_MDFACTURAAUXDEVOLUCION: TFloatField
      FieldName = 'DEVOLUCION'
      currency = True
    end
    object CDSQ_MDFACTURAAUXTOTALCOBRADO: TFloatField
      FieldName = 'TOTALCOBRADO'
      currency = True
    end
    object CDSQ_MDFACTURAAUXTOTALDESCUENTO: TFloatField
      FieldName = 'TOTALDESCUENTO'
      currency = True
    end
    object CDSQ_MDFACTURAAUXDESCUENTOEURO: TFloatField
      FieldName = 'DESCUENTOEURO'
      currency = True
    end
    object CDSQ_MDFACTURAAUXIVA: TFloatField
      FieldName = 'IVA'
    end
    object CDSQ_MDFACTURAAUXBASE_FACTURA: TFloatField
      FieldName = 'BASE_FACTURA'
      currency = True
    end
    object CDSQ_MDFACTURAAUXDESCUENTO: TFloatField
      FieldName = 'DESCUENTO'
    end
    object CDSQ_MDFACTURAAUXRE: TFloatField
      FieldName = 'RE'
    end
    object CDSQ_MDFACTURAAUXTOTAL_COBRADO: TFloatField
      FieldName = 'TOTAL_COBRADO'
      currency = True
    end
    object CDSQ_MDFACTURAAUXHORA: TTimeField
      FieldName = 'HORA'
    end
  end
  object CDSQ_MDLINEAFACTURAAUX: TClientDataSet
    Aggregates = <>
    DataSetField = CDSQ_MDFACTURAAUXQ_MDLINEAFACTURAAUX
    Params = <>
    Left = 256
    Top = 80
    object CDSQ_MDLINEAFACTURAAUXID_FACTURA: TIntegerField
      FieldName = 'ID_FACTURA'
      Required = True
    end
    object CDSQ_MDLINEAFACTURAAUXANYO: TSmallintField
      FieldName = 'ANYO'
      Required = True
    end
    object CDSQ_MDLINEAFACTURAAUXID_EMPRESA: TSmallintField
      FieldName = 'ID_EMPRESA'
      Required = True
    end
    object CDSQ_MDLINEAFACTURAAUXID_SERIE: TStringField
      FieldName = 'ID_SERIE'
      Required = True
      Size = 3
    end
    object CDSQ_MDLINEAFACTURAAUXIVA_INCLUIDO: TSmallintField
      FieldName = 'IVA_INCLUIDO'
    end
    object CDSQ_MDLINEAFACTURAAUXMARCA: TStringField
      FieldName = 'MARCA'
      Size = 10
    end
    object CDSQ_MDLINEAFACTURAAUXDESCRIPCION: TStringField
      FieldName = 'DESCRIPCION'
      Size = 700
    end
    object CDSQ_MDLINEAFACTURAAUXNUM_SERIE: TStringField
      FieldName = 'NUM_SERIE'
      Size = 100
    end
    object CDSQ_MDLINEAFACTURAAUXLINEA: TSmallintField
      FieldName = 'LINEA'
      Required = True
    end
    object CDSQ_MDLINEAFACTURAAUXID_ARTICULO: TStringField
      FieldName = 'ID_ARTICULO'
      Size = 30
    end
    object CDSQ_MDLINEAFACTURAAUXDESCRIPCIONGAR: TStringField
      FieldName = 'DESCRIPCIONGAR'
      Size = 100
    end
    object CDSQ_MDLINEAFACTURAAUXNUMERO: TIntegerField
      FieldName = 'NUMERO'
    end
    object CDSQ_MDLINEAFACTURAAUXALBANYO: TSmallintField
      FieldName = 'ALBANYO'
    end
    object CDSQ_MDLINEAFACTURAAUXALBID_EMPRESA: TSmallintField
      FieldName = 'ALBID_EMPRESA'
    end
    object CDSQ_MDLINEAFACTURAAUXALBID_SERIE: TStringField
      FieldName = 'ALBID_SERIE'
      Size = 3
    end
    object CDSQ_MDLINEAFACTURAAUXTIPO: TStringField
      FieldName = 'TIPO'
      Size = 2
    end
    object CDSQ_MDLINEAFACTURAAUXCANTIDAD: TFloatField
      FieldName = 'CANTIDAD'
    end
    object CDSQ_MDLINEAFACTURAAUXPRECIO: TFloatField
      FieldName = 'PRECIO'
      currency = True
    end
    object CDSQ_MDLINEAFACTURAAUXDESCUENTO: TFloatField
      FieldName = 'DESCUENTO'
    end
    object CDSQ_MDLINEAFACTURAAUXIVA: TFloatField
      FieldName = 'IVA'
    end
    object CDSQ_MDLINEAFACTURAAUXIMPORTE: TFloatField
      FieldName = 'IMPORTE'
      currency = True
    end
    object CDSQ_MDLINEAFACTURAAUXDESCUENTOEURO: TFloatField
      FieldName = 'DESCUENTOEURO'
      currency = True
    end
    object CDSQ_MDLINEAFACTURAAUXPRECIO_COSTE: TFloatField
      FieldName = 'PRECIO_COSTE'
      currency = True
    end
  end
  object CDSQ_MDCOBROAUX: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'NOMBRECLIENTE'
        Attributes = [faReadonly]
        DataType = ftString
        Size = 80
      end
      item
        Name = 'ID_COBRO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'ANYO'
        Attributes = [faRequired]
        DataType = ftSmallint
      end
      item
        Name = 'ID_EMPRESA'
        Attributes = [faRequired]
        DataType = ftSmallint
      end
      item
        Name = 'TIPO'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'ID'
        DataType = ftInteger
      end
      item
        Name = 'ID_SERIE'
        DataType = ftString
        Size = 3
      end
      item
        Name = 'ANYOSERIE'
        DataType = ftSmallint
      end
      item
        Name = 'OBSERVACIONES'
        DataType = ftString
        Size = 200
      end
      item
        Name = 'BASE'
        DataType = ftFloat
      end
      item
        Name = 'ESTADO'
        DataType = ftString
        Size = 15
      end
      item
        Name = 'ID_CLIENTE'
        DataType = ftInteger
      end
      item
        Name = 'TOTAL_COBRADO'
        DataType = ftFloat
      end
      item
        Name = 'Q_MDLINEACOBROAUX'
        DataType = ftDataSet
      end>
    IndexDefs = <
      item
        Name = 'ID_COBROINDEX'
        DescFields = 'ID_COBRO'
        Fields = 'ID_COBRO'
        Options = [ixDescending]
      end
      item
        Name = 'ID_SERIEINDEX'
        DescFields = 'ID_SERIE'
        Fields = 'ID_SERIE'
        Options = [ixDescending]
      end
      item
        Name = 'NOMBRECLIENTEINDEX'
        DescFields = 'NOMBRECLIENTE'
        Fields = 'NOMBRECLIENTE'
        Options = [ixDescending]
      end
      item
        Name = 'BASEINDEX'
        DescFields = 'BASE'
        Fields = 'BASE'
        Options = [ixDescending]
      end
      item
        Name = 'TOTAL_COBRADOINDEX '
        DescFields = 'TOTAL_COBRADO'
        Fields = 'TOTAL_COBRADO'
        Options = [ixDescending]
      end
      item
        Name = 'COBRADOINDEX'
        DescFields = 'COBRADO'
        Fields = 'COBRADO'
        Options = [ixDescending]
      end
      item
        Name = 'RESTOINDEX'
        DescFields = 'RESTO'
        Fields = 'RESTO'
        Options = [ixDescending]
      end>
    Params = <>
    ProviderName = 'DSPQ_MDCOBROAUX'
    RemoteServer = DCOMConnection1
    StoreDefs = True
    BeforeOpen = CDSQ_MDCOBROAUXBeforeOpen
    BeforeClose = CDSQ_MDCOBROAUXBeforeClose
    OnCalcFields = CDSQ_MDCOBROAUXCalcFields
    OnReconcileError = CDSQ_MDCOBROAUXReconcileError
    BeforeGetRecords = CDSQ_MDCOBROAUXBeforeGetRecords
    AfterGetRecords = CDSQ_MDCOBROAUXAfterGetRecords
    Left = 248
    Top = 248
    object CDSQ_MDCOBROAUXcobrado: TStringField
      FieldKind = fkCalculated
      FieldName = 'cobrado'
      Calculated = True
    end
    object CDSQ_MDCOBROAUXRESTO: TFloatField
      FieldKind = fkCalculated
      FieldName = 'RESTO'
      currency = True
      Calculated = True
    end
    object CDSQ_MDCOBROAUXNOMBRECLIENTE: TStringField
      FieldName = 'NOMBRECLIENTE'
      ReadOnly = True
      Size = 80
    end
    object CDSQ_MDCOBROAUXID_SERIE: TStringField
      FieldName = 'ID_SERIE'
      Size = 3
    end
    object CDSQ_MDCOBROAUXID_COBRO: TIntegerField
      FieldName = 'ID_COBRO'
      Required = True
    end
    object CDSQ_MDCOBROAUXANYO: TSmallintField
      FieldName = 'ANYO'
      Required = True
    end
    object CDSQ_MDCOBROAUXTIPO: TStringField
      FieldName = 'TIPO'
      Size = 10
    end
    object CDSQ_MDCOBROAUXID_EMPRESA: TSmallintField
      FieldName = 'ID_EMPRESA'
      Required = True
    end
    object CDSQ_MDCOBROAUXID: TIntegerField
      FieldName = 'ID'
    end
    object CDSQ_MDCOBROAUXOBSERVACIONES: TStringField
      FieldName = 'OBSERVACIONES'
      Size = 200
    end
    object CDSQ_MDCOBROAUXESTADO: TStringField
      FieldName = 'ESTADO'
      Size = 15
    end
    object CDSQ_MDCOBROAUXID_CLIENTE: TIntegerField
      FieldName = 'ID_CLIENTE'
    end
    object CDSQ_MDCOBROAUXANYOSERIE: TSmallintField
      FieldName = 'ANYOSERIE'
    end
    object CDSQ_MDCOBROAUXQ_MDLINEACOBROAUX: TDataSetField
      FieldName = 'Q_MDLINEACOBROAUX'
    end
    object CDSQ_MDCOBROAUXBASE: TFloatField
      FieldName = 'BASE'
      currency = True
    end
    object CDSQ_MDCOBROAUXTOTAL_COBRADO: TFloatField
      FieldName = 'TOTAL_COBRADO'
      currency = True
    end
  end
  object CDSQ_MDLINEACOBROAUX: TClientDataSet
    Aggregates = <>
    DataSetField = CDSQ_MDCOBROAUXQ_MDLINEACOBROAUX
    Params = <>
    AfterInsert = CDSQ_MDLINEACOBROAUXAfterInsert
    AfterPost = CDSQ_MDLINEACOBROAUXAfterPost
    Left = 248
    Top = 264
    object CDSQ_MDLINEACOBROAUXID_COBRO: TIntegerField
      FieldName = 'ID_COBRO'
      Required = True
    end
    object CDSQ_MDLINEACOBROAUXANYO: TSmallintField
      FieldName = 'ANYO'
      Required = True
    end
    object CDSQ_MDLINEACOBROAUXID_EMPRESA: TSmallintField
      FieldName = 'ID_EMPRESA'
      Required = True
    end
    object CDSQ_MDLINEACOBROAUXNUM_LINEA: TSmallintField
      FieldName = 'NUM_LINEA'
      Required = True
    end
    object CDSQ_MDLINEACOBROAUXFECHA: TDateField
      FieldName = 'FECHA'
      OnSetText = pcomprobarfecha
      EditMask = '!99/99/00;1;_'
    end
    object CDSQ_MDLINEACOBROAUXID_FORMA: TStringField
      FieldName = 'ID_FORMA'
      Size = 5
    end
    object CDSQ_MDLINEACOBROAUXOBSERVACIONES: TStringField
      FieldName = 'OBSERVACIONES'
      Size = 200
    end
    object CDSQ_MDLINEACOBROAUXNUM_DOCUMENTO: TStringField
      FieldName = 'NUM_DOCUMENTO'
      Size = 100
    end
    object CDSQ_MDLINEACOBROAUXHORA: TTimeField
      FieldName = 'HORA'
    end
    object CDSQ_MDLINEACOBROAUXCANTIDAD: TFloatField
      FieldName = 'CANTIDAD'
    end
  end
  object CDSQ_TARIFAS: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPQ_TARIFAS'
    RemoteServer = DCOMConnection1
    BeforeOpen = CDSQ_TARIFASBeforeOpen
    BeforeClose = CDSQ_TARIFASBeforeClose
    AfterInsert = CDSQ_TARIFASAfterInsert
    BeforePost = CDSQ_TARIFASBeforePost
    AfterPost = CDSQ_TARIFASAfterPost
    BeforeCancel = CDSQ_TARIFASBeforeCancel
    BeforeDelete = CDSQ_TARIFASBeforeDelete
    OnDeleteError = CDSQ_TARIFASDeleteError
    OnEditError = CDSQ_TARIFASEditError
    OnPostError = CDSQ_TARIFASPostError
    OnReconcileError = CDSQ_TARIFASReconcileError
    BeforeGetRecords = CDSQ_TARIFASBeforeGetRecords
    AfterGetRecords = CDSQ_TARIFASAfterGetRecords
    Left = 496
    Top = 56
    object CDSQ_TARIFASID_PROVEEDOR: TIntegerField
      FieldName = 'ID_PROVEEDOR'
      Required = True
    end
    object CDSQ_TARIFASART_PROVEEDOR: TStringField
      FieldName = 'ART_PROVEEDOR'
      Required = True
      Size = 30
    end
    object CDSQ_TARIFASID_ARTICULO: TStringField
      FieldName = 'ID_ARTICULO'
      Size = 30
    end
    object CDSQ_TARIFASGRUPO: TStringField
      FieldName = 'GRUPO'
      Size = 30
    end
    object CDSQ_TARIFASGDESCRIPCION: TStringField
      FieldName = 'GDESCRIPCION'
      Size = 100
    end
    object CDSQ_TARIFASNOMBRE: TStringField
      FieldName = 'NOMBRE'
      Size = 100
    end
    object CDSQ_TARIFASOBSERVACIONES: TStringField
      FieldName = 'OBSERVACIONES'
      Size = 150
    end
    object CDSQ_TARIFASFECHA: TDateField
      FieldName = 'FECHA'
      OnSetText = pcomprobarfecha
      EditMask = '!99/99/00;1;_'
    end
    object CDSQ_TARIFASDIAS_SUMINISTRO: TSmallintField
      FieldName = 'DIAS_SUMINISTRO'
    end
    object CDSQ_TARIFASEAN_FABRICANTE: TStringField
      FieldName = 'EAN_FABRICANTE'
      Size = 40
    end
    object CDSQ_TARIFASMARCA: TStringField
      FieldName = 'MARCA'
      Size = 10
    end
    object CDSQ_TARIFASBRAZOS: TSmallintField
      FieldName = 'BRAZOS'
    end
    object CDSQ_TARIFASID_COLOR: TStringField
      FieldName = 'ID_COLOR'
      Size = 5
    end
    object CDSQ_TARIFASPRECIO: TFloatField
      FieldName = 'PRECIO'
      currency = True
    end
    object CDSQ_TARIFASDESCUENTO: TFloatField
      FieldName = 'DESCUENTO'
    end
    object CDSQ_TARIFASNETO: TFloatField
      FieldName = 'NETO'
      currency = True
    end
    object CDSQ_TARIFASIVA: TFloatField
      FieldName = 'IVA'
    end
    object CDSQ_TARIFASPVPCAT: TFloatField
      FieldName = 'PVPCAT'
      currency = True
    end
    object CDSQ_TARIFASnombreproveedor: TStringField
      FieldName = 'nombreproveedor'
      ReadOnly = True
      Size = 80
    end
  end
  object CDSQ_TARIFASAUX: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPQ_TARIFASAUX'
    RemoteServer = DCOMConnection1
    BeforeOpen = CDSQ_TARIFASAUXBeforeOpen
    BeforeClose = CDSQ_TARIFASAUXBeforeClose
    OnCalcFields = CDSQ_TARIFASAUXCalcFields
    OnReconcileError = CDSQ_TARIFASAUXReconcileError
    BeforeGetRecords = CDSQ_TARIFASAUXBeforeGetRecords
    AfterGetRecords = CDSQ_TARIFASAUXAfterGetRecords
    Left = 528
    Top = 56
    object CDSQ_TARIFASAUXNOMBREPROVEEDOR: TStringField
      FieldName = 'NOMBREPROVEEDOR'
      ReadOnly = True
      Size = 50
    end
    object CDSQ_TARIFASAUXID_PROVEEDOR: TIntegerField
      FieldName = 'ID_PROVEEDOR'
      Required = True
    end
    object CDSQ_TARIFASAUXART_PROVEEDOR: TStringField
      FieldName = 'ART_PROVEEDOR'
      Required = True
      Size = 30
    end
    object CDSQ_TARIFASAUXID_ARTICULO: TStringField
      FieldName = 'ID_ARTICULO'
      Size = 30
    end
    object CDSQ_TARIFASAUXGRUPO: TStringField
      FieldName = 'GRUPO'
      Size = 30
    end
    object CDSQ_TARIFASAUXGDESCRIPCION: TStringField
      FieldName = 'GDESCRIPCION'
      Size = 100
    end
    object CDSQ_TARIFASAUXNOMBRE: TStringField
      FieldName = 'NOMBRE'
      Size = 100
    end
    object CDSQ_TARIFASAUXOBSERVACIONES: TStringField
      FieldName = 'OBSERVACIONES'
      Size = 150
    end
    object CDSQ_TARIFASAUXFECHA: TDateField
      FieldName = 'FECHA'
      OnSetText = pcomprobarfecha
      EditMask = '!99/99/00;1;_'
    end
    object CDSQ_TARIFASAUXDIAS_SUMINISTRO: TSmallintField
      FieldName = 'DIAS_SUMINISTRO'
    end
    object CDSQ_TARIFASAUXEAN_FABRICANTE: TStringField
      FieldName = 'EAN_FABRICANTE'
      Size = 40
    end
    object CDSQ_TARIFASAUXMARCA: TStringField
      FieldName = 'MARCA'
      Size = 10
    end
    object CDSQ_TARIFASAUXBRAZOS: TSmallintField
      FieldName = 'BRAZOS'
    end
    object CDSQ_TARIFASAUXID_COLOR: TStringField
      FieldName = 'ID_COLOR'
      Size = 5
    end
    object CDSQ_TARIFASAUXPRECIOVENTA: TCurrencyField
      FieldKind = fkCalculated
      FieldName = 'PRECIOVENTA'
      Calculated = True
    end
    object CDSQ_TARIFASAUXPRECIO: TFloatField
      FieldName = 'PRECIO'
      currency = True
    end
    object CDSQ_TARIFASAUXDESCUENTO: TFloatField
      FieldName = 'DESCUENTO'
    end
    object CDSQ_TARIFASAUXNETO: TFloatField
      FieldName = 'NETO'
      currency = True
    end
    object CDSQ_TARIFASAUXIVA: TFloatField
      FieldName = 'IVA'
    end
    object CDSQ_TARIFASAUXPVPCAT: TFloatField
      FieldName = 'PVPCAT'
      currency = True
    end
  end
  object CDSQ_ALMACEN: TClientDataSet
    Aggregates = <>
    FieldDefs = <>
    IndexDefs = <
      item
        Name = 'ID_ARTICULOINDEX'
        DescFields = 'ID_ARTICULO'
        Fields = 'ID_ARTICULO'
        Options = [ixDescending]
      end
      item
        Name = 'ID_EMPRESAINDEX'
        DescFields = 'ID_EMPRESA'
        Fields = 'ID_EMPRESA'
        Options = [ixDescending]
      end
      item
        Name = 'CANTIDADINDEX'
        DescFields = 'CANTIDAD'
        Fields = 'CANTIDAD'
        Options = [ixDescending]
      end
      item
        Name = 'AVISARINDEX'
        DescFields = 'AVISAR'
        Fields = 'AVISAR'
        Options = [ixDescending]
      end
      item
        Name = 'MARCAINDEX'
        DescFields = 'MARCA'
        Fields = 'MARCA'
        Options = [ixDescending]
      end
      item
        Name = 'DESCRIPCIONINDEX'
        DescFields = 'DESCRIPCION'
        Fields = 'DESCRIPCION'
        Options = [ixDescending]
      end>
    Params = <>
    ProviderName = 'DSPQ_ALMACEN'
    RemoteServer = DCOMConnection1
    StoreDefs = True
    BeforeOpen = CDSQ_ALMACENBeforeOpen
    BeforeClose = CDSQ_ALMACENBeforeClose
    AfterInsert = CDSQ_ALMACENAfterInsert
    BeforePost = CDSQ_ALMACENBeforePost
    AfterPost = CDSQ_ALMACENAfterPost
    BeforeCancel = CDSQ_ALMACENBeforeCancel
    BeforeDelete = CDSQ_ALMACENBeforeDelete
    OnDeleteError = CDSQ_ALMACENDeleteError
    OnEditError = CDSQ_ALMACENEditError
    OnPostError = CDSQ_ALMACENPostError
    OnReconcileError = CDSQ_ALMACENReconcileError
    BeforeGetRecords = CDSQ_ALMACENBeforeGetRecords
    AfterGetRecords = CDSQ_ALMACENAfterGetRecords
    Left = 208
    Top = 416
    object CDSQ_ALMACENID_ARTICULO: TStringField
      FieldName = 'ID_ARTICULO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Size = 30
    end
    object CDSQ_ALMACENID_EMPRESA: TSmallintField
      FieldName = 'ID_EMPRESA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object CDSQ_ALMACENCANTIDAD: TFloatField
      FieldName = 'CANTIDAD'
    end
    object CDSQ_ALMACENAVISAR: TFloatField
      FieldName = 'AVISAR'
    end
    object CDSQ_ALMACENMARCA: TStringField
      FieldName = 'MARCA'
      Size = 10
    end
    object CDSQ_ALMACENDESCRIPCION: TStringField
      FieldName = 'DESCRIPCION'
      Size = 100
    end
  end
  object CDSQ_ALMACENAUX: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPQ_ALMACENAUX'
    RemoteServer = DCOMConnection1
    BeforeOpen = CDSQ_ALMACENAUXBeforeOpen
    BeforeClose = CDSQ_ALMACENAUXBeforeClose
    OnReconcileError = CDSQ_ALMACENAUXReconcileError
    BeforeGetRecords = CDSQ_ALMACENAUXBeforeGetRecords
    AfterGetRecords = CDSQ_ALMACENAUXAfterGetRecords
    Left = 248
    Top = 416
    object CDSQ_ALMACENAUXID_ARTICULO: TStringField
      FieldName = 'ID_ARTICULO'
      Required = True
      Size = 30
    end
    object CDSQ_ALMACENAUXID_EMPRESA: TSmallintField
      FieldName = 'ID_EMPRESA'
      Required = True
    end
    object CDSQ_ALMACENAUXCANTIDAD: TFloatField
      FieldName = 'CANTIDAD'
    end
    object CDSQ_ALMACENAUXAVISAR: TFloatField
      FieldName = 'AVISAR'
    end
    object CDSQ_ALMACENAUXMARCA: TStringField
      FieldName = 'MARCA'
      Size = 10
    end
    object CDSQ_ALMACENAUXDESCRIPCION: TStringField
      FieldName = 'DESCRIPCION'
      Size = 100
    end
  end
  object CDSQ_MDSALIDA: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPQ_MDSALIDA'
    RemoteServer = DCOMConnection1
    BeforeOpen = CDSQ_MDSALIDABeforeOpen
    BeforeClose = CDSQ_MDSALIDABeforeClose
    AfterInsert = CDSQ_MDSALIDAAfterInsert
    BeforePost = CDSQ_MDSALIDABeforePost
    AfterPost = CDSQ_MDSALIDAAfterPost
    OnDeleteError = CDSQ_MDSALIDADeleteError
    OnEditError = CDSQ_MDSALIDAEditError
    OnPostError = CDSQ_MDSALIDAPostError
    OnReconcileError = CDSQ_MDSALIDAReconcileError
    BeforeApplyUpdates = CDSQ_MDSALIDABeforeApplyUpdates
    AfterApplyUpdates = CDSQ_MDSALIDAAfterApplyUpdates
    BeforeGetRecords = CDSQ_MDSALIDABeforeGetRecords
    AfterGetRecords = CDSQ_MDSALIDAAfterGetRecords
    Left = 656
    Top = 264
    object CDSQ_MDSALIDAID_SALIDA: TIntegerField
      FieldName = 'ID_SALIDA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object CDSQ_MDSALIDAID_EMPRESA: TSmallintField
      FieldName = 'ID_EMPRESA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object CDSQ_MDSALIDAFECHA: TDateField
      FieldName = 'FECHA'
      OnSetText = pcomprobarfecha
      EditMask = '!99/99/00;1;_'
    end
    object CDSQ_MDSALIDAALBARAN: TIntegerField
      FieldName = 'ALBARAN'
    end
    object CDSQ_MDSALIDAFACTURA: TIntegerField
      FieldName = 'FACTURA'
    end
    object CDSQ_MDSALIDAOBSERVACIONES: TStringField
      FieldName = 'OBSERVACIONES'
      Size = 200
    end
    object CDSQ_MDSALIDAANYO: TSmallintField
      FieldName = 'ANYO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object CDSQ_MDSALIDAQMD_LINEASALIDA: TDataSetField
      FieldName = 'QMD_LINEASALIDA'
    end
    object CDSQ_MDSALIDAIVA: TFloatField
      FieldName = 'IVA'
    end
  end
  object CDSQ_MDLINEASALIDA: TClientDataSet
    Aggregates = <>
    DataSetField = CDSQ_MDSALIDAQMD_LINEASALIDA
    Params = <>
    BeforeOpen = CDSQ_MDLINEASALIDABeforeOpen
    AfterInsert = CDSQ_MDLINEASALIDAAfterInsert
    BeforePost = CDSQ_MDLINEASALIDABeforePost
    AfterPost = CDSQ_MDLINEASALIDAAfterPost
    BeforeCancel = CDSQ_MDLINEASALIDABeforeCancel
    BeforeDelete = CDSQ_MDLINEASALIDABeforeDelete
    OnDeleteError = CDSQ_MDLINEASALIDADeleteError
    OnEditError = CDSQ_MDLINEASALIDAEditError
    OnPostError = CDSQ_MDLINEASALIDAPostError
    OnReconcileError = CDSQ_MDLINEASALIDAReconcileError
    AfterApplyUpdates = CDSQ_MDLINEASALIDAAfterApplyUpdates
    Left = 656
    Top = 272
    object CDSQ_MDLINEASALIDADESCRIPCIONGAR: TStringField
      FieldName = 'DESCRIPCIONGAR'
      Size = 100
    end
    object CDSQ_MDLINEASALIDAID_SALIDA: TIntegerField
      FieldName = 'ID_SALIDA'
      Required = True
    end
    object CDSQ_MDLINEASALIDAID_EMPRESA: TSmallintField
      FieldName = 'ID_EMPRESA'
      Required = True
    end
    object CDSQ_MDLINEASALIDAMARCA: TStringField
      FieldName = 'MARCA'
      Size = 10
    end
    object CDSQ_MDLINEASALIDADESCRIPCION: TStringField
      FieldName = 'DESCRIPCION'
      Size = 100
    end
    object CDSQ_MDLINEASALIDAOBSERVACIONES: TStringField
      FieldName = 'OBSERVACIONES'
      Size = 100
    end
    object CDSQ_MDLINEASALIDALINEA: TSmallintField
      FieldName = 'LINEA'
      Required = True
    end
    object CDSQ_MDLINEASALIDAID_ARTICULO: TStringField
      FieldName = 'ID_ARTICULO'
      Size = 30
    end
    object CDSQ_MDLINEASALIDAANYO: TSmallintField
      FieldName = 'ANYO'
      Required = True
    end
    object CDSQ_MDLINEASALIDACANTIDAD: TFloatField
      FieldName = 'CANTIDAD'
    end
    object CDSQ_MDLINEASALIDACODIGO_BARRAS: TStringField
      FieldName = 'CODIGO_BARRAS'
      Size = 250
    end
  end
  object CDSQ_AVISO: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPQ_AVISO'
    RemoteServer = DCOMConnection1
    BeforeOpen = CDSQ_AVISOBeforeOpen
    BeforeClose = CDSQ_AVISOBeforeClose
    AfterInsert = CDSQ_AVISOAfterInsert
    BeforePost = CDSQ_AVISOBeforePost
    AfterPost = CDSQ_AVISOAfterPost
    BeforeDelete = CDSQ_AVISOBeforeDelete
    OnDeleteError = CDSQ_AVISODeleteError
    OnEditError = CDSQ_AVISOEditError
    OnPostError = CDSQ_AVISOPostError
    OnReconcileError = CDSQ_AVISOReconcileError
    BeforeGetRecords = CDSQ_AVISOBeforeGetRecords
    AfterGetRecords = CDSQ_AVISOAfterGetRecords
    Left = 480
    Top = 368
    object CDSQ_AVISOID_AVISO: TIntegerField
      FieldName = 'ID_AVISO'
      Required = True
    end
    object CDSQ_AVISOFECHA_AVISO: TDateField
      FieldName = 'FECHA_AVISO'
      OnSetText = pcomprobarfecha
      EditMask = '!99/99/00;1;_'
    end
    object CDSQ_AVISOHORA: TDateField
      FieldName = 'HORA'
      EditMask = '!90:00;1;_'
    end
    object CDSQ_AVISOCOMENTARIOS: TStringField
      FieldName = 'COMENTARIOS'
      Size = 400
    end
    object CDSQ_AVISOFECHA_PARA_VISITA: TDateField
      FieldName = 'FECHA_PARA_VISITA'
      OnSetText = pcomprobarfecha
      EditMask = '!99/99/00;1;_'
    end
    object CDSQ_AVISOHORA_PARA_VISITA: TDateField
      FieldName = 'HORA_PARA_VISITA'
      EditMask = '!90:00;1;_'
    end
    object CDSQ_AVISONOMBRE_CONTACTO: TStringField
      FieldName = 'NOMBRE_CONTACTO'
      Size = 200
    end
    object CDSQ_AVISODIRECCION: TStringField
      FieldName = 'DIRECCION'
      Size = 200
    end
    object CDSQ_AVISOPOBLACION: TStringField
      FieldName = 'POBLACION'
      Size = 200
    end
    object CDSQ_AVISOMOTIVO_AVISO: TStringField
      FieldName = 'MOTIVO_AVISO'
      Size = 200
    end
    object CDSQ_AVISOTELEFONO: TStringField
      FieldName = 'TELEFONO'
      Size = 12
    end
    object CDSQ_AVISOMOVIL: TStringField
      FieldName = 'MOVIL'
      Size = 12
    end
    object CDSQ_AVISOESTADO: TStringField
      FieldName = 'ESTADO'
      Size = 50
    end
    object CDSQ_AVISOOBSERVACIONES: TStringField
      FieldName = 'OBSERVACIONES'
      Size = 500
    end
    object CDSQ_AVISOID_EMPRESA: TSmallintField
      FieldName = 'ID_EMPRESA'
      Required = True
    end
    object CDSQ_AVISOREALIZADO: TSmallintField
      FieldName = 'REALIZADO'
    end
    object CDSQ_AVISOANYO: TSmallintField
      FieldName = 'ANYO'
      Required = True
    end
  end
  object CDSQ_AVISOAUX: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPQ_AVISOAUX'
    RemoteServer = DCOMConnection1
    BeforeOpen = CDSQ_AVISOAUXBeforeOpen
    BeforeClose = CDSQ_AVISOAUXBeforeClose
    OnReconcileError = CDSQ_AVISOAUXReconcileError
    BeforeGetRecords = CDSQ_AVISOAUXBeforeGetRecords
    AfterGetRecords = CDSQ_AVISOAUXAfterGetRecords
    Left = 512
    Top = 368
    object CDSQ_AVISOAUXID_AVISO: TIntegerField
      FieldName = 'ID_AVISO'
      Required = True
    end
    object CDSQ_AVISOAUXFECHA_AVISO: TDateField
      FieldName = 'FECHA_AVISO'
      OnSetText = pcomprobarfecha
      EditMask = '!99/99/00;1;_'
    end
    object CDSQ_AVISOAUXHORA: TDateField
      FieldName = 'HORA'
      EditMask = '!90:00;1;_'
    end
    object CDSQ_AVISOAUXCOMENTARIOS: TStringField
      FieldName = 'COMENTARIOS'
      Size = 400
    end
    object CDSQ_AVISOAUXFECHA_PARA_VISITA: TDateField
      FieldName = 'FECHA_PARA_VISITA'
      OnSetText = pcomprobarfecha
      EditMask = '!99/99/00;1;_'
    end
    object CDSQ_AVISOAUXHORA_PARA_VISITA: TDateField
      FieldName = 'HORA_PARA_VISITA'
    end
    object CDSQ_AVISOAUXNOMBRE_CONTACTO: TStringField
      FieldName = 'NOMBRE_CONTACTO'
      Size = 200
    end
    object CDSQ_AVISOAUXDIRECCION: TStringField
      FieldName = 'DIRECCION'
      Size = 200
    end
    object CDSQ_AVISOAUXPOBLACION: TStringField
      FieldName = 'POBLACION'
      Size = 200
    end
    object CDSQ_AVISOAUXMOTIVO_AVISO: TStringField
      FieldName = 'MOTIVO_AVISO'
      Size = 200
    end
    object CDSQ_AVISOAUXTELEFONO: TStringField
      FieldName = 'TELEFONO'
      Size = 12
    end
    object CDSQ_AVISOAUXMOVIL: TStringField
      FieldName = 'MOVIL'
      Size = 12
    end
    object CDSQ_AVISOAUXESTADO: TStringField
      FieldName = 'ESTADO'
      Size = 50
    end
    object CDSQ_AVISOAUXOBSERVACIONES: TStringField
      FieldName = 'OBSERVACIONES'
      Size = 500
    end
    object CDSQ_AVISOAUXID_EMPRESA: TSmallintField
      FieldName = 'ID_EMPRESA'
      Required = True
    end
    object CDSQ_AVISOAUXREALIZADO: TSmallintField
      FieldName = 'REALIZADO'
    end
    object CDSQ_AVISOAUXANYO: TSmallintField
      FieldName = 'ANYO'
      Required = True
    end
  end
  object CDSQ_PEDIDOSPENDIENTES: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPQ_PEDIDOSPENDIENTES'
    RemoteServer = DCOMConnection1
    BeforeOpen = CDSQ_PEDIDOSPENDIENTESBeforeOpen
    BeforeClose = CDSQ_PEDIDOSPENDIENTESBeforeClose
    AfterInsert = CDSQ_PEDIDOSPENDIENTESAfterInsert
    BeforePost = CDSQ_PEDIDOSPENDIENTESBeforePost
    AfterPost = CDSQ_PEDIDOSPENDIENTESAfterPost
    BeforeCancel = CDSQ_PEDIDOSPENDIENTESBeforeCancel
    BeforeDelete = CDSQ_PEDIDOSPENDIENTESBeforeDelete
    OnDeleteError = CDSQ_PEDIDOSPENDIENTESDeleteError
    OnEditError = CDSQ_PEDIDOSPENDIENTESEditError
    OnPostError = CDSQ_PEDIDOSPENDIENTESPostError
    OnReconcileError = CDSQ_PEDIDOSPENDIENTESReconcileError
    BeforeGetRecords = CDSQ_PEDIDOSPENDIENTESBeforeGetRecords
    AfterGetRecords = CDSQ_PEDIDOSPENDIENTESAfterGetRecords
    Left = 56
    Top = 432
    object CDSQ_PEDIDOSPENDIENTESLINEA: TIntegerField
      FieldName = 'LINEA'
      Required = True
    end
    object CDSQ_PEDIDOSPENDIENTESID_EMPRESA: TSmallintField
      FieldName = 'ID_EMPRESA'
      Required = True
    end
    object CDSQ_PEDIDOSPENDIENTESFECHA_NOTA: TDateField
      FieldName = 'FECHA_NOTA'
      OnSetText = pcomprobarfecha
      EditMask = '!99/99/00;1;_'
    end
    object CDSQ_PEDIDOSPENDIENTESFECHA_PEDIDO: TDateField
      FieldName = 'FECHA_PEDIDO'
      OnSetText = pcomprobarfecha
      EditMask = '!99/99/00;1;_'
    end
    object CDSQ_PEDIDOSPENDIENTESID_PROVEEDOR: TIntegerField
      FieldName = 'ID_PROVEEDOR'
    end
    object CDSQ_PEDIDOSPENDIENTESART_PROVEEDOR: TStringField
      FieldName = 'ART_PROVEEDOR'
      Size = 30
    end
    object CDSQ_PEDIDOSPENDIENTESID_ARTICULO: TStringField
      FieldName = 'ID_ARTICULO'
      Size = 30
    end
    object CDSQ_PEDIDOSPENDIENTESMARCA: TStringField
      FieldName = 'MARCA'
      Size = 10
    end
    object CDSQ_PEDIDOSPENDIENTESDESCRIPCION: TStringField
      FieldName = 'DESCRIPCION'
      Size = 700
    end
    object CDSQ_PEDIDOSPENDIENTESBRAZOS: TSmallintField
      FieldName = 'BRAZOS'
    end
    object CDSQ_PEDIDOSPENDIENTESID_COLOR: TStringField
      FieldName = 'ID_COLOR'
      Size = 5
    end
    object CDSQ_PEDIDOSPENDIENTESPEDIDO: TSmallintField
      FieldName = 'PEDIDO'
    end
    object CDSQ_PEDIDOSPENDIENTESNOMBRE_CONTACTO: TStringField
      FieldName = 'NOMBRE_CONTACTO'
      Size = 200
    end
    object CDSQ_PEDIDOSPENDIENTESID_CLIENTE: TIntegerField
      FieldName = 'ID_CLIENTE'
    end
    object CDSQ_PEDIDOSPENDIENTESCOMENTARIOS: TStringField
      FieldName = 'COMENTARIOS'
      Size = 500
    end
    object CDSQ_PEDIDOSPENDIENTESCANTIDAD: TFloatField
      FieldName = 'CANTIDAD'
    end
  end
  object CDSQ_PEDIDOSPENDIENTESAUX: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPQ_PEDIDOSPENDIENTES'
    RemoteServer = DCOMConnection1
    BeforeOpen = CDSQ_PEDIDOSPENDIENTESAUXBeforeOpen
    BeforeClose = CDSQ_PEDIDOSPENDIENTESAUXBeforeClose
    OnReconcileError = CDSQ_PEDIDOSPENDIENTESAUXReconcileError
    BeforeGetRecords = CDSQ_PEDIDOSPENDIENTESAUXBeforeGetRecords
    AfterGetRecords = CDSQ_PEDIDOSPENDIENTESAUXAfterGetRecords
    Left = 96
    Top = 432
    object CDSQ_PEDIDOSPENDIENTESAUXLINEA: TIntegerField
      FieldName = 'LINEA'
    end
    object CDSQ_PEDIDOSPENDIENTESAUXID_EMPRESA: TSmallintField
      FieldName = 'ID_EMPRESA'
    end
    object CDSQ_PEDIDOSPENDIENTESAUXFECHA_NOTA: TDateField
      FieldName = 'FECHA_NOTA'
      OnSetText = pcomprobarfecha
      EditMask = '!99/99/00;1;_'
    end
    object CDSQ_PEDIDOSPENDIENTESAUXFECHA_PEDIDO: TDateField
      FieldName = 'FECHA_PEDIDO'
      OnSetText = pcomprobarfecha
      EditMask = '!99/99/00;1;_'
    end
    object CDSQ_PEDIDOSPENDIENTESAUXID_PROVEEDOR: TIntegerField
      FieldName = 'ID_PROVEEDOR'
    end
    object CDSQ_PEDIDOSPENDIENTESAUXART_PROVEEDOR: TStringField
      FieldName = 'ART_PROVEEDOR'
      Size = 30
    end
    object CDSQ_PEDIDOSPENDIENTESAUXID_ARTICULO: TStringField
      FieldName = 'ID_ARTICULO'
      Size = 30
    end
    object CDSQ_PEDIDOSPENDIENTESAUXMARCA: TStringField
      FieldName = 'MARCA'
      Size = 10
    end
    object CDSQ_PEDIDOSPENDIENTESAUXDESCRIPCION: TStringField
      FieldName = 'DESCRIPCION'
      Size = 700
    end
    object CDSQ_PEDIDOSPENDIENTESAUXBRAZOS: TSmallintField
      FieldName = 'BRAZOS'
    end
    object CDSQ_PEDIDOSPENDIENTESAUXID_COLOR: TStringField
      FieldName = 'ID_COLOR'
      Size = 5
    end
    object CDSQ_PEDIDOSPENDIENTESAUXPEDIDO: TSmallintField
      FieldName = 'PEDIDO'
    end
    object CDSQ_PEDIDOSPENDIENTESAUXNOMBRE_CONTACTO: TStringField
      FieldName = 'NOMBRE_CONTACTO'
      Size = 200
    end
    object CDSQ_PEDIDOSPENDIENTESAUXID_CLIENTE: TIntegerField
      FieldName = 'ID_CLIENTE'
    end
    object CDSQ_PEDIDOSPENDIENTESAUXCOMENTARIOS: TStringField
      FieldName = 'COMENTARIOS'
      Size = 500
    end
    object CDSQ_PEDIDOSPENDIENTESAUXCANTIDAD: TFloatField
      FieldName = 'CANTIDAD'
    end
  end
  object CDSQ_MDTICKET: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPQ_MDTICKET'
    RemoteServer = DCOMConnection1
    BeforeOpen = CDSQ_MDTICKETBeforeOpen
    BeforeClose = CDSQ_MDTICKETBeforeClose
    AfterInsert = CDSQ_MDTICKETAfterInsert
    BeforeEdit = CDSQ_MDTICKETBeforeEdit
    BeforePost = CDSQ_MDTICKETBeforePost
    AfterPost = CDSQ_MDTICKETAfterPost
    BeforeDelete = CDSQ_MDTICKETBeforeDelete
    OnCalcFields = CDSQ_MDTICKETCalcFields
    OnDeleteError = CDSQ_MDTICKETDeleteError
    OnEditError = CDSQ_MDTICKETEditError
    OnPostError = CDSQ_MDTICKETPostError
    OnReconcileError = CDSQ_MDTICKETReconcileError
    BeforeApplyUpdates = CDSQ_MDTICKETBeforeApplyUpdates
    AfterApplyUpdates = CDSQ_MDTICKETAfterApplyUpdates
    BeforeGetRecords = CDSQ_MDTICKETBeforeGetRecords
    AfterGetRecords = CDSQ_MDTICKETAfterGetRecords
    Left = 656
    Top = 200
    object CDSQ_MDTICKETBASE_TICKETSINIVA: TCurrencyField
      FieldKind = fkCalculated
      FieldName = 'BASE_TICKETSINIVA'
      Calculated = True
    end
    object CDSQ_MDTICKETIMPRIMIDO: TStringField
      FieldKind = fkCalculated
      FieldName = 'IMPRIMIDO'
      Calculated = True
    end
    object CDSQ_MDTICKETCLIENTEESTA: TBooleanField
      FieldKind = fkCalculated
      FieldName = 'CLIENTEESTA'
      Calculated = True
    end
    object CDSQ_MDTICKETCLIENTEOLD: TStringField
      FieldKind = fkCalculated
      FieldName = 'CLIENTEOLD'
      Calculated = True
    end
    object CDSQ_MDTICKETCLIENTENOMBRE: TStringField
      FieldKind = fkCalculated
      FieldName = 'CLIENTENOMBRE'
      Calculated = True
    end
    object CDSQ_MDTICKETHORATICKET: TTimeField
      FieldKind = fkCalculated
      FieldName = 'HORATICKET'
      Calculated = True
    end
    object CDSQ_MDTICKETTOTALDESCUENTOAUX: TFloatField
      FieldKind = fkCalculated
      FieldName = 'TOTALDESCUENTOAUX'
      currency = True
      Calculated = True
    end
    object CDSQ_MDTICKETNOMBRECLIENTE: TStringField
      FieldName = 'NOMBRECLIENTE'
      ReadOnly = True
      Size = 150
    end
    object CDSQ_MDTICKETID_TICKET: TIntegerField
      FieldName = 'ID_TICKET'
      Required = True
    end
    object CDSQ_MDTICKETID_EMPRESA: TSmallintField
      FieldName = 'ID_EMPRESA'
      Required = True
    end
    object CDSQ_MDTICKETANYO: TSmallintField
      FieldName = 'ANYO'
      Required = True
    end
    object CDSQ_MDTICKETID_SERIE: TStringField
      FieldName = 'ID_SERIE'
      Required = True
      Size = 3
    end
    object CDSQ_MDTICKETIMPRESO: TSmallintField
      FieldName = 'IMPRESO'
    end
    object CDSQ_MDTICKETID_CLIENTE: TIntegerField
      FieldName = 'ID_CLIENTE'
      Required = True
    end
    object CDSQ_MDTICKETCOBRADO: TSmallintField
      FieldName = 'COBRADO'
    end
    object CDSQ_MDTICKETQ_MDLINEATICKET: TDataSetField
      FieldName = 'Q_MDLINEATICKET'
    end
    object CDSQ_MDTICKETFORMAPAGO: TStringField
      FieldName = 'FORMAPAGO'
      Size = 5
    end
    object CDSQ_MDTICKETFORMAPAGODESCRIPCION: TStringField
      FieldName = 'FORMAPAGODESCRIPCION'
      ReadOnly = True
      Size = 150
    end
    object CDSQ_MDTICKETFORMAPAGOESTA: TBooleanField
      FieldKind = fkCalculated
      FieldName = 'FORMAPAGOESTA'
      Calculated = True
    end
    object CDSQ_MDTICKETFORMAPAGOOLD: TStringField
      FieldKind = fkCalculated
      FieldName = 'FORMAPAGOOLD'
      Size = 5
      Calculated = True
    end
    object CDSQ_MDTICKETDESCRIPCIONFORMAPAGO: TStringField
      FieldKind = fkCalculated
      FieldName = 'DESCRIPCIONFORMAPAGO'
      Size = 150
      Calculated = True
    end
    object CDSQ_MDTICKETHORACOBRO: TTimeField
      FieldName = 'HORACOBRO'
      EditMask = '!90:00;1;_'
    end
    object CDSQ_MDTICKETFECHACOBRO: TDateField
      FieldName = 'FECHACOBRO'
      EditMask = '!99/99/00;1;_'
    end
    object CDSQ_MDTICKETHORA: TTimeField
      FieldName = 'HORA'
    end
    object CDSQ_MDTICKETFECHA: TDateField
      FieldName = 'FECHA'
      OnSetText = pcomprobarfecha
      EditMask = '!99/99/00;1;_'
    end
    object CDSQ_MDTICKETDESCUENTO: TFloatField
      FieldName = 'DESCUENTO'
    end
    object CDSQ_MDTICKETDESCUENTOEURO: TFloatField
      FieldName = 'DESCUENTOEURO'
    end
    object CDSQ_MDTICKETBASE_TICKET: TFloatField
      FieldName = 'BASE_TICKET'
    end
    object CDSQ_MDTICKETIVA: TFloatField
      FieldName = 'IVA'
    end
    object CDSQ_MDTICKETENTREGA: TFloatField
      FieldName = 'ENTREGA'
    end
    object CDSQ_MDTICKETDEVOLUCION: TFloatField
      FieldName = 'DEVOLUCION'
    end
    object CDSQ_MDTICKETTOTALCOBRADO: TFloatField
      FieldName = 'TOTALCOBRADO'
    end
    object CDSQ_MDTICKETTOTALDESCUENTO: TFloatField
      FieldName = 'TOTALDESCUENTO'
    end
    object CDSQ_MDTICKETTOTAL: TFloatField
      FieldKind = fkCalculated
      FieldName = 'TOTAL'
      currency = True
      Calculated = True
    end
    object CDSQ_MDTICKETnoborrarnecesario: TIntegerField
      FieldKind = fkInternalCalc
      FieldName = 'noborrarnecesario'
    end
  end
  object CDSQ_MDLINEATICKET: TClientDataSet
    Aggregates = <>
    DataSetField = CDSQ_MDTICKETQ_MDLINEATICKET
    Params = <>
    BeforeOpen = CDSQ_MDLINEATICKETBeforeOpen
    AfterInsert = CDSQ_MDLINEATICKETAfterInsert
    BeforePost = CDSQ_MDLINEATICKETBeforePost
    AfterPost = CDSQ_MDLINEATICKETAfterPost
    BeforeCancel = CDSQ_MDLINEATICKETBeforeCancel
    BeforeDelete = CDSQ_MDLINEATICKETBeforeDelete
    OnCalcFields = CDSQ_MDLINEATICKETCalcFields
    OnDeleteError = CDSQ_MDLINEATICKETDeleteError
    OnEditError = CDSQ_MDLINEATICKETEditError
    OnPostError = CDSQ_MDLINEATICKETPostError
    OnReconcileError = CDSQ_MDLINEATICKETReconcileError
    Left = 656
    Top = 216
    object CDSQ_MDLINEATICKETDESCRIPCIONGAR: TStringField
      FieldName = 'DESCRIPCIONGAR'
      Size = 100
    end
    object CDSQ_MDLINEATICKETID_TICKET: TIntegerField
      FieldName = 'ID_TICKET'
      Required = True
    end
    object CDSQ_MDLINEATICKETID_EMPRESA: TSmallintField
      FieldName = 'ID_EMPRESA'
      Required = True
    end
    object CDSQ_MDLINEATICKETANYO: TSmallintField
      FieldName = 'ANYO'
      Required = True
    end
    object CDSQ_MDLINEATICKETID_SERIE: TStringField
      FieldName = 'ID_SERIE'
      Required = True
      Size = 3
    end
    object CDSQ_MDLINEATICKETLINEA: TSmallintField
      FieldName = 'LINEA'
      Required = True
    end
    object CDSQ_MDLINEATICKETID_ARTICULO: TStringField
      FieldName = 'ID_ARTICULO'
      Size = 30
    end
    object CDSQ_MDLINEATICKETMARCA: TStringField
      FieldName = 'MARCA'
      Size = 10
    end
    object CDSQ_MDLINEATICKETDESCRIPCION: TStringField
      FieldName = 'DESCRIPCION'
      Size = 700
    end
    object CDSQ_MDLINEATICKETCANTIDAD: TFloatField
      FieldName = 'CANTIDAD'
    end
    object CDSQ_MDLINEATICKETPRECIO: TFloatField
      FieldName = 'PRECIO'
    end
    object CDSQ_MDLINEATICKETDESCUENTO: TFloatField
      FieldName = 'DESCUENTO'
    end
    object CDSQ_MDLINEATICKETDESCUENTOEURO: TFloatField
      FieldName = 'DESCUENTOEURO'
    end
    object CDSQ_MDLINEATICKETIMPORTE: TFloatField
      FieldName = 'IMPORTE'
    end
    object CDSQ_MDLINEATICKETIVA: TFloatField
      FieldName = 'IVA'
    end
    object CDSQ_MDLINEATICKETPRECIO_COSTE: TFloatField
      FieldName = 'PRECIO_COSTE'
    end
    object CDSQ_MDLINEATICKETCODIGO_BARRAS: TStringField
      FieldName = 'CODIGO_BARRAS'
      Size = 250
    end
    object CDSQ_MDLINEATICKETNOBORRARNECESARIO: TIntegerField
      FieldKind = fkInternalCalc
      FieldName = 'NOBORRARNECESARIO'
    end
    object CDSQ_MDLINEATICKETNUMERO_SERIE: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'NUMERO_SERIE'
    end
  end
  object CDSQ_FLOAT: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPQ_MAXIMO'
    RemoteServer = DCOMConnection1
    Left = 16
    Top = 56
  end
  object cdsq_nombre: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPQ_MAXIMO'
    RemoteServer = DCOMConnection1
    Left = 56
    Top = 96
    object cdsq_nombrenombre: TStringField
      FieldName = 'nombre'
    end
  end
  object CDSQ_OPCIONESNUMERICAS: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPQ_OPCIONESNUMERICAS'
    RemoteServer = DCOMConnection1
    BeforeOpen = CDSQ_OPCIONESNUMERICASBeforeOpen
    BeforeClose = CDSQ_OPCIONESNUMERICASBeforeClose
    AfterInsert = CDSQ_OPCIONESNUMERICASAfterInsert
    BeforePost = CDSQ_OPCIONESNUMERICASBeforePost
    AfterPost = CDSQ_OPCIONESNUMERICASAfterPost
    BeforeDelete = CDSQ_OPCIONESNUMERICASBeforeDelete
    OnCalcFields = CDSQ_OPCIONESNUMERICASCalcFields
    OnDeleteError = CDSQ_OPCIONESNUMERICASDeleteError
    OnEditError = CDSQ_OPCIONESNUMERICASEditError
    OnPostError = CDSQ_OPCIONESNUMERICASPostError
    OnReconcileError = CDSQ_OPCIONESNUMERICASReconcileError
    BeforeGetRecords = CDSQ_OPCIONESNUMERICASBeforeGetRecords
    AfterGetRecords = CDSQ_OPCIONESNUMERICASAfterGetRecords
    Left = 168
    Top = 328
    object CDSQ_OPCIONESNUMERICASID_EMPRESA: TSmallintField
      FieldName = 'ID_EMPRESA'
      Required = True
    end
    object CDSQ_OPCIONESNUMERICASANYO: TSmallintField
      FieldName = 'ANYO'
      Required = True
    end
    object CDSQ_OPCIONESNUMERICASID_COBRO: TIntegerField
      FieldName = 'ID_COBRO'
    end
    object CDSQ_OPCIONESNUMERICASID_ENTRADA: TIntegerField
      FieldName = 'ID_ENTRADA'
    end
    object CDSQ_OPCIONESNUMERICASID_PRESUPUESTO: TIntegerField
      FieldName = 'ID_PRESUPUESTO'
    end
    object CDSQ_OPCIONESNUMERICASID_SALIDA: TSmallintField
      FieldName = 'ID_SALIDA'
    end
    object CDSQ_OPCIONESNUMERICASID_AVISO: TIntegerField
      FieldName = 'ID_AVISO'
    end
    object CDSQ_OPCIONESNUMERICASNOMBREEMPRESA: TStringField
      FieldName = 'NOMBREEMPRESA'
      ReadOnly = True
      Size = 150
    end
    object CDSQ_OPCIONESNUMERICASEMPRESANOMBRE: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'EMPRESANOMBRE'
      Size = 150
    end
    object CDSQ_OPCIONESNUMERICASIDESTA: TBooleanField
      FieldKind = fkInternalCalc
      FieldName = 'IDESTA'
    end
    object CDSQ_OPCIONESNUMERICASIDOLD: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'IDOLD'
    end
  end
  object CDSQ_LISTADOENTRADA: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPQ_LISTADOENTRADA'
    RemoteServer = DCOMConnection1
    BeforeOpen = CDSQ_LISTADOENTRADABeforeOpen
    BeforeClose = CDSQ_LISTADOENTRADABeforeClose
    OnReconcileError = CDSQ_LISTADOENTRADAReconcileError
    BeforeGetRecords = CDSQ_LISTADOENTRADABeforeGetRecords
    AfterGetRecords = CDSQ_LISTADOENTRADAAfterGetRecords
    Left = 352
    Top = 392
    object CDSQ_LISTADOENTRADAID_ENTRADA: TIntegerField
      FieldName = 'ID_ENTRADA'
      Required = True
    end
    object CDSQ_LISTADOENTRADAFECHA: TDateField
      FieldName = 'FECHA'
      OnSetText = pcomprobarfecha
      EditMask = '!99/99/00;1;_'
    end
    object CDSQ_LISTADOENTRADAID_PROVEEDOR: TIntegerField
      FieldName = 'ID_PROVEEDOR'
    end
    object CDSQ_LISTADOENTRADANOMBREPROVEEDOR: TStringField
      FieldName = 'NOMBREPROVEEDOR'
      Size = 50
    end
    object CDSQ_LISTADOENTRADABASE_ENTRADA: TFloatField
      FieldName = 'BASE_ENTRADA'
    end
    object CDSQ_LISTADOENTRADADESCUENTO: TFloatField
      FieldName = 'DESCUENTO'
    end
    object CDSQ_LISTADOENTRADATOTALDESCUENTO: TFloatField
      FieldName = 'TOTALDESCUENTO'
    end
    object CDSQ_LISTADOENTRADATOTALIVA: TFloatField
      FieldName = 'TOTALIVA'
    end
    object CDSQ_LISTADOENTRADATOTAL: TFloatField
      FieldName = 'TOTAL'
    end
  end
  object CDSQ_LENTRADATOTAL: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPQ_LISTADOENTRADATOTAL'
    RemoteServer = DCOMConnection1
    BeforeOpen = CDSQ_LENTRADATOTALBeforeOpen
    BeforeClose = CDSQ_LENTRADATOTALBeforeClose
    OnReconcileError = CDSQ_LENTRADATOTALReconcileError
    BeforeGetRecords = CDSQ_LENTRADATOTALBeforeGetRecords
    AfterGetRecords = CDSQ_LENTRADATOTALAfterGetRecords
    Left = 352
    Top = 440
    object CDSQ_LENTRADATOTALBASE_ENTRADA: TFloatField
      FieldName = 'BASE_ENTRADA'
    end
    object CDSQ_LENTRADATOTALTOTALDESCUENTO: TFloatField
      FieldName = 'TOTALDESCUENTO'
    end
    object CDSQ_LENTRADATOTALTOTALIVA: TFloatField
      FieldName = 'TOTALIVA'
    end
    object CDSQ_LENTRADATOTALTOTAL: TFloatField
      FieldName = 'TOTAL'
    end
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'dat'
    FileName = 'Gconfiguracion.dat'
    Left = 32
    Top = 136
  end
  object CDSQ_TICKETAUX: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPQ_TICKETAUX'
    RemoteServer = DCOMConnection1
    BeforeOpen = CDSQ_TICKETAUXBeforeOpen
    BeforeClose = CDSQ_TICKETAUXBeforeClose
    OnCalcFields = CDSQ_TICKETAUXCalcFields
    OnReconcileError = CDSQ_TICKETAUXReconcileError
    BeforeGetRecords = CDSQ_TICKETAUXBeforeGetRecords
    AfterGetRecords = CDSQ_TICKETAUXAfterGetRecords
    Left = 456
    Top = 408
    object CDSQ_TICKETAUXID_TICKET: TIntegerField
      FieldName = 'ID_TICKET'
      Required = True
    end
    object CDSQ_TICKETAUXID_EMPRESA: TSmallintField
      FieldName = 'ID_EMPRESA'
      Required = True
    end
    object CDSQ_TICKETAUXANYO: TSmallintField
      FieldName = 'ANYO'
      Required = True
    end
    object CDSQ_TICKETAUXID_SERIE: TStringField
      FieldName = 'ID_SERIE'
      Required = True
      Size = 3
    end
    object CDSQ_TICKETAUXIMPRESO: TSmallintField
      FieldName = 'IMPRESO'
    end
    object CDSQ_TICKETAUXID_CLIENTE: TIntegerField
      FieldName = 'ID_CLIENTE'
      Required = True
    end
    object CDSQ_TICKETAUXCOBRADO: TSmallintField
      FieldName = 'COBRADO'
    end
    object CDSQ_TICKETAUXNOMBRECLIENTE: TStringField
      FieldName = 'NOMBRECLIENTE'
      ReadOnly = True
      Size = 150
    end
    object CDSQ_TICKETAUXIMPRIMIDO: TStringField
      FieldKind = fkCalculated
      FieldName = 'IMPRIMIDO'
      Calculated = True
    end
    object CDSQ_TICKETAUXIMPRIMIDOS: TStringField
      FieldKind = fkCalculated
      FieldName = 'IMPRIMIDOS'
      Calculated = True
    end
    object CDSQ_TICKETAUXCOBRADOS: TStringField
      FieldKind = fkCalculated
      FieldName = 'COBRADOS'
      Calculated = True
    end
    object CDSQ_TICKETAUXFORMAPAGO: TStringField
      FieldName = 'FORMAPAGO'
      Size = 5
    end
    object CDSQ_TICKETAUXHORACOBRO: TTimeField
      FieldName = 'HORACOBRO'
      EditMask = '!90:00;1;_'
    end
    object CDSQ_TICKETAUXFECHACOBRO: TDateField
      FieldName = 'FECHACOBRO'
      OnSetText = pcomprobarfecha
      EditMask = '!99/99/00;1;_'
    end
    object CDSQ_TICKETAUXHORA: TTimeField
      FieldName = 'HORA'
    end
    object CDSQ_TICKETAUXFECHA: TDateField
      FieldName = 'FECHA'
      OnSetText = pcomprobarfecha
      EditMask = '!99/99/00;1;_'
    end
    object CDSQ_TICKETAUXDESCUENTO: TFloatField
      FieldName = 'DESCUENTO'
    end
    object CDSQ_TICKETAUXDESCUENTOEURO: TFloatField
      FieldName = 'DESCUENTOEURO'
    end
    object CDSQ_TICKETAUXBASE_TICKET: TFloatField
      FieldName = 'BASE_TICKET'
    end
    object CDSQ_TICKETAUXBASE_TICKETSINIVA: TFloatField
      FieldName = 'BASE_TICKETSINIVA'
    end
    object CDSQ_TICKETAUXIVA: TFloatField
      FieldName = 'IVA'
    end
    object CDSQ_TICKETAUXENTREGA: TFloatField
      FieldName = 'ENTREGA'
    end
    object CDSQ_TICKETAUXDEVOLUCION: TFloatField
      FieldName = 'DEVOLUCION'
    end
    object CDSQ_TICKETAUXTOTALCOBRADO: TFloatField
      FieldName = 'TOTALCOBRADO'
    end
    object CDSQ_TICKETAUXTOTALDESCUENTO: TFloatField
      FieldName = 'TOTALDESCUENTO'
    end
  end
  object CDSQ_LARTICULOS: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPQ_LARTICULOS'
    RemoteServer = DCOMConnection1
    BeforeOpen = CDSQ_LARTICULOSBeforeOpen
    BeforeClose = CDSQ_LARTICULOSBeforeClose
    OnReconcileError = CDSQ_LARTICULOSReconcileError
    BeforeGetRecords = CDSQ_LARTICULOSBeforeGetRecords
    AfterGetRecords = CDSQ_LARTICULOSAfterGetRecords
    Left = 352
    Top = 344
  end
  object CDSQ_MDTICKETAUX: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPQ_MDTICKETAUX'
    RemoteServer = DCOMConnection1
    BeforeOpen = CDSQ_MDTICKETAUXBeforeOpen
    BeforeClose = CDSQ_MDTICKETAUXBeforeClose
    OnReconcileError = CDSQ_MDTICKETAUXReconcileError
    BeforeGetRecords = CDSQ_MDTICKETAUXBeforeGetRecords
    AfterGetRecords = CDSQ_MDTICKETAUXAfterGetRecords
    Left = 248
    Top = 184
    object CDSQ_MDTICKETAUXNOMBRECLIENTE: TStringField
      FieldName = 'NOMBRECLIENTE'
      ReadOnly = True
      Size = 150
    end
    object CDSQ_MDTICKETAUXID_TICKET: TIntegerField
      FieldName = 'ID_TICKET'
      Required = True
    end
    object CDSQ_MDTICKETAUXID_EMPRESA: TSmallintField
      FieldName = 'ID_EMPRESA'
      Required = True
    end
    object CDSQ_MDTICKETAUXANYO: TSmallintField
      FieldName = 'ANYO'
      Required = True
    end
    object CDSQ_MDTICKETAUXID_SERIE: TStringField
      FieldName = 'ID_SERIE'
      Required = True
      Size = 3
    end
    object CDSQ_MDTICKETAUXIMPRESO: TSmallintField
      FieldName = 'IMPRESO'
    end
    object CDSQ_MDTICKETAUXID_CLIENTE: TIntegerField
      FieldName = 'ID_CLIENTE'
      Required = True
    end
    object CDSQ_MDTICKETAUXCOBRADO: TSmallintField
      FieldName = 'COBRADO'
    end
    object CDSQ_MDTICKETAUXQ_MDLINEATICKETAUX: TDataSetField
      FieldName = 'Q_MDLINEATICKETAUX'
    end
    object CDSQ_MDTICKETAUXNOMBRE: TStringField
      FieldName = 'NOMBRE'
      Size = 50
    end
    object CDSQ_MDTICKETAUXFORMAPAGO: TStringField
      FieldName = 'FORMAPAGO'
      Size = 5
    end
    object CDSQ_MDTICKETAUXHORACOBRO: TTimeField
      FieldName = 'HORACOBRO'
      EditMask = '!90:00;1;_'
    end
    object CDSQ_MDTICKETAUXFECHACOBRO: TDateField
      FieldName = 'FECHACOBRO'
      OnSetText = pcomprobarfecha
      EditMask = '!99/99/00;1;_'
    end
    object CDSQ_MDTICKETAUXHORA: TTimeField
      FieldName = 'HORA'
    end
    object CDSQ_MDTICKETAUXFECHA: TDateField
      FieldName = 'FECHA'
      OnSetText = pcomprobarfecha
      EditMask = '!99/99/00;1;_'
    end
    object CDSQ_MDTICKETAUXDESCUENTO: TFloatField
      FieldName = 'DESCUENTO'
    end
    object CDSQ_MDTICKETAUXDESCUENTOEURO: TFloatField
      FieldName = 'DESCUENTOEURO'
    end
    object CDSQ_MDTICKETAUXBASE_TICKET: TFloatField
      FieldName = 'BASE_TICKET'
    end
    object CDSQ_MDTICKETAUXBASE_TICKETSINIVA: TFloatField
      FieldName = 'BASE_TICKETSINIVA'
    end
    object CDSQ_MDTICKETAUXIVA: TFloatField
      FieldName = 'IVA'
    end
    object CDSQ_MDTICKETAUXENTREGA: TFloatField
      FieldName = 'ENTREGA'
    end
    object CDSQ_MDTICKETAUXDEVOLUCION: TFloatField
      FieldName = 'DEVOLUCION'
    end
    object CDSQ_MDTICKETAUXTOTALCOBRADO: TFloatField
      FieldName = 'TOTALCOBRADO'
    end
    object CDSQ_MDTICKETAUXTOTALDESCUENTO: TFloatField
      FieldName = 'TOTALDESCUENTO'
    end
  end
  object CDSQ_MDLINEATICKETAUX: TClientDataSet
    Aggregates = <>
    DataSetField = CDSQ_MDTICKETAUXQ_MDLINEATICKETAUX
    Params = <>
    Left = 248
    Top = 200
    object CDSQ_MDLINEATICKETAUXID_TICKET: TIntegerField
      FieldName = 'ID_TICKET'
      Required = True
    end
    object CDSQ_MDLINEATICKETAUXID_EMPRESA: TSmallintField
      FieldName = 'ID_EMPRESA'
      Required = True
    end
    object CDSQ_MDLINEATICKETAUXANYO: TSmallintField
      FieldName = 'ANYO'
      Required = True
    end
    object CDSQ_MDLINEATICKETAUXID_SERIE: TStringField
      FieldName = 'ID_SERIE'
      Required = True
      Size = 3
    end
    object CDSQ_MDLINEATICKETAUXLINEA: TSmallintField
      FieldName = 'LINEA'
      Required = True
    end
    object CDSQ_MDLINEATICKETAUXID_ARTICULO: TStringField
      FieldName = 'ID_ARTICULO'
      Size = 30
    end
    object CDSQ_MDLINEATICKETAUXMARCA: TStringField
      FieldName = 'MARCA'
      Size = 10
    end
    object CDSQ_MDLINEATICKETAUXDESCRIPCION: TStringField
      FieldName = 'DESCRIPCION'
      Size = 700
    end
    object CDSQ_MDLINEATICKETAUXDESCRIPCIONGAR: TStringField
      FieldName = 'DESCRIPCIONGAR'
      Size = 100
    end
    object CDSQ_MDLINEATICKETAUXCANTIDAD: TFloatField
      FieldName = 'CANTIDAD'
    end
    object CDSQ_MDLINEATICKETAUXPRECIO: TFloatField
      FieldName = 'PRECIO'
    end
    object CDSQ_MDLINEATICKETAUXDESCUENTO: TFloatField
      FieldName = 'DESCUENTO'
    end
    object CDSQ_MDLINEATICKETAUXDESCUENTOEURO: TFloatField
      FieldName = 'DESCUENTOEURO'
    end
    object CDSQ_MDLINEATICKETAUXIMPORTE: TFloatField
      FieldName = 'IMPORTE'
    end
    object CDSQ_MDLINEATICKETAUXIVA: TFloatField
      FieldName = 'IVA'
    end
    object CDSQ_MDLINEATICKETAUXPRECIO_COSTE: TFloatField
      FieldName = 'PRECIO_COSTE'
    end
  end
  object CDSQ_FALBARANES: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPQ_FACTURASALBARANES'
    RemoteServer = DCOMConnection1
    BeforeOpen = CDSQ_FALBARANESBeforeOpen
    BeforeClose = CDSQ_FALBARANESBeforeClose
    BeforePost = CDSQ_FALBARANESBeforePost
    AfterPost = CDSQ_FALBARANESAfterPost
    BeforeDelete = CDSQ_FALBARANESBeforeDelete
    OnDeleteError = CDSQ_FALBARANESDeleteError
    OnEditError = CDSQ_FALBARANESEditError
    OnPostError = CDSQ_FALBARANESPostError
    OnReconcileError = CDSQ_FALBARANESReconcileError
    BeforeGetRecords = CDSQ_FALBARANESBeforeGetRecords
    AfterGetRecords = CDSQ_FALBARANESAfterGetRecords
    Left = 56
    Top = 384
    object CDSQ_FALBARANESID_FACTURA: TIntegerField
      FieldName = 'ID_FACTURA'
      Required = True
    end
    object CDSQ_FALBARANESANYO: TSmallintField
      FieldName = 'ANYO'
      Required = True
    end
    object CDSQ_FALBARANESID_EMPRESA: TSmallintField
      FieldName = 'ID_EMPRESA'
      Required = True
    end
    object CDSQ_FALBARANESID_SERIE: TStringField
      FieldName = 'ID_SERIE'
      Required = True
      Size = 3
    end
    object CDSQ_FALBARANESID_ALBARAN: TIntegerField
      FieldName = 'ID_ALBARAN'
      Required = True
    end
    object CDSQ_FALBARANESALBANYO: TSmallintField
      FieldName = 'ALBANYO'
      Required = True
    end
    object CDSQ_FALBARANESALBID_EMPRESA: TSmallintField
      FieldName = 'ALBID_EMPRESA'
      Required = True
    end
    object CDSQ_FALBARANESALBID_SERIE: TStringField
      FieldName = 'ALBID_SERIE'
      Required = True
      Size = 3
    end
    object CDSQ_FALBARANESBASE_FACTURA: TFloatField
      FieldName = 'BASE_FACTURA'
    end
    object CDSQ_FALBARANESBASE_ALBARAN: TFloatField
      FieldName = 'BASE_ALBARAN'
    end
    object CDSQ_FALBARANESALBTOTAL_COBRADO: TFloatField
      FieldName = 'ALBTOTAL_COBRADO'
      currency = True
    end
    object CDSQ_FALBARANESTIPO: TStringField
      FieldName = 'TIPO'
      Required = True
      Size = 2
    end
  end
  object CDSQ_FALBARANESAUX: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPQ_FALBARANESAUX'
    RemoteServer = DCOMConnection1
    BeforeOpen = CDSQ_FALBARANESAUXBeforeOpen
    BeforeClose = CDSQ_FALBARANESAUXBeforeClose
    OnReconcileError = CDSQ_FALBARANESAUXReconcileError
    BeforeGetRecords = CDSQ_FALBARANESAUXBeforeGetRecords
    AfterGetRecords = CDSQ_FALBARANESAUXAfterGetRecords
    Left = 96
    Top = 384
    object CDSQ_FALBARANESAUXID_FACTURA: TIntegerField
      FieldName = 'ID_FACTURA'
      Required = True
    end
    object CDSQ_FALBARANESAUXANYO: TSmallintField
      FieldName = 'ANYO'
      Required = True
    end
    object CDSQ_FALBARANESAUXID_EMPRESA: TSmallintField
      FieldName = 'ID_EMPRESA'
      Required = True
    end
    object CDSQ_FALBARANESAUXID_SERIE: TStringField
      FieldName = 'ID_SERIE'
      Required = True
      Size = 3
    end
    object CDSQ_FALBARANESAUXID_ALBARAN: TIntegerField
      FieldName = 'ID_ALBARAN'
      Required = True
    end
    object CDSQ_FALBARANESAUXALBANYO: TSmallintField
      FieldName = 'ALBANYO'
      Required = True
    end
    object CDSQ_FALBARANESAUXALBID_EMPRESA: TSmallintField
      FieldName = 'ALBID_EMPRESA'
      Required = True
    end
    object CDSQ_FALBARANESAUXALBID_SERIE: TStringField
      FieldName = 'ALBID_SERIE'
      Required = True
      Size = 3
    end
    object CDSQ_FALBARANESAUXBASE_FACTURA: TFloatField
      FieldName = 'BASE_FACTURA'
    end
    object CDSQ_FALBARANESAUXBASE_ALBARAN: TFloatField
      FieldName = 'BASE_ALBARAN'
    end
    object CDSQ_FALBARANESAUXALBTOTAL_COBRADO: TFloatField
      FieldName = 'ALBTOTAL_COBRADO'
      currency = True
    end
    object CDSQ_FALBARANESAUXTIPO: TStringField
      FieldName = 'TIPO'
      Required = True
      Size = 2
    end
  end
  object CDSQ_ARQUEODECAJA: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPQ_ARQUEODECAJA'
    RemoteServer = DCOMConnection1
    BeforeOpen = CDSQ_ARQUEODECAJABeforeOpen
    BeforeClose = CDSQ_ARQUEODECAJABeforeClose
    BeforeInsert = CDSQ_ARQUEODECAJABeforeInsert
    AfterInsert = CDSQ_ARQUEODECAJAAfterInsert
    BeforePost = CDSQ_ARQUEODECAJABeforePost
    AfterPost = CDSQ_ARQUEODECAJAAfterPost
    BeforeDelete = CDSQ_ARQUEODECAJABeforeDelete
    OnCalcFields = CDSQ_ARQUEODECAJACalcFields
    OnDeleteError = CDSQ_ARQUEODECAJADeleteError
    OnEditError = CDSQ_ARQUEODECAJAEditError
    OnPostError = CDSQ_ARQUEODECAJAPostError
    OnReconcileError = CDSQ_ARQUEODECAJAReconcileError
    BeforeGetRecords = CDSQ_ARQUEODECAJABeforeGetRecords
    AfterGetRecords = CDSQ_ARQUEODECAJAAfterGetRecords
    Left = 144
    Top = 16
    object CDSQ_ARQUEODECAJAAFECHA: TDateField
      FieldName = 'AFECHA'
      Required = True
      OnSetText = pcomprobarfecha
      EditMask = '!99/99/00;1;_'
    end
    object CDSQ_ARQUEODECAJAAHORA: TTimeField
      FieldName = 'AHORA'
      Required = True
      EditMask = '!90:00;1;_'
    end
    object CDSQ_ARQUEODECAJAID_EMPRESA: TSmallintField
      FieldName = 'ID_EMPRESA'
      Required = True
    end
    object CDSQ_ARQUEODECAJAANYO: TSmallintField
      FieldName = 'ANYO'
      Required = True
    end
    object CDSQ_ARQUEODECAJAAB500: TSmallintField
      FieldName = 'AB500'
    end
    object CDSQ_ARQUEODECAJAAB200: TSmallintField
      FieldName = 'AB200'
    end
    object CDSQ_ARQUEODECAJAAB100: TSmallintField
      FieldName = 'AB100'
    end
    object CDSQ_ARQUEODECAJAAB50: TSmallintField
      FieldName = 'AB50'
    end
    object CDSQ_ARQUEODECAJAAB20: TSmallintField
      FieldName = 'AB20'
    end
    object CDSQ_ARQUEODECAJAAB10: TSmallintField
      FieldName = 'AB10'
    end
    object CDSQ_ARQUEODECAJAAB5: TSmallintField
      FieldName = 'AB5'
    end
    object CDSQ_ARQUEODECAJAAM2: TSmallintField
      FieldName = 'AM2'
    end
    object CDSQ_ARQUEODECAJAAM1: TSmallintField
      FieldName = 'AM1'
    end
    object CDSQ_ARQUEODECAJAAM050: TSmallintField
      FieldName = 'AM050'
    end
    object CDSQ_ARQUEODECAJAAM020: TSmallintField
      FieldName = 'AM020'
    end
    object CDSQ_ARQUEODECAJAAM010: TSmallintField
      FieldName = 'AM010'
    end
    object CDSQ_ARQUEODECAJAAM005: TSmallintField
      FieldName = 'AM005'
    end
    object CDSQ_ARQUEODECAJAAM002: TSmallintField
      FieldName = 'AM002'
    end
    object CDSQ_ARQUEODECAJAAM001: TSmallintField
      FieldName = 'AM001'
    end
    object CDSQ_ARQUEODECAJAESTADO: TSmallintField
      FieldName = 'ESTADO'
    end
    object CDSQ_ARQUEODECAJACB500: TSmallintField
      FieldName = 'CB500'
    end
    object CDSQ_ARQUEODECAJACB200: TSmallintField
      FieldName = 'CB200'
    end
    object CDSQ_ARQUEODECAJACB100: TSmallintField
      FieldName = 'CB100'
    end
    object CDSQ_ARQUEODECAJACB50: TSmallintField
      FieldName = 'CB50'
    end
    object CDSQ_ARQUEODECAJACB20: TSmallintField
      FieldName = 'CB20'
    end
    object CDSQ_ARQUEODECAJACB10: TSmallintField
      FieldName = 'CB10'
    end
    object CDSQ_ARQUEODECAJACB5: TSmallintField
      FieldName = 'CB5'
    end
    object CDSQ_ARQUEODECAJACM2: TSmallintField
      FieldName = 'CM2'
    end
    object CDSQ_ARQUEODECAJACM1: TSmallintField
      FieldName = 'CM1'
    end
    object CDSQ_ARQUEODECAJACM050: TSmallintField
      FieldName = 'CM050'
    end
    object CDSQ_ARQUEODECAJACM020: TSmallintField
      FieldName = 'CM020'
    end
    object CDSQ_ARQUEODECAJACM010: TSmallintField
      FieldName = 'CM010'
    end
    object CDSQ_ARQUEODECAJACM005: TSmallintField
      FieldName = 'CM005'
    end
    object CDSQ_ARQUEODECAJACM002: TSmallintField
      FieldName = 'CM002'
    end
    object CDSQ_ARQUEODECAJACM001: TSmallintField
      FieldName = 'CM001'
    end
    object CDSQ_ARQUEODECAJACFECHA: TDateField
      FieldName = 'CFECHA'
      OnSetText = pcomprobarfecha
      EditMask = '!99/99/00;1;_'
    end
    object CDSQ_ARQUEODECAJACHORA: TTimeField
      FieldName = 'CHORA'
      EditMask = '!90:00;1;_'
    end
    object CDSQ_ARQUEODECAJAATOTAL: TFloatField
      FieldName = 'ATOTAL'
    end
    object CDSQ_ARQUEODECAJACTOTAL: TFloatField
      FieldName = 'CTOTAL'
    end
    object CDSQ_ARQUEODECAJACAJA: TFloatField
      FieldName = 'CAJA'
    end
    object CDSQ_ARQUEODECAJAestados: TStringField
      FieldKind = fkCalculated
      FieldName = 'estados'
      Size = 150
      Calculated = True
    end
  end
  object CDSQ_PRUEBA: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSP_PRUEBA'
    RemoteServer = DCOMConnection1
    BeforeGetRecords = CDSQ_PRUEBABeforeGetRecords
    AfterGetRecords = CDSQ_PRUEBAAfterGetRecords
    Left = 536
    Top = 488
  end
  object CDSQ_TIPOSIVA: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'ID'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'TIPO'
        Attributes = [faRequired]
        DataType = ftFloat
      end
      item
        Name = 'VALIDODESDE'
        DataType = ftDate
      end
      item
        Name = 'VALIDOHASTA'
        DataType = ftDate
      end>
    IndexDefs = <
      item
        Name = 'IDINDEX'
        DescFields = 'ID'
        Fields = 'ID'
        Options = [ixDescending]
      end
      item
        Name = 'TIPOINDEX'
        DescFields = 'TIPO'
        Fields = 'TIPO'
        Options = [ixDescending]
      end
      item
        Name = 'VALIDODESDEINDEX'
        DescFields = 'VALIDODESDE'
        Fields = 'VALIDODESDE'
        Options = [ixDescending]
      end
      item
        Name = 'VALIDOHASTAINDEX'
        DescFields = 'VALIDOHASTA'
        Fields = 'VALIDOHASTA'
        Options = [ixDescending]
      end>
    Params = <>
    ProviderName = 'DSPQ_TIPOSIVA'
    RemoteServer = DCOMConnection1
    StoreDefs = True
    BeforeOpen = CDSQ_TIPOSIVABeforeOpen
    BeforeClose = CDSQ_TIPOSIVABeforeClose
    AfterInsert = CDSQ_TIPOSIVAAfterInsert
    BeforePost = CDSQ_TIPOSIVABeforePost
    AfterPost = CDSQ_TIPOSIVAAfterPost
    BeforeCancel = CDSQ_TIPOSIVABeforeCancel
    OnDeleteError = CDSQ_TIPOSIVADeleteError
    OnEditError = CDSQ_TIPOSIVAEditError
    OnPostError = CDSQ_TIPOSIVAPostError
    OnReconcileError = CDSQ_TIPOSIVAReconcileError
    BeforeGetRecords = CDSQ_TIPOSIVABeforeGetRecords
    AfterGetRecords = CDSQ_TIPOSIVAAfterGetRecords
    Left = 448
    Top = 496
    object CDSQ_TIPOSIVAID: TIntegerField
      FieldName = 'ID'
      Required = True
    end
    object CDSQ_TIPOSIVATIPO: TFloatField
      FieldName = 'TIPO'
      Required = True
    end
    object CDSQ_TIPOSIVAVALIDODESDE: TDateField
      FieldName = 'VALIDODESDE'
      EditMask = '!99/99/00;1;_'
    end
    object CDSQ_TIPOSIVAVALIDOHASTA: TDateField
      FieldName = 'VALIDOHASTA'
      EditMask = '!99/99/00;1;_'
    end
  end
  object CDSQ_ALMACENDETALLE2: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'NUMERO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'NUMERO1'
        DataType = ftInteger
      end
      item
        Name = 'FECHA_CADUCIDAD'
        DataType = ftDate
      end
      item
        Name = 'CANTIDAD'
        DataType = ftFloat
      end
      item
        Name = 'NUMEROSERIE'
        DataType = ftString
        Size = 250
      end
      item
        Name = 'IMPRESO'
        DataType = ftSmallint
      end
      item
        Name = 'CODIGO_BARRAS'
        DataType = ftString
        Size = 250
      end>
    IndexDefs = <
      item
        Name = 'FECHA_CADUCIDADINDEX'
        DescFields = 'FECHA_CADUCIDAD'
        Fields = 'FECHA_CADUCIDAD'
        Options = [ixDescending]
      end
      item
        Name = 'NUMEROSERIEINDEX'
        DescFields = 'NUMEROSERIE'
        Fields = 'NUMEROSERIE'
        Options = [ixDescending]
      end
      item
        Name = 'CANTIDADINDEX'
        DescFields = 'CANTIDAD'
        Fields = 'CANTIDAD'
        Options = [ixDescending]
      end>
    Params = <>
    ProviderName = 'DSPQ_ALMACENDETALLE2'
    RemoteServer = DCOMConnection1
    StoreDefs = True
    BeforeOpen = CDSQ_ALMACENDETALLE2BeforeOpen
    BeforeClose = CDSQ_ALMACENDETALLE2BeforeClose
    AfterInsert = CDSQ_ALMACENDETALLE2AfterInsert
    BeforePost = CDSQ_ALMACENDETALLE2BeforePost
    AfterPost = CDSQ_ALMACENDETALLE2AfterPost
    BeforeCancel = CDSQ_ALMACENDETALLE2BeforeCancel
    OnDeleteError = CDSQ_ALMACENDETALLE2DeleteError
    OnEditError = CDSQ_ALMACENDETALLE2EditError
    OnPostError = CDSQ_ALMACENDETALLE2PostError
    OnReconcileError = CDSQ_ALMACENDETALLE2ReconcileError
    BeforeGetRecords = CDSQ_ALMACENDETALLE2BeforeGetRecords
    AfterGetRecords = CDSQ_ALMACENDETALLE2AfterGetRecords
    Left = 608
    Top = 496
    object CDSQ_ALMACENDETALLE2NUMERO: TIntegerField
      FieldName = 'NUMERO'
    end
    object CDSQ_ALMACENDETALLE2NUMERO1: TIntegerField
      FieldName = 'NUMERO1'
    end
    object CDSQ_ALMACENDETALLE2FECHA_CADUCIDAD: TDateField
      FieldName = 'FECHA_CADUCIDAD'
      EditMask = '!99/99/00;1;_'
    end
    object CDSQ_ALMACENDETALLE2CANTIDAD: TFloatField
      FieldName = 'CANTIDAD'
    end
    object CDSQ_ALMACENDETALLE2NUMEROSERIE: TStringField
      FieldName = 'NUMEROSERIE'
      Size = 250
    end
    object CDSQ_ALMACENDETALLE2IMPRESO: TSmallintField
      FieldName = 'IMPRESO'
    end
    object CDSQ_ALMACENDETALLE2CODIGO_BARRAS: TStringField
      FieldName = 'CODIGO_BARRAS'
      Size = 250
    end
    object CDSQ_ALMACENDETALLE2IMPRIME: TSmallintField
      FieldKind = fkInternalCalc
      FieldName = 'IMPRIME'
    end
  end
end