object ppReport1: TppReport
  AutoStop = False
  DataPipeline = daADOQueryDataView1.BORRARPEDIDO
  NoDataBehaviors = [ndMessageOnPage, ndBlankReport]
  PassSetting = psTwoPass
  PrinterSetup.BinName = 'Default'
  PrinterSetup.DocumentName = 'Report'
  PrinterSetup.Duplex = dpNone
  PrinterSetup.PaperName = 'Letter'
  PrinterSetup.PrinterName = 'Default'
  PrinterSetup.SaveDeviceSettings = False
  PrinterSetup.mmMarginBottom = 6350
  PrinterSetup.mmMarginLeft = 6350
  PrinterSetup.mmMarginRight = 6350
  PrinterSetup.mmMarginTop = 6350
  PrinterSetup.mmPaperHeight = 279400
  PrinterSetup.mmPaperWidth = 215900
  PrinterSetup.PaperSize = 1
  SaveAsTemplate = True
  Template.DatabaseSettings.DataPipeline = ppItems
  Template.DatabaseSettings.Name = 'Borrar Pedidos'
  Template.DatabaseSettings.NameField = 'ItemName'
  Template.DatabaseSettings.TemplateField = 'Template'
  Template.FileName = 'C:\Users\AMUGGIA\Desktop\Reporte Borrar Pedidos.rtm'
  Template.Format = ftASCII
  Units = utMillimeters
  AllowPrintToArchive = True
  AllowPrintToFile = True
  ArchiveFileName = '($MyDocuments)\ReportArchive.raf'
  DeviceType = 'Screen'
  DefaultFileDeviceType = 'PDF'
  EmailSettings.ReportFormat = 'PDF'
  LanguageID = 'Default'
  OpenFile = False
  OutlineSettings.CreateNode = True
  OutlineSettings.CreatePageNodes = True
  OutlineSettings.Enabled = True
  OutlineSettings.Visible = True
  ThumbnailSettings.Enabled = True
  ThumbnailSettings.Visible = True
  ThumbnailSettings.DeadSpace = 30
  ThumbnailSettings.PageHighlight.Width = 3
  ThumbnailSettings.ThumbnailSize = tsSmall
  PDFSettings.EmbedFontOptions = []
  PDFSettings.EncryptSettings.AllowCopy = True
  PDFSettings.EncryptSettings.AllowInteract = True
  PDFSettings.EncryptSettings.AllowModify = True
  PDFSettings.EncryptSettings.AllowPrint = True
  PDFSettings.EncryptSettings.AllowExtract = True
  PDFSettings.EncryptSettings.AllowAssemble = True
  PDFSettings.EncryptSettings.AllowQualityPrint = True
  PDFSettings.EncryptSettings.Enabled = False
  PDFSettings.EncryptSettings.KeyLength = kl40Bit
  PDFSettings.EncryptSettings.EncryptionType = etRC4
  PDFSettings.FontEncoding = feAnsi
  PDFSettings.ImageCompressionLevel = 25
  PDFSettings.PDFAFormat = pafNone
  PreviewFormSettings.PageBorder.mmPadding = 0
  PreviewFormSettings.WindowState = wsMaximized
  RTFSettings.DefaultFont.Charset = DEFAULT_CHARSET
  RTFSettings.DefaultFont.Color = clWindowText
  RTFSettings.DefaultFont.Height = -13
  RTFSettings.DefaultFont.Name = 'Arial'
  RTFSettings.DefaultFont.Style = []
  TextFileName = '($MyDocuments)\Report.pdf'
  TextSearchSettings.DefaultString = '<FindText>'
  TextSearchSettings.Enabled = True
  TextSearchSettings.Visible = True
  XLSSettings.AppName = 'ReportBuilder'
  XLSSettings.Author = 'ReportBuilder'
  XLSSettings.Subject = 'Report'
  XLSSettings.Title = 'Report'
  XLSSettings.WorksheetName = 'Report'
  Left = 176
  Top = 32
  Version = '20.04'
  mmColumnWidth = 0
  DataPipelineName = 'BORRARPEDIDO'
  object ppHeaderBand1: TppHeaderBand
    Background.Brush.Style = bsClear
    Border.mmPadding = 0
    mmBottomOffset = 0
    mmHeight = 27517
    mmPrintPosition = 0
    object ppDBText1: TppDBText
      DesignLayer = ppDesignLayer1
      UserName = 'DBText1'
      Border.mmPadding = 0
      DataField = 'Descrip'
      DataPipeline = daADOQueryDataView2.Datos_Empresa
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Name = 'Arial'
      Font.Size = 16
      Font.Style = [fsBold]
      ParentDataPipeline = False
      Transparent = True
      DataPipelineName = 'Datos_Empresa'
      mmHeight = 7938
      mmLeft = 0
      mmTop = 0
      mmWidth = 94192
      BandType = 0
      LayerName = Foreground
    end
    object ppDBImage1: TppDBImage
      DesignLayer = ppDesignLayer1
      UserName = 'DBImage1'
      AlignHorizontal = ahCenter
      AlignVertical = avCenter
      MaintainAspectRatio = False
      Stretch = True
      Border.mmPadding = 0
      DataField = 'Imagen'
      DataPipeline = daADOQueryDataView2.Datos_Empresa
      GraphicType = 'AutoDetect'
      ParentDataPipeline = False
      DataPipelineName = 'Datos_Empresa'
      mmHeight = 13229
      mmLeft = 164042
      mmTop = 0
      mmWidth = 30956
      BandType = 0
      LayerName = Foreground
    end
    object ppLabel1: TppLabel
      DesignLayer = ppDesignLayer1
      UserName = 'Label1'
      AutoSize = False
      Border.mmPadding = 0
      Caption = 'RUC'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Name = 'Arial'
      Font.Size = 8
      Font.Style = []
      FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
      FormFieldSettings.FormFieldType = fftNone
      Transparent = True
      mmHeight = 4763
      mmLeft = 105834
      mmTop = 0
      mmWidth = 8996
      BandType = 0
      LayerName = Foreground
    end
    object ppDBText2: TppDBText
      DesignLayer = ppDesignLayer1
      UserName = 'DBText2'
      Border.mmPadding = 0
      DataField = 'RIF'
      DataPipeline = daADOQueryDataView2.Datos_Empresa
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Name = 'Arial'
      Font.Size = 8
      Font.Style = []
      ParentDataPipeline = False
      Transparent = True
      DataPipelineName = 'Datos_Empresa'
      mmHeight = 4763
      mmLeft = 116681
      mmTop = 0
      mmWidth = 32808
      BandType = 0
      LayerName = Foreground
    end
    object ppLabel2: TppLabel
      DesignLayer = ppDesignLayer1
      UserName = 'Label2'
      AutoSize = False
      Border.mmPadding = 0
      Caption = 'Telefonos'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Name = 'Arial'
      Font.Size = 8
      Font.Style = []
      FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
      FormFieldSettings.FormFieldType = fftNone
      Transparent = True
      mmHeight = 4763
      mmLeft = 96573
      mmTop = 5027
      mmWidth = 19050
      BandType = 0
      LayerName = Foreground
    end
    object ppDBText3: TppDBText
      DesignLayer = ppDesignLayer1
      UserName = 'DBText3'
      Border.mmPadding = 0
      DataField = 'Telef'
      DataPipeline = daADOQueryDataView2.Datos_Empresa
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Name = 'Arial'
      Font.Size = 8
      Font.Style = []
      ParentDataPipeline = False
      Transparent = True
      DataPipelineName = 'Datos_Empresa'
      mmHeight = 4763
      mmLeft = 116681
      mmTop = 5027
      mmWidth = 32808
      BandType = 0
      LayerName = Foreground
    end
    object ppLine1: TppLine
      DesignLayer = ppDesignLayer1
      UserName = 'Line1'
      Border.mmPadding = 0
      Weight = 0.750000000000000000
      mmHeight = 2117
      mmLeft = 0
      mmTop = 25400
      mmWidth = 201789
      BandType = 0
      LayerName = Foreground
    end
    object ppLabel3: TppLabel
      DesignLayer = ppDesignLayer1
      UserName = 'Label3'
      Border.mmPadding = 0
      Caption = 'Procedimiento para Borrar Pedidos'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Arial'
      Font.Size = 14
      Font.Style = []
      FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
      FormFieldSettings.FormFieldType = fftNone
      Transparent = True
      mmHeight = 5821
      mmLeft = 59002
      mmTop = 15610
      mmWidth = 78846
      BandType = 0
      LayerName = Foreground
    end
  end
  object ppDetailBand1: TppDetailBand
    Background1.Brush.Color = clMoneyGreen
    Background2.Brush.Style = bsClear
    Border.mmPadding = 0
    mmBottomOffset = 0
    mmHeight = 6615
    mmPrintPosition = 0
    object ppLabel5: TppLabel
      DesignLayer = ppDesignLayer1
      UserName = 'Label5'
      AutoSize = False
      Border.mmPadding = 0
      Caption = 'Pedido Borrado:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Name = 'Arial'
      Font.Size = 8
      Font.Style = []
      FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
      FormFieldSettings.FormFieldType = fftNone
      Transparent = True
      mmHeight = 4763
      mmLeft = 42598
      mmTop = 1058
      mmWidth = 22490
      BandType = 4
      LayerName = Foreground
    end
    object ppDBText4: TppDBText
      DesignLayer = ppDesignLayer1
      UserName = 'DBText4'
      Border.mmPadding = 0
      DataField = 'numerod'
      DataPipeline = daADOQueryDataView1.BORRARPEDIDO
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Name = 'Arial'
      Font.Size = 8
      Font.Style = []
      Transparent = True
      DataPipelineName = 'BORRARPEDIDO'
      mmHeight = 4763
      mmLeft = 66411
      mmTop = 1058
      mmWidth = 29104
      BandType = 4
      LayerName = Foreground
    end
    object ppLabel6: TppLabel
      DesignLayer = ppDesignLayer1
      UserName = 'Label6'
      AutoSize = False
      Border.mmPadding = 0
      Caption = 'fechat'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Name = 'Arial'
      Font.Size = 8
      Font.Style = []
      FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
      FormFieldSettings.FormFieldType = fftNone
      Transparent = True
      mmHeight = 4763
      mmLeft = 96838
      mmTop = 1058
      mmWidth = 12171
      BandType = 4
      LayerName = Foreground
    end
    object ppDBText5: TppDBText
      DesignLayer = ppDesignLayer1
      UserName = 'DBText5'
      Border.mmPadding = 0
      DataField = 'fechat'
      DataPipeline = daADOQueryDataView1.BORRARPEDIDO
      DisplayFormat = 'dd-mm-yyyy'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Name = 'Arial'
      Font.Size = 8
      Font.Style = []
      Transparent = True
      DataPipelineName = 'BORRARPEDIDO'
      mmHeight = 4763
      mmLeft = 110331
      mmTop = 1058
      mmWidth = 40481
      BandType = 4
      LayerName = Foreground
    end
  end
  object ppFooterBand1: TppFooterBand
    Background.Brush.Style = bsClear
    Border.mmPadding = 0
    mmBottomOffset = 0
    mmHeight = 6350
    mmPrintPosition = 0
    object ppSystemVariable1: TppSystemVariable
      DesignLayer = ppDesignLayer1
      UserName = 'SystemVariable1'
      Border.mmPadding = 0
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Arial'
      Font.Size = 8
      Font.Style = []
      Transparent = True
      mmHeight = 3704
      mmLeft = 3704
      mmTop = 2646
      mmWidth = 14288
      BandType = 8
      LayerName = Foreground
    end
    object ppLine2: TppLine
      DesignLayer = ppDesignLayer1
      UserName = 'Line2'
      Border.mmPadding = 0
      Weight = 0.750000000000000000
      mmHeight = 2117
      mmLeft = -529
      mmTop = 0
      mmWidth = 201966
      BandType = 8
      LayerName = Foreground
    end
    object ppSystemVariable2: TppSystemVariable
      DesignLayer = ppDesignLayer1
      UserName = 'SystemVariable2'
      Border.mmPadding = 0
      VarType = vtPageSet
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Arial'
      Font.Size = 8
      Font.Style = []
      Transparent = True
      mmHeight = 3704
      mmLeft = 32808
      mmTop = 2646
      mmWidth = 12435
      BandType = 8
      LayerName = Foreground
    end
    object ppLabel4: TppLabel
      DesignLayer = ppDesignLayer1
      UserName = 'Label4'
      Border.mmPadding = 0
      Caption = 'P'#225'g::'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Arial'
      Font.Size = 8
      Font.Style = []
      FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
      FormFieldSettings.FormFieldType = fftNone
      Transparent = True
      mmHeight = 3704
      mmLeft = 23548
      mmTop = 2646
      mmWidth = 6350
      BandType = 8
      LayerName = Foreground
    end
  end
  object daDataModule1: TdaDataModule
    object daADOQueryDataView1: TdaADOQueryDataView
      UserName = 'Query_BORRARPEDIDO'
      Height = 475
      Left = 10
      NameColumnWidth = 105
      SizeColumnWidth = 35
      SortMode = 0
      Top = 10
      TypeColumnWidth = 52
      Width = 224
      AutoSearchTabOrder = 0
      object BORRARPEDIDO: TppChildDBPipeline
        AutoCreateFields = False
        UserName = 'BORRARPEDIDO'
        object ppField1: TppField
          FieldAlias = 'numerod'
          FieldName = 'numerod'
          FieldLength = 20
          DisplayWidth = 20
          Position = 0
        end
        object ppField2: TppField
          FieldAlias = 'fechat'
          FieldName = 'fechat'
          FieldLength = 0
          DataType = dtDateTime
          DisplayWidth = 18
          Position = 1
        end
      end
      object daSQL1: TdaSQL
        GuidCollationType = gcMSSQLServer
        DatabaseName = 'SrvConnection'
        DatabaseType = dtMSSQLServer
        DataPipelineName = 'BORRARPEDIDO'
        EditSQLAsText = True
        LinkColor = clMaroon
        LinkType = ltParameterizedSQL
        MaxSQLFieldAliasLength = 25
        SQLText.Strings = (
          '/*    '
          
            ' ***************************************************************' +
            '*************** '
          ' '
          
            ' Procedimiento para Borrar Pedidos                              ' +
            '           '
          ' '
          
            ' Copyright (c) 2021 Alessandro Muggia and SyS Quest Computacion ' +
            'Corp Team        '
          
            ' ***************************************************************' +
            '*************** '
          
            ' Licensed under the Apache License, Version 2.0 (the "License");' +
            '             '
          
            ' you may not use this file except in compliance with the License' +
            '.            '
          ''
          
            ' You may obtain a copy of the License at www.apache.org/licenses' +
            '/LICENSE-2.0                                    '
          
            '                                                                ' +
            '              '
          
            ' Unless required by applicable law or agreed to in writing, soft' +
            'ware         '
          
            ' distributed under the License is distributed on an "AS IS" BASI' +
            'S,           '
          
            ' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or' +
            ' implied.    '
          
            ' See the License for the specific language governing permissions' +
            ' and         '
          
            ' limitations under the License.                                 ' +
            '             '
          
            ' ***************************************************************' +
            '*************** '
          '*/'
          'SET DATEFORMAT YMD;'
          'Select numerod, fechat from safact '
          
            '  where (TipoFac='#39'E'#39') and (SubString(ISNULL(safact.numerod,'#39#39'),1' +
            ',Len(:desdepedido+'#39#39'))>=:desdepedido+'#39#39') and'
          
            '  (SubString(ISNULL(safact.numerod,'#39#39'),1,Len(:hastapedido+'#39#39'))<=' +
            ':hastapedido+'#39#39');'
          'UPDATE SAPROD SET Compro=Compro-(SI.Cantidad*SI.CantMayor) '
          #9'FROM SAPROD SP, SAITEMFAC SI '
          
            #9'WHERE (SP.CodProd=SI.CodItem) AND (SI.EsUnid=0) AND (SI.TipoFac' +
            '='#39'E'#39') AND '
          #9#9'(SI.EsServ=0) and'
          '    (:hastapedido<=SI.NumeroD) AND '
          '    (SI.NumeroD<=:hastapedido) ;'
          
            'UPDATE SAEXIS SET CantCom=CantCom-(case when si.esunid=0 then 1 ' +
            'else 0 end)*(SI.Cantidad*SI.CantMayor), '
          
            #9'UnidCom=UnidCom-(case when si.esunid=1 then 1 else 0 end)*(SI.C' +
            'antidad*SI.CantMayor) '
          #9'FROM SAEXIS SP, SAITEMFAC SI '
          
            #9'WHERE (SP.CodProd=SI.CodItem) AND (SI.CodUbic=SP.CodUbic) AND (' +
            'SI.TipoFac='#39'E'#39') AND '
          
            #9'  (:hastapedido<=SI.NumeroD) AND (SI.NumeroD<=:desdepedido) AND' +
            ' (SI.EsServ=0);'
          
            'DELETE FROM SAITEMFAC WHERE (TipoFac='#39'E'#39') And (:hastapedido<=Num' +
            'eroD) And (NumeroD<=:desdepedido);'
          
            'DELETE FROM SAfact WHERE (TipoFac='#39'E'#39') And (:hastapedido<=Numero' +
            'D) And (NumeroD<=:desdepedido);'
          ''
          ' ')
        SQLType = sqSQL2
        object daField1: TdaField
          Alias = 'numerod'
          DisplayWidth = 20
          FieldAlias = 'numerod'
          FieldLength = 20
          FieldName = 'numerod'
          SQLFieldName = 'numerod'
        end
        object daField2: TdaField
          Alias = 'fechat'
          DataType = dtDateTime
          DisplayWidth = 18
          FieldAlias = 'fechat'
          FieldLength = 0
          FieldName = 'fechat'
          SQLFieldName = 'fechat'
        end
      end
    end
    object daADOQueryDataView2: TdaADOQueryDataView
      UserName = 'Query_Datos_Empresa'
      Height = 267
      Left = 284
      NameColumnWidth = 105
      SizeColumnWidth = 35
      SortMode = 0
      Top = 10
      TypeColumnWidth = 52
      Width = 224
      AutoSearchTabOrder = 0
      object Datos_Empresa: TppChildDBPipeline
        AutoCreateFields = False
        UserName = 'Datos_Empresa'
        object ppField1: TppField
          FieldAlias = 'ZipCode'
          FieldName = 'ZipCode'
          FieldLength = 20
          DisplayWidth = 20
          Position = 0
        end
        object ppField2: TppField
          FieldAlias = 'Descrip'
          FieldName = 'Descrip'
          FieldLength = 80
          DisplayWidth = 80
          Position = 1
        end
        object ppField3: TppField
          FieldAlias = 'Direc1'
          FieldName = 'Direc1'
          FieldLength = 80
          DisplayWidth = 80
          Position = 2
        end
        object ppField4: TppField
          FieldAlias = 'Direc2'
          FieldName = 'Direc2'
          FieldLength = 80
          DisplayWidth = 80
          Position = 3
        end
        object ppField5: TppField
          FieldAlias = 'Email'
          FieldName = 'Email'
          FieldLength = 60
          DisplayWidth = 60
          Position = 4
        end
        object ppField6: TppField
          FieldAlias = 'RIF'
          FieldName = 'RIF'
          FieldLength = 30
          DisplayWidth = 30
          Position = 5
        end
        object ppField7: TppField
          FieldAlias = 'Imagen'
          FieldName = 'Imagen'
          FieldLength = 0
          Linkable = False
          DataType = dtBLOB
          DisplayWidth = 10
          Position = 6
        end
        object ppField8: TppField
          FieldAlias = 'NroEstable'
          FieldName = 'NroEstable'
          FieldLength = 10
          DisplayWidth = 10
          Position = 7
        end
        object ppField9: TppField
          FieldAlias = 'CodSucu'
          FieldName = 'CodSucu'
          FieldLength = 5
          DisplayWidth = 5
          Position = 8
        end
        object ppField10: TppField
          FieldAlias = 'Telef'
          FieldName = 'Telef'
          FieldLength = 40
          DisplayWidth = 40
          Position = 9
        end
      end
      object daSQL2: TdaSQL
        GuidCollationType = gcMSSQLServer
        DatabaseName = 'SrvConnection'
        DatabaseType = dtMSSQLServer
        DataPipelineName = 'Datos_Empresa'
        EditSQLAsText = True
        LinkColor = clNavy
        LinkType = ltParameterizedSQL
        MaxSQLFieldAliasLength = 25
        SQLText.Strings = (
          '/*    '
          
            ' ***************************************************************' +
            '*************** '
          ' '
          
            ' Procedimiento para Borrar Pedidos                              ' +
            '           '
          ' '
          
            ' Copyright (c) 2021 Alessandro Muggia and SyS Quest Computacion ' +
            'Corp Team        '
          
            ' ***************************************************************' +
            '*************** '
          
            ' Licensed under the Apache License, Version 2.0 (the "License");' +
            '             '
          
            ' you may not use this file except in compliance with the License' +
            '.            '
          ''
          
            ' You may obtain a copy of the License at www.apache.org/licenses' +
            '/LICENSE-2.0                                    '
          
            '                                                                ' +
            '              '
          
            ' Unless required by applicable law or agreed to in writing, soft' +
            'ware         '
          
            ' distributed under the License is distributed on an "AS IS" BASI' +
            'S,           '
          
            ' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or' +
            ' implied.    '
          
            ' See the License for the specific language governing permissions' +
            ' and         '
          
            ' limitations under the License.                                 ' +
            '             '
          
            ' ***************************************************************' +
            '*************** '
          '*/'
          'SELECT SACONF.ZipCode, SACONF.Descrip, '
          '       SACONF.Direc1, SACONF.Direc2, '
          '       SACONF.Email, SACONF.RIF, SACONF.Imagen, '
          '       SACONF.NroEstable, SACONF.CodSucu, '
          '       SACONF.Telef'
          'FROM SACONF SACONF')
        SQLType = sqSQL2
        object daField1: TdaField
          Alias = 'ZipCode'
          DisplayWidth = 20
          FieldAlias = 'ZipCode'
          FieldLength = 20
          FieldName = 'ZipCode'
          SQLFieldName = 'ZipCode'
        end
        object daField2: TdaField
          Alias = 'Descrip'
          DisplayWidth = 80
          FieldAlias = 'Descrip'
          FieldLength = 80
          FieldName = 'Descrip'
          SQLFieldName = 'Descrip'
        end
        object daField3: TdaField
          Alias = 'Direc1'
          DisplayWidth = 80
          FieldAlias = 'Direc1'
          FieldLength = 80
          FieldName = 'Direc1'
          SQLFieldName = 'Direc1'
        end
        object daField4: TdaField
          Alias = 'Direc2'
          DisplayWidth = 80
          FieldAlias = 'Direc2'
          FieldLength = 80
          FieldName = 'Direc2'
          SQLFieldName = 'Direc2'
        end
        object daField5: TdaField
          Alias = 'Email'
          DisplayWidth = 60
          FieldAlias = 'Email'
          FieldLength = 60
          FieldName = 'Email'
          SQLFieldName = 'Email'
        end
        object daField6: TdaField
          Alias = 'RIF'
          DisplayWidth = 30
          FieldAlias = 'RIF'
          FieldLength = 30
          FieldName = 'RIF'
          SQLFieldName = 'RIF'
        end
        object daField7: TdaField
          Alias = 'Imagen'
          DataType = dtBLOB
          DisplayWidth = 10
          FieldAlias = 'Imagen'
          FieldLength = 0
          FieldName = 'Imagen'
          Linkable = False
          SQLFieldName = 'Imagen'
        end
        object daField8: TdaField
          Alias = 'NroEstable'
          DisplayWidth = 10
          FieldAlias = 'NroEstable'
          FieldLength = 10
          FieldName = 'NroEstable'
          SQLFieldName = 'NroEstable'
        end
        object daField9: TdaField
          Alias = 'CodSucu'
          DisplayWidth = 5
          FieldAlias = 'CodSucu'
          FieldLength = 5
          FieldName = 'CodSucu'
          SQLFieldName = 'CodSucu'
        end
        object daField10: TdaField
          Alias = 'Telef'
          DisplayWidth = 40
          FieldAlias = 'Telef'
          FieldLength = 40
          FieldName = 'Telef'
          SQLFieldName = 'Telef'
        end
      end
    end
  end
  object ppDesignLayers1: TppDesignLayers
    object ppDesignLayer1: TppDesignLayer
      UserName = 'Foreground'
      LayerType = ltBanded
      Index = 0
    end
  end
  object ppParameterList2: TppParameterList
    object ppParameter1: TppParameter
      AutoSearchSettings.Enabled = True
      AutoSearchSettings.LogicalPrefix = []
      AutoSearchSettings.Mandatory = True
      AutoSearchSettings.SearchExpression = '" "'
      AutoSearchSettings.DataPipelineName = 'BORRARPEDIDO'
      DataType = dtString
      LookupSettings.NameField = 'NumeroD'
      LookupSettings.DisplayType = dtNameOnly
      LookupSettings.SortOrder = soName
      LookupSettings.ValueField = 'numerod'
      LookupSettings.DataPipelineName = 'BORRARPEDIDO'
      Value = ' '
      UserName = 'DesdePedido'
    end
    object ppParameter2: TppParameter
      AutoSearchSettings.Enabled = True
      AutoSearchSettings.LogicalPrefix = []
      AutoSearchSettings.Mandatory = True
      AutoSearchSettings.SearchExpression = '99999999'
      AutoSearchSettings.DataPipelineName = 'BORRARPEDIDO'
      DataType = dtString
      LookupSettings.NameField = 'NumeroD'
      LookupSettings.DisplayType = dtNameOnly
      LookupSettings.SortOrder = soName
      LookupSettings.ValueField = 'NumeroD'
      LookupSettings.DataPipelineName = 'BORRARPEDIDO'
      Value = '99999999'
      UserName = 'HastaPedido'
    end
  end
end
