Tecsitel_FactuGES2/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm

object srvEmpresas: TsrvEmpresas
  OldCreateOrder = True
  OnCreate = DARemoteServiceCreate
  ConnectionName = 'IBX'
  ServiceSchema = schEmpresas
  ServiceDataStreamer = DABin2DataStreamer
  AllowWhereSQL = True
  ExportedDataTables = <>
  BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
  BeforeGetDatasetData = DataAbstractServiceBeforeGetDatasetData
  Height = 166
  Width = 351
  object schEmpresas: TDASchema
    ConnectionManager = dmServer.ConnectionManager
    DataDictionary = DataDictionary
    Diagrams = Diagrams
    Datasets = <
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            Default = True
            TargetTable = 'EMPRESAS'
            Name = 'IBX'
            StatementType = stAutoSQL
            ColumnMappings = <
              item
                DatasetField = 'ID'
                TableField = 'ID'
              end
              item
                DatasetField = 'NIF_CIF'
                TableField = 'NIF_CIF'
              end
              item
                DatasetField = 'NOMBRE'
                TableField = 'NOMBRE'
              end
              item
                DatasetField = 'RAZON_SOCIAL'
                TableField = 'RAZON_SOCIAL'
              end
              item
                DatasetField = 'CALLE'
                TableField = 'CALLE'
              end
              item
                DatasetField = 'POBLACION'
                TableField = 'POBLACION'
              end
              item
                DatasetField = 'PROVINCIA'
                TableField = 'PROVINCIA'
              end
              item
                DatasetField = 'CODIGO_POSTAL'
                TableField = 'CODIGO_POSTAL'
              end
              item
                DatasetField = 'TELEFONO_1'
                TableField = 'TELEFONO_1'
              end
              item
                DatasetField = 'TELEFONO_2'
                TableField = 'TELEFONO_2'
              end
              item
                DatasetField = 'MOVIL_1'
                TableField = 'MOVIL_1'
              end
              item
                DatasetField = 'MOVIL_2'
                TableField = 'MOVIL_2'
              end
              item
                DatasetField = 'FAX'
                TableField = 'FAX'
              end
              item
                DatasetField = 'EMAIL_1'
                TableField = 'EMAIL_1'
              end
              item
                DatasetField = 'EMAIL_2'
                TableField = 'EMAIL_2'
              end
              item
                DatasetField = 'PAGINA_WEB'
                TableField = 'PAGINA_WEB'
              end
              item
                DatasetField = 'NOTAS'
                TableField = 'NOTAS'
              end
              item
                DatasetField = 'FECHA_ALTA'
                TableField = 'FECHA_ALTA'
              end
              item
                DatasetField = 'FECHA_MODIFICACION'
                TableField = 'FECHA_MODIFICACION'
              end
              item
                DatasetField = 'USUARIO'
                TableField = 'USUARIO'
              end
              item
                DatasetField = 'LOGOTIPO'
                TableField = 'LOGOTIPO'
              end
              item
                DatasetField = 'REGISTRO_MERCANTIL'
                TableField = 'REGISTRO_MERCANTIL'
              end
              item
                DatasetField = 'PARAM_TIEMPO'
                TableField = 'PARAM_TIEMPO'
              end
              item
                DatasetField = 'PARAM_MARGEN'
                TableField = 'PARAM_MARGEN'
              end
              item
                DatasetField = 'ID_TIPO_IVA'
                TableField = 'ID_TIPO_IVA'
              end
              item
                DatasetField = 'ID_FORMA_PAGO'
                TableField = 'ID_FORMA_PAGO'
              end
              item
                DatasetField = 'ID_ALMACEN'
                TableField = 'ID_ALMACEN'
              end>
          end>
        Name = 'Empresas'
        Fields = <
          item
            Name = 'ID'
            DataType = datAutoInc
            GeneratorName = 'GEN_EMPRESAS_ID'
            ServerAutoRefresh = True
            DictionaryEntry = 'Empresas_ID'
            InPrimaryKey = True
          end
          item
            Name = 'NIF_CIF'
            DataType = datString
            Size = 15
            DictionaryEntry = 'Empresas_NIF_CIF'
          end
          item
            Name = 'NOMBRE'
            DataType = datString
            Size = 255
            DictionaryEntry = 'Empresas_NOMBRE'
          end
          item
            Name = 'RAZON_SOCIAL'
            DataType = datString
            Size = 255
            DictionaryEntry = 'Empresas_RAZON_SOCIAL'
          end
          item
            Name = 'CALLE'
            DataType = datString
            Size = 255
            DictionaryEntry = 'Empresas_CALLE'
          end
          item
            Name = 'POBLACION'
            DataType = datString
            Size = 255
            DictionaryEntry = 'Empresas_POBLACION'
          end
          item
            Name = 'PROVINCIA'
            DataType = datString
            Size = 255
            DictionaryEntry = 'Empresas_PROVINCIA'
          end
          item
            Name = 'CODIGO_POSTAL'
            DataType = datString
            Size = 10
            DictionaryEntry = 'Empresas_CODIGO_POSTAL'
          end
          item
            Name = 'TELEFONO_1'
            DataType = datString
            Size = 25
            DictionaryEntry = 'Empresas_TELEFONO_1'
          end
          item
            Name = 'TELEFONO_2'
            DataType = datString
            Size = 25
            DictionaryEntry = 'Empresas_TELEFONO_2'
          end
          item
            Name = 'MOVIL_1'
            DataType = datString
            Size = 25
            DictionaryEntry = 'Empresas_MOVIL_1'
          end
          item
            Name = 'MOVIL_2'
            DataType = datString
            Size = 25
            DictionaryEntry = 'Empresas_MOVIL_2'
          end
          item
            Name = 'FAX'
            DataType = datString
            Size = 25
            DictionaryEntry = 'Empresas_FAX'
          end
          item
            Name = 'EMAIL_1'
            DataType = datString
            Size = 255
            DictionaryEntry = 'Empresas_EMAIL_1'
          end
          item
            Name = 'EMAIL_2'
            DataType = datString
            Size = 255
            DictionaryEntry = 'Empresas_EMAIL_2'
          end
          item
            Name = 'PAGINA_WEB'
            DataType = datString
            Size = 255
            DictionaryEntry = 'Empresas_PAGINA_WEB'
          end
          item
            Name = 'NOTAS'
            DataType = datMemo
            DictionaryEntry = 'Empresas_NOTAS'
          end
          item
            Name = 'FECHA_ALTA'
            DataType = datDateTime
            DictionaryEntry = 'Empresas_FECHA_ALTA'
          end
          item
            Name = 'FECHA_MODIFICACION'
            DataType = datDateTime
            DictionaryEntry = 'Empresas_FECHA_MODIFICACION'
          end
          item
            Name = 'USUARIO'
            DataType = datString
            Size = 20
            DictionaryEntry = 'Empresas_USUARIO'
          end
          item
            Name = 'LOGOTIPO'
            DataType = datBlob
            BlobType = dabtBlob
            DictionaryEntry = 'Empresas_LOGOTIPO'
          end
          item
            Name = 'REGISTRO_MERCANTIL'
            DataType = datString
            Size = 255
            DictionaryEntry = 'Empresas_REGISTRO_MERCANTIL'
          end
          item
            Name = 'PARAM_TIEMPO'
            DataType = datFloat
            DictionaryEntry = 'Empresas_PARAM_TIEMPO'
          end
          item
            Name = 'PARAM_MARGEN'
            DataType = datFloat
            DictionaryEntry = 'Empresas_PARAM_MARGEN'
          end
          item
            Name = 'ID_TIPO_IVA'
            DataType = datSmallInt
            DictionaryEntry = 'Empresas_ID_TIPO_IVA'
          end
          item
            Name = 'ID_FORMA_PAGO'
            DataType = datSmallInt
            DictionaryEntry = 'Empresas_ID_FORMA_PAGO'
          end
          item
            Name = 'ID_ALMACEN'
            DataType = datSmallInt
            DictionaryEntry = 'Empresas_ID_ALMACEN'
          end>
      end
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            Default = True
            TargetTable = 'EMPRESAS_DATOS_BANCO'
            Name = 'IBX'
            StatementType = stAutoSQL
            ColumnMappings = <
              item
                DatasetField = 'ID'
                TableField = 'ID'
              end
              item
                DatasetField = 'ID_EMPRESA'
                TableField = 'ID_EMPRESA'
              end
              item
                DatasetField = 'NOMBRE'
                TableField = 'NOMBRE'
              end
              item
                DatasetField = 'ENTIDAD'
                TableField = 'ENTIDAD'
              end
              item
                DatasetField = 'SUCURSAL'
                TableField = 'SUCURSAL'
              end
              item
                DatasetField = 'DC'
                TableField = 'DC'
              end
              item
                DatasetField = 'CUENTA'
                TableField = 'CUENTA'
              end
              item
                DatasetField = 'SUFIJO_N19'
                TableField = 'SUFIJO_N19'
              end
              item
                DatasetField = 'SUFIJO_N58'
                TableField = 'SUFIJO_N58'
              end
              item
                DatasetField = 'IBAN'
                TableField = 'IBAN'
              end
              item
                DatasetField = 'SWIFT'
                TableField = 'SWIFT'
              end>
          end>
        Name = 'EmpresasDatosBanco'
        Fields = <
          item
            Name = 'ID'
            DataType = datAutoInc
            GeneratorName = 'GEN_EMPRESAS_DATOS_BANCO_ID'
            ServerAutoRefresh = True
            DictionaryEntry = 'EmpresasDatosBanco_ID'
            InPrimaryKey = True
          end
          item
            Name = 'ID_EMPRESA'
            DataType = datInteger
            DictionaryEntry = 'EmpresasDatosBanco_ID_EMPRESA'
          end
          item
            Name = 'NOMBRE'
            DataType = datString
            Size = 255
            DictionaryEntry = 'EmpresasDatosBanco_NOMBRE'
          end
          item
            Name = 'ENTIDAD'
            DataType = datString
            Size = 15
            DictionaryEntry = 'EmpresasDatosBanco_ENTIDAD'
          end
          item
            Name = 'SUCURSAL'
            DataType = datString
            Size = 15
            DictionaryEntry = 'EmpresasDatosBanco_SUCURSAL'
          end
          item
            Name = 'DC'
            DataType = datString
            Size = 15
            DictionaryEntry = 'EmpresasDatosBanco_DC'
          end
          item
            Name = 'CUENTA'
            DataType = datString
            Size = 15
            DictionaryEntry = 'EmpresasDatosBanco_CUENTA'
          end
          item
            Name = 'SUFIJO_N19'
            DataType = datString
            Size = 3
            DictionaryEntry = 'EmpresasDatosBanco_SUFIJO_N19'
          end
          item
            Name = 'SUFIJO_N58'
            DataType = datString
            Size = 3
            DictionaryEntry = 'EmpresasDatosBanco_SUFIJO_N58'
          end
          item
            Name = 'IBAN'
            DataType = datString
            Size = 255
          end
          item
            Name = 'SWIFT'
            DataType = datString
            Size = 255
          end>
      end>
    JoinDataTables = <>
    UnionDataTables = <>
    Commands = <
      item
        Params = <
          item
            Name = 'id_empresa'
            Value = ''
          end
          item
            Name = 'param_margen'
            Value = ''
          end
          item
            Name = 'param_tiempo'
            Value = ''
          end>
        Statements = <
          item
            Connection = 'IBX'
            ConnectionType = 'Interbase'
            Default = True
            Name = 'IBX'
            SQL = 
              'execute procedure PRO_ART_RECALCULAR_PVP :id_empresa, :param_mar' +
              'gen, :param_tiempo'#10
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'RecalcularPVPArticulos'
      end>
    RelationShips = <
      item
        Name = 'FK_EmpresasDatosBanco_Empresas'
        MasterDatasetName = 'Empresas'
        MasterFields = 'ID'
        DetailDatasetName = 'EmpresasDatosBanco'
        DetailFields = 'ID_EMPRESA'
        RelationshipType = rtForeignKey
      end>
    UpdateRules = <
      item
        Name = 'Insert Empresas'
        DoUpdate = False
        DoDelete = False
        DatasetName = 'Empresas'
        FailureBehavior = fbRaiseException
      end
      item
        Name = 'Insert EmpresasDatosBanco'
        DoUpdate = False
        DoDelete = False
        DatasetName = 'EmpresasDatosBanco'
        FailureBehavior = fbRaiseException
      end
      item
        Name = 'Update Empresas'
        DoInsert = False
        DoDelete = False
        DatasetName = 'Empresas'
        FailureBehavior = fbRaiseException
      end
      item
        Name = 'Update EmpresasDatosBanco'
        DoInsert = False
        DoDelete = False
        DatasetName = 'EmpresasDatosBanco'
        FailureBehavior = fbRaiseException
      end
      item
        Name = 'Delete EmpresasDatosBanco'
        DoUpdate = False
        DoInsert = False
        DatasetName = 'EmpresasDatosBanco'
        FailureBehavior = fbRaiseException
      end
      item
        Name = 'Delete Empresas'
        DoUpdate = False
        DoInsert = False
        DatasetName = 'Empresas'
        FailureBehavior = fbRaiseException
      end>
    Version = 0
    Left = 46
    Top = 22
  end
  object DataDictionary: TDADataDictionary
    Fields = <
      item
        Name = 'Empresas_NIF_CIF'
        DataType = datString
        Size = 15
        DisplayLabel = 'CIF'
      end
      item
        Name = 'Empresas_NOMBRE'
        DataType = datString
        Size = 255
        DisplayLabel = 'Nombre'
      end
      item
        Name = 'Empresas_RAZON_SOCIAL'
        DataType = datString
        Size = 255
        DisplayLabel = 'Raz'#243'n Social'
      end
      item
        Name = 'Empresas_CALLE'
        DataType = datString
        Size = 255
        DisplayLabel = 'Calle'
      end
      item
        Name = 'Empresas_POBLACION'
        DataType = datString
        Size = 255
        DisplayLabel = 'Poblaci'#243'n'
      end
      item
        Name = 'Empresas_PROVINCIA'
        DataType = datString
        Size = 255
        DisplayLabel = 'Provincia'
      end
      item
        Name = 'Empresas_CODIGO_POSTAL'
        DataType = datString
        Size = 10
        DisplayLabel = 'C'#243'd. postal'
      end
      item
        Name = 'Empresas_TELEFONO_1'
        DataType = datString
        Size = 25
        DisplayLabel = 'Tel'#233'fono 1'
      end
      item
        Name = 'Empresas_TELEFONO_2'
        DataType = datString
        Size = 25
        DisplayLabel = 'Tel'#233'fono 2'
      end
      item
        Name = 'Empresas_MOVIL_1'
        DataType = datString
        Size = 25
        DisplayLabel = 'M'#243'vil 1'
      end
      item
        Name = 'Empresas_MOVIL_2'
        DataType = datString
        Size = 25
        DisplayLabel = 'M'#243'vil 2'
      end
      item
        Name = 'Empresas_FAX'
        DataType = datString
        Size = 25
        DisplayLabel = 'Fax'
      end
      item
        Name = 'Empresas_EMAIL_1'
        DataType = datString
        Size = 255
        DisplayLabel = 'E-mail 1'
      end
      item
        Name = 'Empresas_EMAIL_2'
        DataType = datString
        Size = 255
        DisplayLabel = 'E-mail 2'
      end
      item
        Name = 'Empresas_PAGINA_WEB'
        DataType = datString
        Size = 255
        DisplayLabel = 'P'#225'gina web'
      end
      item
        Name = 'Empresas_NOTAS'
        DataType = datMemo
        DisplayLabel = 'Notas'
      end
      item
        Name = 'Empresas_FECHA_ALTA'
        DataType = datDateTime
      end
      item
        Name = 'Empresas_FECHA_MODIFICACION'
        DataType = datDateTime
      end
      item
        Name = 'Empresas_USUARIO'
        DataType = datString
        Size = 20
      end
      item
        Name = 'Empresas_LOGOTIPO'
        DataType = datBlob
        BlobType = dabtBlob
        DisplayLabel = 'Logotipo'
      end
      item
        Name = 'Empresas_REGISTRO_MERCANTIL'
        DataType = datString
        Size = 255
        DisplayLabel = 'Registro mercantil'
      end
      item
        Name = 'Empresas_IVA'
        DataType = datFloat
        DisplayLabel = 'IVA'
      end
      item
        Name = 'EmpresasDatosBanco_ID_EMPRESA'
        DataType = datInteger
      end
      item
        Name = 'EmpresasDatosBanco_NOMBRE'
        DataType = datString
        Size = 255
        DisplayLabel = 'Nombre del banco'
      end
      item
        Name = 'EmpresasDatosBanco_ENTIDAD'
        DataType = datString
        Size = 15
        DisplayLabel = 'Entidad'
      end
      item
        Name = 'EmpresasDatosBanco_SUCURSAL'
        DataType = datString
        Size = 15
        DisplayLabel = 'Sucursal'
      end
      item
        Name = 'EmpresasDatosBanco_DC'
        DataType = datString
        Size = 15
        DisplayLabel = 'DC'
      end
      item
        Name = 'EmpresasDatosBanco_CUENTA'
        DataType = datString
        Size = 15
        DisplayLabel = 'Cuenta'
      end
      item
        Name = 'EmpresasDatosBanco_SUFIJO_N19'
        DataType = datString
        Size = 3
        DisplayLabel = 'Sufijo 19'
      end
      item
        Name = 'EmpresasDatosBanco_SUFIJO_N58'
        DataType = datString
        Size = 3
        DisplayLabel = 'Sufijo 58'
      end
      item
        Name = 'Empresas_ID'
        DataType = datAutoInc
        GeneratorName = 'GEN_EMPRESAS_ID'
        LogChanges = False
        Required = True
        DisplayLabel = 'ID'
        ServerAutoRefresh = True
      end
      item
        Name = 'EmpresasDatosBanco_ID'
        DataType = datAutoInc
        GeneratorName = 'GEN_EMPRESAS_DATOS_BANCO_ID'
        LogChanges = False
        Required = True
        DisplayLabel = 'ID'
        ServerAutoRefresh = True
      end
      item
        Name = 'Empresas_PARAM_TIEMPO'
        DataType = datFloat
        DisplayLabel = 'PARAM_TIEMPO'
      end
      item
        Name = 'Empresas_PARAM_MARGEN'
        DataType = datFloat
        DisplayLabel = 'PARAM_MARGEN'
      end
      item
        Name = 'Empresas_ID_TIPO_IVA'
        DataType = datSmallInt
      end
      item
        Name = 'Empresas_ID_FORMA_PAGO'
        DataType = datSmallInt
      end
      item
        Name = 'Empresas_ID_ALMACEN'
        DataType = datSmallInt
      end>
    Left = 158
    Top = 22
  end
  object Diagrams: TDADiagrams
    Left = 158
    Top = 90
    DiagramData = 
      '<Diagrams>'#13#10'  <Diagram Name="New Diagram" Left="200" Top="200" W' +
      'idth="400" Height="300">'#13#10'    <Entity Name="Empresas" Left="0,00' +
      '" Top="1,00" />'#13#10'    <Entity Name="EmpresasDatosBanco" Left="308' +
      ',00" Top="0,00" />'#13#10'  </Diagram>'#13#10'</Diagrams>'#13#10
  end
  object DABin2DataStreamer: TDABin2DataStreamer
    Left = 48
    Top = 88
  end
  object bpEmpresas: TDABusinessProcessor
    Schema = schEmpresas
    ReferencedDataset = 'Empresas'
    ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateUpdate, poAutoGenerateDelete, poAutoGenerateRefreshDataset, poPrepareCommands]
    UpdateMode = updWhereKeyOnly
    Left = 264
    Top = 24
  end
end