unid_principal.dfm

System for issue quitter of rental immobile.

      FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000000000000000000000
      000000FFFF00008080000080800000000000FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF0000000000FF00FF000000000080808000808080000000
      000000000000008080000080800000000000FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF000000000000000000FF00FF000000000080808000808080000000
      0000FFFFFF00000000000080800000000000FF00FF00FF00FF00FF00FF00FF00
      FF00000000000080000000000000FF00FF000000000080808000808080000000
      000000000000008080000080800000000000FF00FF00FF00FF00FF00FF000000
      00000080000000FF000000000000000000000000000000000000000000000000
      000000FFFF00008080000080800000000000FF00FF00FF00FF00000000000080
      000000FF000000FF000000FF000000FF000000FF000000FF000000FF00000000
      000000FFFF00008080000080800000000000FF00FF00FF00FF00FF00FF000000
      000000FF000000FF000000000000000000000000000000000000000000000000
      000000FFFF00008080000080800000000000FF00FF00FF00FF00FF00FF00FF00
      FF000000000000FF000000000000FF00FF000000000080808000808080000000
      000000FFFF00008080000080800000000000FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF000000000000000000FF00FF000000000080808000808080000000
      000000FFFF0000FFFF000080800000000000FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF0000000000FF00FF000000000080808000808080008080
      80000000000000FFFF0000FFFF0000000000FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF000000000080808000808080008080
      8000808080000000000000FFFF0000000000FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000000000000000000000
      000000000000000000000000000000000000FF00FF00FF00FF00}
  end
  object Panel1: TPanel
    Left = 16
    Top = 420
    Width = 90
    Height = 25
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Caption = 'F2'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 6
  end
  object Panel2: TPanel
    Left = 130
    Top = 420
    Width = 90
    Height = 25
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Caption = 'F3'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 7
  end
  object Panel3: TPanel
    Left = 244
    Top = 420
    Width = 90
    Height = 25
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Caption = 'F4'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 8
  end
  object Panel4: TPanel
    Left = 358
    Top = 420
    Width = 90
    Height = 25
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Caption = 'F5'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 9
  end
  object Panel5: TPanel
    Left = 472
    Top = 420
    Width = 90
    Height = 25
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Caption = 'F6'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 10
  end
  object Panel6: TPanel
    Left = 586
    Top = 420
    Width = 90
    Height = 25
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Caption = 'ESC'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 11
  end
  object DBGrid1: TDBGrid
    Left = 16
    Top = 16
    Width = 660
    Height = 348
    DataSource = DSC_Recibo
    Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 12
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnTitleClick = DBGrid1TitleClick
    Columns = <
      item
        Alignment = taRightJustify
        Expanded = False
        FieldName = 'LOC_CPF'
        Title.Alignment = taCenter
        Title.Caption = 'N'#250'mero CPF'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'LOC_NOME'
        Title.Alignment = taCenter
        Title.Caption = 'Nome do Locat'#225'rio'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Width = 290
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'REC_NUM'
        Title.Alignment = taCenter
        Title.Caption = 'Recibo'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Width = 70
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'REC_DTA_EMIS'
        Title.Alignment = taCenter
        Title.Caption = 'Data'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'REC_VALOR'
        Title.Alignment = taCenter
        Title.Caption = 'Valor'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clNavy
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Width = 82
        Visible = True
      end>
  end
  object ACL_Principal: TActionList
    Images = IMG_Principal
    Left = 544
    Top = 192
    object ACT_Novo: TAction
      Category = 'Geral'
      Caption = '&Novo'
      Hint = 'Emite Novo Recibo'
      ImageIndex = 3
      ShortCut = 113
      OnExecute = ACT_NovoExecute
    end
    object ACT_Excluir: TAction
      Category = 'Geral'
      Caption = '&Excluir'
      Hint = 'Excluir o Recibo Atual'
      ImageIndex = 1
      ShortCut = 114
      OnExecute = ACT_ExcluirExecute
    end
    object ACT_Duplicar: TAction
      Category = 'Geral'
      Caption = '&Duplicar'
      Hint = 'Duplica o Recibo Atual para o Per'#237'odo Seguinte'
      ImageIndex = 11
      ShortCut = 115
      OnExecute = ACT_DuplicarExecute
    end
    object ACT_Localizar: TAction
      Category = 'Geral'
      Caption = '&Localizar'
      Hint = 'Localiza Um Recibo'
      ImageIndex = 6
      ShortCut = 116
      OnExecute = ACT_LocalizarExecute
    end
    object ACT_Imprimir: TAction
      Category = 'Geral'
      Caption = '&Imprimir'
      Hint = 'Imprimir o Recibo Atual'
      ImageIndex = 5
      ShortCut = 117
      OnExecute = ACT_ImprimirExecute
    end
    object ACT_Sair: TAction
      Category = 'Geral'
      Caption = '&Sair'
      Hint = 'Retornar '#224' Op'#231#227'o Anterior - Sair'
      ImageIndex = 9
      ShortCut = 27
      OnExecute = ACT_SairExecute
    end
  end
  object IMG_Principal: TImageList
    Left = 512
    Top = 192
    Bitmap = {
      494C01010D000E00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000004000000001002000000000000040
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000007F7F7F007F7F7F007F7F7F007F7F7F007F7F7F007F7F
      7F007F7F7F007F7F7F007F7F7F007F7F7F000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000