object srvPedidosProveedor: TsrvPedidosProveedor
  OldCreateOrder = True
  RequiresSession = True
  SessionManager = dmServer.SessionManager
  AcquireConnection = True
  ConnectionName = 'IBX'
  ServiceSchema = schPedidosProveedor
  ServiceAdapter = DABINAdapter
  Left = 731
  Top = 308
  Height = 459
  Width = 300
  object schPedidosProveedor: TDASchema
    ConnectionManager = dmServer.ConnectionManager
    DataDictionary = dmServer.DataDictionary
    Diagrams = dmServer.DADiagrams
    Datasets = <
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            SQL = 'SELECT * FROM DAR_REFERENCIA_PEDIDO'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'darReferenciaPedido'
        Fields = <>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end
      item
        Params = <
          item
            Name = 'CODIGOPEDIDO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'DETALLESPEDIDOS'
            SQL = 
              'SELECT '#10'    CODIGOPEDIDO, NUMCONCEPTO, DESCRIPCION, CANTIDAD, IM' +
              'PORTEUNIDAD, '#10'    IMPORTETOTAL, POSICION, TIPO'#10'  FROM'#10'    DETALL' +
              'ESPEDIDOS'#10'  WHERE CODIGOPEDIDO = :CODIGOPEDIDO'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'CODIGOPEDIDO'
                TableField = 'CODIGOPEDIDO'
              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 = 'POSICION'
                TableField = 'POSICION'
              end
              item
                DatasetField = 'TIPO'
                TableField = 'TIPO'
              end>
          end>
        Name = 'DetallesPedidosProveedor'
        Fields = <
          item
            Name = 'CODIGOPEDIDO'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'CODIGOPEDIDO'
            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 = 'POSICION'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'POSICIONCONCEPTO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'TIPO'
            DataType = datString
            Size = 1
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            SQL = 
              'select ANO from'#10'(select distinct(substr(FECHAPEDIDO, 1,4)) as AN' +
              'O'#10'from pedidos'#10'order by 1 desc)'#10#10'UNION ALL'#10#10'select distinct '#39'Tod' +
              'os'#39' as ANO'#10'from empresas'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'ANO'
                TableField = 'ANO'
              end>
          end>
        Name = 'ListaAnosPedidos'
        Fields = <
          item
            Name = 'ANO'
            DataType = datString
            Size = 254
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'PEDIDOS'
            SQL = 
              'SELECT '#10'    PED.CODIGOEMPRESA, PED.CODIGO, PED.FECHAALTA, PED.US' +
              'UARIO, PED.REFERENCIA,'#10'    PED.FECHAPEDIDO, PED.FECHACONFIRMACIO' +
              'N, PED.SITUACION, PED.FECHAENTREGA,'#10'    PED.OBSERVACIONES, PED.I' +
              'MPORTETOTAL, PED.DIRECCIONCOMPLETA, PED.INCIDENCIAS,'#10'    PED.INC' +
              'IDENCIASACTIVAS, PED.CODIGOCONTACTO, CON.NOMBRE,'#10'    PED.CODIGOA' +
              'LMACEN, COALESCE(ALM.NOMBRE, '#39'Otro'#39') as NOMBREALMACEN,'#10'    PED.C' +
              'ODIGOMONTAJE, MON.CODIGOCONTACTO, CON2.NOMBRE AS NOMBRECLIENTE'#10#10 +
              'FROM PEDIDOS PED'#10'LEFT JOIN CONTACTOS CON ON (PED.CODIGOCONTACTO ' +
              '= CON.CODIGO)'#10'LEFT JOIN ALMACENES ALM ON (PED.CODIGOALMACEN = AL' +
              'M.CODIGO)'#10'LEFT JOIN MONTAJES MON ON (PED.CODIGOMONTAJE = MON.COD' +
              'IGO)'#10'LEFT JOIN CONTACTOS CON2 ON (MON.CODIGOCONTACTO = CON2.CODI' +
              'GO)'
            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 = 'REFERENCIA'
                TableField = 'REFERENCIA'
              end
              item
                DatasetField = 'FECHAPEDIDO'
                TableField = 'FECHAPEDIDO'
              end
              item
                DatasetField = 'FECHACONFIRMACION'
                TableField = 'FECHACONFIRMACION'
              end
              item
                DatasetField = 'SITUACION'
                TableField = 'SITUACION'
              end
              item
                DatasetField = 'FECHAENTREGA'
                TableField = 'FECHAENTREGA'
              end
              item
                DatasetField = 'OBSERVACIONES'
                TableField = 'OBSERVACIONES'
              end
              item
                DatasetField = 'IMPORTETOTAL'
                TableField = 'IMPORTETOTAL'
              end
              item
                DatasetField = 'DIRECCIONCOMPLETA'
                TableField = 'DIRECCIONCOMPLETA'
              end
              item
                DatasetField = 'INCIDENCIAS'
                TableField = 'INCIDENCIAS'
              end
              item
                DatasetField = 'CODIGOALMACEN'
                TableField = 'CODIGOALMACEN'
              end
              item
                DatasetField = 'CODIGOCONTACTO'
                TableField = 'CODIGOCONTACTO'
              end
              item
                DatasetField = 'NOMBRE'
                TableField = 'NOMBRE'
              end
              item
                DatasetField = 'CODIGOMONTAJE'
                TableField = 'CODIGOMONTAJE'
              end
              item
                DatasetField = 'NOMBREALMACEN'
                TableField = 'NOMBREALMACEN'
              end
              item
                DatasetField = 'CODIGOCONTACTO1'
                TableField = 'CODIGOCONTACTO1'
              end
              item
                DatasetField = 'NOMBRECLIENTE'
                TableField = 'NOMBRECLIENTE'
              end
              item
                DatasetField = 'INCIDENCIASACTIVAS'
                TableField = 'INCIDENCIASACTIVAS'
              end>
          end>
        Name = 'PedidosProveedor'
        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 = 'CODIGOPEDIDO'
            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 = 'REFERENCIA'
            DataType = datString
            Size = 20
            BlobType = dabtUnknown
            DictionaryEntry = 'REFERENCIA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FECHAPEDIDO'
            DataType = datDateTime
            BlobType = dabtUnknown
            DictionaryEntry = 'FECHAPEDIDO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FECHACONFIRMACION'
            DataType = datDateTime
            BlobType = dabtUnknown
            DictionaryEntry = 'FECHACONFIRMACION'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'SITUACION'
            DataType = datString
            Size = 30
            BlobType = dabtUnknown
            DictionaryEntry = 'SITUACIONPEDIDO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FECHAENTREGA'
            DataType = datDateTime
            BlobType = dabtUnknown
            DictionaryEntry = 'FECHAENTREGA'
            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 = 'IMPORTETOTAL'
            DataType = datCurrency
            BlobType = dabtUnknown
            DictionaryEntry = 'IMPORTETOTAL'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'DIRECCIONCOMPLETA'
            DataType = datMemo
            BlobType = dabtUnknown
            DisplayWidth = 0
            DisplayLabel = 'Direcci'#243'n'
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'INCIDENCIAS'
            DataType = datMemo
            BlobType = dabtUnknown
            DisplayWidth = 0
            DisplayLabel = 'Incidencias'
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'INCIDENCIASACTIVAS'
            DataType = datInteger
            BlobType = dabtUnknown
            DefaultValue = '0'
            Required = True
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGOALMACEN'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'CODIGO (GENERICO)'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGOCONTACTO'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'CODIGO (GENERICO)'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'NOMBRE'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            DisplayWidth = 0
            DisplayLabel = 'Nombre'
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGOMONTAJE'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'NOMBREALMACEN'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGOCONTACTO1'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'NOMBRECLIENTE'
            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
      item
        Params = <
          item
            Name = 'CODIGO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'PEDIDOS'
            SQL = 
              'SELECT'#10'    PED.CODIGOEMPRESA, PED.CODIGO, PED.FECHAALTA, PED.USU' +
              'ARIO, PED.REFERENCIA,'#10'    PED.FECHAPEDIDO, PED.FECHACONFIRMACION' +
              ', PED.SITUACION, PED.FECHAENTREGA,'#10'    PED.OBSERVACIONES, PED.IM' +
              'PORTETOTAL, PED.DIRECCIONCOMPLETA, PED.INCIDENCIAS,'#10'    PED.INCI' +
              'DENCIASACTIVAS, PED.CODIGOCONTACTO, CON.NOMBRE,'#10'    PED.CODIGOAL' +
              'MACEN, COALESCE(ALM.NOMBRE, '#39'Otro'#39') as NOMBREALMACEN,'#10'    PED.CO' +
              'DIGOMONTAJE, MON.CODIGOCONTACTO, CON2.NOMBRE AS NOMBRECLIENTE'#10#10'F' +
              'ROM PEDIDOS PED'#10'LEFT JOIN CONTACTOS CON ON (PED.CODIGOCONTACTO =' +
              ' CON.CODIGO)'#10'LEFT JOIN ALMACENES ALM ON (PED.CODIGOALMACEN = ALM' +
              '.CODIGO)'#10'LEFT JOIN MONTAJES MON ON (PED.CODIGOMONTAJE = MON.CODI' +
              'GO)'#10'LEFT JOIN CONTACTOS CON2 ON (MON.CODIGOCONTACTO = CON2.CODIG' +
              'O)'#10'WHERE PED.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 = 'REFERENCIA'
                TableField = 'REFERENCIA'
              end
              item
                DatasetField = 'FECHAPEDIDO'
                TableField = 'FECHAPEDIDO'
              end
              item
                DatasetField = 'FECHACONFIRMACION'
                TableField = 'FECHACONFIRMACION'
              end
              item
                DatasetField = 'SITUACION'
                TableField = 'SITUACION'
              end
              item
                DatasetField = 'FECHAENTREGA'
                TableField = 'FECHAENTREGA'
              end
              item
                DatasetField = 'OBSERVACIONES'
                TableField = 'OBSERVACIONES'
              end
              item
                DatasetField = 'IMPORTETOTAL'
                TableField = 'IMPORTETOTAL'
              end
              item
                DatasetField = 'DIRECCIONCOMPLETA'
                TableField = 'DIRECCIONCOMPLETA'
              end
              item
                DatasetField = 'INCIDENCIAS'
                TableField = 'INCIDENCIAS'
              end
              item
                DatasetField = 'CODIGOALMACEN'
                TableField = 'CODIGOALMACEN'
              end
              item
                DatasetField = 'CODIGOCONTACTO'
                TableField = 'CODIGOCONTACTO'
              end
              item
                DatasetField = 'NOMBRE'
                TableField = 'NOMBRE'
              end
              item
                DatasetField = 'CODIGOMONTAJE'
                TableField = 'CODIGOMONTAJE'
              end
              item
                DatasetField = 'NOMBREALMACEN'
                TableField = 'NOMBREALMACEN'
              end
              item
                DatasetField = 'INCIDENCIASACTIVAS'
                TableField = 'INCIDENCIASACTIVAS'
              end
              item
                DatasetField = 'CODIGOCONTACTO1'
                TableField = 'CODIGOCONTACTO1'
              end
              item
                DatasetField = 'NOMBRECLIENTE'
                TableField = 'NOMBRECLIENTE'
              end>
          end>
        Name = 'Refresh_PedidosProveedor'
        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 = 'CODIGOPEDIDO'
            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 = 'REFERENCIA'
            DataType = datString
            Size = 20
            BlobType = dabtUnknown
            DictionaryEntry = 'REFERENCIA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FECHAPEDIDO'
            DataType = datDateTime
            BlobType = dabtUnknown
            DictionaryEntry = 'FECHAPEDIDO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FECHACONFIRMACION'
            DataType = datDateTime
            BlobType = dabtUnknown
            DictionaryEntry = 'FECHACONFIRMACION'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'SITUACION'
            DataType = datString
            Size = 30
            BlobType = dabtUnknown
            DictionaryEntry = 'SITUACIONPEDIDO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FECHAENTREGA'
            DataType = datDateTime
            BlobType = dabtUnknown
            DictionaryEntry = 'FECHAENTREGA'
            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 = 'IMPORTETOTAL'
            DataType = datCurrency
            BlobType = dabtUnknown
            DictionaryEntry = 'IMPORTETOTAL'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'DIRECCIONCOMPLETA'
            DataType = datMemo
            BlobType = dabtUnknown
            DisplayWidth = 0
            DisplayLabel = 'Direcci'#243'n'
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'INCIDENCIAS'
            DataType = datMemo
            BlobType = dabtUnknown
            DisplayWidth = 0
            DisplayLabel = 'Incidencias'
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'INCIDENCIASACTIVAS'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGOALMACEN'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'CODIGO (GENERICO)'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGOCONTACTO'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'CODIGO (GENERICO)'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'NOMBRE'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            DisplayWidth = 0
            DisplayLabel = 'Nombre'
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGOMONTAJE'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'NOMBREALMACEN'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGOCONTACTO1'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'NOMBRECLIENTE'
            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
      item
        Params = <
          item
            Name = 'CODIGO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = '43'
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'PEDIDOS'
            SQL = 
              'SELECT'#10'    PED.CODIGOEMPRESA, PED.CODIGO, PED.REFERENCIA,'#10'    PE' +
              'D.FECHAPEDIDO, PED.FECHAENTREGA, PED.OBSERVACIONES, PED.IMPORTET' +
              'OTAL,'#10'    PED.DIRECCIONCOMPLETA, CON.NOMBRE, CON.CALLE, CON.CODI' +
              'GOPOSTAL,'#10'    CON.PROVINCIA, CON.POBLACION,'#10'    PED.CODIGOMONTAJ' +
              'E, MON.CODIGOCONTACTO, CON2.NOMBRE AS NOMBRECLIENTE'#10'FROM PEDIDOS' +
              ' PED'#10'LEFT JOIN CONTACTOS CON ON (PED.CODIGOCONTACTO = CON.CODIGO' +
              ')'#10'LEFT JOIN MONTAJES MON ON (PED.CODIGOMONTAJE = MON.CODIGO)'#10'LEF' +
              'T JOIN CONTACTOS CON2 ON (MON.CODIGOCONTACTO = CON2.CODIGO)'#10'WHER' +
              'E PED.CODIGO = :CODIGO'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'CODIGOEMPRESA'
                TableField = 'CODIGOEMPRESA'
              end
              item
                DatasetField = 'CODIGO'
                TableField = 'CODIGO'
              end
              item
                DatasetField = 'REFERENCIA'
                TableField = 'REFERENCIA'
              end
              item
                DatasetField = 'FECHAPEDIDO'
                TableField = 'FECHAPEDIDO'
              end
              item
                DatasetField = 'OBSERVACIONES'
                TableField = 'OBSERVACIONES'
              end
              item
                DatasetField = 'IMPORTETOTAL'
                TableField = 'IMPORTETOTAL'
              end
              item
                DatasetField = 'DIRECCIONCOMPLETA'
                TableField = 'DIRECCIONCOMPLETA'
              end
              item
                DatasetField = 'NOMBRE'
                TableField = 'NOMBRE'
              end
              item
                DatasetField = 'CALLE'
                TableField = 'CALLE'
              end
              item
                DatasetField = 'CODIGOPOSTAL'
                TableField = 'CODIGOPOSTAL'
              end
              item
                DatasetField = 'PROVINCIA'
                TableField = 'PROVINCIA'
              end
              item
                DatasetField = 'POBLACION'
                TableField = 'POBLACION'
              end>
          end>
        Name = 'InformeCabeceraPedido'
        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 = 'REFERENCIA'
            DataType = datString
            Size = 20
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FECHAPEDIDO'
            DataType = datDateTime
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FECHAENTREGA'
            DataType = datDateTime
            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 = 'IMPORTETOTAL'
            DataType = datFloat
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'DIRECCIONCOMPLETA'
            DataType = datMemo
            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 = 'PROVINCIA'
            DataType = datString
            Size = 30
            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 = 'CODIGOMONTAJE'
            DataType = datInteger
            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 = 'NOMBRECLIENTE'
            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
      item
        Params = <
          item
            Name = 'CODIGOPEDIDO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'DETALLESPEDIDOS'
            SQL = 
              'SELECT '#10'    CODIGOPEDIDO, NUMCONCEPTO, DESCRIPCION, CANTIDAD, IM' +
              'PORTEUNIDAD, '#10'    IMPORTETOTAL, POSICION, TIPO'#10'  FROM'#10'    DETALL' +
              'ESPEDIDOS'#10'  WHERE CODIGOPEDIDO = :CODIGOPEDIDO'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'CODIGOPEDIDO'
                TableField = 'CODIGOPEDIDO'
              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 = 'POSICION'
                TableField = 'POSICION'
              end
              item
                DatasetField = 'TIPO'
                TableField = 'TIPO'
              end>
          end>
        Name = 'InformeDetallesPedido'
        Fields = <
          item
            Name = 'CODIGOPEDIDO'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'CODIGOPEDIDO'
            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 = 'POSICION'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'POSICIONCONCEPTO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'TIPO'
            DataType = datString
            Size = 1
            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 = '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 = 'REFERENCIA'
            DataType = datString
            Size = 20
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHAPEDIDO'
            DataType = datDateTime
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHACONFIRMACION'
            DataType = datDateTime
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'SITUACION'
            DataType = datString
            Size = 30
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHAENTREGA'
            DataType = datDateTime
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'OBSERVACIONES'
            DataType = datMemo
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'IMPORTETOTAL'
            DataType = datFloat
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'DIRECCIONCOMPLETA'
            DataType = datMemo
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'INCIDENCIAS'
            DataType = datMemo
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'INCIDENCIASACTIVAS'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CODIGOALMACEN'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CODIGOCONTACTO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CODIGOMONTAJE'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'PEDIDOS'
            SQL = 
              'INSERT'#10'  INTO PEDIDOS'#10'    (CODIGOEMPRESA, CODIGO, FECHAALTA, USU' +
              'ARIO, REFERENCIA, '#10'     FECHAPEDIDO, FECHACONFIRMACION, SITUACIO' +
              'N, FECHAENTREGA, '#10'     OBSERVACIONES, IMPORTETOTAL, DIRECCIONCOM' +
              'PLETA, INCIDENCIAS, INCIDENCIASACTIVAS,'#10'     CODIGOALMACEN, CODI' +
              'GOCONTACTO, CODIGOMONTAJE)'#10'  VALUES'#10'    (:CODIGOEMPRESA, :CODIGO' +
              ', :FECHAALTA, :USUARIO, :REFERENCIA, '#10'     :FECHAPEDIDO, :FECHAC' +
              'ONFIRMACION, :SITUACION, :FECHAENTREGA, '#10'     :OBSERVACIONES, :I' +
              'MPORTETOTAL, :DIRECCIONCOMPLETA, '#10'     :INCIDENCIAS, :INCIDENCIA' +
              'SACTIVAS, :CODIGOALMACEN, :CODIGOCONTACTO, :CODIGOMONTAJE)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Insert_PedidosProveedor'
      end
      item
        Params = <
          item
            Name = 'OLD_CODIGO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'PEDIDOS'
            SQL = 'DELETE '#10'  FROM'#10'    PEDIDOS'#10'  WHERE'#10'    (CODIGO = :OLD_CODIGO)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Delete_PedidosProveedor'
      end
      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 = 'REFERENCIA'
            DataType = datString
            Size = 20
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHAPEDIDO'
            DataType = datDateTime
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHACONFIRMACION'
            DataType = datDateTime
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'SITUACION'
            DataType = datString
            Size = 30
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHAENTREGA'
            DataType = datDateTime
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'OBSERVACIONES'
            DataType = datMemo
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'IMPORTETOTAL'
            DataType = datFloat
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'DIRECCIONCOMPLETA'
            DataType = datMemo
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'INCIDENCIAS'
            DataType = datMemo
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'INCIDENCIASACTIVAS'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CODIGOALMACEN'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CODIGOCONTACTO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CODIGOMONTAJE'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'OLD_CODIGO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'PEDIDOS'
            SQL = 
              'UPDATE PEDIDOS'#10'  SET '#10'    CODIGOEMPRESA = :CODIGOEMPRESA, '#10'    C' +
              'ODIGO = :CODIGO, '#10'    FECHAALTA = :FECHAALTA, '#10'    USUARIO = :US' +
              'UARIO, '#10'    REFERENCIA = :REFERENCIA, '#10'    FECHAPEDIDO = :FECHAP' +
              'EDIDO, '#10'    FECHACONFIRMACION = :FECHACONFIRMACION, '#10'    SITUACI' +
              'ON = :SITUACION, '#10'    FECHAENTREGA = :FECHAENTREGA, '#10'    OBSERVA' +
              'CIONES = :OBSERVACIONES, '#10'    IMPORTETOTAL = :IMPORTETOTAL, '#10'   ' +
              ' DIRECCIONCOMPLETA = :DIRECCIONCOMPLETA, '#10'    INCIDENCIAS = :INC' +
              'IDENCIAS,'#10'    INCIDENCIASACTIVAS = :INCIDENCIASACTIVAS,'#10'    CODI' +
              'GOALMACEN = :CODIGOALMACEN, '#10'    CODIGOCONTACTO = :CODIGOCONTACT' +
              'O, '#10'    CODIGOMONTAJE = :CODIGOMONTAJE'#10'  WHERE'#10'    (CODIGO = :OL' +
              'D_CODIGO)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Update_PedidosProveedor'
      end>
    RelationShips = <
      item
        Name = 'FK_DetallesPedidosProveedor_PedidosProveedor'
        MasterDatasetName = 'PedidosProveedor'
        MasterFields = 'CODIGO'
        DetailDatasetName = 'DetallesPedidosProveedor'
        DetailFields = 'CODIGOPEDIDO'
      end>
    UpdateRules = <
      item
        Name = 'Insert PedidosProveedor'
        DoUpdate = False
        DoInsert = True
        DoDelete = False
        DatasetName = 'PedidosProveedor'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Update PedidosProveedor'
        DoUpdate = True
        DoInsert = False
        DoDelete = False
        DatasetName = 'PedidosProveedor'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Delete DetallesPedidosProveedor'
        DoUpdate = False
        DoInsert = False
        DoDelete = True
        DatasetName = 'DetallesPedidosProveedor'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Insert DetallesPedidosProveedor'
        DoUpdate = False
        DoInsert = True
        DoDelete = False
        DatasetName = 'DetallesPedidosProveedor'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Update DetallesPedidosProveedor'
        DoUpdate = True
        DoInsert = False
        DoDelete = False
        DatasetName = 'DetallesPedidosProveedor'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Delete PedidosProveedor'
        DoUpdate = False
        DoInsert = False
        DoDelete = True
        DatasetName = 'PedidosProveedor'
        FailureBehaviour = fbRaiseException
      end>
    Left = 48
    Top = 24
  end
  object bpPedidosProveedor: TDABusinessProcessor
    Schema = schPedidosProveedor
    InsertCommandName = 'Insert_PedidosProveedor'
    UpdateCommandName = 'Update_PedidosProveedor'
    RefreshDatasetName = 'Refresh_PedidosProveedor'
    ReferencedDataset = 'PedidosProveedor'
    ProcessorOptions = [poAutoGenerateDelete, poPrepareCommands]
    UpdateMode = updWhereKeyOnly
    Left = 208
    Top = 24
  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.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 = 39015.492018761570000000
    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';'
      '       end;'
      '  '#39'S'#39': begin'
      '       MemoCampo12.Style := '#39'Concepto subtotal'#39';'
      '       end;'
      '  '#39'T'#39': begin'
      '       MemoCampo12.Style := '#39'Concepto titulo'#39';'
      '       end;'
      '  end;'
      'end;'
      ''
      'procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);'
      'begin'
      
        '       Engine.CurY := Engine.CurY + Engine.FreeSpace - PageFoote' +
        'r1.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_Pedido
    Left = 120
    Top = 176
  end
  object DADataDetalles: TDADataSource
    DataTable = tbl_DetallesPedido
    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_Pedido: TDACDSDataTable
    RemoteUpdatesOptions = []
    Fields = <>
    Params = <>
    MasterMappingMode = mmDataRequest
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteFetchEnabled = False
    SchemaCall.Params = <>
    DataRequestCall.Params = <>
    DataUpdateCall.Params = <>
    ScriptCall.Params = <>
    ReadOnly = False
    Adapter = 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_DetallesPedido: TDACDSDataTable
    RemoteUpdatesOptions = []
    Fields = <>
    Params = <>
    MasterMappingMode = mmDataRequest
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteFetchEnabled = False
    SchemaCall.Params = <>
    DataRequestCall.Params = <>
    DataUpdateCall.Params = <>
    ScriptCall.Params = <>
    ReadOnly = False
    Adapter = DABINAdapter
    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
    IndexDefs = <>
    Left = 200
    Top = 240
  end
  object IBDatabase1: TIBDatabase
    DatabaseName = 'D:\Proyectos\FactuGES (Arribas)\Codigo\BD\BASEDATOS.FDB'
    Params.Strings = (
      'user_name=sysdba'
      'password=masterkey'
      'lc_ctype=iSO8859_1')
    LoginPrompt = False
    DefaultTransaction = IBTransaction1
    IdleTimer = 0
    SQLDialect = 3
    TraceFlags = []
    Left = 32
    Top = 208
  end
  object IBTransaction1: TIBTransaction
    Active = False
    AutoStopAction = saNone
    Left = 32
    Top = 256
  end
  object IBDataSet1: TIBDataSet
    Database = IBDatabase1
    Transaction = IBTransaction1
    BufferChunks = 1000
    CachedUpdates = False
    SelectSQL.Strings = (
      'SELECT '
      '    PED.CODIGOEMPRESA, PED.CODIGO, PED.REFERENCIA,'
      '    PED.FECHAPEDIDO, PED.OBSERVACIONES, PED.IMPORTETOTAL,'
      '    PED.DIRECCIONCOMPLETA,'
      '    CON.NOMBRE, CON.CALLE, CON.CODIGOPOSTAL,'
      '    CON.PROVINCIA, CON.POBLACION'
      'FROM PEDIDOS PED'
      'LEFT JOIN CONTACTOS CON ON (PED.CODIGOCONTACTO = CON.CODIGO)'
      'WHERE PED.CODIGO = 43')
    Left = 120
    Top = 296
  end
  object IBDataSet2: TIBDataSet
    Database = IBDatabase1
    Transaction = IBTransaction1
    BufferChunks = 1000
    CachedUpdates = False
    SelectSQL.Strings = (
      'SELECT '
      
        '    CODIGOPEDIDO, NUMCONCEPTO, DESCRIPCION, CANTIDAD, IMPORTEUNI' +
        'DAD, '
      '    IMPORTETOTAL, POSICION, TIPO'
      '  FROM'
      '    DETALLESPEDIDOS'
      '  WHERE CODIGOPEDIDO = 43')
    Left = 200
    Top = 296
  end
  object DataSource1: TDataSource
    DataSet = IBDataSet1
    Left = 120
    Top = 352
  end
  object DataSource2: TDataSource
    DataSet = IBDataSet2
    Left = 200
    Top = 352
  end
  object DABINAdapter: TDABINAdapter
    Left = 48
    Top = 72
  end
end