object fEditorExportacionNorma32: TfEditorExportacionNorma32 Left = 0 Top = 0 ActiveControl = edtCodEntidad BorderStyle = bsDialog Caption = 'Volcado de remesas a disco (Norma 32)' ClientHeight = 366 ClientWidth = 389 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False Position = poMainFormCenter OnCreate = FormCreate DesignSize = ( 389 366) PixelsPerInch = 96 TextHeight = 13 object Label2: TLabel Left = 24 Top = 144 Width = 90 Height = 13 Margins.Bottom = 0 Caption = 'Entidad receptora:' end object Label3: TLabel Left = 24 Top = 171 Width = 42 Height = 13 Margins.Bottom = 0 Caption = 'Agencia:' end object Bevel1: TBevel Left = 8 Top = 321 Width = 373 Height = 3 Anchors = [akLeft, akRight, akBottom] Shape = bsBottomLine ExplicitTop = 328 end object Label1: TLabel Left = 24 Top = 264 Width = 71 Height = 13 Margins.Bottom = 0 Caption = 'Guardar como:' end object Bevel2: TBevel Left = 24 Top = 245 Width = 349 Height = 3 Anchors = [akLeft, akTop, akRight] Shape = bsBottomLine end object Label5: TLabel Left = 202 Top = 144 Width = 48 Height = 13 Margins.Bottom = 0 Caption = '(4 d'#237'gitos)' end object Label6: TLabel Left = 202 Top = 171 Width = 48 Height = 13 Margins.Bottom = 0 Caption = '(4 d'#237'gitos)' end object Label7: TLabel Left = 24 Top = 90 Width = 65 Height = 13 Margins.Bottom = 0 Caption = 'Identificador:' end object Label8: TLabel Left = 301 Top = 90 Width = 54 Height = 13 Margins.Bottom = 0 Caption = '(15 d'#237'gitos)' end object Label9: TLabel Left = 24 Top = 117 Width = 69 Height = 13 Margins.Bottom = 0 Caption = 'C'#243'digo I.N.E.:' end object Label10: TLabel Left = 301 Top = 117 Width = 48 Height = 13 Margins.Bottom = 0 Caption = '(9 d'#237'gitos)' end object Label4: TLabel Left = 24 Top = 201 Width = 78 Height = 13 Margins.Bottom = 0 Caption = 'Fecha de cargo:' end object edtCodEntidad: TcxMaskEdit Left = 120 Top = 141 Properties.BeepOnError = True Properties.MaxLength = 4 Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True TabOrder = 2 Text = ' ' Width = 73 end object edtCodAgencia: TcxMaskEdit Left = 120 Top = 168 Properties.BeepOnError = True Properties.MaxLength = 4 Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True TabOrder = 3 Text = ' ' Width = 73 end object CancelBtn: TButton Left = 301 Top = 330 Width = 75 Height = 25 Anchors = [akLeft, akRight, akBottom] Cancel = True Caption = '&Cancelar' ModalResult = 2 TabOrder = 7 OnClick = CancelBtnClick end object OKBtn: TButton Left = 202 Top = 330 Width = 85 Height = 25 Action = actVolcar Anchors = [akLeft, akRight, akBottom] TabOrder = 6 end object JvFilenameEdit1: TJvFilenameEdit Left = 24 Top = 283 Width = 349 Height = 21 Flat = False ParentFlat = False Filter = 'Ficheros de norma 32 (*.C32)|*.C32' DialogOptions = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist] DialogTitle = 'Volcar a disco la remesa' TabOrder = 5 end object edtCodigoIdentif: TcxMaskEdit Left = 120 Top = 87 Properties.BeepOnError = True Properties.MaxLength = 15 Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True TabOrder = 0 Text = ' ' Width = 167 end object edtINE: TcxMaskEdit Left = 120 Top = 114 Properties.BeepOnError = True Properties.MaxLength = 9 Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True TabOrder = 1 Text = ' ' Width = 167 end object edtFechaCargo: TcxDateEdit Left = 120 Top = 198 Properties.DateButtons = [btnToday] Properties.ImmediatePost = True Properties.SaveTime = False Properties.ShowTime = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True TabOrder = 4 Width = 167 end object pnlHeader: TPanel Left = 0 Top = 0 Width = 389 Height = 64 Align = alTop BevelOuter = bvNone Color = clWhite Padding.Left = 25 Padding.Top = 8 Padding.Right = 25 Padding.Bottom = 8 ParentBackground = False TabOrder = 8 object lblTitle: TLabel AlignWithMargins = True Left = 25 Top = 8 Width = 339 Height = 13 Margins.Left = 0 Margins.Top = 0 Margins.Right = 0 Margins.Bottom = 8 Align = alTop Caption = 'Volcado de remesas a disco' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False ExplicitWidth = 155 end object lblComments: TLabel AlignWithMargins = True Left = 50 Top = 29 Width = 314 Height = 24 Margins.Left = 25 Margins.Top = 0 Margins.Right = 0 Align = alClient Caption = 'Introduzca los siguientes datos para realizar el volcado' ExplicitWidth = 263 ExplicitHeight = 13 end end object JvFormStorage: TJvFormStorage AppStorage = JvAppRegistryStorage AppStoragePath = 'fEditorBase\' VersionCheck = fpvcNocheck StoredProps.Strings = ( 'edtCodigoIdentif.Text' 'edtINE.Text') StoredValues = <> Left = 80 Top = 32 end object JvAppRegistryStorage: TJvAppRegistryStorage StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y' StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N' Root = 'Software\FactuGES' SubStorages = <> Left = 112 Top = 32 end object ActionList1: TActionList Left = 144 Top = 32 object actVolcar: TAction Caption = 'Volcar a disco' OnExecute = actVolcarExecute OnUpdate = actVolcarUpdate end end end