CFimChamadaAvancada is a Class
inherits from CProtocolo
m_Data is string
m_Hora is string
m_Tronco is string
m_Duracao is string
m_Ramal is string
END

//Formato:
//{ - Caracter Inicial
//599|030| - Cabeçalho
//Data - Data da ligação(dd/mm/yyyy)
//, - Separador
//Hora - Hora inicial da ligação(hh/mm/ss)
//, - Separador
//Tronco - Tronco utilizado
//, - Separador
//Duração - Duração total da ligação(hh/mm/ss)
//, - Separador
//Ramal - Ramal utilizado
//, - Separador
//DDD - DDD identificado
//, - Separador
//Telefone - Telefone identificado
//{ - Caracter Final
//
//Exemplo:
//Visys_FimChamadaAvancada
//TextoSocket = "{599|030|14/03/2014,11:21:55,99,00:00:10,8692,047,04730361010}"

Procedure Constructor(ln_DDD, ln_Telefone are int, ls_Data, ls_Hora, ls_Tronco, ls_Duracao, ls_Ramal)
Constructor CProtocolo(ln_DDD, ln_Telefone)
m_Data = ls_Data
m_Hora = ls_Hora
m_Tronco = ls_Tronco
m_Duracao = ls_Duracao
m_Ramal = ls_Ramal

Procedure Constructor(TextoSocket is string)
dbgAssert(TextoSocket <> "", "Construtor Vazio")

ls_Argumentos is string = Replace(ExtractString(TextoSocket,3,"|"), "}", "")

dbgAssert(StringCount(ls_Argumentos,",",IgnoreCase) = 6)

m_Data = ExtractString(ls_Argumentos, 1, ",")
m_Hora = ExtractString(ls_Argumentos, 2, ",")
m_Tronco = ExtractString(ls_Argumentos, 3, ",")
m_Duracao = ExtractString(ls_Argumentos,4, ",")
m_Ramal = ExtractString(ls_Argumentos, 5, ",")
m_DDD = ExtractString(ls_Argumentos, 6, ",")
AlimentaDDDTelefone(ExtractString(ls_Argumentos, 7, ","))

CIniciarChamadaAvancada is a Class
inherits from CProtocolo
m_Data is string
m_Hora is string
m_Tronco is string
m_Ramal is string
END

//Formato:
//{ - Caracter Inicial
//599|010| - Cabeçalho
//Data - Data da ligação(dd/mm/yyyy)
//, - Separador
//Hora - Hora inicial da ligação(hh/mm/ss)
//, - Separador
//Tronco - Tronco utilizado
//, - Separador
//Ramal - Ramal utilizado
//, - Separador
//DDD - DDD identificado
//, - Separador
//Telefone - Telefone identificado
//{ - Caracter Final
//
//Exemplo:
//Visys_IniciarChamadaAvancada
//TextoSocket = "{599|010|14/03/2014,11:21:45,99,8692,047,04730361010}"

Procedure Constructor(ln_DDD, ln_Telefone are int, ls_Data, ls_Hora, ls_Tronco, ls_Ramal are strings)
Constructor CProtocolo(ln_DDD, ln_Telefone)
m_Data = ls_Data
m_Hora = ls_Hora
m_Tronco = ls_Tronco
m_Ramal = ls_Ramal

Procedure Constructor(TextoSocket is string)
dbgAssert(TextoSocket <> "", "Construtor Vazio")

ls_Argumentos is string = Replace(ExtractString(TextoSocket,3,"|"), "}", "")

dbgAssert(StringCount(ls_Argumentos,",",IgnoreCase) = 5)

m_Data = ExtractString(ls_Argumentos, 1, ",")
m_Hora = ExtractString(ls_Argumentos, 2, ",")
m_Tronco = ExtractString(ls_Argumentos, 3, ",")
m_Ramal = ExtractString(ls_Argumentos, 4, ",")
m_DDD = ExtractString(ls_Argumentos, 5, ",")
AlimentaDDDTelefone(ExtractString(ls_Argumentos, 6, ","))

