object srvArticulos: TsrvArticulos
  OldCreateOrder = True
  SessionManager = dmServer.SessionManager
  AcquireConnection = True
  ConnectionName = 'IBX'
  ServiceSchema = schArticulos
  ServiceAdapter = DABINAdapter
  Left = 739
  Top = 228
  Height = 300
  Width = 300
  object schArticulos: TDASchema
    ConnectionManager = dmServer.ConnectionManager
    DataDictionary = dmServer.DataDictionary
    Diagrams = dmServer.DADiagrams
    Datasets = <
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'ARTICULOS'
            SQL = 
              'SELECT'#10'    ARTICULOS.CODIGO, ARTICULOS.CODIGOALMACEN, ARTICULOS.' +
              'DESCRIPCION, 0 as CANTIDAD,'#10'    ARTICULOS.CODIGOPEDIDO, PEDIDOS.' +
              'REFERENCIA as REFERENCIAPEDIDO,'#10'    ARTICULOS.CODIGOMONTAJE, MON' +
              'TAJES.REFERENCIA as REFERENCIAMONTAJE,'#10'    CONTACTOS.NOMBRE AS C' +
              'LIENTE, ALMACENES.NOMBRE as ALMACEN,'#10'    MONTAJES.SITUACION'#10'FROM' +
              ' ARTICULOS'#10'LEFT JOIN ALMACENES ON (ARTICULOS.CODIGOALMACEN = ALM' +
              'ACENES.CODIGO)'#10'LEFT JOIN PEDIDOS ON (ARTICULOS.CODIGOPEDIDO = PE' +
              'DIDOS.CODIGO)'#10'LEFT JOIN MONTAJES ON (ARTICULOS.CODIGOMONTAJE = M' +
              'ONTAJES.CODIGO)'#10'LEFT JOIN CONTACTOS ON (MONTAJES.CODIGOCONTACTO ' +
              '= CONTACTOS.CODIGO)'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'CODIGO'
                TableField = 'CODIGO'
              end
              item
                DatasetField = 'CODIGOALMACEN'
                TableField = 'CODIGOALMACEN'
              end
              item
                DatasetField = 'CODIGOPEDIDO'
                TableField = 'CODIGOPEDIDO'
              end
              item
                DatasetField = 'DESCRIPCION'
                TableField = 'DESCRIPCION'
              end
              item
                DatasetField = 'CODIGOMONTAJE'
                TableField = 'CODIGOMONTAJE'
              end
              item
                DatasetField = 'REFERENCIAPEDIDO'
                TableField = 'REFERENCIAPEDIDO'
              end
              item
                DatasetField = 'REFERENCIAMONTAJE'
                TableField = 'REFERENCIAMONTAJE'
              end
              item
                DatasetField = 'ALMACEN'
                TableField = 'ALMACEN'
              end
              item
                DatasetField = 'CLIENTE'
                TableField = 'CLIENTE'
              end
              item
                DatasetField = 'SITUACION'
                TableField = 'SITUACION'
              end>
          end>
        Name = 'ARTICULOS'
        Fields = <
          item
            Name = 'CODIGO'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'CODIGO (GENERICO)'
            InPrimaryKey = True
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGOALMACEN'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'CODIGOALMACEN'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGOPEDIDO'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            DisplayLabel = 'C'#243'd. pedido'
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CANTIDAD'
            DataType = datInteger
            BlobType = dabtUnknown
            LogChanges = False
            DisplayWidth = 0
            Alignment = taRightJustify
            InPrimaryKey = False
            Calculated = True
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGOMONTAJE'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'DESCRIPCION'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            DictionaryEntry = 'DESCRIPCION'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'REFERENCIAPEDIDO'
            DataType = datString
            Size = 20
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'REFERENCIAMONTAJE'
            DataType = datString
            Size = 20
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CLIENTE'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            DisplayWidth = 0
            DisplayLabel = 'Cliente'
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ALMACEN'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            DisplayWidth = 0
            DisplayLabel = 'Almac'#233'n'
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'SITUACION'
            DataType = datString
            Size = 30
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end
      item
        Params = <
          item
            Name = 'CODIGO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'ARTICULOS'
            SQL = 
              'SELECT'#10'    ARTICULOS.CODIGO, ARTICULOS.CODIGOALMACEN, ARTICULOS.' +
              'DESCRIPCION,'#10'    ARTICULOS.CODIGOPEDIDO, PEDIDOS.REFERENCIA as R' +
              'EFERENCIAPEDIDO,'#10'    ARTICULOS.CODIGOMONTAJE, MONTAJES.REFERENCI' +
              'A as REFERENCIAMONTAJE,'#10'    CONTACTOS.NOMBRE AS CLIENTE, ALMACEN' +
              'ES.NOMBRE as ALMACEN,'#10'    MONTAJES.SITUACION'#10'FROM ARTICULOS'#10'LEFT' +
              ' JOIN ALMACENES ON (ARTICULOS.CODIGOALMACEN = ALMACENES.CODIGO)'#10 +
              'LEFT JOIN PEDIDOS ON (ARTICULOS.CODIGOPEDIDO = PEDIDOS.CODIGO)'#10'L' +
              'EFT JOIN MONTAJES ON (ARTICULOS.CODIGOMONTAJE = MONTAJES.CODIGO)' +
              #10'LEFT JOIN CONTACTOS ON (MONTAJES.CODIGOCONTACTO = CONTACTOS.COD' +
              'IGO)'#10'WHERE ARTICULOS.CODIGO = :CODIGO'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'CODIGO'
                TableField = 'CODIGO'
              end
              item
                DatasetField = 'CODIGOALMACEN'
                TableField = 'CODIGOALMACEN'
              end
              item
                DatasetField = 'CODIGOPEDIDO'
                TableField = 'CODIGOPEDIDO'
              end
              item
                DatasetField = 'DESCRIPCION'
                TableField = 'DESCRIPCION'
              end
              item
                DatasetField = 'CODIGOMONTAJE'
                TableField = 'CODIGOMONTAJE'
              end
              item
                DatasetField = 'REFERENCIAPEDIDO'
                TableField = 'REFERENCIAPEDIDO'
              end
              item
                DatasetField = 'REFERENCIAMONTAJE'
                TableField = 'REFERENCIAMONTAJE'
              end
              item
                DatasetField = 'ALMACEN'
                TableField = 'ALMACEN'
              end
              item
                DatasetField = 'CLIENTE'
                TableField = 'CLIENTE'
              end
              item
                DatasetField = 'SITUACION'
                TableField = 'SITUACION'
              end>
          end>
        Name = 'Refresh_ARTICULOS'
        Fields = <
          item
            Name = 'CODIGO'
            DataType = datAutoInc
            BlobType = dabtUnknown
            GeneratorName = 'GEN_ARTICULOS'
            DictionaryEntry = 'CODIGOARTICULO_GEN'
            InPrimaryKey = True
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGOALMACEN'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'CODIGOALMACEN'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGOPEDIDO'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            DisplayLabel = 'C'#243'd. pedido'
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGOMONTAJE'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'DESCRIPCION'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            DictionaryEntry = 'DESCRIPCION'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'REFERENCIAPEDIDO'
            DataType = datString
            Size = 20
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'REFERENCIAMONTAJE'
            DataType = datString
            Size = 20
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CLIENTE'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            DisplayWidth = 0
            DisplayLabel = 'Cliente'
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ALMACEN'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'SITUACION'
            DataType = datString
            Size = 30
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end>
    Commands = <
      item
        Params = <
          item
            Name = 'CODIGO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CODIGOALMACEN'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CODIGOPEDIDO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'DESCRIPCION'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CODIGOMONTAJE'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'ARTICULOS'
            SQL = 
              'INSERT'#10'  INTO ARTICULOS'#10'    (CODIGO, CODIGOALMACEN, CODIGOPEDIDO' +
              ', DESCRIPCION, CODIGOMONTAJE)'#10'  VALUES'#10'    (:CODIGO, :CODIGOALMA' +
              'CEN, :CODIGOPEDIDO, :DESCRIPCION, :CODIGOMONTAJE)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Insert_ARTICULOS'
      end
      item
        Params = <
          item
            Name = 'OLD_CODIGO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'ARTICULOS'
            SQL = 'DELETE '#10'  FROM'#10'    ARTICULOS'#10'  WHERE'#10'    (CODIGO = :OLD_CODIGO)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Delete_ARTICULOS'
      end
      item
        Params = <
          item
            Name = 'CODIGOALMACEN'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CODIGOPEDIDO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'DESCRIPCION'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CODIGOMONTAJE'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'OLD_CODIGO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'ARTICULOS'
            SQL = 
              'UPDATE ARTICULOS'#10'  SET '#10'    CODIGOALMACEN = :CODIGOALMACEN, '#10'   ' +
              ' CODIGOPEDIDO = :CODIGOPEDIDO, '#10'    DESCRIPCION = :DESCRIPCION, ' +
              #10'    CODIGOMONTAJE = :CODIGOMONTAJE'#10'  WHERE'#10'    (CODIGO = :OLD_C' +
              'ODIGO)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Update_ARTICULOS'
      end>
    RelationShips = <>
    UpdateRules = <
      item
        Name = 'Insert ARTICULOS'
        DoUpdate = False
        DoInsert = True
        DoDelete = False
        DatasetName = 'ARTICULOS'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Update ARTICULOS'
        DoUpdate = True
        DoInsert = False
        DoDelete = False
        DatasetName = 'ARTICULOS'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Delete ARTICULOS'
        DoUpdate = False
        DoInsert = False
        DoDelete = True
        DatasetName = 'ARTICULOS'
        FailureBehaviour = fbRaiseException
      end>
    Left = 40
    Top = 16
  end
  object bpArticulos: TDABusinessProcessor
    Schema = schArticulos
    InsertCommandName = 'Insert_ARTICULOS'
    UpdateCommandName = 'Update_ARTICULOS'
    RefreshDatasetName = 'Refresh_ARTICULOS'
    ReferencedDataset = 'ARTICULOS'
    ProcessorOptions = [poAutoGenerateDelete, poPrepareCommands]
    UpdateMode = updWhereKeyOnly
    Left = 184
    Top = 16
  end
  object DABINAdapter: TDABINAdapter
    Left = 40
    Top = 72
  end
end