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> 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 = datCurrency end item Name = 'PARAM_MARGEN' DataType = datFloat end item Name = 'ID_TIPO_IVA' DataType = datSmallInt end item Name = 'ID_FORMA_PAGO' DataType = datSmallInt 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> Left = 158 Top = 22 end object Diagrams: TDADiagrams Left = 158 Top = 90 DiagramData = ''#13#10' '#13#10' '#13#10' '#13#10' '#13#10''#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