CKeyboardKeys is Class

// Constants corresponding to "system" keys
CONSTANT
// Constants for specific keys
cnNumLock = 0x90
cnScrollLock = 0x91
cnCapsLock = 0x14
cnAltGr = 0xA5

// Names given to the keys
csTABKey = “<TAB>”
csEnterKey = “<INPUT>”
csNumLockKey = “<NUM_LOCK>”
csCapsLockKey = “<CAPS_LOCK>”
csScrollLockKey = “<SCROLL_LOCK>”
csPauseKey = “<PAUSE>”
csWindowsKey1 = “<WINDOWS_1>”
csWindowsKey2 = “<WINDOWS_2>”
csAltGrKey = “<ALT_GR>”
csRightClickKey = “<RIGHT_CLICK>”
csEscKey = “<ESC>”
csSpaceKey = “<SPACE>”
csDeleteKey = “<DELETE>”
csControlKey = “<CTRL>”
csShiftKey = “<SHIFT>”

csLeftArrowKey = “<LEFT_ARROW>”
csRightArrowKey = “<RIGHT_ARROW>”
csUpArrowKey = “<UP_ARROW>”
csDownArrowKey = “<DOWN_ARROW>”

csInsertKey = “<INSERT>”
csHomeKey = “<HOME>”
csPageUpKey = “<PAGE_UP>”
csPageDownKey = “<PAGE_DOWN>”
csDelKey = “<DEL>”
csEndKey = “<END>”

csDivisionKey = “</>”
csMultiplicationKey = “<*>”
csMinusKey = “<->”
csPlusKey = “<+>”

csAmpersandKey = “&”
csEAcuteAccentKey = “é”
csQuotationMarkKey = “""”
csQuoteKey = “'”
csLeftParenthesisKey = “(”
csMinusKeyBis = “-”
csEGraveAccentKey = “è”
csUnderscoreKey =“_”
csCCedillaKey = “ç”
csAAcuteAccentKey = “à”
csRightParenthesisKey = “)”
csEqualKey = “=”
csPlusKeyBis = “+”
csATKey = “@”
csSquareKey = “²”
csDegreeKey = “°”
csDieresisKey = “¨”
csPoundKey = “£”
csDollarKey = “$”
csAsteriskKey = “¤”
csPercentageKey = “%”
csUAccentKey = “ù”

