HUIA Job opportunity

huia.prg

ANNOUNCE VagasParaProgramador

#command SAY <cColor> <cText> =>;
  @ Row() + 3, 15 SAY "> " + _UTF8(<cText>) COLOR <cColor>

INIT PROCEDURE Sobre
  LOCAL aHuia := {" |   |  |     | |  .----, ", " |   |  |     | | |     | ", " |___|  |     | | |     | ", " |   |  |     | | |-----| ", " |   |   `._.'  | |     ' "}, cText, nL := 0, cSource := "METADATA"

  SET COLOR TO bg+/n
  CLEAR SCREEN
  FOR nL := 1 TO LEN(aHuia) STEP 1
    cText := aHuia[nL]
    @ Row() + 1, _Center_H(cText) SAY _UTF8(cText)
  NEXT nL

  SAY "gr+/n" "SEARCHING " + cSource + ".."
  CheckAndCreateDB(cSource)

  SET SOFTSEEK ON
  STORE 0 TO nL
  USE (cSource) ALIAS METADATA
  DBGoTop()

    DO WHILE !EOF()
      SAY "r/n" "FOUND " +;
        ALLTRIM(STR(++nL)) + " " +;
        ALLTRIM(METADATA->role) + " @ " +;
        ALLTRIM(METADATA->place)
      SAY "r/n" "APPLY NOW!"
      DBSkip()
    ENDDO

  CLOSE METADATA
  SAY "w+/n" "EOF"

PROCEDURE CheckAndCreateDB
  PARAMETERS cDatabase
  IF !File(cDatabase + ".DBF")
    DBCreate(cDatabase, {{"PLACE", "C", 20, 0}, {"ROLE", "C", 30, 0}})
    USE (cDatabase) ALIAS METADATA NEW
    APPEND BLANK
      METADATA->Place := "PORTO ALEGRE"
      METADATA->Role  := "BACK END DEVELOPER"
    CLOSE METADATA
  ENDIF
  RETURN

FUNCTION _Center_H(cTx)
  RETURN MaxCol() / 2 - LEN(cTx) / 2

FUNCTION _UTF8(cString)
LOCAL aSearch := {{"á", "é", "ó", "ú", "ã", "õ", "Ã", "Õ", "â", "ê", "ô", "ç", "Ç"},{160, 130, 162, 163, 132, 148, 142, 153, 131, 136, 147, 128, 128}}
  IF VALTYPE(cString) != "C"
    RETURN cString
  ENDIF
  FOR n := 1 TO LEN(aSearch[1])
    cString := STRTRAN(cString, aSearch[1][n], CHR(aSearch[2][n]))
  NEXT
  RETURN cString