AlonsoYSal_FactuGES/Modulos/Contactos/Servidor/srvContactos_Impl.dfm

object srvContactos: TsrvContactos
  OldCreateOrder = True
  OnCreate = DARemoteServiceCreate
  SessionManager = dmServer.SessionManager
  OnActivate = DARemoteServiceActivate
  AcquireConnection = True
  ConnectionName = 'IBX'
  ServiceSchema = schContactos
  ServiceAdapter = DABINAdapter
  Left = 1015
  Top = 315
  Height = 354
  Width = 450
  object schContactos: TDASchema
    ConnectionManager = dmServer.ConnectionManager
    DataDictionary = dmServer.DataDictionary
    Diagrams = dmServer.DADiagrams
    Datasets = <
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'CONTACTOS'
            SQL = 
              'SELECT DISTINCT CONTACTOS.CODIGOEMPRESA, CONTACTOS.CODIGO, CONTA' +
              'CTOS.FECHAALTA, CONTACTOS.USUARIO, CONTACTOS.NIFCIF, CONTACTOS.N' +
              'OMBRE, CONTACTOS.NOTAS, CONTACTOS.CALLE, CONTACTOS.PROVINCIA, CO' +
              'NTACTOS.CODIGOPOSTAL, CONTACTOS.POBLACION, CONTACTOS.TELEFONO1, ' +
              'CONTACTOS.TELEFONO2, CONTACTOS.MOVIL, CONTACTOS.FAX, CONTACTOS.C' +
              'ORREO1, CONTACTOS.CORREO2, CONTACTOS.PAGINAWEB, CONTACTOS.PERSON' +
              'ACONTACTO, CONTACTOS.BAJA_LOGICA'#10'FROM CONTACTOSCATEGORIAS'#10'   INN' +
              'ER JOIN CONTACTOS ON (CONTACTOSCATEGORIAS.CODIGOCONTACTO = CONTA' +
              'CTOS.CODIGO)'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'CODIGOEMPRESA'
                TableField = 'CODIGOEMPRESA'
              end
              item
                DatasetField = 'CODIGO'
                TableField = 'CODIGO'
              end
              item
                DatasetField = 'FECHAALTA'
                TableField = 'FECHAALTA'
              end
              item
                DatasetField = 'USUARIO'
                TableField = 'USUARIO'
              end
              item
                DatasetField = 'NIFCIF'
                TableField = 'NIFCIF'
              end
              item
                DatasetField = 'NOMBRE'
                TableField = 'NOMBRE'
              end
              item
                DatasetField = 'NOTAS'
                TableField = 'NOTAS'
              end
              item
                DatasetField = 'CALLE'
                TableField = 'CALLE'
              end
              item
                DatasetField = 'PROVINCIA'
                TableField = 'PROVINCIA'
              end
              item
                DatasetField = 'CODIGOPOSTAL'
                TableField = 'CODIGOPOSTAL'
              end
              item
                DatasetField = 'POBLACION'
                TableField = 'POBLACION'
              end
              item
                DatasetField = 'TELEFONO1'
                TableField = 'TELEFONO1'
              end
              item
                DatasetField = 'TELEFONO2'
                TableField = 'TELEFONO2'
              end
              item
                DatasetField = 'MOVIL'
                TableField = 'MOVIL'
              end
              item
                DatasetField = 'FAX'
                TableField = 'FAX'
              end
              item
                DatasetField = 'CORREO1'
                TableField = 'CORREO1'
              end
              item
                DatasetField = 'CORREO2'
                TableField = 'CORREO2'
              end
              item
                DatasetField = 'PAGINAWEB'
                TableField = 'PAGINAWEB'
              end
              item
                DatasetField = 'PERSONACONTACTO'
                TableField = 'PERSONACONTACTO'
              end
              item
                DatasetField = 'BAJA_LOGICA'
                TableField = 'BAJA_LOGICA'
              end>
          end>
        Name = 'Contactos'
        Fields = <
          item
            Name = 'CODIGOEMPRESA'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'CODIGOEMPRESA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGO'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'CODIGOCONTACTO'
            InPrimaryKey = True
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FECHAALTA'
            DataType = datDateTime
            BlobType = dabtUnknown
            DictionaryEntry = 'FECHAALTA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'USUARIO'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            DictionaryEntry = 'USUARIO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'NIFCIF'
            DataType = datString
            Size = 10
            BlobType = dabtUnknown
            DictionaryEntry = 'NIFCIF'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'NOMBRE'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            DictionaryEntry = 'NOMBRE'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'NOTAS'
            DataType = datString
            Size = 2000
            BlobType = dabtUnknown
            DictionaryEntry = 'NOTAS'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CALLE'
            DataType = datString
            Size = 150
            BlobType = dabtUnknown
            DictionaryEntry = 'CALLE'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'PROVINCIA'
            DataType = datString
            Size = 30
            BlobType = dabtUnknown
            DictionaryEntry = 'PROVINCIA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGOPOSTAL'
            DataType = datString
            Size = 5
            BlobType = dabtUnknown
            DictionaryEntry = 'CODIGOPOSTAL'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'POBLACION'
            DataType = datString
            Size = 40
            BlobType = dabtUnknown
            DictionaryEntry = 'POBLACION'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'TELEFONO1'
            DataType = datString
            Size = 30
            BlobType = dabtUnknown
            DictionaryEntry = 'TELEFONOPARTICULAR'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'TELEFONO2'
            DataType = datString
            Size = 30
            BlobType = dabtUnknown
            DictionaryEntry = 'TELEFONOTRABAJO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'MOVIL'
            DataType = datString
            Size = 30
            BlobType = dabtUnknown
            DictionaryEntry = 'MOVIL'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FAX'
            DataType = datString
            Size = 30
            BlobType = dabtUnknown
            DictionaryEntry = 'FAX'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CORREO1'
            DataType = datString
            Size = 60
            BlobType = dabtUnknown
            DictionaryEntry = 'CORREO1'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CORREO2'
            DataType = datString
            Size = 60
            BlobType = dabtUnknown
            DictionaryEntry = 'CORREO2'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'PAGINAWEB'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            DictionaryEntry = 'PAGINAWEB'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'PERSONACONTACTO'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            DictionaryEntry = 'PERSONACONTACTO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'BAJA_LOGICA'
            DataType = datInteger
            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 = 'CODIGOCONTACTO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'CONTACTOSCATEGORIAS'
            SQL = 
              'SELECT '#10'    CODIGOCONTACTO, CODIGOCATEGORIA'#10'  FROM'#10'    CONTACTOS' +
              'CATEGORIAS'#10'  WHERE CODIGOCONTACTO = :CODIGOCONTACTO'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'CODIGOCONTACTO'
                TableField = 'CODIGOCONTACTO'
              end
              item
                DatasetField = 'CODIGOCATEGORIA'
                TableField = 'CODIGOCATEGORIA'
              end>
          end>
        Name = 'CategoriasContacto'
        Fields = <
          item
            Name = 'CODIGOCONTACTO'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'CODIGOCONTACTO'
            InPrimaryKey = True
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGOCATEGORIA'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'CODIGOCATEGORIA'
            InPrimaryKey = True
            Calculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'CATEGORIAS'
            SQL = 'SELECT '#10'    CODIGO, DESCRIPCION'#10'  FROM'#10'    CATEGORIAS'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'CODIGO'
                TableField = 'CODIGO'
              end
              item
                DatasetField = 'DESCRIPCION'
                TableField = 'DESCRIPCION'
              end>
          end>
        Name = 'Categorias'
        Fields = <
          item
            Name = 'CODIGO'
            DataType = datAutoInc
            BlobType = dabtUnknown
            GeneratorName = 'GEN_CATEGORIAS'
            DictionaryEntry = 'CODIGOCATEGORIA_GEN'
            InPrimaryKey = True
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'DESCRIPCION'
            DataType = datString
            Size = 100
            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 = 'OLD_CODIGO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'CONTACTOS'
            SQL = 
              'UPDATE CONTACTOS'#10'SET BAJA_LOGICA = 1'#10'WHERE (CODIGO = :OLD_CODIGO' +
              ')'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Delete_Contactos'
      end>
    RelationShips = <
      item
        Name = 'FK_CategoriasContacto_Contactos'
        MasterDatasetName = 'Contactos'
        MasterFields = 'CODIGO'
        DetailDatasetName = 'CategoriasContacto'
        DetailFields = 'CODIGOCONTACTO'
      end>
    UpdateRules = <
      item
        Name = 'Insert Contactos'
        DoUpdate = False
        DoInsert = True
        DoDelete = False
        DatasetName = 'Contactos'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Update Contactos'
        DoUpdate = True
        DoInsert = False
        DoDelete = False
        DatasetName = 'Contactos'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Insert CategoriasContacto'
        DoUpdate = False
        DoInsert = True
        DoDelete = False
        DatasetName = 'CategoriasContacto'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Update CategoriasContacto'
        DoUpdate = True
        DoInsert = False
        DoDelete = False
        DatasetName = 'CategoriasContacto'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Delete Contactos'
        DoUpdate = False
        DoInsert = False
        DoDelete = True
        DatasetName = 'Contactos'
        FailureBehaviour = fbRaiseException
      end>
    Left = 40
    Top = 16
  end
  object frxReport1: TfrxReport
    Version = '3.23.7'
    DotMatrixReport = False
    EngineOptions.DoublePass = True
    IniFile = '\Software\Fast Reports'
    PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator]
    PreviewOptions.Zoom = 1.000000000000000000
    PrintOptions.Printer = 'Default'
    ReportOptions.CreateDate = 38658.761816215280000000
    ReportOptions.LastChange = 38658.776815497690000000
    ScriptLanguage = 'PascalScript'
    ScriptText.Strings = (
      'begin'
      ''
      'end.')
    Left = 296
    Top = 16
    Datasets = <
      item
        DataSet = frxDBDataset1
        DataSetName = 'frxDBDataset1'
      end>
    Variables = <>
    Style = <>
    object Page1: TfrxReportPage
      PaperWidth = 210.000000000000000000
      PaperHeight = 297.000000000000000000
      PaperSize = 9
      LeftMargin = 10.000000000000000000
      RightMargin = 10.000000000000000000
      TopMargin = 10.000000000000000000
      BottomMargin = 10.000000000000000000
      object MasterData1: TfrxMasterData
        Height = 22.677180000000000000
        Top = 18.897650000000000000
        Width = 718.110700000000000000
        DataSet = frxDBDataset1
        DataSetName = 'frxDBDataset1'
        RowCount = 0
        object Memo1: TfrxMemoView
          Left = 3.779530000000000000
          Width = 79.370130000000000000
          Height = 18.897650000000000000
          DataSet = frxDBDataset1
          DataSetName = 'frxDBDataset1'
          Memo.UTF8 = (
            '[frxDBDataset1."nombre"]')
        end
      end
    end
  end
  object DACDSDataTable1: TDACDSDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'CODIGOEMPRESA'
        DataType = datInteger
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        DictionaryEntry = 'CODIGOEMPRESA'
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'CODIGO'
        DataType = datAutoInc
        BlobType = dabtUnknown
        GeneratorName = 'GEN_CONTACTOS'
        DisplayWidth = 0
        Alignment = taLeftJustify
        DictionaryEntry = 'CODIGOCONTACTO_GEN'
        InPrimaryKey = True
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'FECHAALTA'
        DataType = datDateTime
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        DictionaryEntry = 'FECHAALTA'
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'USUARIO'
        DataType = datString
        Size = 100
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        DictionaryEntry = 'USUARIO'
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'NIFCIF'
        DataType = datString
        Size = 10
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        DictionaryEntry = 'NIFCIF'
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'NOMBRE'
        DataType = datString
        Size = 100
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        DictionaryEntry = 'NOMBRE'
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'NOTAS'
        DataType = datString
        Size = 2000
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        DictionaryEntry = 'NOTAS'
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'CALLE'
        DataType = datString
        Size = 150
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        DictionaryEntry = 'CALLE'
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'PROVINCIA'
        DataType = datString
        Size = 30
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        DictionaryEntry = 'PROVINCIA'
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'CODIGOPOSTAL'
        DataType = datString
        Size = 5
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        DictionaryEntry = 'CODIGOPOSTAL'
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'POBLACION'
        DataType = datString
        Size = 40
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        DictionaryEntry = 'POBLACION'
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'TELEFONO1'
        DataType = datString
        Size = 30
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        DictionaryEntry = 'TELEFONOPARTICULAR'
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'TELEFONO2'
        DataType = datString
        Size = 30
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        DictionaryEntry = 'TELEFONOTRABAJO'
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'MOVIL'
        DataType = datString
        Size = 30
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        DictionaryEntry = 'MOVIL'
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'FAX'
        DataType = datString
        Size = 30
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        DictionaryEntry = 'FAX'
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'CORREO1'
        DataType = datString
        Size = 60
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        DictionaryEntry = 'CORREO1'
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'CORREO2'
        DataType = datString
        Size = 60
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        DictionaryEntry = 'CORREO2'
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'PAGINAWEB'
        DataType = datString
        Size = 100
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        DictionaryEntry = 'PAGINAWEB'
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'PERSONACONTACTO'
        DataType = datString
        Size = 100
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        DictionaryEntry = 'PERSONACONTACTO'
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end>
    Params = <>
    MasterMappingMode = mmDataRequest
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteFetchEnabled = False
    SchemaCall.Params = <>
    DataRequestCall.Params = <>
    DataUpdateCall.Params = <>
    ScriptCall.Params = <>
    ReadOnly = False
    Adapter = DABINAdapter
    LocalSchema = schContactos
    LocalConnection = 'IBX'
    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
    LogicalName = 'Contactos'
    IndexDefs = <>
    Left = 296
    Top = 72
  end
  object DADataSource1: TDADataSource
    DataTable = DACDSDataTable1
    Left = 352
    Top = 72
  end
  object frxDBDataset1: TfrxDBDataset
    UserName = 'frxDBDataset1'
    CloseDataSource = True
    DataSource = DADataSource1
    Left = 352
    Top = 16
  end
  object DABINAdapter: TDABINAdapter
    Left = 40
    Top = 72
  end
  object bpContactos: TDABusinessProcessor
    Schema = schContactos
    DeleteCommandName = 'Delete_Contactos'
    ReferencedDataset = 'Contactos'
    ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateUpdate, poAutoGenerateRefreshDataset, poPrepareCommands]
    UpdateMode = updWhereKeyOnly
    Left = 160
    Top = 16
  end
end