csTildeKey = “~”
csNumberSignKey = “#”
csLeftCurlyBraceKey = “{”
csLeftSquareBracketKey = “[”
csMoreKey = “|”
csApostropheKey = “`”
csBackslashKey = “\”
csCircumflexKey = “^”
csCommercialAtKey = “@”
csRightSquareBracketKey = “]”
csRightCurlyBraceKey = “}”

csGreaterThanKey = “>”
csLessThanKey = “<”
csCommaKey = “<,>”
csQuestionMarkKey = “<?>”
csSemicolonKey = “<;>”
csPeriodKey = “<.>”
csSlashKey = “</>”
csColonKey = “<:>”
csExclamationMarkKey = “<!>”
csChapterKey = “<§>”
csMuKey = “<µ>”
csMultiplicationKeyBis = “<*>”


csUnknownKey = “<UNKNOWN>”
csInactiveKey = “<DISABLED>”
END

END

Procedure sReturnKey(nKeyNum=_EVE.wParam)

// Alphanumeric keys
IF nKeyNum >=65 AND nKeyNum <=90
IF KeyPressed(kpShift,True) OR :bActiveKey(::cnCapsLock)
// Uppercase characters
RESULT Charact(Asc(“A”)+nKeyNum-65)
ELSE
// Lowercase Characters
RESULT Charact(Asc(“a”)+nKeyNum-65)
END

END

// Keys on the numeric keypad
IF (nKeyNum >=96 AND nKeyNum <=105) OR nKeyNum = 110
RESULT :_GetNumericKey(nKeyNum)
END

// Function keys (F1-F12)
IF nKeyNum >= 112 AND nKeyNum <= 123
RESULT “F”+(nKeyNum+1-112)
END

// Numeric keys on keyboard
IF nKeyNum >=48 AND nKeyNum <=57
// Depends on ALT-GR and SHIFT!
RESULT :_GetNumericKeyUp(nKeyNum)

END

// cursors
IF nKeyNum>=37 AND nKeyNum<=40
IF nKeyNum = 37 RESULT ::csLeftArrowKey
IF nKeyNum = 38 RESULT ::csUpArrowKey
IF nKeyNum = 39 RESULT ::csRightArrowKey
IF nKeyNum = 40 RESULT ::csDownArrowKey
END





sKey is string
sKey = :_GetPunctuationKey(nKeyNum)
IF sKey <> “”
RESULT sKey
END



sKey = :_GetSpecialKey(nKeyNum)
IF sKey <> “”
RESULT sKey
END


// Unrecognized key
RESULT ::csUnknownKey

Procedure bActiveKey(nValSpecificKey is int)

RESULT BinaryAND(API(“user32”,“GetKeyState”,nValSpecificKey),1)

// Summary: <specify the action of the procedure>
// Syntax:
//[ <Result> = ] _GetNumericKey (<nKeyNum>)
//
// Parameters:
// nKeyNum: <specify the role of nKeyNum>
// Return value:
// string: // None
//// Example:
// Indicate an example.
//
Procedure _GetNumericKey(nKeyNum)

// Depends on the status of Num Lock
IF :bActiveKey(::cnNumLock) = True
// Num Lock is turned on
IF nKeyNum = 110 RESULT ::csPeriodKey
RESULT Charact(Asc(“0”)+nKeyNum-96)
ELSE
// Num Lock is turned off
IF nKeyNum = 96 RESULT ::csInsertKey
IF nKeyNum = 97 RESULT ::csEndKey
IF nKeyNum = 98 RESULT ::csDownArrowKey
IF nKeyNum = 99 RESULT ::csPageDownKey
IF nKeyNum = 100 RESULT ::csLeftArrowKey
IF nKeyNum = 101 RESULT ::csInactiveKey
IF nKeyNum = 102 RESULT ::csRightArrowKey
IF nKeyNum = 103 RESULT ::csHomeKey
IF nKeyNum = 104 RESULT ::csUpArrowKey
IF nKeyNum = 105 RESULT ::csPageUpKey
IF nKeyNum = 110 RESULT ::csDelKey
END


RESULT “”

// Summary: <specify the action of the procedure>
// Syntax:
//[ <Result> = ] _GetNumericKeyUp (<nKeyNum>)
//
// Parameters:
// nKeyNum: <specify the role of nKeyNum>
// Return value:
// string: // None
//// Example:
// Indicate an example.
//
Procedure _GetNumericKeyUp(nKeyNum)

IF KeyPressed(::cnAltGr,True)
IF nKeyNum = 48 RESULT ::csCommercialAtKey
IF nKeyNum = 49 RESULT ::csInactiveKey
IF nKeyNum = 50 RESULT ::csTildeKey
IF nKeyNum = 51 RESULT ::csNumberSignKey
IF nKeyNum = 52 RESULT ::csLeftCurlyBraceKey
IF nKeyNum = 53 RESULT ::csLeftSquareBracketKey
IF nKeyNum = 54 RESULT ::csMoreKey
IF nKeyNum = 55 RESULT ::csApostropheKey
IF nKeyNum = 56 RESULT ::csBackslashKey
IF nKeyNum = 57 RESULT ::csCircumflexKey
END


IF KeyPressed(kpShift,True) OR :bActiveKey(::cnCapsLock)
RESULT Charact(Asc(“0”)+nKeyNum-48)+“_BIS”
END

IF nKeyNum = 48 RESULT ::csAAcuteAccentKey
IF nKeyNum = 49 RESULT ::csAmpersandKey
IF nKeyNum = 50 RESULT ::csEAcuteAccentKey
IF nKeyNum = 51 RESULT ::csQuotationMarkKey
IF nKeyNum = 52 RESULT ::csQuoteKey
IF nKeyNum = 53 RESULT ::csLeftParenthesisKey
IF nKeyNum = 54 RESULT ::csMinusKeyBis
IF nKeyNum = 55 RESULT ::csEGraveAccentKey
IF nKeyNum = 56 RESULT ::csUnderscoreKey
IF nKeyNum = 57 RESULT ::csCCedillaKey


RESULT “”

// Summary: <specify the action of the procedure>
// Syntax:
//[ <Result> = ] _GetPunctuationKey (<nKeyNum>)
//
// Parameters:
// nKeyNum: <specify the role of nKeyNum>
// Return value:
// string: // None
//// Example:
// Indicate an example.
//
Procedure _GetPunctuationKey(nKeyNum)


// Keys , and?
IF nKeyNum = 188
// Shift key
IF KeyPressed(kpShift,True) OR :bActiveKey(::cnCapsLock)
RESULT ::csQuestionMarkKey
ELSE
RESULT ::csCommaKey
END
END

// Keys; and.
IF nKeyNum = 190
// Shift key
IF KeyPressed(kpShift,True) OR :bActiveKey(::cnCapsLock)
RESULT ::csPeriodKey
ELSE
RESULT ::csSemicolonKey
END
END

// Keys / and:
IF nKeyNum = 191
// Shift key
IF KeyPressed(kpShift,True) OR :bActiveKey(::cnCapsLock)
RESULT ::csSlashKey
ELSE
RESULT ::csColonKey
END
END
// Keys < and >
IF nKeyNum = 226
// Shift key
IF KeyPressed(kpShift,True) OR :bActiveKey(::cnCapsLock)
RESULT ::csGreaterThanKey
ELSE
RESULT ::csLessThanKey
END
END

// Key ° ) ]
IF nKeyNum = 219
IF KeyPressed(::cnAltGr,True)
RESULT ::csRightSquareBracketKey
END

// Shift key
IF KeyPressed(kpShift,True) OR :bActiveKey(::cnCapsLock)
RESULT ::csDegreeKey
ELSE
RESULT ::csRightParenthesisKey
END
END

// Key + = }
IF nKeyNum = 187
IF KeyPressed(::cnAltGr,True)
RESULT ::csRightCurlyBraceKey
END

// Shift key
IF KeyPressed(kpShift,True) OR :bActiveKey(::cnCapsLock)
RESULT ::csPlusKeyBis
ELSE
RESULT ::csEqualKey
END
END

// Key ¨^
IF nKeyNum = 221
// Shift key
IF KeyPressed(kpShift,True) OR :bActiveKey(::cnCapsLock)
RESULT ::csDieresisKey
ELSE
RESULT ::csCircumflexKey
END
END

// Key £ $ ¤
IF nKeyNum = 186
IF KeyPressed(::cnAltGr,True)
RESULT ::csAsteriskKey
END

// Shift key
IF KeyPressed(kpShift,True) OR :bActiveKey(::cnCapsLock)
RESULT ::csPoundKey
ELSE
RESULT ::csDollarKey
END
END

// Keys % and ù
IF nKeyNum = 192
// Shift key
IF KeyPressed(kpShift,True) OR :bActiveKey(::cnCapsLock)
RESULT ::csPercentageKey
ELSE
RESULT ::csUAccentKey
END
END

// Key µ *
IF nKeyNum = 220
// Shift key
IF KeyPressed(kpShift,True) OR :bActiveKey(::cnCapsLock)
RESULT ::csMuKey
ELSE
RESULT ::csMultiplicationKeyBis
END
END

// Key §!
IF nKeyNum = 223
// Shift key
IF KeyPressed(kpShift,True) OR :bActiveKey(::cnCapsLock)
RESULT ::csChapterKey
ELSE
RESULT ::csExclamationMarkKey
END
END

RESULT “”

// Summary: <specify the action of the procedure>
// Syntax:
//[ <Result> = ] _GetSpecialKey (<nKeyNum>)
//
// Parameters:
// nKeyNum: <specify the role of nKeyNum>
// Return value:
// string: // None
//// Example:
// Indicate an example.
//
Procedure _GetSpecialKey(nKeyNum)


// Other keys
IF nKeyNum = 33 RESULT ::csPageUpKey
IF nKeyNum = 34 RESULT ::csPageDownKey
IF nKeyNum = 35 RESULT ::csEndKey
IF nKeyNum = 36 RESULT ::csHomeKey
IF nKeyNum = 45 RESULT ::csInsertKey
IF nKeyNum = 46 RESULT ::csDelKey
IF nKeyNum = 144 RESULT ::csNumLockKey

IF nKeyNum = 8 RESULT ::csDeleteKey
IF nKeyNum = 9 RESULT ::csTABKey
IF nKeyNum = 13 RESULT ::csEnterKey
IF nKeyNum = 16 RESULT ::csShiftKey
IF nKeyNum = 17 RESULT ::csControlKey
IF nKeyNum = 18 RESULT ::csAltGrKey
IF nKeyNum = 19 RESULT ::csPauseKey
IF nKeyNum = 20 RESULT ::csCapsLockKey
IF nKeyNum = 27 RESULT ::csEscKey
IF nKeyNum = 32 RESULT ::csSpaceKey
IF nKeyNum = 91 RESULT ::csWindowsKey1
IF nKeyNum = 92 RESULT ::csWindowsKey2
IF nKeyNum = 93 RESULT ::csRightClickKey
IF nKeyNum = 222 RESULT ::csSquareKey

IF nKeyNum = 106 RESULT ::csMultiplicationKey
IF nKeyNum = 107 RESULT ::csPlusKey
IF nKeyNum = 109 RESULT ::csMinusKey
IF nKeyNum = 111 RESULT ::csDivisionKey
IF nKeyNum = 144 RESULT ::csNumLockKey
IF nKeyNum = 145 RESULT ::csScrollLockKey

RESULT “”

CProtocolo is a Class
m_DDD, m_Telefone are int
END

Procedure Constructor(DDD, Telefone are int)
m_DDD = DDD
m_Telefone = Telefone

Procedure PROTECTED AlimentaDDDTelefone(Telefone is string)
DDD is string
Telefone = Replace(NoSpace(NoAccent(Telefone)),[" ",",","-"],"")

IF Length(Telefone) > 9
//12345678901
//04199491800
IF Telefone[[1]] = "0" AND Telefone <> ""
DDD = Telefone[[2 on 2]]
Telefone = Telefone[[4 TO]]
//1234567890
//4199491800
ELSE IF Telefone[[1]] <> "0" AND Telefone <> ""
DDD = Telefone[[TO 2]]
Telefone = Telefone[[3 TO]]
END

IF Val(DDD) > 0 AND Val(Telefone) > 0 AND Length(DDD) >=2 AND Length(Telefone) >= 8
m_Telefone = Val(Telefone)
m_DDD = Val(DDD)
END
ELSE
m_Telefone = Val(Telefone)
END

Procedure Visys_Socket_Read(DebugSN)

IF gb_SocketStart = True
IF DebugSN = "S"
ToastDisplay("Socket Read",toastShort,vaTop,haCenter)
END

//ThreadPause(300)

RetornoSocket is string = ""

WHILE SocketExist("VISYS") = True AND gb_SocketStart = True
RetornoSocket = SocketRead("VISYS", True)

IF RetornoSocket <> "" AND CT_InicializarAtendimento = True
RetornoSocket = NoSpace(RetornoSocket)
RetornoSocket = NoAccent(RetornoSocket)
RetornoSocket = Replace(RetornoSocket,CRLF,"")
RetornoSocket = Replace(RetornoSocket,CR,"")

Visys_AValidacaoString(RetornoSocket,DebugSN)

RetornoSocket = ""

END
END
END

SocketStartThread("N") //CENTRAL TELEFONICA