AlonsoYSal_FactuGES/Modulos/Presupuestos_/Servidor/srvPresupuestos_Impl.dfm

object srvPresupuestos: TsrvPresupuestos
  OldCreateOrder = True
  RequiresSession = True
  SessionManager = dmServer.SessionManager
  OnActivate = DARemoteServiceActivate
  AcquireConnection = True
  ConnectionName = 'IBX'
  ServiceSchema = schPresupuestos
  ServiceAdapter = dmServer.DABINAdapter
  Left = 729
  Top = 363
  Height = 359
  Width = 328
  object schPresupuestos: TDASchema
    ConnectionManager = dmServer.ConnectionManager
    DataDictionary = dmServer.DataDictionary
    Diagrams = dmServer.DADiagrams
    Datasets = <
      item
        Params = <
          item
            Name = 'TIPO'
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            SQL = 'SELECT * FROM DAR_REFERENCIA_PRESUPUESTO(:TIPO)'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'REFERENCIA'
                TableField = 'REFERENCIA'
              end>
          end>
        Name = 'DarReferenciaPresupuesto'
        Fields = <
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 20
            BlobType = dabtUnknown
            LogChanges = False
            DictionaryEntry = 'REFERENCIA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end
      item
        Params = <
          item
            Name = 'CODIGOPRESUPUESTO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'DETALLESPRESUPUESTOS'
            SQL = 
              'SELECT '#10'    CODIGOPRESUPUESTO, NUMCONCEPTO, DESCRIPCION, CANTIDA' +
              'D, '#10'    IMPORTEUNIDAD, IMPORTETOTAL, TIPO, POSICION, VISIBLE,'#10'  ' +
              '  PUNTOS, IMPORTEPUNTOS'#10'  FROM'#10'    DETALLESPRESUPUESTOS'#10'  WHERE ' +
              'CODIGOPRESUPUESTO = :CODIGOPRESUPUESTO'#10'  ORDER BY POSICION'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'CODIGOPRESUPUESTO'
                TableField = 'CODIGOPRESUPUESTO'
              end
              item
                DatasetField = 'NUMCONCEPTO'
                TableField = 'NUMCONCEPTO'
              end
              item
                DatasetField = 'DESCRIPCION'
                TableField = 'DESCRIPCION'
              end
              item
                DatasetField = 'CANTIDAD'
                TableField = 'CANTIDAD'
              end
              item
                DatasetField = 'IMPORTEUNIDAD'
                TableField = 'IMPORTEUNIDAD'
              end
              item
                DatasetField = 'IMPORTETOTAL'
                TableField = 'IMPORTETOTAL'
              end
              item
                DatasetField = 'TIPO'
                TableField = 'TIPO'
              end
              item
                DatasetField = 'POSICION'
                TableField = 'POSICION'
              end
              item
                DatasetField = 'VISIBLE'
                TableField = 'VISIBLE'
              end
              item
                DatasetField = 'PUNTOS'
                TableField = 'PUNTOS'
              end
              item
                DatasetField = 'IMPORTEPUNTOS'
                TableField = 'IMPORTEPUNTOS'
              end>
          end>
        Name = 'DetallesPresupuestos'
        Fields = <
          item
            Name = 'CODIGOPRESUPUESTO'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'CODIGOPRESUPUESTO'
            InPrimaryKey = True
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'NUMCONCEPTO'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'NUMCONCEPTO'
            InPrimaryKey = True
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'DESCRIPCION'
            DataType = datString
            Size = 2000
            BlobType = dabtUnknown
            DictionaryEntry = 'DESCRIPCIONCONCEPTO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CANTIDAD'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'CANTIDAD'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'IMPORTEUNIDAD'
            DataType = datCurrency
            BlobType = dabtUnknown
            DictionaryEntry = 'IMPORTEUNIDAD'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'IMPORTETOTAL'
            DataType = datCurrency
            BlobType = dabtUnknown
            DictionaryEntry = 'IMPORTETOTAL'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'TIPO'
            DataType = datString
            Size = 1
            Description = 'Cap'#237'tulo, etc'
            BlobType = dabtUnknown
            DictionaryEntry = 'TIPODETALLESPRESUPUESTO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'POSICION'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'POSICIONCONCEPTO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'VISIBLE'
            DataType = datString
            Size = 1
            BlobType = dabtUnknown
            DictionaryEntry = 'VISIBLE'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'PUNTOS'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'PUNTOS'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'IMPORTEPUNTOS'
            DataType = datCurrency
            BlobType = dabtUnknown
            DictionaryEntry = 'IMPORTEPUNTOS'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'PRESUPUESTOS'
            SQL = 
              'SELECT PRESUPUESTOS.CODIGOEMPRESA,'#10'PRESUPUESTOS.CODIGO, PRESUPUE' +
              'STOS.FECHAALTA,'#10'PRESUPUESTOS.USUARIO, PRESUPUESTOS.CODIGOCONTACT' +
              'O,'#10'CONTACTOS.NOMBRE,'#10'PRESUPUESTOS.REFERENCIA, PRESUPUESTOS.TIPO,' +
              #10'PRESUPUESTOS.FECHAPRESUPUESTO, PRESUPUESTOS.VIGENCIAPRESUPUESTO' +
              ','#10'PRESUPUESTOS.SITUACION, PRESUPUESTOS.FECHADECISION, PRESUPUEST' +
              'OS.BASEIMPONIBLE,'#10'PRESUPUESTOS.DESCUENTO, PRESUPUESTOS.IMPORTEDE' +
              'SCUENTO,'#10'PRESUPUESTOS.IVA, PRESUPUESTOS.IMPORTEIVA, PRESUPUESTOS' +
              '.IMPORTETOTAL,'#10'PRESUPUESTOS.OBSERVACIONES, PRESUPUESTOS.PLAZOENT' +
              'REGA, PRESUPUESTOS.FORMAPAGO,'#10'ALBARANPAGO.CODIGO CODIGOALBARAN'#10'F' +
              'ROM CONTACTOS'#10'   RIGHT OUTER JOIN PRESUPUESTOS ON (CONTACTOS.COD' +
              'IGO = PRESUPUESTOS.CODIGOCONTACTO)'#10'   LEFT OUTER JOIN ALBARANPAG' +
              'O ON (PRESUPUESTOS.CODIGO = ALBARANPAGO.CODIGOPRESUPUESTO)'
            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 = 'CODIGOCONTACTO'
                TableField = 'CODIGOCONTACTO'
              end
              item
                DatasetField = 'REFERENCIA'
                TableField = 'REFERENCIA'
              end
              item
                DatasetField = 'TIPO'
                TableField = 'TIPO'
              end
              item
                DatasetField = 'FECHAPRESUPUESTO'
                TableField = 'FECHAPRESUPUESTO'
              end
              item
                DatasetField = 'VIGENCIAPRESUPUESTO'
                TableField = 'VIGENCIAPRESUPUESTO'
              end
              item
                DatasetField = 'SITUACION'
                TableField = 'SITUACION'
              end
              item
                DatasetField = 'FECHADECISION'
                TableField = 'FECHADECISION'
              end
              item
                DatasetField = 'BASEIMPONIBLE'
                TableField = 'BASEIMPONIBLE'
              end
              item
                DatasetField = 'DESCUENTO'
                TableField = 'DESCUENTO'
              end
              item
                DatasetField = 'IMPORTEDESCUENTO'
                TableField = 'IMPORTEDESCUENTO'
              end
              item
                DatasetField = 'IVA'
                TableField = 'IVA'
              end
              item
                DatasetField = 'IMPORTEIVA'
                TableField = 'IMPORTEIVA'
              end
              item
                DatasetField = 'IMPORTETOTAL'
                TableField = 'IMPORTETOTAL'
              end
              item
                DatasetField = 'OBSERVACIONES'
                TableField = 'OBSERVACIONES'
              end
              item
                DatasetField = 'PLAZOENTREGA'
                TableField = 'PLAZOENTREGA'
              end
              item
                DatasetField = 'FORMAPAGO'
                TableField = 'FORMAPAGO'
              end>
          end>
        Name = 'Presupuestos'
        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 = 'CODIGOPRESUPUESTO'
            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 = 'CODIGOCONTACTO'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'CODIGOCONTACTO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'NOMBRE'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            ServerAutoRefresh = True
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 20
            BlobType = dabtUnknown
            DictionaryEntry = 'REFERENCIA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'TIPO'
            DataType = datString
            Size = 10
            Description = 'Cocina, ba'#241'o, etc'
            BlobType = dabtUnknown
            DictionaryEntry = 'TIPOPRESUPUESTO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FECHAPRESUPUESTO'
            DataType = datDateTime
            BlobType = dabtUnknown
            DictionaryEntry = 'FECHAPRESUPUESTO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'VIGENCIAPRESUPUESTO'
            DataType = datDateTime
            BlobType = dabtUnknown
            DictionaryEntry = 'VIGENCIAPRESUPUESTO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'SITUACION'
            DataType = datString
            Size = 30
            Description = 'Pendiente, aceptado o rechazado'
            BlobType = dabtUnknown
            DictionaryEntry = 'SITUACIONPRESUPUESTO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FECHADECISION'
            DataType = datDateTime
            BlobType = dabtUnknown
            DictionaryEntry = 'FECHADECISION'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'BASEIMPONIBLE'
            DataType = datCurrency
            BlobType = dabtUnknown
            DictionaryEntry = 'BASEIMPONIBLE'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'DESCUENTO'
            DataType = datFloat
            BlobType = dabtUnknown
            DictionaryEntry = 'DESCUENTO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'IMPORTEDESCUENTO'
            DataType = datCurrency
            BlobType = dabtUnknown
            DictionaryEntry = 'IMPORTEDESCUENTO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'IVA'
            DataType = datFloat
            BlobType = dabtUnknown
            DictionaryEntry = 'IVA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'IMPORTEIVA'
            DataType = datCurrency
            BlobType = dabtUnknown
            DictionaryEntry = 'IMPORTEIVA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'IMPORTETOTAL'
            DataType = datCurrency
            BlobType = dabtUnknown
            DictionaryEntry = 'IMPORTETOTAL'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'OBSERVACIONES'
            DataType = datMemo
            BlobType = dabtUnknown
            DictionaryEntry = 'OBSERVACIONES'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'PLAZOENTREGA'
            DataType = datMemo
            BlobType = dabtUnknown
            DictionaryEntry = 'PLAZOENTREGA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FORMAPAGO'
            DataType = datMemo
            BlobType = dabtUnknown
            DictionaryEntry = 'FORMAPAGO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGOALBARAN'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            ServerAutoRefresh = True
            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 = 'PRESUPUESTOS'
            SQL = 
              'SELECT PRESUPUESTOS.CODIGO, CONTACTOS.NOMBRE, ALBARANPAGO.CODIGO' +
              ' CODIGOALBARAN'#10'FROM CONTACTOS'#10'   RIGHT OUTER JOIN PRESUPUESTOS O' +
              'N (CONTACTOS.CODIGO = PRESUPUESTOS.CODIGOCONTACTO)'#10'   LEFT OUTER' +
              ' JOIN ALBARANPAGO ON (PRESUPUESTOS.CODIGO = ALBARANPAGO.CODIGOPR' +
              'ESUPUESTO)'#10'WHERE PRESUPUESTOS.CODIGO = :CODIGO'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'CODIGO'
                TableField = 'CODIGO'
              end
              item
                DatasetField = 'NOMBRE'
                TableField = 'NOMBRE'
              end
              item
                DatasetField = 'CODIGOALBARAN'
                TableField = 'CODIGOALBARAN'
              end>
          end>
        Name = 'Presupuestos_RefreshDataset'
        Fields = <
          item
            Name = 'CODIGO'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'CODIGOPRESUPUESTO'
            InPrimaryKey = True
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'NOMBRE'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            LogChanges = False
            DisplayWidth = 0
            DisplayLabel = 'Nombre'
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGOALBARAN'
            DataType = datInteger
            BlobType = dabtUnknown
            LogChanges = False
            DisplayWidth = 0
            DisplayLabel = 'C'#243'd. albar'#225'n'
            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 = 'PRESUPUESTOS'
            SQL = 
              'SELECT PR.CODIGOEMPRESA, PR.CODIGO, PR.FECHAALTA, PR.USUARIO, PR' +
              '.CODIGOCONTACTO,'#10'PR.REFERENCIA, PR.TIPO, PR.FECHAPRESUPUESTO, PR' +
              '.VIGENCIAPRESUPUESTO, PR.SITUACION,'#10'PR.FECHADECISION, PR.BASEIMP' +
              'ONIBLE, PR.DESCUENTO, PR.IMPORTEDESCUENTO, PR.IVA,'#10'PR.IMPORTEIVA' +
              ', PR.IMPORTETOTAL, PR.OBSERVACIONES, PR.PLAZOENTREGA, PR.FORMAPA' +
              'GO,'#10#10'CO.NIFCIF, CO.NOMBRE, CO.CALLE, CO.CODIGOPOSTAL, CO.POBLACI' +
              'ON, CO.TELEFONO1,'#10'CO.TELEFONO2, CO.MOVIL'#10#10'FROM PRESUPUESTOS PR'#10'L' +
              'EFT JOIN CONTACTOS CO ON (PR.codigocontacto = CO.CODIGO)'#10'WHERE P' +
              'R.CODIGO = :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 = 'CODIGOCONTACTO'
                TableField = 'CODIGOCONTACTO'
              end
              item
                DatasetField = 'REFERENCIA'
                TableField = 'REFERENCIA'
              end
              item
                DatasetField = 'TIPO'
                TableField = 'TIPO'
              end
              item
                DatasetField = 'FECHAPRESUPUESTO'
                TableField = 'FECHAPRESUPUESTO'
              end
              item
                DatasetField = 'VIGENCIAPRESUPUESTO'
                TableField = 'VIGENCIAPRESUPUESTO'
              end
              item
                DatasetField = 'SITUACION'
                TableField = 'SITUACION'
              end
              item
                DatasetField = 'FECHADECISION'
                TableField = 'FECHADECISION'
              end
              item
                DatasetField = 'BASEIMPONIBLE'
                TableField = 'BASEIMPONIBLE'
              end
              item
                DatasetField = 'DESCUENTO'
                TableField = 'DESCUENTO'
              end
              item
                DatasetField = 'IMPORTEDESCUENTO'
                TableField = 'IMPORTEDESCUENTO'
              end
              item
                DatasetField = 'IVA'
                TableField = 'IVA'
              end
              item
                DatasetField = 'IMPORTEIVA'
                TableField = 'IMPORTEIVA'
              end
              item
                DatasetField = 'IMPORTETOTAL'
                TableField = 'IMPORTETOTAL'
              end
              item
                DatasetField = 'OBSERVACIONES'
                TableField = 'OBSERVACIONES'
              end
              item
                DatasetField = 'PLAZOENTREGA'
                TableField = 'PLAZOENTREGA'
              end
              item
                DatasetField = 'FORMAPAGO'
                TableField = 'FORMAPAGO'
              end
              item
                DatasetField = 'NIFCIF'
                TableField = 'NIFCIF'
              end
              item
                DatasetField = 'NOMBRE'
                TableField = 'NOMBRE'
              end
              item
                DatasetField = 'CALLE'
                TableField = 'CALLE'
              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>
          end>
        Name = 'InformeCabeceraPresupuesto'
        Fields = <
          item
            Name = 'CODIGOEMPRESA'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGO'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FECHAALTA'
            DataType = datDateTime
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'USUARIO'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGOCONTACTO'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 20
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'TIPO'
            DataType = datString
            Size = 10
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FECHAPRESUPUESTO'
            DataType = datDateTime
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'VIGENCIAPRESUPUESTO'
            DataType = datDateTime
            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
          item
            Name = 'FECHADECISION'
            DataType = datDateTime
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'BASEIMPONIBLE'
            DataType = datFloat
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'DESCUENTO'
            DataType = datFloat
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'IMPORTEDESCUENTO'
            DataType = datFloat
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'IVA'
            DataType = datFloat
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'IMPORTEIVA'
            DataType = datFloat
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'IMPORTETOTAL'
            DataType = datFloat
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'OBSERVACIONES'
            DataType = datMemo
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'PLAZOENTREGA'
            DataType = datMemo
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FORMAPAGO'
            DataType = datMemo
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'NIFCIF'
            DataType = datString
            Size = 10
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'NOMBRE'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CALLE'
            DataType = datString
            Size = 150
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGOPOSTAL'
            DataType = datString
            Size = 5
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'POBLACION'
            DataType = datString
            Size = 40
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'TELEFONO1'
            DataType = datString
            Size = 30
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'TELEFONO2'
            DataType = datString
            Size = 30
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'MOVIL'
            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 = 'CODIGOPRESUPUESTO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'DETALLESPRESUPUESTOS'
            SQL = 
              'SELECT '#10'    CODIGOPRESUPUESTO, NUMCONCEPTO, DESCRIPCION, CANTIDA' +
              'D, '#10'    IMPORTEUNIDAD, IMPORTETOTAL, TIPO, POSICION'#10'  FROM'#10'    D' +
              'ETALLESPRESUPUESTOS'#10'  WHERE CODIGOPRESUPUESTO = :CODIGOPRESUPUES' +
              'TO'#10'  AND VISIBLE = '#39'S'#39#10'  ORDER BY POSICION'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'CODIGOPRESUPUESTO'
                TableField = 'CODIGOPRESUPUESTO'
              end
              item
                DatasetField = 'NUMCONCEPTO'
                TableField = 'NUMCONCEPTO'
              end
              item
                DatasetField = 'DESCRIPCION'
                TableField = 'DESCRIPCION'
              end
              item
                DatasetField = 'CANTIDAD'
                TableField = 'CANTIDAD'
              end
              item
                DatasetField = 'IMPORTEUNIDAD'
                TableField = 'IMPORTEUNIDAD'
              end
              item
                DatasetField = 'IMPORTETOTAL'
                TableField = 'IMPORTETOTAL'
              end
              item
                DatasetField = 'TIPO'
                TableField = 'TIPO'
              end
              item
                DatasetField = 'POSICION'
                TableField = 'POSICION'
              end>
          end>
        Name = 'InformeDetallesPresupuesto'
        Fields = <
          item
            Name = 'CODIGOPRESUPUESTO'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'CODIGOPRESUPUESTO'
            InPrimaryKey = True
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'NUMCONCEPTO'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'NUMCONCEPTO'
            InPrimaryKey = True
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'DESCRIPCION'
            DataType = datString
            Size = 2000
            BlobType = dabtUnknown
            DictionaryEntry = 'DESCRIPCIONCONCEPTO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CANTIDAD'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'CANTIDAD'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'IMPORTEUNIDAD'
            DataType = datCurrency
            BlobType = dabtUnknown
            DictionaryEntry = 'IMPORTEUNIDAD'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'IMPORTETOTAL'
            DataType = datCurrency
            BlobType = dabtUnknown
            DictionaryEntry = 'IMPORTETOTAL'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'TIPO'
            DataType = datString
            Size = 1
            Description = 'Cap'#237'tulo, etc'
            BlobType = dabtUnknown
            DictionaryEntry = 'TIPODETALLESPRESUPUESTO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'POSICION'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'POSICIONCONCEPTO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end>
    Commands = <
      item
        Params = <
          item
            Name = 'CODIGOEMPRESA'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CODIGO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHAALTA'
            DataType = datDateTime
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'USUARIO'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CODIGOCONTACTO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 20
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'TIPO'
            DataType = datString
            Size = 10
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHAPRESUPUESTO'
            DataType = datDateTime
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'VIGENCIAPRESUPUESTO'
            DataType = datDateTime
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'SITUACION'
            DataType = datString
            Size = 30
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHADECISION'
            DataType = datDateTime
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'BASEIMPONIBLE'
            DataType = datFloat
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'DESCUENTO'
            DataType = datFloat
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'IMPORTEDESCUENTO'
            DataType = datFloat
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'IVA'
            DataType = datFloat
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'IMPORTEIVA'
            DataType = datFloat
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'IMPORTETOTAL'
            DataType = datFloat
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'OBSERVACIONES'
            DataType = datMemo
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'PLAZOENTREGA'
            DataType = datMemo
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FORMAPAGO'
            DataType = datMemo
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'PRESUPUESTOS'
            SQL = 
              'INSERT'#10'  INTO PRESUPUESTOS'#10'    (CODIGOEMPRESA, CODIGO, FECHAALTA' +
              ', USUARIO, CODIGOCONTACTO,'#10'     REFERENCIA, TIPO, FECHAPRESUPUES' +
              'TO, VIGENCIAPRESUPUESTO, '#10'     SITUACION, FECHADECISION, BASEIMP' +
              'ONIBLE, DESCUENTO, '#10'     IMPORTEDESCUENTO, IVA, IMPORTEIVA, IMPO' +
              'RTETOTAL, OBSERVACIONES, '#10'     PLAZOENTREGA, FORMAPAGO)'#10'  VALUES' +
              #10'    (:CODIGOEMPRESA, :CODIGO,'#10'     :FECHAALTA, :USUARIO, :CODIG' +
              'OCONTACTO,'#10'     :REFERENCIA, :TIPO, :FECHAPRESUPUESTO, :VIGENCIA' +
              'PRESUPUESTO, '#10'     :SITUACION, :FECHADECISION, :BASEIMPONIBLE, :' +
              'DESCUENTO, '#10'     :IMPORTEDESCUENTO, :IVA, :IMPORTEIVA, :IMPORTET' +
              'OTAL, '#10'     :OBSERVACIONES, :PLAZOENTREGA, :FORMAPAGO);'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Insert_Presupuestos'
      end
      item
        Params = <
          item
            Name = 'CODIGOEMPRESA'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHAALTA'
            DataType = datDateTime
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'USUARIO'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CODIGOCONTACTO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 20
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'TIPO'
            DataType = datString
            Size = 10
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHAPRESUPUESTO'
            DataType = datDateTime
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'VIGENCIAPRESUPUESTO'
            DataType = datDateTime
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'SITUACION'
            DataType = datString
            Size = 30
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHADECISION'
            DataType = datDateTime
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'BASEIMPONIBLE'
            DataType = datFloat
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'DESCUENTO'
            DataType = datFloat
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'IMPORTEDESCUENTO'
            DataType = datFloat
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'IVA'
            DataType = datFloat
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'IMPORTEIVA'
            DataType = datFloat
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'IMPORTETOTAL'
            DataType = datFloat
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'OBSERVACIONES'
            DataType = datMemo
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'PLAZOENTREGA'
            DataType = datMemo
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FORMAPAGO'
            DataType = datMemo
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'OLD_CODIGO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'PRESUPUESTOS'
            SQL = 
              'UPDATE PRESUPUESTOS'#10'  SET '#10'    CODIGOEMPRESA = :CODIGOEMPRESA, '#10 +
              '    FECHAALTA = :FECHAALTA, '#10'    USUARIO = :USUARIO, '#10'    CODIGO' +
              'CONTACTO = :CODIGOCONTACTO, '#10'    REFERENCIA = :REFERENCIA, '#10'    ' +
              'TIPO = :TIPO, '#10'    FECHAPRESUPUESTO = :FECHAPRESUPUESTO, '#10'    VI' +
              'GENCIAPRESUPUESTO = :VIGENCIAPRESUPUESTO, '#10'    SITUACION = :SITU' +
              'ACION, '#10'    FECHADECISION = :FECHADECISION, '#10'    BASEIMPONIBLE =' +
              ' :BASEIMPONIBLE, '#10'    DESCUENTO = :DESCUENTO, '#10'    IMPORTEDESCUE' +
              'NTO = :IMPORTEDESCUENTO, '#10'    IVA = :IVA, '#10'    IMPORTEIVA = :IMP' +
              'ORTEIVA, '#10'    IMPORTETOTAL = :IMPORTETOTAL, '#10'    OBSERVACIONES =' +
              ' :OBSERVACIONES, '#10'    PLAZOENTREGA = :PLAZOENTREGA, '#10'    FORMAPA' +
              'GO = :FORMAPAGO'#10'  WHERE'#10'    (CODIGO = :OLD_CODIGO)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Update_Presupuestos'
      end
      item
        Params = <
          item
            Name = 'OLD_CODIGO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'PRESUPUESTOS'
            SQL = 
              'DELETE '#10'  FROM'#10'    PRESUPUESTOS'#10'  WHERE'#10'    (CODIGO = :OLD_CODIG' +
              'O)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Delete_Presupuestos'
      end>
    RelationShips = <
      item
        Name = 'FK_DetallesPresupuestos_Presupuestos'
        MasterDatasetName = 'Presupuestos'
        MasterFields = 'CODIGO'
        DetailDatasetName = 'DetallesPresupuestos'
        DetailFields = 'CODIGOPRESUPUESTO'
      end
      item
        Name = 'FK_InformeDetallesPresupuesto_InformeCabeceraPresupuesto'
        MasterDatasetName = 'InformeCabeceraPresupuesto'
        MasterFields = 'CODIGO'
        DetailDatasetName = 'InformeDetallesPresupuesto'
        DetailFields = 'CODIGOPRESUPUESTO'
      end>
    UpdateRules = <
      item
        Name = 'Insert Presupuestos'
        DoUpdate = False
        DoInsert = True
        DoDelete = False
        DatasetName = 'Presupuestos'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Update Presupuestos'
        DoUpdate = True
        DoInsert = False
        DoDelete = False
        DatasetName = 'Presupuestos'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Delete DetallesPresupuestos'
        DoUpdate = False
        DoInsert = False
        DoDelete = True
        DatasetName = 'DetallesPresupuestos'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Update DetallesPresupuestos'
        DoUpdate = True
        DoInsert = False
        DoDelete = False
        DatasetName = 'DetallesPresupuestos'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Insert DetallesPresupuestos'
        DoUpdate = False
        DoInsert = True
        DoDelete = False
        DatasetName = 'DetallesPresupuestos'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Delete Presupuestos'
        DoUpdate = False
        DoInsert = False
        DoDelete = True
        DatasetName = 'Presupuestos'
        FailureBehaviour = fbRaiseException
      end>
    Left = 48
    Top = 24
  end
  object bpPresupuestos: TDABusinessProcessor
    Schema = schPresupuestos
    InsertCommandName = 'Insert_Presupuestos'
    UpdateCommandName = 'Update_Presupuestos'
    RefreshDatasetName = 'Presupuestos_RefreshDataset'
    ReferencedDataset = 'Presupuestos'
    ProcessorOptions = [poAutoGenerateDelete, poPrepareCommands]
    UpdateMode = updWhereKeyOnly
    Left = 208
    Top = 24
  end
  object frxReport1: TfrxReport
    Version = '3.15'
    DotMatrixReport = False
    EngineOptions.DoublePass = True
    IniFile = '\Software\Fast Reports'
    PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator]
    PreviewOptions.OutlineWidth = 180
    PreviewOptions.Zoom = 1.000000000000000000
    PrintOptions.Printer = 'Default'
    ReportOptions.CreateDate = 37871.995398692100000000
    ReportOptions.Description.Strings = (
      'Demonstrates how to create simple list report.')
    ReportOptions.LastChange = 38758.908826805560000000
    ReportOptions.VersionBuild = '1'
    ReportOptions.VersionMajor = '12'
    ReportOptions.VersionMinor = '13'
    ReportOptions.VersionRelease = '1'
    ScriptLanguage = 'PascalScript'
    ScriptText.Strings = (
      'procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);'
      'begin'
      '  DatosCliente.Lines.Clear;'
      '  DatosCliente.Lines.Add(<frxDBCabecera."CALLE">);'
      ''
      '  if (<frxDBCabecera."CODIGOPOSTAL"> <> '#39#39')'
      '  or (<frxDBCabecera."POBLACION"> <> '#39#39') then'
      
        '     DatosCliente.Lines.Add(<frxDBCabecera."CODIGOPOSTAL"> + <fr' +
        'xDBCabecera."POBLACION">);'
      'end;'
      ''
      'procedure BandaDetallesOnBeforePrint(Sender: TfrxComponent);'
      'begin'
      '  case <frxDBDetalles."TIPO"> of'
      '  '#39'C'#39': begin'
      '       MemoCampo12.Style := '#39'Concepto normal'#39';'
      '       MemoCampo2.Style := '#39'Concepto normal'#39';'
      '       MemoCampo3.Style := '#39'Concepto normal'#39';'
      '       MemoCampo4.Style := '#39'Concepto normal'#39';'
      '       end;'
      '  '#39'S'#39': begin'
      '       MemoCampo12.Style := '#39'Concepto subtotal'#39';'
      '       MemoCampo2.Style := '#39'Concepto subtotal'#39';'
      '       MemoCampo3.Style := '#39'Concepto subtotal'#39';'
      '       MemoCampo4.Style := '#39'Concepto subtotal'#39';'
      '       end;'
      '  '#39'T'#39': begin'
      '       MemoCampo12.Style := '#39'Concepto titulo'#39';'
      '       MemoCampo2.Style := '#39'Concepto titulo'#39';'
      '       MemoCampo3.Style := '#39'Concepto titulo'#39';'
      '       MemoCampo4.Style := '#39'Concepto titulo'#39';'
      '       end;'
      '  end;'
      'end;'
      ''
      'procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);'
      'begin'
      
        '       Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSum' +
        'mary1.Height - 1;'
      'end;'
      ''
      'begin'
      ''
      'end.')
    StoreInDFM = False
    Left = 40
    Top = 128
    Datasets = <
      item
        DataSet = frxDBCabecera
        DataSetName = 'frxDBCabecera'
      end
      item
        DataSet = frxDBDetalles
        DataSetName = 'frxDBDetalles'
      end>
    Variables = <>
    Style = <
      item
        Name = 'Concepto normal'
        Color = clNone
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = []
      end
      item
        Name = 'Concepto subtotal'
        Color = 15790320
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
      end
      item
        Name = 'Cabecera de columna'
        Color = 15790320
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
      end
      item
        Name = 'Concepto titulo'
        Color = clNone
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
      end>
  end
  object DADataCabecera: TDADataSource
    DataTable = tbl_Presupuesto
    Left = 120
    Top = 176
  end
  object DADataDetalles: TDADataSource
    DataTable = tbl_DetallesPresupuesto
    Left = 200
    Top = 176
  end
  object frxDBCabecera: TfrxDBDataset
    UserName = 'frxDBCabecera'
    CloseDataSource = False
    DataSource = DADataCabecera
    Left = 120
    Top = 128
  end
  object frxDBDetalles: TfrxDBDataset
    UserName = 'frxDBDetalles'
    CloseDataSource = False
    DataSource = DADataDetalles
    Left = 200
    Top = 128
  end
  object tbl_Presupuesto: TDACDSDataTable
    RemoteUpdatesOptions = []
    Fields = <>
    Params = <>
    MasterMappingMode = mmDataRequest
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteFetchEnabled = False
    SchemaCall.Params = <>
    DataRequestCall.Params = <>
    DataUpdateCall.Params = <>
    ScriptCall.Params = <>
    ReadOnly = False
    Adapter = dmServer.DABINAdapter
    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
    IndexDefs = <>
    Left = 120
    Top = 240
  end
  object tbl_DetallesPresupuesto: TDACDSDataTable
    RemoteUpdatesOptions = []
    Fields = <>
    Params = <>
    MasterMappingMode = mmDataRequest
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteFetchEnabled = False
    SchemaCall.Params = <>
    DataRequestCall.Params = <>
    DataUpdateCall.Params = <>
    ScriptCall.Params = <>
    ReadOnly = False
    Adapter = dmServer.DABINAdapter
    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
    IndexDefs = <>
    Left = 200
    Top = 240
  end
end