object srvAlbaranesCliente: TsrvAlbaranesCliente
  OldCreateOrder = True
  RequiresSession = True
  SessionManager = dmServer.SessionManager
  AcquireConnection = True
  ConnectionName = 'IBX'
  ServiceSchema = schAlbaranesCliente
  ServiceAdapter = DABINAdapter
  Left = 681
  Top = 255
  Height = 463
  Width = 347
  object schAlbaranesCliente: TDASchema
    ConnectionManager = dmServer.ConnectionManager
    DataDictionary = dmServer.DataDictionary
    Diagrams = dmServer.DADiagrams
    Datasets = <
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            SQL = 
              'select ANO from'#10'(select distinct(substr(FECHAALBARAN, 1,4)) as A' +
              'NO'#10'from albaranpago'#10'order by 1 desc)'#10#10'UNION ALL'#10#10'select distinct' +
              ' '#39'Todos'#39' as ANO'#10'from empresas'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'ANO'
                TableField = 'ANO'
              end>
          end>
        Name = 'ListaAnosAlbaranes'
        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 = 'ALBARANPAGO'
            SQL = 'SELECT * FROM DAR_REFERENCIA_ALBARAN'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'REFERENCIA'
                TableField = 'REFERENCIA'
              end>
          end>
        Name = 'DarReferenciaAlbaran'
        Fields = <
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 20
            BlobType = dabtUnknown
            DictionaryEntry = 'REFERENCIA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'ALBARANPAGO'
            SQL = 
              'SELECT ALBARANPAGO.CODIGOEMPRESA, ALBARANPAGO.CODIGO, ALBARANPAG' +
              'O.FECHAALTA,'#10'       ALBARANPAGO.USUARIO, ALBARANPAGO.REFERENCIA,' +
              ' ALBARANPAGO.CODIGOCONTACTO,'#10'       CONTACTOS.NOMBRE, ALBARANPAG' +
              'O.FECHAALBARAN, ALBARANPAGO.SITUACION,'#10'       ALBARANPAGO.FECHAP' +
              'AGO, ALBARANPAGO.BASEIMPONIBLE, ALBARANPAGO.DESCUENTO,'#10'       AL' +
              'BARANPAGO.IMPORTEDESCUENTO, ALBARANPAGO.IVA, ALBARANPAGO.IMPORTE' +
              'IVA,'#10'       ALBARANPAGO.IMPORTETOTAL, ALBARANPAGO.OBSERVACIONES,' +
              #10'       ALBARANPAGO.FORMAPAGO, ALBARANPAGO.CODIGOPRESUPUESTO,'#10'  ' +
              '     MONTAJES.REFERENCIA as REFERENCIAPRESUPUESTO'#10'FROM ALBARANPA' +
              'GO'#10'   INNER JOIN CONTACTOS ON (ALBARANPAGO.CODIGOCONTACTO = CONT' +
              'ACTOS.CODIGO)'#10'   LEFT OUTER JOIN MONTAJES ON (ALBARANPAGO.CODIGO' +
              'PRESUPUESTO = MONTAJES.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 = 'FECHAALBARAN'
                TableField = 'FECHAALBARAN'
              end
              item
                DatasetField = 'SITUACION'
                TableField = 'SITUACION'
              end
              item
                DatasetField = 'FECHAPAGO'
                TableField = 'FECHAPAGO'
              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 = 'FORMAPAGO'
                TableField = 'FORMAPAGO'
              end
              item
                DatasetField = 'NOMBRE'
                TableField = 'NOMBRE'
              end
              item
                DatasetField = 'REFERENCIA'
                TableField = 'REFERENCIA'
              end
              item
                DatasetField = 'CODIGOPRESUPUESTO'
                TableField = 'CODIGOPRESUPUESTO'
              end
              item
                DatasetField = 'REFERENCIAPRESUPUESTO'
                TableField = 'REFERENCIAPRESUPUESTO'
              end>
          end>
        Name = 'AlbaranCliente'
        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 = 'CODIGOALBARANCLIENTE'
            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 = '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
            DisplayLabel = 'Nombre'
            Alignment = taLeftJustify
            ServerAutoRefresh = True
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FECHAALBARAN'
            DataType = datDateTime
            BlobType = dabtUnknown
            DictionaryEntry = 'FECHAALBARANCLIENTE'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'SITUACION'
            DataType = datString
            Size = 30
            BlobType = dabtUnknown
            DictionaryEntry = 'SITUACIONALBARANCLIENTE'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FECHAPAGO'
            DataType = datDateTime
            BlobType = dabtUnknown
            DictionaryEntry = 'FECHAPAGO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGOPRESUPUESTO'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'CODIGO (GENERICO)'
            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 = 'FORMAPAGO'
            DataType = datMemo
            BlobType = dabtUnknown
            DictionaryEntry = 'FORMAPAGO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'REFERENCIAPRESUPUESTO'
            DataType = datString
            Size = 20
            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 = '505'
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'ALBARANPAGO'
            SQL = 
              'SELECT '#10'    CODIGO'#10'  FROM'#10'    ALBARANPAGO'#10'  WHERE CODIGOPRESUPUE' +
              'STO = :CODIGOPRESUPUESTO'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'CODIGO'
                TableField = 'CODIGO'
              end>
          end>
        Name = 'AlbaranDePresupuesto'
        Fields = <
          item
            Name = 'CODIGO'
            DataType = datInteger
            BlobType = dabtUnknown
            LogChanges = False
            DictionaryEntry = 'CODIGO (GENERICO)'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end
      item
        Params = <
          item
            Name = 'CODIGOALBARAN'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = '1'
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'DETALLESALBARANPAGO'
            SQL = 
              'SELECT'#10'    CODIGOALBARAN, NUMCONCEPTO, POSICION, TIPO, DESCRIPCI' +
              'ON, CANTIDAD,'#10'    IMPORTEUNIDAD, IMPORTETOTAL, VISIBLE, PUNTOS, ' +
              'IMPORTEPUNTOS, VALORADO'#10'  FROM'#10'    DETALLESALBARANPAGO'#10'  WHERE C' +
              'ODIGOALBARAN = :CODIGOALBARAN'#10'  ORDER BY POSICION'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'CODIGOALBARAN'
                TableField = 'CODIGOALBARAN'
              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
              item
                DatasetField = 'VISIBLE'
                TableField = 'VISIBLE'
              end
              item
                DatasetField = 'PUNTOS'
                TableField = 'PUNTOS'
              end
              item
                DatasetField = 'IMPORTEPUNTOS'
                TableField = 'IMPORTEPUNTOS'
              end
              item
                DatasetField = 'VALORADO'
                TableField = 'VALORADO'
              end>
          end>
        Name = 'DetallesAlbaranCliente'
        Fields = <
          item
            Name = 'CODIGOALBARAN'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'CODIGOALBARANCLIENTE'
            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 = 'POSICION'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'POSICIONCONCEPTO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'TIPO'
            DataType = datString
            Size = 1
            Description = 'Cap'#237'tulo, etc'
            BlobType = dabtUnknown
            DictionaryEntry = 'TIPODETALLESALBARANCLIENTE'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'DESCRIPCION'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            DictionaryEntry = 'DESCRIPCION'
            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 = '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
          item
            Name = 'VALORADO'
            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 = <
          item
            Name = 'CODIGO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'ALBARANPAGO'
            SQL = 
              'SELECT ALBARANPAGO.CODIGO, CONTACTOS.NOMBRE, ALBARANPAGO.SITUACI' +
              'ON,'#10'       MONTAJES.REFERENCIA as REFERENCIAPRESUPUESTO'#10'FROM ALB' +
              'ARANPAGO'#10'   INNER JOIN CONTACTOS ON (ALBARANPAGO.CODIGOCONTACTO ' +
              '= CONTACTOS.CODIGO)'#10'   LEFT OUTER JOIN MONTAJES ON (ALBARANPAGO.' +
              'CODIGOPRESUPUESTO = MONTAJES.CODIGOPRESUPUESTO)'#10'WHERE'#10'     ALBAR' +
              'ANPAGO.CODIGO = :CODIGO'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'CODIGO'
                TableField = 'CODIGO'
              end
              item
                DatasetField = 'NOMBRE'
                TableField = 'NOMBRE'
              end
              item
                DatasetField = 'SITUACION'
                TableField = 'SITUACION'
              end
              item
                DatasetField = 'REFERENCIAPRESUPUESTO'
                TableField = 'REFERENCIAPRESUPUESTO'
              end>
          end>
        Name = 'AlbaranCliente_RefreshDataset'
        Fields = <
          item
            Name = 'CODIGO'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'CODIGOALBARANCLIENTE'
            InPrimaryKey = True
            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 = 'SITUACION'
            DataType = datString
            Size = 30
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'REFERENCIAPRESUPUESTO'
            DataType = datString
            Size = 20
            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 = 'ALBARANPAGO'
            SQL = 
              'SELECT ALBARANPAGO.CODIGOEMPRESA, ALBARANPAGO.CODIGO, ALBARANPAG' +
              'O.FECHAALTA,'#10'       ALBARANPAGO.USUARIO, ALBARANPAGO.REFERENCIA,' +
              ' ALBARANPAGO.CODIGOCONTACTO,'#10'       ALBARANPAGO.FECHAALBARAN, AL' +
              'BARANPAGO.SITUACION, ALBARANPAGO.FECHAPAGO,'#10'       ALBARANPAGO.B' +
              'ASEIMPONIBLE, ALBARANPAGO.DESCUENTO, ALBARANPAGO.IMPORTEDESCUENT' +
              'O,'#10'       ALBARANPAGO.IVA, ALBARANPAGO.IMPORTEIVA, ALBARANPAGO.I' +
              'MPORTETOTAL,'#10'       ALBARANPAGO.OBSERVACIONES, ALBARANPAGO.FORMA' +
              'PAGO,'#10'       ALBARANPAGO.CODIGOPRESUPUESTO, MONTAJES.REFERENCIA ' +
              'as REFERENCIAPRE,'#10'       '#10'CO.NIFCIF, CO.NOMBRE, CO.CALLE, CO.COD' +
              'IGOPOSTAL, CO.POBLACION, CO.TELEFONO1,'#10'CO.TELEFONO2, CO.MOVIL'#10#10'F' +
              'ROM ALBARANPAGO'#10'INNER JOIN CONTACTOS CO ON (ALBARANPAGO.CODIGOCO' +
              'NTACTO = CO.CODIGO)'#10'LEFT OUTER JOIN MONTAJES ON (ALBARANPAGO.COD' +
              'IGOPRESUPUESTO = MONTAJES.CODIGOPRESUPUESTO)'#10'WHERE ALBARANPAGO.C' +
              'ODIGO = :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 = 'FECHAALBARAN'
                TableField = 'FECHAALBARAN'
              end
              item
                DatasetField = 'SITUACION'
                TableField = 'SITUACION'
              end
              item
                DatasetField = 'FECHAPAGO'
                TableField = 'FECHAPAGO'
              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 = 'FORMAPAGO'
                TableField = 'FORMAPAGO'
              end
              item
                DatasetField = 'NOMBRE'
                TableField = 'NOMBRE'
              end
              item
                DatasetField = 'REFERENCIA'
                TableField = 'REFERENCIA'
              end
              item
                DatasetField = 'CODIGOPRESUPUESTO'
                TableField = 'CODIGOPRESUPUESTO'
              end
              item
                DatasetField = 'REFERENCIAPRE'
                TableField = 'REFERENCIAPRE'
              end
              item
                DatasetField = 'NIFCIF'
                TableField = 'NIFCIF'
              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 = 'InformeCabeceraAlbaranPago'
        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 = 'REFERENCIA'
            DataType = datString
            Size = 20
            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 = 'FECHAALBARAN'
            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 = 'FECHAPAGO'
            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 = 'FORMAPAGO'
            DataType = datMemo
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGOPRESUPUESTO'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'REFERENCIAPRE'
            DataType = datString
            Size = 20
            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 = 'CODIGOALBARAN'
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'ALBARANPAGO'
            SQL = 
              'SELECT CODIGOALBARAN, NUMCONCEPTO, DESCRIPCION, CANTIDAD, IMPORT' +
              'EUNIDAD,'#10'IMPORTETOTAL, TIPO, POSICION, VALORADO'#10'FROM DETALLESALB' +
              'ARANPAGO'#10'WHERE CODIGOALBARAN = :CODIGOALBARAN AND'#10'VISIBLE = '#39'S'#39#10 +
              'ORDER BY POSICION;'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'CODIGOALBARAN'
                TableField = 'CODIGOALBARAN'
              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 = 'VALORADO'
                TableField = 'VALORADO'
              end>
          end>
        Name = 'InformeDetallesAlbaranPago'
        Fields = <
          item
            Name = 'CODIGOALBARAN'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'NUMCONCEPTO'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'DESCRIPCION'
            DataType = datString
            Size = 2000
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CANTIDAD'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'IMPORTEUNIDAD'
            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 = 'TIPO'
            DataType = datString
            Size = 1
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'POSICION'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'VALORADO'
            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 = <
          item
            Name = 'FECHAINI'
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHAFIN'
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'ALBARANPAGO'
            SQL = 
              'SELECT '#10'    sum(BASEIMPONIBLE) AS BASEIMPONIBLE,'#10'    sum(IMPORTE' +
              'IVA) AS IMPORTEIVA,'#10'    sum(IMPORTETOTAL) AS IMPORTETOTAL'#10'  FROM' +
              #10'    ALBARANPAGO'#10'WHERE FECHAALBARAN BETWEEN :FECHAINI AND :FECHA' +
              'FIN'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'BASEIMPONIBLE'
                TableField = 'BASEIMPONIBLE'
              end
              item
                DatasetField = 'IMPORTEIVA'
                TableField = 'IMPORTEIVA'
              end
              item
                DatasetField = 'IMPORTETOTAL'
                TableField = 'IMPORTETOTAL'
              end>
          end>
        Name = 'DarSumaImportes'
        Description = 'Suma de todos los importes entre un intervalo de fechas'
        Fields = <
          item
            Name = 'BASEIMPONIBLE'
            DataType = datFloat
            BlobType = dabtUnknown
            LogChanges = False
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'IMPORTEIVA'
            DataType = datFloat
            BlobType = dabtUnknown
            LogChanges = False
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'IMPORTETOTAL'
            DataType = datFloat
            BlobType = dabtUnknown
            LogChanges = False
            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 = 'CODIGOCONTACTO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHAALBARAN'
            DataType = datDateTime
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'SITUACION'
            DataType = datString
            Size = 30
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHAPAGO'
            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 = 'FORMAPAGO'
            DataType = datMemo
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 20
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CODIGOPRESUPUESTO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'ALBARANPAGO'
            SQL = 
              'INSERT'#10'  INTO ALBARANPAGO'#10'    (CODIGOEMPRESA, CODIGO, FECHAALTA,' +
              ' USUARIO, CODIGOCONTACTO,'#10'     FECHAALBARAN, SITUACION, FECHAPAG' +
              'O, BASEIMPONIBLE, '#10'     DESCUENTO, IMPORTEDESCUENTO, IVA, IMPORT' +
              'EIVA, IMPORTETOTAL, '#10'     OBSERVACIONES, FORMAPAGO, REFERENCIA, ' +
              'CODIGOPRESUPUESTO)'#10'  VALUES'#10'    (:CODIGOEMPRESA, :CODIGO, :FECHA' +
              'ALTA, :USUARIO, :CODIGOCONTACTO,'#10'     :FECHAALBARAN, :SITUACION,' +
              ' :FECHAPAGO, :BASEIMPONIBLE, '#10'     :DESCUENTO, :IMPORTEDESCUENTO' +
              ', :IVA, :IMPORTEIVA, :IMPORTETOTAL, '#10'     :OBSERVACIONES, :FORMA' +
              'PAGO, :REFERENCIA, :CODIGOPRESUPUESTO)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Insert_AlbaranCliente'
      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 = 'FECHAALBARAN'
            DataType = datDateTime
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'SITUACION'
            DataType = datString
            Size = 30
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHAPAGO'
            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 = 'FORMAPAGO'
            DataType = datMemo
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 20
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CODIGOPRESUPUESTO'
            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 = 'ALBARANPAGO'
            SQL = 
              'UPDATE ALBARANPAGO'#10'  SET '#10'    CODIGOEMPRESA = :CODIGOEMPRESA, '#10' ' +
              '   FECHAALTA = :FECHAALTA, '#10'    USUARIO = :USUARIO, '#10'    CODIGOC' +
              'ONTACTO = :CODIGOCONTACTO, '#10'    FECHAALBARAN = :FECHAALBARAN, '#10' ' +
              '   SITUACION = :SITUACION, '#10'    FECHAPAGO = :FECHAPAGO, '#10'    BAS' +
              'EIMPONIBLE = :BASEIMPONIBLE, '#10'    DESCUENTO = :DESCUENTO, '#10'    I' +
              'MPORTEDESCUENTO = :IMPORTEDESCUENTO, '#10'    IVA = :IVA, '#10'    IMPOR' +
              'TEIVA = :IMPORTEIVA, '#10'    IMPORTETOTAL = :IMPORTETOTAL, '#10'    OBS' +
              'ERVACIONES = :OBSERVACIONES, '#10'    FORMAPAGO = :FORMAPAGO, '#10'    R' +
              'EFERENCIA = :REFERENCIA,'#10'    CODIGOPRESUPUESTO = :CODIGOPRESUPUE' +
              'STO'#10'  WHERE'#10'    (CODIGO = :OLD_CODIGO)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Update_AlbaranCliente'
      end
      item
        Params = <
          item
            Name = 'OLD_CODIGO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'ALBARANPAGO'
            SQL = 
              'DELETE '#10'  FROM'#10'    ALBARANPAGO'#10'  WHERE'#10'    (CODIGO = :OLD_CODIGO' +
              ')'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Delete_AlbaranCliente'
      end>
    RelationShips = <
      item
        Name = 'FK_DetallesAlbaranCliente_AlbaranCliente'
        MasterDatasetName = 'AlbaranCliente'
        MasterFields = 'CODIGO'
        DetailDatasetName = 'DetallesAlbaranCliente'
        DetailFields = 'CODIGOALBARAN'
      end
      item
        Name = 'FK_InformeDetallesAlbaranPago_InformeCabeceraAlbaranPago'
        MasterDatasetName = 'InformeCabeceraAlbaranPago'
        MasterFields = 'CODIGO'
        DetailDatasetName = 'InformeDetallesAlbaranPago'
        DetailFields = 'CODIGOALBARAN'
      end>
    UpdateRules = <
      item
        Name = 'Insert AlbaranCliente'
        DoUpdate = False
        DoInsert = True
        DoDelete = False
        DatasetName = 'AlbaranCliente'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Update AlbaranCliente'
        DoUpdate = True
        DoInsert = False
        DoDelete = False
        DatasetName = 'AlbaranCliente'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Delete DetallesAlbaranCliente'
        DoUpdate = False
        DoInsert = False
        DoDelete = True
        DatasetName = 'DetallesAlbaranCliente'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Insert DetallesAlbaranCliente'
        DoUpdate = False
        DoInsert = True
        DoDelete = False
        DatasetName = 'DetallesAlbaranCliente'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Update DetallesAlbaranCliente'
        DoUpdate = True
        DoInsert = False
        DoDelete = False
        DatasetName = 'DetallesAlbaranCliente'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Delete AlbaranCliente'
        DoUpdate = False
        DoInsert = False
        DoDelete = True
        DatasetName = 'AlbaranCliente'
        FailureBehaviour = fbRaiseException
      end>
    Left = 48
    Top = 24
  end
  object bpAlbaranes: TDABusinessProcessor
    Schema = schAlbaranesCliente
    InsertCommandName = 'Insert_AlbaranCliente'
    UpdateCommandName = 'Update_AlbaranCliente'
    RefreshDatasetName = 'AlbaranCliente_RefreshDataset'
    ReferencedDataset = 'AlbaranCliente'
    ProcessorOptions = [poAutoGenerateDelete, poPrepareCommands]
    UpdateMode = updWhereKeyOnly
    Left = 184
    Top = 24
  end
  object frxDBDetalles: TfrxDBDataset
    UserName = 'frxDBDetalles'
    CloseDataSource = False
    DataSource = DADataDetalles
    Left = 200
    Top = 128
  end
  object frxDBCabecera: TfrxDBDataset
    UserName = 'frxDBCabecera'
    CloseDataSource = False
    DataSource = DADataCabecera
    Left = 120
    Top = 128
  end
  object DADataCabecera: TDADataSource
    DataTable = tbl_AlbaranPago
    Left = 120
    Top = 176
  end
  object DADataDetalles: TDADataSource
    DataTable = tbl_DetallesAlbaranPago
    Left = 200
    Top = 176
  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 = 38708.696339131940000000
    ReportOptions.VersionBuild = '1'
    ReportOptions.VersionMajor = '12'
    ReportOptions.VersionMinor = '13'
    ReportOptions.VersionRelease = '1'
    ScriptLanguage = 'PascalScript'
    ScriptText.Strings = (
      'procedure Band4OnBeforePrint(Sender: TfrxComponent);'
      'begin'
      '  case <frxDBDetalles."TIPO"> of'
      '  '#39'C'#39': begin'
      '       MemoCampo12.Style := '#39'Concepto comentario'#39';'
      '       MemoCampo2.Style := '#39'Concepto comentario'#39';'
      '       MemoCampo3.Style := '#39'Concepto comentario'#39';'
      '       MemoCampo4.Style := '#39'Concepto comentario'#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'A'#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;'
      '  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>
  end
  object tbl_AlbaranPago: 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 = 232
  end
  object tbl_DetallesAlbaranPago: 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 = 232
  end
  object DABINAdapter: TDABINAdapter
    Left = 48
    Top = 72
  end
end