11b3baf6-4a6f-4ba6-b812-1d94ad22363ed98564a9-a241-4bf2-b502-018cf75a9b72Kish Grid Demo 2014[no description]Falsedooblo6355372985810000006355373028938984113155378903999970000TrueFalse12False0SurveyToGo.UserLogic.Creator.SurveyLogicTempl<?xml version="1.0" encoding="utf-16"?>
<UserLogicContents xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<Items>
<HData>
<HTp>ehtQuestion</HTp>
<STp>estLast</STp>
<CTp>echtLast</CTp>
<QTp>eqhtExpression</QTp>
<Key>5</Key>
<Name>QuestionExpression_5</Name>
<Behv>ecsbDefault</Behv>
<QDep />
<CDep />
</HData>
<HData>
<HTp>ehtQuestion</HTp>
<STp>estLast</STp>
<CTp>echtLast</CTp>
<QTp>eqhtStart</QTp>
<Key>6</Key>
<Name>QuestionStart_6</Name>
<Behv>ecsbDefault</Behv>
<QDep>
<int>3</int>
<int>5</int>
</QDep>
<CDep />
</HData>
<HData>
<HTp>ehtQuestion</HTp>
<STp>estLast</STp>
<CTp>echtLast</CTp>
<QTp>eqhtStart</QTp>
<Key>4</Key>
<Name>QuestionStart_4</Name>
<Behv>ecsbDefault</Behv>
<QDep>
<int>3</int>
</QDep>
<CDep />
</HData>
<HData>
<HTp>ehtQuestion</HTp>
<STp>estLast</STp>
<CTp>echtLast</CTp>
<QTp>eqhtEnd</QTp>
<Key>4</Key>
<Name>QuestionEnd_4</Name>
<Behv>ecsbDefault</Behv>
<QDep>
<int>1</int>
<int>0</int>
<int>5</int>
</QDep>
<CDep />
</HData>
<HData>
<HTp>ehtChapter</HTp>
<STp>estLast</STp>
<CTp>echtEnterIteration</CTp>
<QTp>eqhtLast</QTp>
<Key>3</Key>
<Name>IterationEnter_3</Name>
<Behv>ecsbDefault</Behv>
<QDep>
<int>1</int>
</QDep>
<CDep />
</HData>
</Items>
<Source> function StartSurvey()
{
/*_@_SS_START_@*/
/*_@_SS_END_@*/
}
/*_@_USERCODE_START_@*/
function dblSetSpecificTopicChoice(inQ, inTopicIndex, inValue)
{
var curTopics = GetTopicCount(inQ);
var newAnswers=new Array();
newAnswers.push(inValue);
var i;
var ansArr = GetAnswersChoice(inQ, inTopicIndex);
for (i=0;i < ansArr.length;i++)
{
newAnswers.push(ansArr[i]);
}
SetAnswerChoice(inQ, inTopicIndex, newAnswers);
}
/* sample general jump rule
var newIdx = FixJumpOrder(QRef(6),SelectedAnswerText(4),"Final");
if (newIdx != -1) {
idx = newIdx;
jump = eJumpQuestionResult.ejqrChapter;
}
*/
/*function FixJumpOrder(inStartQ,inOrder,inFinalChapter)
{
var retVal = -1;
var chapArr = inOrder.split(",");
if (CurrQues==inStartQ) {
retVal = GetChapterIdxFromName(chapArr[0]);
}
var jumpIdx = GetJumpChapterIdxOfQuestion(CurrQues, chapArr);
if (jumpIdx != -1) {
if (IsLastQuestionInChapter(CurrQues)) {
Trace("Ned to jump, last question of: "+chapArr[jumpIdx]);
jumpIdx +=1;
if (jumpIdx < chapArr.length) {
Trace("Jumping to: "+chapArr[jumpIdx]);
retVal = GetChapterIdxFromName(chapArr[jumpIdx]);
}
else {
Trace("Jumping to: "+inFinalChapter);
retVal = GetChapterIdxFromName(inFinalChapter);
}
}
}
return retVal;
}
function IsLastQuestionInChapter(inQuestion)
{
var retVal = false;
var chapterInfo = QuestionChapter(inQuestion);
if (chapterInfo.Questions[chapterInfo.Questions.length-1] == inQuestion) {
retVal = true;
}
return retVal;
}
function GetJumpChapterIdxOfQuestion(inQuestion, inJumpArray)
{
var retVal = -1;
var chapterInfo = QuestionChapter(inQuestion);
for (var i=0; i<inJumpArray.length;i++) {
if (chapterInfo.Name == inJumpArray[i]) {
retVal = i;
break;
}
}
return retVal;
}
function GetChapterIdxFromName (inChapterName)
{
var retVal = -1;
var chapterInfos = GetAllChapters();
for(var i=0;i<chapterInfos.length;i++) {
if (chapterInfos[i].Name == inChapterName) {
retVal = chapterInfos[i].ID+1;
break;
}
}
return retVal;
}*/
function AreAllTopicsDifferent (inQIdx)
{
var retVal = true;
var topicAmount = GetTopicCount(inQIdx);
var flag = false;
for (var i = 1; i <= topicAmount; i++)
{
for (var j = 1; j <= topicAmount; j++)
{
if (i != j &&
IsTopicVisible(inQIdx, i) && IsTopicVisible(inQIdx, j) &&
AnswerChoice(inQIdx, i) == AnswerChoice(inQIdx, j))
{
retVal = false;
break;
}
}
if (flag)
{
break;
}
}
return retVal;
}
/** intage thailand **/
function TNS_SetQuesOrder(controlQuestion,variant0)
{
var retVal=false;
if (variant0==8)
{
switch(Answer(controlQuestion))
{
case 1: RandomizeAnswers(CurrQues,[1,2,3,4,5,6,7,8]); break;
case 2: RandomizeAnswers(CurrQues,[4,1,2,3,5,6,7,8]); break;
case 3: RandomizeAnswers(CurrQues,[3,4,1,2,5,6,7,8]); break;
case 4: RandomizeAnswers(CurrQues,[2,3,4,1,5,6,7,8]); break;
case 5: RandomizeAnswers(CurrQues,[4,5,6,7,1,2,3,8]); break;
case 6: RandomizeAnswers(CurrQues,[7,4,5,6,1,2,3,8]); break;
case 7: RandomizeAnswers(CurrQues,[6,7,4,5,1,2,3,8]); break;
case 8: RandomizeAnswers(CurrQues,[5,6,7,4,1,2,3,8]); break;
}
retVal=true;
}
}
//################################ Prince ######################################
// ใช้สำหรับดึงอื่นๆที่พิมพ์ 5 บรรทัดมาไว้ในข้อปัจจุบัน
function SetOther(other,openEnd,start)
{
SetAnswerVisible(CurrQues, false, false, start,start+1,start+2,start+3,start+4);
if (ContainsOneOf(QRef(other),start))
{
var topic;
var answer;
for (topic = 1, answer = start; topic <= 5; answer++, topic++)
{
var text = AnswerChoice(QRef(openEnd), topic);
if (text != "")
{
SetAnswerVisible(CurrQues, true, false, answer);
SetAnswerTextFormat(CurrQues, answer, text);
}
}
}
}
function SetTopicOther(other,openEnd,start)
{
SetTopicVisible(CurrQues, false, false, start,start+1,start+2,start+3,start+4);
if (ContainsOneOf(QRef(other),start))
{
var topic;
var answer;
for (topic = 1, answer = start; topic <= 5; answer++, topic++)
{
var text = AnswerChoice(QRef(openEnd), topic);
if (text != "")
{
SetTopicVisible(CurrQues, true, false, answer);
SetTopicTextFormat(CurrQues, answer, text);
}
}
}
}
// ใช้สำหรับการโชว์คำตอบ
// ถ้า eiei เป็น 1 คือติ๊ก 1 ค่า โชว์หลายค่า
// ถ้า eiei เป็น 2 คือติ๊ก หลายค่าโชว์ 1 ค่า
// ถ้า eiei เป็น 3
function MultiSetVisible(QTarget,Qin,tick,startIdx,endIdx,eiei)
{
if(eiei==1)
{
if(Contains(Qin,tick))
{
for(startIdx;startIdx<=endIdx;startIdx++)
{
SetAnswerVisible(QTarget,true,false,startIdx)
}
}
}
else if(eiei==2)
{
for(startIdx;startIdx<=endIdx;startIdx++)
{
if(Contains(Qin,startIdx))
{
SetAnswerVisible(QTarget,true,false,tick)
break
}
}
}
else if(eiei==3)
{
if(Contains(Qin,tick))
{
for(startIdx;startIdx<=endIdx;startIdx++)
{
SetTopicVisible(QTarget,true,false,startIdx)
}
}
}
else if(eiei==4)
{
for(startIdx;startIdx<=endIdx;startIdx++)
{
if(Contains(Qin,startIdx))
{
SetTopicVisible(QTarget,true,false,tick)
break
}
}
}
}
// ใช้สำหรับการติ๊กคำตอบ
function MultiDblSetSpecificAnswer(QTarget,Qin,tick,startIdx,endIdx,eiei)
{
if(eiei==1)
{
if(Contains(Qin,tick))
{
for(startIdx;startIdx<=endIdx;startIdx++)
{
dblSetSpecificAnswer(QTarget,startIdx,true)
}
}
}
else if(eiei==2)
{
for(startIdx;startIdx<=endIdx;startIdx++)
{
if(Contains(Qin,startIdx))
{
dblSetSpecificAnswer(QTarget,tick,true)
break
}
}
}
}
// วิธีใช้ ถ้าหน้า 1 ตอบโค้ด 998 999 ContainsOneOfByCode(Qref(1),["998","999"])
//****** ใชกับเครื่องหมายตกใจไม่ได้ !ContainsOneOfByCode(Qref(1),["998","999"])
function ContainsOneOfByCode(qIdx, codeArr)
{
var retVal = false;
for(var i=1; i <=codeArr.length; i++)
{
if(ContainsByCode(qIdx,codeArr[i-1]))
{
retVal = true;
break;
}
}
return retVal;
}
function ContainsByCode(qIdx, code)
{
var retVal = Contains(qIdx,GetAnswerChoiceIdxByCode(qIdx,code));
return retVal;
}
//เอ๋ยเอง ไป โชว์การ์ด MultiContainsOneOf([QRef(20),QRef(21)....],1)
function MultiContainsOneOf(QRefArr,Idx)
{
var retVal = false;
for(var i=1 ; i<=QRefArr.length ; i++)
{
if(Contains(QRefArr[i-1],Idx))
{
retVal = true
return retVal
}
}
return retVal
}
// การดึงคำตอบโดยเรียงลำดับจากความถี่ ใช้ได้แค่กรณีที่ index ที่1 คือ ไปบ่อยสุด จนถึง ไม่ไปเลย
function FilterFrequency(curr,qref)
{
for(var i = 1; i <= GetAnswerCount(CurrQues) ; i++)
{
if(ContainsOneOf(QRef(qref),i))
{
FilterAnswersByTopics(QRef(curr),QRef(qref),i)
break
}
}
}
function AnswerRotateByNo(Qne,cons)
{
var countMod = GetAnswerCount(CurrQues) - cons.length
var newAnswers=new Array();
var t = Answer(Qne)%countMod
var k
if(t == 0)
{
t = countMod;
}
for(k = t ; k <= countMod ; k++ )
{
newAnswers.push(k)
}
if(newAnswers.length != countMod)
{
for(var j = 1 ; j < t ; j++ )
{
newAnswers.push(j)
}
//newAnswers.push(1)
}
for(var i = 0 ; i+1 <= cons.length ; i++)
newAnswers.push(cons[i])
RandomizeAnswers(CurrQues,newAnswers);
}
function SortRotateByNo(Qin,cons) // Rotate Answer By No
{
var newAnswers=new Array();
if(Answer(Qin) % 2 == 1)
{
for(var i = 1; i <= GetAnswerCount(CurrQues) ; i++)
{
newAnswers.push(i);
}
RandomizeAnswers(CurrQues,newAnswers);
}
if(Answer(Qin) % 2 == 0)// sort descending
{
for(var i = GetAnswerCount(CurrQues)-cons.length ; i >= 1 ; i--)
{
newAnswers.push(i);
}
for(var i = 0 ; i+1 <= cons.length ; i++)
newAnswers.push(cons[i])
RandomizeAnswers(CurrQues,newAnswers);
}
}
//################################ End Prince ######################################
/** Ipsos napoleon franco scripts **/
function innovaip_EdadRango(intEdad) {
if (intEdad>= 18 && intEdad<= 19){
return 1;
}
if (intEdad>= 20 && intEdad<= 24){
return 2;
}
if (intEdad>= 25 && intEdad<= 34){
return 3;
}
if (intEdad>= 35 && intEdad<= 44){
return 4;
}
if (intEdad>= 45 && intEdad<= 54){
return 5;
}
if (intEdad>= 55 && intEdad<= 64){
return 6;
}
return -1;
}
function innovaip_EdadRango1(intEdad) {
if (intEdad < 18){
return 1;
}
if (intEdad >= 18 && intEdad <= 64){
return 2;
}
if (intEdad > 64 && intEdad <= 98){
return 3;
}
if (intEdad = 99){
return 4;
}
return -1;
}
function innovaip_SortIntArray(intArray, arraySize, idx)
{
if (arraySize == 1) return 1;
var sortedArray = [];
//Prompt("ArraySize: " + arraySize);
for (var i = 0;i<arraySize;i++) {
sortedArray[i] = intArray[i];
Prompt("item " + i + " is " + sortedArray[i]);
//Prompt( "Iteration: " + i + " = " + sortedArray[i] );
}
var numSwap = 1
while (numSwap > 0) {
numSwap = 0;
for (var j = 0;j<arraySize-1;j++) {
//Prompt("Comparing: " + sortedArray[j] + "," + sortedArray[j+1] )
if (sortedArray[j] < sortedArray[j+1]) {
var temp;
temp = sortedArray[j+1];
sortedArray[j+1] = sortedArray[j];
sortedArray[j] = temp;
numSwap++;
}
}
//Prompt( "Swaps: " + numSwap );
}
var selectedAge = sortedArray[idx-1];
Prompt("Selected age is " + selectedAge);
var iterNum = 0
for (var l = 0; l<= arraySize-1 ; l++) {
Prompt("Comparing:" + intArray[l] + "," + selectedAge )
if ( intArray[l] == selectedAge) {
return l;
}
}
return 0;
}
function dblGetSubjectStoreColumn(inStoreName,inIDColumnName,inID)
{
var retVal = null;
try {
var table = GetTableFromStore(inStoreName,"","@@"+inIDColumnName+"='"+inID+"'","");
if (table != null && table.ColumnCount >0) {
var column = table[0];
retVal = column;
}
}
catch(err)
{
retVal = null;
}
return retVal;
}
/*Valida que no se repitan los numeros/id de los contactos no efectivos*/
function ValidaNumeros2(Pregunta)
{
for(var i= 1;i<=10;i++)
{
if(IterationIndex > 1)
{
if(IterationIndex == i){continue;}
if(Answer(Pregunta) == AnswerIter(Pregunta,i))
{
//var respuesta= AnswerIter(9,i);
//Prompt("Respuesta en la pregunta 3: " + respuesta + "\n iteracción No. " + i.ToString());
return true;
}
}
}
return false;
}
/*Valida y marca la edad exacta VS los rangos de Edad*/
function ValidarEdades(pregunta,r1,r2,pregunta2,respuesta)
{
if(Answer(pregunta)>= r1 && Answer(pregunta)<=r2)
{
SetAnswer(pregunta2,respuesta);
}
}
/* Valida que solo se acepten letras y no numeros en preguntas tipo texto
parametro: cadena ---> recibe el valor de la respuesta
*/
function ValidaSoloTexto(cadena)
{
var patronLet = /^[a-zA-Z]*$/;
var patronNum = /^\d*$/;
var respuesta = cadena.ToString();
var arr = new Array();
arr = respuesta;
if(respuesta.search(patronNum) != 0)
{
if(respuesta.search(patronLet) != 0 || arr.length < 3 )
{
return true;
}else
{
return false;
}
}else
{
return true;
}
}
/* recibe dos parametros*/
function ValidaMaximoDeCaracteres(cadena,limite)
{
var respuesta = cadena.ToString().replace(/^\s+/g,'').replace(/\s+$/g,'');
var arr = new Array();
arr = respuesta;
if(arr.length < limite )
{
return true;
}else
{
return false;
}
}
/* Validar solo números en una pregunta tipo texto y un minimo de 6 caracteres (validando cedulas de ciudadania)
cedana -> la respuesta como texto
limite -> el minimo de caracteres aceptados
*/
function ValidaSoloNumeros(cadena,limite)
{
var patronLet = /^[a-zA-Z]*$/;
var patronNum = /^\d*$/;
var respuesta = cadena.ToString();
var arr = new Array();
arr = respuesta;
if(respuesta.search(patronLet) != 0)
{
if(respuesta.search(patronNum) != 0 || arr.length < limite )
{
return true;
}else
{
return false;
}
}else
{
return true;
}
}
/* Validar que la pregunta sea solo números y un máximo de caracteres
cadena -> la respuesta como texto
limite -> el minimo de caracteres aceptados
*/
function ValidaNumeros(cadena,limite)
{
var patronLet = /^[a-zA-Z]*$/;
var patronNum = /^\d*$/;
var respuesta = cadena.ToString();
var arr = new Array();
arr = respuesta;
if(respuesta.search(patronLet) != 0)
{
if(respuesta.search(patronNum) != 0 || arr.length > limite || respuesta == 0)
{
return true;
}else
{
return false;
}
}else
{
return true;
}
}
//TBS Vietnam scripts
function dblNumOfCodesDupplicated(inQ)
{
var retVal = 0;
var i=0;
var j=0;
for (i=1; i<=GetTopicCount(inQ)-1;i++){
{for (j=1;j<=GetTopicCount(inQ)-1;j++){
if (IsTopicVisible(inQ,i) && IsTopicVisible(inQ,i+j)&&AnswerChoice(inQ,i)==AnswerChoice(inQ,i+j)&&AnswerChoice(inQ,i)>=1) {
retVal++;
}}}
}
return retVal;
}
/*function TNS_SetQuesOrder(controlQuestion,variant0)
{
Prompt("answer of question index = " + Answer(controlQuestion).ToInt());
var retVal=false;
if (variant0==8)
{
switch(Answer(controlQuestion).ToInt())
{
case 1: RandomizeAnswers(CurrQues,[1,2,3,4,5,6,7,8]); break;
case 2: RandomizeAnswers(CurrQues,[4,1,2,3,5,6,7,8]); break;
case 3: RandomizeAnswers(CurrQues,[3,4,1,2,5,6,7,8]); break;
case 4: RandomizeAnswers(CurrQues,[2,3,4,1,5,6,7,8]); break;
case 5: RandomizeAnswers(CurrQues,[4,5,6,7,1,2,3,8]); break;
case 6: RandomizeAnswers(CurrQues,[7,4,5,6,1,2,3,8]); break;
case 7: RandomizeAnswers(CurrQues,[6,7,4,5,1,2,3,8]); break;
case 8: RandomizeAnswers(CurrQues,[5,6,7,4,1,2,3,8]); break;
}
retVal=true;
}
if (variant0==7)
{
switch(Answer(controlQuestion).ToInt())
{
case 1: RandomizeAnswers(CurrQues,[1,2,3,4,5,6,7]); break;
case 2: RandomizeAnswers(CurrQues,[4,1,2,3,5,6,7]); break;
case 3: RandomizeAnswers(CurrQues,[3,4,1,2,5,6,7]); break;
case 4: RandomizeAnswers(CurrQues,[2,3,4,1,5,6,7]); break;
case 5: RandomizeAnswers(CurrQues,[4,5,6,7,1,2,3]); break;
case 6: RandomizeAnswers(CurrQues,[7,4,5,6,1,2,3]); break;
case 7: RandomizeAnswers(CurrQues,[6,7,4,5,1,2,3]); break;
case 8: RandomizeAnswers(CurrQues,[5,6,7,4,1,2,3]); break;
}
retVal=true;
}
return retVal;
}*/
function TNS_rand(){
return Math.floor(Math.random()*(999-100+1)+100);
}
function TNS_contains(arr,n) {
var i = arr.length;
while (i--) {
if (arr[i] == n) {
return true;
}
}
return false;
}
function decodeArray(text){
var array=[];
var dcArray=[];
var rndLetter=["А","Б","Е","И","К","Л","Р","С","Т","У"];
var letter = /^[А-Я]/;
var number = /^[0-9]/;
var flag=false;
for (var i=0;i<=text.length-1;i++){
if (text.charAt(i).match(letter)||text.charAt(i).match(number)){
array.push(text.charAt(i).toString());
};
};
for (var i=0;i<=array.length-1;i++){
if (array[i].match(number)){
dcArray.push(array[i]);
} else if (array[i].match(letter)) {
if (!flag) {
for (var j=0;j<=rndLetter.length-1;j++){
if (array[i]==rndLetter[j]){
dcArray.push(j);
break;
};
};
flag=true;
} else {
switch (array[i]) {
case "К":
case "Б":
case "А":
dcArray.push(1);
break;
case "У":
case "Э":
dcArray.push(2);
break;
case "Е":
case "И":
dcArray.push(3);
break;
case "Р":
case "Т":
dcArray.push(4);
break;
case "Л":
case "С":
case "Я":
dcArray.push(5);
break;
default:
dcArray.push(0);
break;
};
};
};
};
return dcArray;
}
function returnTimeDiff_Uni(timeDiff,t1,t2,t3,t4){
var timeCode=[
["К","Б","А"],
["У","Э"],
["Е","И"],
["Р","Т"],
["Л","С","Я"]
];
var rndLetter=["А","Б","Е","И","К","Л","Р","С","Т","У"];
var rndTimeIdx=Math.floor((Math.random()*100)+1);
var rndLetterIdx=Math.floor(Math.random()*10);
var text=new String();
var i,j;
if (timeDiff<t1){
i=0;
if (rndTimeIdx<33){
j=0;
} else if (rndTimeIdx>=33 && rndTimeIdx<66) {
j=1;
} else if (rndTimeIdx>=66) {
j=2;
};
} else if (timeDiff>=t1 && timeDiff<t2){
i=1;
if (rndTimeIdx<=50){
j=0;
} else if (rndTimeIdx>50) {
j=1;
};
} else if (timeDiff>=t2 && timeDiff<t3){
i=2;
if (rndTimeIdx<=50){
j=0;
} else if (rndTimeIdx>50) {
j=1;
};
} else if (timeDiff>=t3 && timeDiff<t4){
i=3;
if (rndTimeIdx<=50){
j=0;
} else if (rndTimeIdx>50) {
j=1;
};
} else if (timeDiff>=t4){
i=4;
if (rndTimeIdx<33){
j=0;
} else if (rndTimeIdx>=33 && rndTimeIdx<66) {
j=1;
} else if (rndTimeIdx>=66) {
j=2;
};
};
text=rndLetter[rndLetterIdx]+timeCode[i][j];
return text;
}
function generateCheckSum(array){
var c=0;
var invertedArray=[];
var d=[
[0,1,2,3,4,5,6,7,8,9],
[1,2,3,4,0,6,7,8,9,5],
[2,3,4,0,1,7,8,9,5,6],
[3,4,0,1,2,8,9,5,6,7],
[4,0,1,2,3,9,5,6,7,8],
[5,9,8,7,6,0,4,3,2,1],
[6,5,9,8,7,1,0,4,3,2],
[7,6,5,9,8,2,1,0,4,3],
[8,7,6,5,9,3,2,1,0,4],
[9,8,7,6,5,4,3,2,1,0]
];
var p=[
[0,1,2,3,4,5,6,7,8,9],
[1,5,7,6,2,8,3,0,9,4],
[5,8,0,3,7,9,6,1,4,2],
[8,9,1,6,0,4,3,5,2,7],
[9,4,5,3,1,2,6,8,7,0],
[4,2,8,6,5,7,3,9,0,1],
[2,7,9,3,8,0,6,4,1,5],
[7,0,4,6,9,1,3,2,5,8]
];
var inv=[0, 4, 3, 2, 1, 5, 6, 7, 8, 9];
for (var i=array.length-1;i>=0;i--){
invertedArray.push(array[i]);
}
for (var i=0;i<invertedArray.length-1;i++){
c=d[c][p[((i+1)%8)][invertedArray[i]]];
}
// array.push(c);
return inv[c];
}
/* Nome da Função: IsRange
Programador: Clayton
Data: 00/00/0000
Descrição: Checar se existe um valor de-para
Tipo Quest: Single e Mult
Exemplo: IsRange(QRef(5), 18, 24);
*/
function IsRange(inQIdx, inBegin, inEnd) {
var retVal = false;
for (var j = inBegin; j <= inEnd; j++) {
if (Contains(inQIdx, j)) {
retVal = true; break; }
}
return retVal;
}
/* Nome da Função: IsRangeIter
Programador: Clayton
Data: 00/00/0000
Descrição: Checar se existe um valor de-para em um Iter
Tipo Quest: Single e Mult Iter
Exemplo: IsRange(QRef(5), 18, 24);
*/
function IsRangeIter(inQIdx, inIter, inBegin, inEnd) {
var retVal = false;
for (var j = inBegin; j <= inEnd; j++) {
if (ContainsIter(inQIdx, j, inIter)) {
retVal = true; break; }
}
return retVal;
}
/* Nome da Função: IsRangeChoice
Programador: Clayton
Data: 00/00/0000
Descrição: Checar se existe um valor de-para em questões Topics
Tipo Quest: Topics
Exemplo: IsRangeChoice(QRef(5), 1, 1,5);
*/
function IsRangeChoice(inQIdx, inAnsIdx, inBegin, inEnd) {
var retVal = false;
for (var j = inBegin; j <=inEnd; j++) {
if (AnswerChoice(inQIdx, inAnsIdx) == j) {
retVal = true; break; }
}
return retVal;
}
/* Nome da Função: checkMail
Programador: Internet (desconhecido)
Data: 00/00/0000
Descrição: Checar se o email é válido
Tipo Quest: Strings
Exemplo: checkMail(Answer(100)); // checkMail(SelectedAnswerText(100));
*/
function checkMail(mail) {
var er = new RegExp(/^[A-Za-z0-9_\-\.]+@[A-Za-z0-9_\-\.]{2,}\.[A-Za-z0-9]{2,}(\.[A-Za-z0-9])?/);
if (typeof(mail) == "string"){
if (er.test(mail)) { return true; }
} else if (typeof(mail) == "object"){
if (er.test(mail.value)){
return true;
}
} else {
return false;
}
}
/* Nome da Função: IsRight
Programador: Internet (desconhecido)
Data: 00/00/0000
Descrição: Buscar valor À Direita
Tipo Quest: Strings
Exemplo: IsRight(Answer(100)); // IsRight(SelectedAnswerText(100));
*/
function IsRight(str, n) {
str = str.ToString();
if (n <= 0)
{ return ""; }
else if (n > String(str).length)
{ return str;}
else {
var iLen = String(str).length;
return String(str).substring(iLen, iLen - n);
}
}
/* Nome da Função: IsLeft
Programador: Internet (desconhecido)
Data: 00/00/0000
Descrição: Buscar valor À Esquerda
Tipo Quest: Strings
Exemplo: IsLeft(Answer(100)); // IsLeft(SelectedAnswerText(100));
*/
function IsLeft(str, n) {
str = str.ToString();
if (n <= 0)
return "";
else if (n > String(str).length)
return str;
else
return String(str).substring(0,n);
}
/* Nome da Função: BuscaCep (Inativa)
Programador: Clayton
Data: 00/00/0000
Descrição: Buscar Cep (Projeto Leroy)
Tipo Quest: Strings
Exemplo: BuscaCep(QRef(10), QRef(11), QRef(5));
*/
function BuscaCep(inQidxCep, inQidxRua, inQidxCidade) {
var retVal = false;
var arrBaseCep = new Array();
for (var i = 0; i < arrBaseCep.length; i++) {
if (Answer(inQidxCep) == arrBaseCep[i].substr(0,8)) {
retVal = true;
break; }
}
if (retVal) {
SetAnswer(inQidxRua, arrBaseCep[i - 1].substr(9,102)); }
}
/* Nome da Função: DBLIsValidPhone
Programador: Ron Tal
Data: 00/00/0000
Descrição: Checar Telefone Válido (8 dígitos)
Tipo Quest: Numérica
Exemplo: DBLIsValidPhone(Answer(QRef(20));
OBS: Adaptado (9 dígitos SP) - 14/08/2012
*/
/* Nome da Função: IsContainsTo
Programador: Clayton
Data: 00/00/0000
Descrição: Busca um valor entre várias Questões
Tipo Quest: Single e Mult
Exemplo: IsContainsTo(QRef(108), QRef(111), 2);
*/
function IsContainsTo(inQIdxBegin, inQIdxEnd, inAnswer) {
var retVal = false;
for (var j = inQIdxBegin; j <= inQIdxEnd; j++) {
if (Contains(j, inAnswer)) {
retVal = true; }
}
return retVal;
}
/* Nome da Função: IsContainsRangeTo
Programador: Clayton
Data: 00/00/0000
Descrição: Busca um ou mais valores entre várias Questões
Tipo Quest: Single e Mult
Exemplo: IsContainsRangeTo(QRef(108), QRef(111), 2,10);
*/
function IsContainsRangeTo(inQIdxBegin, inQIdxEnd, inBegin, inEnd) {
var retVal = false;
for (var j = inQIdxBegin; j <= inQIdxEnd; j++) {
for (var k = inBegin; k <= inEnd; k++) {
if (Contains(j, k)) {
retVal = true; }
}
}
return retVal;
}
/* Nome da Função: IsSelectedAnswerRankingIdx
Programador: Clayton
Data: 00/00/0000
Descrição: Busca Index da Resposta Selecionada p/ Ranking
Tipo Quest: Ranking
Exemplo: IsSelectedAnswerRankingIdx(QRef(108), 1);
*/
function IsSelectedAnswerRankingIdx(inQidx, inRank) {
for (var i = 1; i <= GetAnswerCount(inQidx); i++) {
if (ContainsSpecificRate(inQidx, inRank, i)) {
break; }
}
return i;
}
/* Nome da Função: IsSomaAnswer
Programador: Clayton
Data: 00/00/0000
Descrição: Soma uma sequência de Questões
Tipo Quest: Numéricas Single e Multi
Exemplo: IsSomaAnswers(QRef(90), QRef(100));
*/
//Função Soma Answer
function IsSomaAnswer(inBegin, inEnd) {
var intSoma = 0;
for (var j = inBegin; j <=inEnd; j++)
{ intSoma += Answer(j); }
return intSoma;
}
/* Nome da Função: IsSomaTopic
Programador: Clayton
Data: 00/00/0000
Descrição: Soma uma sequência de Questões
Tipo Quest: Numéricas Topics
Exemplo: IsSomaTopics(QRef(90), QRef(100));
*/
function IsSomaTopic(inBegin, inEnd) {
var intSoma = 0;
for (var j = inBegin; j <= inEnd; j++)
if (IsTopicVisible(CurrQues, j)) {
intSoma += AnswerChoice(CurrQues, j); }
return intSoma;
}
function IsSomaTopics(inQidx, inBegin, inEnd) {
var intSoma = 0;
for (var j = inBegin; j <= inEnd; j++)
if (IsTopicVisible(inQidx, j)) {
intSoma += AnswerChoice(inQidx, j); }
return intSoma;
}
/* Nome da Função: IsSearchOthers
Programador: Clayton
Data: 00/00/0000
Descrição: Busca Outras na Lista Fixa
Tipo Quest: Single e Multi
Exemplo: IsSearchOthers(AddtionalText(CurrQues), QRef(CurrQues)); /
IsSearchOthers(SelectedAnswerText(CurrQues+1), QRef(CurrQues));
Msg 'Verificar Outros vs Lista de Marcas.'
OBS: Alterado dia 21/08 - inclusão do RegExp
*/
function IsSearchOthers(inQidxOther, inQidxList) {
var retVal = false;
if (inQidxOther != '') {
var arrList = new Array();
for (var j=1;j<=GetAnswerCount(inQidxList);j++) {
arrList[j-1] = IsTrim(IsUpper(GetAnswerOriginalText(inQidxList, j)));
}
var reList = new RegExp(arrList);
var reAnswer = new RegExp(IsTrim(IsUpper(inQidxOther)));
if (reAnswer.test(reList)) {
Prompt("A resposta (ou alguma variante) digitada em outros '"+inQidxOther+"' está na lista de marcas. Verifique");
retVal = true;
}
}
return retVal;
}
/* Nome da Função: IsTrim
Programador: Internet (desconhecido)
Data: 00/00/0000
Descrição: Remove espaços
Tipo Quest: Strings
Exemplo: IsTrim(Answer(CurrQues)); / IsTrim(SelectedAnswerText(CurrQues));
*/
function IsTrim(str) {
str = str.ToString();
return str.replace(/^\s+|\s+$/g,"");
}
/* Nome da Função: IsLTrim
Programador: Internet (desconhecido)
Data: 00/00/0000
Descrição: Remove espaços à Esquerda
Tipo Quest: Strings
Exemplo: IsLTrim(Answer(CurrQues)); / IsLTrim(SelectedAnswerText(CurrQues));
*/
function IsLTrim(str) {
str = str.ToString();
return str.replace(/^\s+/,"");
}
/* Nome da Função: IsRTrim
Programador: Internet (desconhecido)
Data: 00/00/0000
Descrição: Remove espaços à Direita
Tipo Quest: Strings
Exemplo: IsRTrim(Answer(CurrQues)); / IsRTrim(SelectedAnswerText(CurrQues));
*/
function IsRTrim(str) {
str = str.ToString();
return str.replace(/\s+$/,"");
}
/* Nome da Função: IsUpper
Programador: Internet (desconhecido)
Data: 00/00/0000
Descrição: Letras em Maiúscula
Tipo Quest: Strings
Exemplo: IsUpper(Answer(CurrQues)); / IsUpper(SelectedAnswerText(CurrQues));
*/
function IsUpper(str) {
str = str.ToString();
return str.toUpperCase();
}
/* Nome da Função: IsUpper
Programador: Internet (desconhecido)
Data: 00/00/0000
Descrição: Letras em Minúscula
Tipo Quest: Strings
Exemplo: IsLower(Answer(CurrQues)); / IsLower(SelectedAnswerText(CurrQues));
*/
function IsLower(str) {
str = str.ToString();
return str.toLowerCase();
}
/* Nome da Função: IsCheckAbertas
Programador: Clayton
Data: 11/07/2012
Descrição: Checagem Abertas
Tipo Quest: Single
Exemplo: IsCheckAbertas([QRef(175), QRef(177), ...]);
*/
function IsCheckAbertas(inQids) {
var retErro = '';
var numOfQues = inQids.length;
for (var j = 0; j < numOfQues; j++) {
if (Answered(inQids[j]) && NotAnswered(inQids[j] + 1))
{ retErro += ('Questão : ' + VarName(inQids[j] + 1) + ' - Falta Resposta \n'); }
if (NotAnswered(inQids[j]) && Answered(inQids[j] + 1))
{ retErro += ('Questão : ' + VarName(inQids[j] + 1) + ' - Sobra Resposta \n'); }
}
if (retErro != '') { ExtRefNum = 'Abertas - Erro'; }
else { ExtRefNum = 'Abertas - Ok'; }
return retErro;
}
/* Nome da Função: IsEncerre
Programador: Wilson Ruiz/Clayton Araujo
Data: 16/08/2012
Descrição: Essa função verifica se uma questão foi respondida como encerre, se sim ela seta as váriáveis de filtro e ocorrência e vai para o encerramento da entrevista.
Tipo Quest: Simgle/Multiple/Topic
Exemplo: IsEncerre((Contains(CurrQues, 1)), QRef(42), QRef(44)) (Encerra se na questão atual a resposta for código 1)
*/
function IsEncerre(InFunction, InMsg, InOcor, InEncer){
SetAnswer(InEncer, 2);
if (InFunction) {
Prompt("Se "+InMsg+". Agradeça e encerre.");
SetAnswer(InOcor, VarName(CurrQues) + " = "+InMsg+".");
SetAnswer(InEncer, 1);
}
return InFunction;
}
/* Nome da Função: IsArrend
Programador: Internet (desconhecido)
Data: 24/09/2012
Descrição: Arredonda um número para o inteiro mais próximo, tanto para baixo quanto para cima. Por exemplo, o número 3.3 arredondado será 3, mas o número 3.8 arredondado será 4.
Tipo Quest: Numérica
Exemplo:
*/
function IsArrend(InValue, InDecimals){
var retVal = Math.round(InValue * Math.pow(10, InDecimals)) / Math.pow(10, InDecimals);
return retVal;
}
/* Nome da Função: IsArrendDown
Programador: Internet (desconhecido)
Data: 24/09/2012
Descrição: Arredonda um número para o inteiro mais baixo
Tipo Quest: Numérica
Exemplo:
*/
function IsArrendDown(InValue, InDecimals){
var retVal = Math.floor(InValue * Math.pow(10, InDecimals)) / Math.pow(10, InDecimals);
return retVal;
}
/* Nome da Função: IsAnyOneOfVars
Programador: Clayton
Data: 13/11/2012
Descrição: Busca 1 ou Mais valores entre 1 ou mais Variáveis
Se Deseja saber onde o valor foi localizado, digite adicione true no final da função, senão, digite false;
Tipo Quest: Vars
Exemplo: IsAnyOneOfVars([1], [v1, v2], false) / IsAnyOneOfVars([1,2,3], [v1], false) / IsAnyOneOfVars([1,2,3], [v1,v2,v3], false)
*/
function IsAnyOneOfVars(inValues, inVars, inGetVar) {
var retVal = false;
var retVar = 0;
var numOfValues = inValues.length;
var numOfVars = inVars.length;
for (var i=0; i<numOfValues; i++)
{
for (var j=0; j<numOfVars; j++)
{
if (inVars[j] == inValues[i])
{
retVal = true;
retVar = j+1;
break;
}
}
}
if (inGetVar)
{
return retVar;
}
else
{
return retVal;
}
}
/* Nome da Função: IsRangeOneOfVars
Programador: Clayton
Data: 20/11/2012
Descrição: Busca valores de x a x entre 1 ou mais Variáveis
Se Deseja saber onde o valor foi localizado, digite adicione true no final da função, senão, digite false;
Tipo Quest: Vars
Exemplo: IsRangeOneOfVars(1,10, [v1, v2], false) / IsRangeOneOfVars(1,3, [v1], false) / IsRangeOneOfVars(1,200, [v1,v2,v3], false)
*/
function IsRangeOneOfVars(inValueBegin, inValueEnd, inVars, inGetVar) {
var retVal = false;
var retVar = 0;
var numOfVars = inVars.length;
for (var i=inValueBegin; i<=inValueEnd; i++)
{
for (var j=0; j<numOfVars; j++)
{
if (inVars[j] == i)
{
retVal = true;
retVar = j+1;
break;
}
}
}
if (inGetVar)
{
return retVar;
}
else
{
return retVal;
}
}
/* Nome da Função: IsRangeCount
Programador: Clayton
Data: 00/00/0000
Descrição: Checar se existe um valor de-para e retorna a quantidade
Tipo Quest: Single e Mult
Exemplo: IsRange(QRef(5), 18, 24);
*/
function IsRangeCount(inQIdx, inBegin, inEnd) {
var retVal = 0;
for (var j = inBegin; j <= inEnd; j++) {
if (Contains(inQIdx, j)) {
retVal += 1; }
}
return retVal;
}
/* Nome da Função: IsRangeChoiceCount
Programador: Clayton
Data: 00/00/0000
Descrição: Checar se existe um valor de-para em questões Topics e retorna a quantidade
Tipo Quest: Topics
Exemplo: IsRangeChoice(QRef(5), 1, 1,5);
*/
function IsRangeChoiceCount(inQIdx, inAnsIdx, inBegin, inEnd) {
var retVal = 0;
for (var j = inBegin; j <=inEnd; j++) {
if (AnswerChoice(inQIdx, inAnsIdx) == j) {
retVal += 1; }
}
return retVal;
}
/* Nome da Função: IsContainsOneOfTopics
Programador: Clayton
Data: 19/11/2012
Descrição: Checar se existe um/ou valor(es) em questões Topics
Tipo Quest: Topics
Exemplo: IsContainsOneOfTopics(QRef(5), 1, [1,2,5,4]);
*/
function IsContainsOneOfTopics(inQTarget,inTopic,inAnswers)
{
var retVal = false;
var numOfAnswers = inAnswers.length;
for (var i=0;i<numOfAnswers;i++) {
if (AnswerChoice(inQTarget,inTopic) == inAnswers[i]) {
retVal = true;
break;
}
}
return retVal;
}
/* Nome da Função: IsSetAnswersRangeVisible
Programador: Clayton
Data:
Descrição: Exibir/Ocultar respostas de X a X
Tipo Quest: Single e Multi
Exemplo: IsSetAnswersRangeVisible(CurrQues, true, true, 1, 10);
*/
function IsSetAnswersRangeVisible(inQIdx, inShow, inReset, inAnsBegin, inAnsEnd){
var inAnswers = new Array();
var i = 0;
for (var j = inAnsBegin; j<=inAnsEnd; j++)
{
inAnswers[i] = j;
i++;
}
SetAnswerVisible(inQIdx, inShow, inReset, inAnswers);
}
/* Nome da Função: IsSetTopicsRangeVisible
Programador: Clayton
Data:
Descrição: Exibir/Ocultar respostas de X a X
Tipo Quest: Topics
Exemplo: IsSetTopicsRangeVisible(CurrQues, true, true, 1, 10);
*/
function IsSetTopicsRangeVisible(inQIdx, inShow, inReset, inTopBegin, inTopEnd){
var inTopics = new Array();
var i = 0;
for (var j = inTopBegin; j<=inTopEnd; j++)
{
inTopics[i] = j;
i++;
}
SetTopicVisible(inQIdx, inShow, inReset, inTopics);
}
/* Nome da Função: IsGetIndexAnswers
Programador: Clayton
Data: 17/12/2012
Descrição: Retornar os índices dos itens da lista em Matriz
Tipo Quest: RU/RM
Exemplo: IsGetIndexAnswers(QRef(1));
*/
function IsGetIndexAnswers(inQIdx){
var inAnswers = new Array();
var i = 0;
for (var j=1;j<=GetAnswerCount(inQIdx);j++)
{
inAnswers[i] = j;
i++;
}
return inAnswers;
}
/* Nome da Função: IsGetIndexAnswersExclude
Programador: Clayton
Data: 17/12/2012
Descrição: Retornar os índices dos itens da lista em Matriz
Tipo Quest: RU/RM
Exemplo: IsGetIndexAnswersExclude(QRef(1), [1,2,3]);
*/
function IsGetIndexAnswersExclude(inQIdx, AnsExclude){
var inAnswers = new Array();
var i = 0;
for (var j=1;j<=GetAnswerCount(inQIdx);j++)
{
if (IndexOfInt(j, AnsExclude)==-1)
{
inAnswers[i] = j;
i++;
}
}
return inAnswers;
}
/* Nome da Função: IsGetIndexTopics
Programador: Clayton
Data: 17/12/2012
Descrição: Retornar os índices dos itens da lista em Matriz
Tipo Quest: Topic
Exemplo: IsGetIndexTopics(QRef(1));
*/
function IsGetIndexTopics(inQIdx){
var inTopics = new Array();
var i = 0;
for (var j=1;j<=GetTopicCount(inQIdx);j++)
{
inTopics[i] = j;
i++;
}
return inTopics;
}
/* Nome da Função: IsGetNumOfTopicsWithValuesRange
Programador: Clayton
Data: 04/01/2013
Descrição: Facilitando o uso da da função GetNumOfTopicsWithValues, para colocar um range nos valores
Tipo Quest: Topics
Exemplo: IsGetNumOfTopicsWithValuesRange(CurrQues, 20,97);
*/
function IsGetNumOfTopicsWithValuesRange(inQIdx, inBegin, inEnd) {
var retVal = false;
for (var j=inBegin;j<=inEnd;j++)
{
if (GetNumOfTopicsWithValues(inQIdx, j) > 0) { retVal = true; break;}
}
return retVal;
}
/* Nome da Função: IsDataNasc
Programador: Clayton
Data: 16/01/2013
Descrição: Retorna a idade baseada na Data de Nascimento
Tipo Quest: Date
Exemplo: IsDataNasc(QRef(1));
*/
function IsDataNasc(inQIdxDataNasc)
{
var retVal = 0;
retVal = (Now.Year-Answer(inQIdxDataNasc).Year);
if ((Answer(inQIdxDataNasc).Month > Now.Month) || (Answer(inQIdxDataNasc).Month == Now.Month && Answer(inQIdxDataNasc).Day > Now.Day))
{
retVal = retVal-1;
}
return retVal;
}
/* Nome da Função: IsDataNascIter
Programador: Clayton
Data: 16/01/2013
Descrição: Retorna a idade baseada na Data de Nascimento
Tipo Quest: Date Iter
Exemplo: IsDataNascIter(QRef(1), IterationIdex);
*/
function IsDataNascIter(inQIdxDataNasc, inIter)
{
var retVal = 0;
retVal = (Now.Year-Answer(inQIdxDataNasc).Year);
if ((AnswerIter(inQIdxDataNasc, inIter).Month > Now.Month) || (AnswerIter(inQIdxDataNasc, inIter).Month == Now.Month && AnswerIter(inQIdxDataNasc, inIter).Day > Now.Day))
{
retVal = retVal-1;
}
return retVal;
}
/* Nome da Função: IpsChekTrim
Programador: Wilson
Data: 18-01-2013
Descrição: Essa função verifica se os valores digitados em uma questão aberta ou semi-aberta
são apenas espaços, apenas números ou ambas as situações e retorna erro.
Tipo Quest: Aberta e Addictional Text
Exemplo: IpsChekTrim(true,true,false) | IpsChekTrim(false,false,true)&&Contains(CurrQues,1)
Descrição do comando: IpsTrimTeste( ; nome da função
true, ; aceita true/false. Se for true retorna erro caso a questão estiver apenas com espaços, se for false não aplica a checagem de espaços.
true, ; aceita true/false. Se for true retorna erro caso a questão estiver apenas com números, se for false não aplica a checagem de números.
false) ; aceita true/false. Faz a checagem de números e espaços para o Addictional Text. se estiver com false não checa o Addictional.
Observação: Quando usar essa função para questões Addictional precisa vincular ao código fechado de outros.
*/
function IpsChekTrim(chkTxt,chkNum,chkAdd){
var retVal = false;
if (chkTxt){
var txt = Answer(CurrQues).ToString()
txt = txt.replace(/\s/g,'')
if (txt == ''){
retVal = true;
return retVal;
}
}
if (chkNum){
var num = Answer(CurrQues).ToString()
num = num.replace(/1|2|3|4|5|6|7|8|9|0|\s/g,'')
if (num == ''){
retVal = true;
return retVal;
}
}
if (chkAdd){
var add = AdditionalText(CurrQues).ToString()
add = add.replace(/1|2|3|4|5|6|7|8|9|0|\s/g,'')
if (add == ''){
retVal = true;
return retVal;
}
}
}
/* Nome da Função: IpsChekTrimIterIter
Programador: Wilson
Data: 28-02-2013
Descrição: Essa função verifica se os valores digitados em uma questão aberta ou semi-aberta
são apenas espaços, apenas números ou ambas as situações e retorna erro.
Tipo Quest: Aberta e Addictional Text
Exemplo: IpsChekTrimIter(true,true,false) | IpsChekTrimIter(false,false,true)&&Contains(CurrQues,1)
Descrição do comando: IpsTrimTeste( ; nome da função
true, ; aceita true/false. Se for true retorna erro caso a questão estiver apenas com espaços, se for false não aplica a checagem de espaços.
true, ; aceita true/false. Se for true retorna erro caso a questão estiver apenas com números, se for false não aplica a checagem de números.
false) ; aceita true/false. Faz a checagem de números e espaços para o Addictional Text. se estiver com false não checa o Addictional.
Observação: Quando usar essa função para questões Addictional precisa vincular ao código fechado de outros.
Texto padrão da mensagem(sugestão): ATENÇÃO: Não aceitar apenas números ou em branco!
*/
function IpsChekTrimIter(chkTxt,chkNum,chkAdd){
var retVal = false;
if (chkTxt){
var txt = AnswerIter(CurrQues,IterationIndex).ToString()
txt = txt.replace(/\s/g,'')
if (txt == ''){
retVal = true;
return retVal;
}
}
if (chkNum){
var num = AnswerIter(CurrQues,IterationIndex).ToString()
num = num.replace(/1|2|3|4|5|6|7|8|9|0|\s/g,'')
if (num == ''){
retVal = true;
return retVal;
}
}
if (chkAdd){
var add = AdditionalTextIter(CurrQues,IterationIndex).ToString()
add = add.replace(/1|2|3|4|5|6|7|8|9|0|\s/g,'')
if (add == ''){
retVal = true;
return retVal;
}
}
}
/* Nome da Função: IsFilterAnswersByCods
Programador: Clayton
Data: 28/02/13
Descrição: Filtrar pór código
Tipo Quest: Single e Multiple
Exemplo: IsFilterAnswersByCods(CurrQues, true, true, [10,11,13,9996,998,999]);
*/
function IsFilterAnswersByCods(inQIdx, inShow, inReset, inCods)
{
var numOfCods = inCods.length;
var inAnswers = new Array();
for (var i=0;i<numOfCods;i++)
{
inAnswers[i] = GetAnswerChoiceIdxByCode(inQIdx,inCods[i]);
}
SetAnswerVisible(inQIdx, inShow, inReset, inAnswers);
}
/* Nome da Função: IsFilterTopicsByCods
Programador: Clayton
Data: 28/02/13
Descrição: Filtrar pór código
Tipo Quest: Grid
Exemplo: IsFilterTopicsByCods(CurrQues, true, true, [10,11,13,9996,998,999], QRef(CurrQues-1));
*/
function IsFilterTopicsByCods(inQIdx, inShow, inReset, inCods, inQIdxCod)
{
var numOfCods = inCods.length;
var inTopics = new Array();
for (var i=0;i<numOfCods;i++)
{
inTopics[i] = GetAnswerChoiceIdxByCode(inQIdxCod,inCods[i]);
}
SetTopicVisible(inQIdx, inShow, inReset, inTopics);
}
/* Nome da Função: IsFilterAnswersMarcasByCid
Programador: Clayton
Data: 28/02/13
Descrição: Filtra as marcas do AddLists por cidade(neste Add List contém todas as marcas de cigarro)
Tipo Quest: Single e Multiple
Exemplo: IsFilterAnswersMarcasByCid(CurrQues, true, true, Answer(1));
**Cidades GCS:
Bauru 1
São José do Rio Preto 2
Belo Horizonte 3
Recife 4
Porto Alegre 5
Curitiba 6
Ribeirão Preto 7
São Paulo 8
Rio de Janeiro 9 **
*/
function IsFilterAnswersMarcasByCid(inQIdx, inShow, inReset, inCodCid)
{
var inAnswers = new Array();
var i = 0;
var tblTable = GetTableFromStore("LISTA_DE_MARCAS_GCS","","cid_"+inCodCid+"=1","marca");
for (var j=0; j<tblTable.RowCount; j++)
{
var rowRow = tblTable[j];
if (rowRow["status_cod"]==1)
{
inAnswers[i] = rowRow["marca_cod"].ToInt();
i++;
}
}
IsFilterAnswersByCods(inQIdx, inShow, inReset, inAnswers);
}
/* Nome da Função: IsSetAnswerCodeLabel
Programador: Clayton
Data: 05/03/13
Descrição:
Tipo Quest: Single e Multipe
Exemplo: IsSetAnswerCodeLabel(CurrQues, [42,43]);
*/
function IsSetAnswerCodeLabel(inQIdx, inIgnore)
{
for (var j=1;j<=GetAnswerCount(inQIdx);j++)
{
SetAnswerText(inQIdx, j, AnswerCode(inQIdx, j)+'-'+GetAnswerOriginalText(inQIdx, j));
}
if (inIgnore!='undefined')
{
for (var j=0;j<inIgnore.length;j++)
{
SetAnswerText(inQIdx, inIgnore[j], GetAnswerOriginalText(inQIdx, inIgnore[j]));
}
}
}
/* Nome da Função: IsSetTopicCodeLabel
Programador: Clayton
Data: 17/05/13
Descrição:
Tipo Quest: Topic
Exemplo: IsSetTopicCodeLabel(CurrQues, [42,43]);
*/
function IsSetTopicCodeLabel(inQIdx, inQIdxCod, inIgnore)
{
for (var j=1;j<=GetTopicCount(inQIdx);j++)
{
SetTopicText(inQIdx, j, AnswerCode(inQIdxCod, j)+'-'+GetTopicOriginalText(inQIdx, j));
}
if (inIgnore!='undefined')
{
for (var j=0;j<inIgnore.length;j++)
{
SetTopicText(inQIdx, inIgnore[j], GetTopicOriginalText(inQIdx, inIgnore[j]));
}
}
}
/* Nome da Função: IsSortAnswersByCod
Programador: Clayton
Data: 06/03/2013
Descrição: Ordenar Lista por Index
Tipo Quest:
Exemplo:
*/
function IsSortAnswersByCod(inQIdx)
{
var inAnswersCod = new Array();
var inAnswersIdx = new Array();
for (var i=1;i<=GetAnswerCount(inQIdx);i++)
{
inAnswersCod[i-1] = AnswerCode(inQIdx, i);
//Prompt("cod "+inAnswersCod[i-1]);
}
var inAnswersCod = inAnswersCod.sort(IsCrescente);
for (var i=1;i<=GetAnswerCount(inQIdx);i++)
{
inAnswersIdx[i-1] = GetAnswerChoiceIdxByCode(inQIdx, inAnswersCod[i-1]);
//Prompt("idx "+inAnswersIdx[i-1]);
}
RandomizeAnswers(inQIdx, inAnswersIdx);
/* Crescente */
function IsCrescente(index1, index2)
{
return index1 - index2;
}
/* Decrescente */
function IsDecrescente(index1, index2)
{
return index2 - index1;
}
}
/* Nome da Função: IsRangeAll
Programador: Clayton
Data: 09/04/2013
Descrição: Checar se existe todos os valores de-para
Tipo Quest: Single e Mult
Exemplo: IsRangeAll(QRef(5), 18, 24);
*/
function IsRangeAll(inQIdx, inBegin, inEnd) {
var intVal = 0;
for (var j=inBegin;j<=inEnd;j++) { if (Contains(inQIdx, j)) { intVal++} }
if (intVal==inEnd) { return true; }
else { return false; }
}
/* Nome da Função: IsContainsByOriginalText
Programador: Clayton
Data: 15/04/2013
Descrição: Buscar Resposta por Original Text
Tipo Quest: Single e Mult
Exemplo: IsContainsByOriginalText(QRef(5), 'Outros');
*/
function IsContainsByOriginalText(inQues, inText)
{
var retVal = false;
for (var j=1;j<=GetAnswerCount(inQues);j++)
{
if (Contains(inQues, j) && GetAnswerOriginalText(inQues, j)==inText) { retVal = true; break; }
}
return retVal;
}
/*
Nome da Função: IsSetAnswersByCod
Programador: Clayton
Data: 29/04/13
Descrição:
Tipo Quest: Single e Multipe
Exemplo: IsSetAnswersByCod(QRef(1), CurrQues);
*/
function IsSetAnswersByCod(inQIdx, inQIdxTarget)
{
if (NumOfSelectedChoices(inQIdxTarget)>0)
{
var numOfAnswers = GetAnswers(inQIdxTarget);
var codOfAnswers = new Array();
for (var j=0; j<numOfAnswers.length; j++)
{
codOfAnswers[j] = GetAnswerChoiceIdxByCode(inQIdx, AnswerCode(inQIdxTarget, numOfAnswers[j]));
}
SetAnswer(inQIdx, codOfAnswers);
}
else
{
SetAnswer(inQIdx, GetAnswerChoiceIdxByCode(inQIdx, SelectedAnswerCode(inQIdxTarget)));
}
}
/* Nome da Função: IsRangeVar
Programador: Clayton
Data: 23/05/2013
Descrição: Checar se existe um valor de-para
Tipo Quest: Variável de Usuário
Exemplo: IsRangeVar(Var, 8,10);
*/
function IsRangeVar(inVar, inBegin, inEnd) {
var retVal = false;
if (inVar>=inBegin && inVar<=inEnd) { retVal = true; }
return retVal;
}
/* Nome da Função: IsContainsNumOfValues
Programador: Clayton
Data: 27/05/2013
Descrição: Retorna o total de valores que a questão possui
Tipo Quest: Multiple
Exemplo: IsContainsNumOfValues(CurrQues, [1,2,3,4]);
*/
function IsContainsNumOfValues(inQIdx, inAnswers) {
var retVal = 0;
for (var j=0;j<inAnswers.length;j++)
{
if (Contains(inQIdx, inAnswers[j])) { retVal++; }
}
return retVal;
}
/* Nome da Função: IsContainsTopicsValues
Programador: Clayton
Data: 27/05/2013
Descrição: Checa se há valores nos Tópics
Tipo Quest: Single Topic
Exemplo: IsContainsTopicsValues(CurrQues, [1,2,3,9], [1], false, false);
false, false = Qlqer um dos Tópicos, Qlqer um dos Valores
true, false = Todos os Tópicos, Qlqer um dos Valores
true, true = Todos os Tópicos, Todos os Valores
*/
function IsContainsTopicsValues(inQIdx, inTopics, inAnswers, inAllTopics, inAllAnswers) {
var retVal = false;
var intValTopic = 0;
var intValAnswer = 0;
for (var tpc=0;tpc<inTopics.length;tpc++)
{
if (!inAllTopics && !inAllAnswers)
{
for (var ans=0;ans<inAnswers.length;ans++)
{
if (AnswerChoice(inQIdx, inTopics[tpc])==inAnswers[ans]) { retVal=true; break; }
}
}
if (inAllTopics)
{
if (IsContainsOneOfTopics(inQIdx, inTopics[tpc], inAnswers)) { intValTopic++; }
}
if (inAllAnswers)
{
for (var ans=0;ans<inAnswers.length;ans++)
{
if (AnswerChoice(inQIdx, inTopics[tpc])==inAnswers[ans]) { intValAnswer++; }
}
}
}
if (inAllTopics && intValTopic==inTopics.length) { retVal=true; }
if (inAllAnswers && intValAnswer==inAnswers.length) { retVal=true; }
if ((inAllAnswers && intValAnswer==inAnswers.length) && (inAllTopics && intValTopic==inTopics.length)) { retVal=true; }
return retVal;
}
/* Nome da Função: IsGetTopicsTextWithValues
Programador: Clayton
Data: 04/06/2013
Descrição: Exibe o Texto dos Topics que Tem um determinado valor
Tipo Quest: Single Grid
Exemplo: IsGetTopicsTextWithValues(QRef(1), [1,2,3,4], [QRef(1),QRef(2)], [4,5]);
Se não tiver Outros, coloque 0 IsGetTopicsTextWithValues(QRef(1), [1,2,3,4], [0], [0]);
*/
function IsGetTopicsTextWithValues(inQIdx, inAnswers, inOuts, inAnswersOuts) {
var retVal = "";
var txtOut = "";
var ans = 0;
for (var tpc=1;tpc<=GetTopicCount(inQIdx);tpc++)
{
if (IsContainsOneOfTopics(inQIdx, tpc, inAnswers))
{
if (tpc==inAnswersOuts[ans])
{
txtOut = AdditionalText(inOuts[ans]) + Answer(inOuts[ans]);
retVal += txtOut+", ";
ans++;
}
else
{
retVal += GetTopicOriginalText(inQIdx, tpc)+", ";
}
}
}
return retVal.substring(0, retVal.length-2);
}
/* Nome da Função: IsGetIdxTopicsWithValues
Programador: Clayton
Data: 06/06/2013
Descrição: Exibe os IDXs dos Topics que Tem um determinado valor
Tipo Quest: Single Grid
Exemplo: IsGetIdxTopicsWithValues(QRef(1), [1,2,3,4]);
*/
function IsGetIdxTopicsWithValues(inQIdx, inAnswers) {
var retVal = new Array();
var i = 0;
for (var tpc=1;tpc<=GetTopicCount(inQIdx);tpc++)
{
if (IsContainsOneOfTopics(inQIdx, tpc, inAnswers))
{
retVal[i] = tpc; i++;
}
}
return retVal;
}
/* Nome da Função: IsRandomAnswersWithExclusive
Programador: Clayton
Data: 06/03/2013
Descrição: Retorna as opções e rodízio e fixa determinados índices no fim da lista
Tipo Quest: Single
Exemplo: IsRandomAnswersWithExclusive(CurrQues, [10,11], false);
inSet = true somente se for para setar a ordem do rodízio, se for para exibição deixe false;
*/
function IsRandomAnswersWithExclusive(inQIdx, inExcludeRandom, inSet)
{
var retVal = new Array();
var inAnswersIdx = new Array();
var j = 0;
for (var i=1;i<=GetAnswerCount(inQIdx);i++)
{
if (!InArray(i, inExcludeRandom))
{
inAnswersIdx[j] = i; j++;
}
}
inAnswersIdx = RandomizeArray(inAnswersIdx);
j = 0;
for (var i=0;i<GetAnswerCount(inQIdx);i++)
{
if (i<inAnswersIdx.length) { retVal[i] = inAnswersIdx[i]; }
else { retVal[i] = inExcludeRandom[j]; j++; }
}
if (!inSet)
{ RandomizeAnswers(inQIdx, retVal); }
else if (inSet)
{ return retVal; }
}
/* Nome da Função: IsRangeTopics
Programador: Clayton
Data: 17/05/2013
Descrição: Retorna a soma dos valores em questões Topics
Tipo Quest: Topics
Exemplo: IsRangeTopics(QRef(5), 1,5)>0;
*/
function IsRangeTopics(inQIdx, inTpcIn, inTpcEnd) {
var retVal = 0;
for (var j = inTpcIn; j <=inTpcEnd; j++) {
if (AnswerChoice(inQIdx, j)>= 0) {
retVal += AnswerChoice(inQIdx, j); }
}
return retVal;
}
/* Nome da Função: IsSortAnswersWithExclusive
Programador: Clayton
Data: 06/03/2013
Descrição: Retorna as opções em ordem de indice e fixa determinados índices no fim da lista
Tipo Quest: Single
Exemplo: IsSortAnswersWithExclusive(CurrQues, [10,11]);
*/
function IsSortAnswersWithExclusive(inQIdx, inExcludeRandom)
{
var retVal = new Array();
var inAnswersIdx = new Array();
var j = 0;
for (var i=1;i<=GetAnswerCount(inQIdx);i++)
{
if (!InArray(i, inExcludeRandom))
{
inAnswersIdx[j] = i; j++;
}
}
j = 0;
for (var i=0;i<GetAnswerCount(inQIdx);i++)
{
if (i<inAnswersIdx.length) { retVal[i] = inAnswersIdx[i]; }
else { retVal[i] = inExcludeRandom[j]; j++; }
}
RandomizeAnswers(inQIdx, retVal);
}
/* Nome da Função: IsContainsAnyIterRange
Programador: Clayton
Data: 09/08/2013
Descrição: Buscar Valor no Iter
Tipo Quest: Single e Multiple
Exemplo: IsContainsAnyIterRange(CurrQues, 1, 10);
*/
function IsContainsAnyIterRange(inQIdx, inBegin, inEnd)
{
var retVal = false;
for (var j=inBegin; j<=inEnd; j++)
{
if (ContainsAnyIter(inQIdx, j))
{
retVal = true;
break;
}
}
return retVal;
}
/* Nome da Função: IsSetTextCod
Programador: Clayton
Data: 14/08/2013
Descrição: Setar código(indíce) no lugar do label
Tipo Quest: Answer e Tópic
Exemplo: IsSetTextCod(inQIdx, inTopic)
*/
function IsSetTextCod(inQIdx, inTopic)
{
if (inTopic)
{
for (var j=1;j<=GetTopicCount(inQIdx);j++)
{
SetTopicText(inQIdx, j, ""+j+"");
}
}
else
{
for (var j=1;j<=GetAnswerCount(inQIdx);j++)
{
SetAnswerText(inQIdx, j, ""+j+"");
}
}
}
/* Nome da Função: IsRemoveAcento
Programador: Internet
Data: 21/08/2013
Descrição: Remove os Acentos da String
Tipo Quest: String
Exemplo: IsRemoveAcento("São Paulo");
*/
function IsRemoveAcento(strToReplace)
{
var str_acento= "áàãâäéèêëíìîïóòõôöúùûüçÁÀÃÂÄÉÈÊËÍÌÎÏÓÒÕÖÔÚÙÛÜÇ";
var str_sem_acento = "aaaaaeeeeiiiiooooouuuucAAAAAEEEEIIIIOOOOOUUUUC";
var nova="";
for (var i = 0; i < strToReplace.length; i++)
{
if (str_acento.indexOf(strToReplace.charAt(i)) != -1) {
nova+=str_sem_acento.substr(str_acento.search(strToReplace.substr(i,1)),1);
} else {
nova+=strToReplace.substr(i,1);
}
}
return nova;
}
/* Nome da Função: IsSetValuesRandom
Programador: Clayton/Carla
Data:
Descrição: Escolhe X valores rodiziado com base nos parametros de X a X
Tipo Quest: Single
Exemplo: IsSetValuesRandom(CurrQues, 1, 1, 4, 0)
*/
function IsSetValuesRandom(inSet, inSize, inMin, inMax, inIgnore)
{
if (NotAnswered(inSet))
{
do {
var arraySort = new Array();
arraySort = CreateRandomArray(inSize, inMin,inMax);
} while (IsRangeOneOfVars(inMin, inMax,[inIgnore],false) && IsAnyOneOfVars([inIgnore],[arraySort[0],arraySort[1]],false));
var inAns = new Array();
for (var j=0;j<inSize;j++)
{
inAns[j] = arraySort[j];
}
SetAnswer(inSet, inAns);
}
}
/* Nome da Função: IsCheckIntCompra
Programador: Clayton
Data: 04-11
Descrição: Checar Intenção de Compra entre Marca Mãe e Variante
Tipo Quest: Loop Single/Multiple
Exemplo:
*/
function IsCheckIntCompra(inQIdxMae, inIdxCodMae, inQIdxVar, inIdxCodVarIn, inIdxCodVarFim)
{
var retVal = false;
var i = 0;
var k = 0;
for (var j=inIdxCodVarIn;j<=inIdxCodVarFim;j++)
{
if (AnsweredIter(inQIdxVar, j))
{
k++;
if (AnswerIter(inQIdxVar, j)>AnswerIter(inQIdxMae, inIdxCodMae))
{
i++;
}
}
}
if (i == k)
{
Prompt("As variantes de "+IterationName+" não podem ter respostas maior do que "
+AnswerIter(inQIdxMae, inIdxCodMae)+" para todas");
retVal = true;
}
return retVal;
}
/* Nome da Função: IsCheckOrdemSelOutros
Programador: Clayton
Data: 02/12/2013
Descrição: Checar se os outros foram selecionados na Ordem Outros 1, Outros 2, etc.
Tipo Quest: RU/RM
Exemplo: IsCheckOrdemSelOutros(CurrQues, 3, 12);
*/
function IsCheckOrdemSelOutros(inQues, inQtdeOuts, inIdxOut1)
{
var retVal = false;
var i = 2;
for (var j=inIdxOut1+1;j<inIdxOut1+inQtdeOuts;j++)
{
if (IsAnswerVisible(inQues, j) && IsAnswerVisible(inQues, j-1) && Contains(inQues, j) && !Contains(inQues, j-1))
{
Prompt("Por favor, escolha na Ordem Outros "+(i-1)+", Outros "+i+", etc.");
retVal = true;
break;
}
i++;
}
return retVal;
}
/* Nome da Função: IsCheckEspEst (falta testar)
Programador: Clayton
Data: 04/12/2013
Descrição: Checar se o que foi mencionado no Espontâneo está no estimulado, com a possibilidade de Ignorar NH/NS
Tipo Quest: RU/RM/Grid
Exemplo: IsCheckEspEst([QRef(2), QRef(3)], CurrQues, false, [11]);
*/
function IsCheckEspEst(inEsps, inEst, inGridEst, inIgnore)
{
var retVal = false;
for (var i=0;i<inEsps.length;i++)
{
for (var j=1;j<=GetAnswerCount(inEsps[0]);j++)
{
if (!InArray(j, inIgnore))
{
if (inGridEst)
{
if (IsTopicVisible(inEst, j) && Contains(inEsps[i], j) && !ContainsSpecificRate(inEst, 1, j))
{
Prompt("Em "+VarName(inEsps[i])+" selecionou a opção "+GetAnswerOriginalText(inEsps[i], j)+" devendo selecioná-la nesta questão. Verifique!");
retVal = true;
}
} else {
if (IsAnswerVisible(inEst, j) && Contains(inEsps[i], j) && !Contains(inEst, j))
{
Prompt("Em "+VarName(inEsps[i])+" selecionou a opção "+GetAnswerOriginalText(inEsps[i], j)+" devendo selecioná-la nesta questão. Verifique!");
retVal = true;
}
}
}
if (retVal) { break; }
}
if (retVal) { break; }
}
return retVal;
}
/* Nome da Função:
Programador:
Data:
Descrição:
Tipo Quest:
Exemplo:
*/
function dblColorFromRGB(red, green, blue){
return (255<<24)+ (red<<16) + (green<<8) + blue;
}
function dblDistanceFromGPSFence (fenceLat, fenceLon)
{
var pi = Math.PI;
var fenceLatInRad=fenceLat* pi / 180;
var fenceLonInRad=fenceLon* pi / 180;
var targetLatInRad = GetGPSLocation().Latitude * pi / 180;
var targetLonInRad = GetGPSLocation().Longitude * pi / 180;
var dist = Math.acos(Math.sin(targetLatInRad) * Math.sin(fenceLatInRad) + Math.cos(targetLatInRad) * Math.cos(fenceLatInRad) * Math.cos(targetLonInRad - fenceLonInRad)) * 6371;
var retVal;
retVal=dist;
return retVal;
}
function dblIsInGPSFence (fenceLat, fenceLon, distInKM)
{
var dist = dblDistanceFromGPSFence(fenceLat, fenceLon);
var retVal = false;
if(dist<distInKM){
retVal=true;}
else{
retVal=false;
}
return retVal;
}
function dblSumNumericGrid(inQ)
{
var retVal=0;
var numOfTopics=GetTopicCount(inQ);
var i;
for(i=1; i<=numOfTopics; i++)
{
if (IsTopicVisible(inQ,i)) {
retVal+=AnswerChoice(inQ,i);
}
}
return retVal;
}
function dblContainsOneOf(inQTarget,inAnswers)
{
var retVal = false;
var numOfAnswers = inAnswers.length;
var i;
for (i=0;i< numOfAnswers;i++) {
if (Contains(inQTarget,inAnswers[i])) {
retVal = true;
break;
}
}
return retVal;
}
//function dblContainsAll(inQTarget,inAnswers)
//{
// var retVal = true;
// var numOfAnswers = arguments.length-1;
// var i;
// for (i=0;i< numOfAnswers;i++) {
// retVal = retVal && Contains(inQTarget,arguments[i+1]);
// }
// return retVal;
//}
function dblContainsAllOf(inQTarget,inAnswers)
{
var retVal = true;
var numOfAnswers = inAnswers.length;
var i;
for (i=0;i< numOfAnswers;i++) {
retVal = retVal && Contains(inQTarget,inAnswers[i]);
}
return retVal;
}
function dblNumOfTopicsContains(inQ, inValueToCheck)
{
var retVal = 0;
var i=0;
for (i=1; i<=GetTopicCount(inQ);i++){
if (IsTopicVisible(inQ,i) && AnswerChoice(inQ,i) == inValueToCheck) {
retVal++;
}
}
return retVal;
}
function dblNumOfIterContains(inQ, inValueToCheck)
{
var retVal = 0;
var i=0;
for (i=1; i<IterationIndex;i++){
if (ContainsIter(inQ,inValueToCheck,i)) {
retVal++;
}
}
return retVal;
}
function dblSetSpecificTopic(inQ, inTopicIndex, inValue)
{
var curTopics = GetTopicCount(inQ);
var newAnswers=new Array();
var newArIdx=0;
var i;
for (i=0;i< curTopics;i++) {
var actualTopic = i+1;
if (actualTopic == inTopicIndex) {
newAnswers[i] = inValue;
}
else {
newAnswers[i] = AnswerChoice(inQ,actualTopic);
}
}
SetAnswer(inQ,newAnswers);
}
function dblSetSpecificAnswer(inQ, inAnswerIdx, inChecked)
{
var curAnswers = GetAnswers(inQ);
var newAnswers=new Array();
var newArIdx=0;
var i;
for (i=0;i< curAnswers.length;i++) {
if (curAnswers[i] != inAnswerIdx) {
newAnswers[newArIdx] = curAnswers[i];
newArIdx++;
}
}
if (inChecked) {
newAnswers[newArIdx] = inAnswerIdx;
}
if (newAnswers.length > 0) {
SetAnswer(inQ,newAnswers);
}
else {
ClearAnswer(inQ);
}
}
function dblSetAnswersByAnswers(inQTarget,inQids)
{
var numOfQues = inQids.length;
var numOfAnswers = GetAnswerCount(inQids[0]);
var i;
for (i=1;i<= numOfAnswers;i++) {
var contained = false;
var j;
for (j=0; j<numOfQues;j++) {
contained = Contains(inQids[j],i);
if (contained) {
break;
}
}
if (contained) {
dblSetSpecificAnswer(inQTarget, i,true);
}
}
}
function dblSetAnswersByAnswersEx (inQTarget,inQids,inExcludeHiddenTargetAnswers)
{
var numOfQues = inQids.length;
var numOfAnswers = GetAnswerCount(inQids[0]);
var i;
// go over all answers and for each check if it exists in the source questions
for (i=1;i<= numOfAnswers;i++) {
var contained = false;
var j;
// go over all source questions and check if the answer is checked
for (j=0; j<numOfQues;j++) {
contained = Contains(inQids[j],i);
if (contained) {
break;
}
}
// in case it was contained check if need to add to target question
if (contained) {
var addAnswer = true;
if ((inExcludeHiddenTargetAnswers) && !IsAnswerVisible(inQTarget,i)) {
addAnswer = false;
}
if (addAnswer) {
dblSetSpecificAnswer(inQTarget, i,true);
}
}
}
}
function dblSumOfTopics (inQuesIdx)
{
var retVal = 0;
var i;
var numOfTopics = GetTopicCount(inQuesIdx);
for (i=0;i<numOfTopics;i++) {
var currTopic = i+1;
if (IsTopicVisible (inQuesIdx, currTopic)) {
var currValue = AnswerChoice(inQuesIdx, currTopic);
if (currValue != -99999) {
retVal += currValue;
}
}
}
return retVal;
}
function dblFormatNumberToCurrency(num) {
var retVal = "";
var num = num.toString().replace(/\$|\,/g,'');
if(isNaN(num))
num = "0";
var sign = (num == (num = Math.abs(num)));
num = Math.floor(num*100+0.50000000001);
var cents = num%100;
num = Math.floor(num/100).toString();
var addZero = "";
if(cents<10) {
addZero = "0";
}
for (var i = 0; i < Math.floor((num.length-(1+i))/3); i++) {
num = num.substring(0,num.length-(4*i+3))+','+num.substring(num.length-(4*i+3));
}
retVal = (((sign)?'':'-') + '$' + num + '.' +addZero+ cents)
return retVal;
}
function dblToFloat(inNumber)
{
var retVal = parseFloat(inNumber.toString().replace(",", "."));
return retVal;
}
function dblSetAnswerVisible(inQTarget,inValue,inReset,inAnswers)
{
var retVal = false;
var numOfAnswers = inAnswers.length;
var i;
if (inReset) {
SetAnswerVisible(CurrQues,true);
}
for (i=0;i< numOfAnswers;i++) {
SetAnswerVisible(inQTarget, inAnswers[i], inValue);
}
return retVal;
}
function dblContainsByText(inQIdx, inText)
{
var retVal = false;
var i=0;
for (i=0; i<GetAnswerCount(inQIdx); i++){
var idx = i+1;
var text = AnswerText(inQIdx,idx);
if (text == inText) {
if (Contains(inQIdx,idx)) {
retVal = true;
break;
}
}
}
return retVal;
}
function dblFilterAnswersByAnswersByText (inTargetQ, inShow,inSourceQ)
{
SetAnswerVisible(inTargetQ,!inShow);
var i =0;
for (i=0; i<GetAnswerCount(inTargetQ);i++){
var idx = i+1;
var text = AnswerText(inTargetQ,idx);
if (dblContainsByText(inSourceQ,text)) {
SetAnswerVisible(inTargetQ,idx,inShow);
}
}
return true;
}
function dblFilterTopicsByAnswersByText (inTargetQ, inShow, inSourceQ)
{
SetTopicVisible(inTargetQ,!inShow);
var i=0;
for (i=0; i<GetTopicCount(inTargetQ); i++){
var idx = i+1;
var text = GetTopicOriginalText(inTargetQ,idx);
if (dblContainsByText(inSourceQ,text)) {
SetTopicVisible(inTargetQ,idx,inShow);
}
}
return true;
}
function dblGetSubjectStoreRow(inStoreName,inIDColumnName,inID)
{
var retVal = null;
try {
var table = GetTableFromStore(inStoreName,"","@@"+inIDColumnName+"='"+inID+"'","");
if (table != null && table.RowCount >0) {
var row = table[0];
retVal = row;
}
}
catch(err)
{
retVal = null;
}
return retVal;
}
function dblIsRegEx (pattern,value) {
var pattern = new RegExp(pattern);
return pattern.test(value);
}
function dblDateToSQLDate(inDate)
{
var retVal = "";
retVal = inDate.Year+"-"+inDate.Month+"-"+inDate.Day;
return retVal;
}
function dblOrderArray(inOrderArray, inDataArray)
{
var retVal = CreateRandomArray(inOrderArray.length);
var i = 0;
for (i = 0; i < inOrderArray.length; i++) {
retVal[i] = inDataArray[inOrderArray[i]-1];
}
return retVal;
}
function dblRespondentID ()
{
var retVal = "".concat("D", SID, "-", DeviceIndex);
return retVal;
}
/*_@_USERCODE_END_@*/
//_@_AddHandler_@{ Begin Add Handlers
//_@_AddHandler_@} End Add Handlers
//_@_HandlerZone_@{
function
IterationEnter_3()
{
return (IterationIndex <= Answer(2));
}
function QuestionEnd_4()
{
if (IterationIndex == Answer(2)) {
var NumOfAdults = Answer(2);
//Prompt("NumOfChildren:"+ NumOfChildren);
var kishLineString = AnswerText(1,NumOfAdults);
//Prompt("kishLineString:"+ kishLineString);
var kishLineArray = StringToIntArray(kishLineString);
var curInterviewID = DeviceIndex;
//Prompt("curInterviewID:"+ curInterviewID);
var lastDigitOfInterview = curInterviewID.ToString().substring(curInterviewID.ToString().length-1,curInterviewID.ToString().length);
//Prompt("lastDigitOfInterview:"+ lastDigitOfInterview);
var finalOneBasedIndex = lastDigitOfInterview == 0 ? 10 : lastDigitOfInterview;
//Prompt("finalOneBasedIndex:"+ finalOneBasedIndex);
var kishIdx = kishLineArray[finalOneBasedIndex - 1];
//Prompt("kishIdx:"+ kishIdx);
Prompt(kishIdx);
SetAnswer(6,kishIdx);
}
}
function QuestionStart_4()
{
SetTextFormat(CurrQues,Answer(CurrQues-1));
}
function QuestionStart_6()
{
SetTextFormat(CurrQues,AnswerIter(4,Answer(6).ToInt()).ToString());
}
function QuestionExpression_5()
{
return (Answer(CurrQues));
}
//_@_HandlerZone_@}
function JSDBLInitAllScript()
{
}var eJumpQuestionResult = {ejqrNext:0, ejqrSubmit:1,ejqrCancel:2,ejqrFilter:3,ejqrNone:4,ejqrIndex:5,ejqrChapter:6};
var ePlatform = {None:0, Web:1, PC:2, PDA:4, MobileWeb:8, SmartPhone:16, Android:32, AllWindows:31, AllJSEnabled: 34, All:63};
var eAttachmentSource = {easDefault:0};
var eAskButtons = {OKCancel:0, YesNoCancel:1, YesNo:2};
var eAskResult = {None:0, OK:1, Yes:2, No:3, Cancel:4};
var eQuotaFilledResult = {Default:0,Filter:1,Cancel:2,Nothing:3};
var eExtraLabel = { MatrixLower:0, MatrixMiddle:1, MatrixUpper:2, MatrixIrrelevant:3, ScaleLower:4, ScaleMiddle:5, ScaleUpper:6, CountersTotal:7,CountersRemaining:8, NumericGridTotal:9, NumericGridRemaining:10 };
</Source>
</UserLogicContents>FalseFalseFalse-101.32.0.0AAEAAAD/////AQAAAAAAAAAMAgAAAEdVc2VyTG9naWNDcmVhdG9yLCBWZXJzaW9uPTEuMC4xLjMsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49bnVsbAUBAAAAKVN1cnZleVRvR28uVXNlckxvZ2ljLkNyZWF0b3IuQXNzZW1ibHlEYXRhEAAAAAZtVGFibGUNbVN1cnZleUNvbnN0cw9tU3VydmV5U25pcHBldHMNbUNoYXB0ZXJUYWJsZQ1tTGFzdEJ1Y2tldElEEW1MYXN0TWV0YUJ1Y2tldElED21TdXJ2ZXlJbml0Q29kZRBtU3VydmV5QmxvY2tDb2RlEW1MYXN0TGlzdFNvdXJjZUlEE21MYXN0Q3VzdG9tQWN0aW9uSUQHbUZsYXZvcg5tVXNlR2xvYmFsQ29kZQttVXNlT3JnQ29kZQ5tU3RyaWN0SlNDaGVjaxdtTGFzdEF0dGFjaG1lbnRTb3VyY2VJRA5tU3VydmV5TmF2Q29kZQMDAwMAAAEBAAAEAAAAAAEeU3lzdGVtLkNvbGxlY3Rpb25zLkhhc2h0YWJsZVtdHFN5c3RlbS5Db2xsZWN0aW9ucy5IYXNodGFibGUeU3lzdGVtLkNvbGxlY3Rpb25zLkhhc2h0YWJsZVtdHlN5c3RlbS5Db2xsZWN0aW9ucy5IYXNodGFibGVbXQgICAgkU3VydmV5VG9Hby5Vc2VyTG9naWMuQ3JlYXRvci5lRmxhdm9yAgAAAAEBAQgCAAAACQMAAAAJBAAAAAkFAAAACQYAAAABAAAAAgAAAAYHAAAAAAkHAAAAAQAAAAEAAAAF+P///yRTdXJ2ZXlUb0dvLlVzZXJMb2dpYy5DcmVhdG9yLmVGbGF2b3IBAAAAB3ZhbHVlX18ACAIAAAACAAAAAQEBAQAAAAkHAAAABwMAAAAAAQAAAAYAAAADHFN5c3RlbS5Db2xsZWN0aW9ucy5IYXNodGFibGUJCQAAAAkKAAAACQsAAAAJDAAAAAkNAAAACQ4AAAAEBAAAABxTeXN0ZW0uQ29sbGVjdGlvbnMuSGFzaHRhYmxlBwAAAApMb2FkRmFjdG9yB1ZlcnNpb24IQ29tcGFyZXIQSGFzaENvZGVQcm92aWRlcghIYXNoU2l6ZQRLZXlzBlZhbHVlcwAAAwMABQULCBxTeXN0ZW0uQ29sbGVjdGlvbnMuSUNvbXBhcmVyJFN5c3RlbS5Db2xsZWN0aW9ucy5JSGFzaENvZGVQcm92aWRlcgjsUTg/AAAAAAoKCwAAAAkPAAAACRAAAAAHBQAAAAABAAAABQAAAAMcU3lzdGVtLkNvbGxlY3Rpb25zLkhhc2h0YWJsZQkRAAAACRIAAAAJEwAAAAkUAAAACRUAAAAHBgAAAAABAAAACAAAAAMcU3lzdGVtLkNvbGxlY3Rpb25zLkhhc2h0YWJsZQkWAAAACRcAAAAJGAAAAAkZAAAACRoAAAAJGwAAAAkcAAAACR0AAAABCQAAAAQAAADsUTg/AAAAAAoKCwAAAAkeAAAACR8AAAABCgAAAAQAAADsUTg/AAAAAAoKCwAAAAkgAAAACSEAAAABCwAAAAQAAADsUTg/AAAAAAoKCwAAAAkiAAAACSMAAAABDAAAAAQAAADsUTg/AgAAAAoKCwAAAAkkAAAACSUAAAABDQAAAAQAAADsUTg/BQAAAAoKCwAAAAkmAAAACScAAAABDgAAAAQAAADsUTg/AwAAAAoKCwAAAAkoAAAACSkAAAAQDwAAAAAAAAAQEAAAAAAAAAABEQAAAAQAAADsUTg/AAAAAAoKCwAAAAkqAAAACSsAAAABEgAAAAQAAADsUTg/AAAAAAoKCwAAAAksAAAACS0AAAABEwAAAAQAAADsUTg/AAAAAAoKCwAAAAkuAAAACS8AAAABFAAAAAQAAADsUTg/AAAAAAoKCwAAAAkwAAAACTEAAAABFQAAAAQAAADsUTg/AAAAAAoKCwAAAAkyAAAACTMAAAABFgAAAAQAAADsUTg/AAAAAAoKCwAAAAk0AAAACTUAAAABFwAAAAQAAADsUTg/AAAAAAoKCwAAAAk2AAAACTcAAAABGAAAAAQAAADsUTg/AAAAAAoKCwAAAAk4AAAACTkAAAABGQAAAAQAAADsUTg/AAAAAAoKCwAAAAk6AAAACTsAAAABGgAAAAQAAADsUTg/AAAAAAoKCwAAAAk8AAAACT0AAAABGwAAAAQAAADsUTg/AAAAAAoKCwAAAAk+AAAACT8AAAABHAAAAAQAAADsUTg/AAAAAAoKCwAAAAlAAAAACUEAAAABHQAAAAQAAADsUTg/EAAAAAoKCwAAAAlCAAAACUMAAAAQHgAAAAAAAAAQHwAAAAAAAAAQIAAAAAAAAAAQIQAAAAAAAAAQIgAAAAAAAAAQIwAAAAAAAAAQJAAAAAEAAAAICAUAAAAQJQAAAAEAAAAJRAAAABAmAAAAAgAAAAgIBgAAAAgIBAAAABAnAAAAAgAAAAlFAAAACUYAAAAQKAAAAAEAAAAICAQAAAAQKQAAAAEAAAAJRwAAABAqAAAAAAAAABArAAAAAAAAABAsAAAAAAAAABAtAAAAAAAAABAuAAAAAAAAABAvAAAAAAAAABAwAAAAAAAAABAxAAAAAAAAABAyAAAAAAAAABAzAAAAAAAAABA0AAAAAAAAABA1AAAAAAAAABA2AAAAAAAAABA3AAAAAAAAABA4AAAAAAAAABA5AAAAAAAAABA6AAAAAAAAABA7AAAAAAAAABA8AAAAAAAAABA9AAAAAAAAABA+AAAAAAAAABA/AAAAAAAAABBAAAAAAAAAABBBAAAAAAAAABBCAAAAAQAAAAgIAwAAABBDAAAAAQAAAAlIAAAABUQAAAAvU3VydmV5VG9Hby5Vc2VyTG9naWMuQ3JlYXRvci5RdWVzdGlvbkV4cHJlc3Npb24GAAAAGVF1ZXN0aW9uSW5mbyttUXVlc3Rpb25JZHgWUXVlc3Rpb25JbmZvK21IYXNFcnJvciJRdWVzdGlvbkluZm8rbVF1ZXN0aW9uRGVwZW5kZW5jaWVzIVF1ZXN0aW9uSW5mbyttQ2hhcHRlckRlcGVuZGVuY2llcwNleHAIc2hvcnRFeHAAAAMDAQAIARxTeXN0ZW0uQ29sbGVjdGlvbnMuQXJyYXlMaXN0HFN5c3RlbS5Db2xsZWN0aW9ucy5BcnJheUxpc3QBAgAAAAUAAAAACUkAAAAJSgAAAAZLAAAAGnJldHVybiAoQW5zd2VyKEN1cnJRdWVzKSk7AAVFAAAAK1N1cnZleVRvR28uVXNlckxvZ2ljLkNyZWF0b3IuUXVlc3Rpb25BY3Rpb24FAAAAGVF1ZXN0aW9uSW5mbyttUXVlc3Rpb25JZHgWUXVlc3Rpb25JbmZvK21IYXNFcnJvciJRdWVzdGlvbkluZm8rbVF1ZXN0aW9uRGVwZW5kZW5jaWVzIVF1ZXN0aW9uSW5mbyttQ2hhcHRlckRlcGVuZGVuY2llcwZBY3Rpb24AAAMDAQgBHFN5c3RlbS5Db2xsZWN0aW9ucy5BcnJheUxpc3QcU3lzdGVtLkNvbGxlY3Rpb25zLkFycmF5TGlzdAIAAAAGAAAAAAlMAAAACU0AAAAGTgAAAENTZXRUZXh0Rm9ybWF0KEN1cnJRdWVzLEFuc3dlckl0ZXIoNCxBbnN3ZXIoNikuVG9JbnQoKSkuVG9TdHJpbmcoKSk7AUYAAABFAAAABAAAAAAJTwAAAAlQAAAABlEAAAArU2V0VGV4dEZvcm1hdChDdXJyUXVlcyxBbnN3ZXIoQ3VyclF1ZXMtMSkpOwFHAAAARQAAAAQAAAAACVIAAAAJUwAAAAZUAAAAugZpZiAoSXRlcmF0aW9uSW5kZXggPT0gQW5zd2VyKDIpKSB7DQoJdmFyIE51bU9mQWR1bHRzID0gQW5zd2VyKDIpOw0KCS8vUHJvbXB0KCJOdW1PZkNoaWxkcmVuOiIrIE51bU9mQ2hpbGRyZW4pOw0KCQ0KCXZhciBraXNoTGluZVN0cmluZyA9IEFuc3dlclRleHQoMSxOdW1PZkFkdWx0cyk7DQoJLy9Qcm9tcHQoImtpc2hMaW5lU3RyaW5nOiIrIGtpc2hMaW5lU3RyaW5nKTsNCgl2YXIga2lzaExpbmVBcnJheSA9IFN0cmluZ1RvSW50QXJyYXkoa2lzaExpbmVTdHJpbmcpOw0KCQ0KCXZhciBjdXJJbnRlcnZpZXdJRCA9IERldmljZUluZGV4Ow0KCS8vUHJvbXB0KCJjdXJJbnRlcnZpZXdJRDoiKyBjdXJJbnRlcnZpZXdJRCk7DQoJDQoJdmFyIGxhc3REaWdpdE9mSW50ZXJ2aWV3ID0gY3VySW50ZXJ2aWV3SUQuVG9TdHJpbmcoKS5zdWJzdHJpbmcoY3VySW50ZXJ2aWV3SUQuVG9TdHJpbmcoKS5sZW5ndGgtMSxjdXJJbnRlcnZpZXdJRC5Ub1N0cmluZygpLmxlbmd0aCk7DQoJLy9Qcm9tcHQoImxhc3REaWdpdE9mSW50ZXJ2aWV3OiIrIGxhc3REaWdpdE9mSW50ZXJ2aWV3KTsNCgkNCgl2YXIgZmluYWxPbmVCYXNlZEluZGV4ID0gbGFzdERpZ2l0T2ZJbnRlcnZpZXcgPT0gMCA/IDEwIDogbGFzdERpZ2l0T2ZJbnRlcnZpZXc7DQoJLy9Qcm9tcHQoImZpbmFsT25lQmFzZWRJbmRleDoiKyBmaW5hbE9uZUJhc2VkSW5kZXgpOw0KCQ0KCXZhciBraXNoSWR4ID0ga2lzaExpbmVBcnJheVtmaW5hbE9uZUJhc2VkSW5kZXggLSAxXTsNCgkvL1Byb21wdCgia2lzaElkeDoiKyBraXNoSWR4KTsNCglQcm9tcHQoa2lzaElkeCk7DQoJU2V0QW5zd2VyKDYsa2lzaElkeCk7DQp9BUgAAAA0U3VydmV5VG9Hby5Vc2VyTG9naWMuQ3JlYXRvci5FbnRlckl0ZXJhdGlvbkNvbmRpdGlvbgUAAAAWQ2hhcHRlckluZm8rbUNoYXB0ZXJJRBVDaGFwdGVySW5mbyttSGFzRXJyb3IhQ2hhcHRlckluZm8rbVF1ZXN0aW9uRGVwZW5kZW5jaWVzIENoYXB0ZXJJbmZvK21DaGFwdGVyRGVwZW5kZW5jaWVzCWNvbmRpdGlvbgAAAwMECAEcU3lzdGVtLkNvbGxlY3Rpb25zLkFycmF5TGlzdBxTeXN0ZW0uQ29sbGVjdGlvbnMuQXJyYXlMaXN0JlN1cnZleVRvR28uVXNlckxvZ2ljLkNyZWF0b3IuQ29uZGl0aW9uAgAAAAIAAAADAAAAAAlVAAAACVYAAAAJVwAAAARJAAAAHFN5c3RlbS5Db2xsZWN0aW9ucy5BcnJheUxpc3QDAAAABl9pdGVtcwVfc2l6ZQhfdmVyc2lvbgUAAAgICVgAAAAAAAAAAAAAAAFKAAAASQAAAAlYAAAAAAAAAAAAAAABTAAAAEkAAAAJWQAAAAIAAAABAAAAAU0AAABJAAAACVoAAAAAAAAAAAAAAAFPAAAASQAAAAlbAAAAAQAAAAEAAAABUAAAAEkAAAAJXAAAAAAAAAAAAAAAAVIAAABJAAAACV0AAAADAAAAAQAAAAFTAAAASQAAAAlcAAAAAAAAAAAAAAABVQAAAEkAAAAJXwAAAAEAAAABAAAAAVYAAABJAAAACWAAAAAAAAAAAAAAAAVXAAAAJlN1cnZleVRvR28uVXNlckxvZ2ljLkNyZWF0b3IuQ29uZGl0aW9uAQAAAAVtVGV4dAECAAAABmEAAAAbSXRlcmF0aW9uSW5kZXggPD0gQW5zd2VyKDIpEFgAAAAAAAAAEFkAAAAEAAAACAgDAAAACAgFAAAADQIQWgAAAAAAAAAQWwAAAAQAAAAICAMAAAANAxBcAAAAAAAAABBdAAAABAAAAAgIAQAAAAgIAAAAAAgIBQAAAAoQXwAAAAQAAAAICAEAAAANAxBgAAAAAAAAAAs=-1362726297721-11203220-1-165536-1-1-10-10054H4sIAAAAAAAEAO29B2AcSZYlJi9tynt/SvVK1+B0oQiAYBMk2JBAEOzBiM3mkuwdaUcjKasqgcplVmVdZhZAzO2dvPfee++999577733ujudTif33/8/XGZkAWz2zkrayZ4hgKrIHz9+fB8/Iv7Hv/cffPx7vFuU6WVeN0W1/Oyj3fHOR2m+nFazYnnx2Ufr9nz74KPf4+jx659o8M/R459Y501LTc+eHt17fNf76/HrdX2ZX5/NjnZ3J/cm2fmn2/vZp+fb+5Ps0+3Jwe7e9u7s4X4229u79+m9/PFd2/zx2ezd0c7ju/jx+E3+rj36vYpmnn5eF7PHd/nvx6+y5UX+RbFEM/u7fpq9O9rdsZ/TX/L56zZfHe3qx/zH4+OyrK6elVXWHj3LyoZw8D6xA3tzvcrxYvD341fFxbw9LouLpXnX++Tx07yZ1sUKzX3k/Y8fP6+u8pqHQ789vuv+fPzVaqW/fptgPr7r/n58+m5armf5zHRq/378el7VLZH9F61//50dmgnzt4zyxbosg0HyB4+/KJqG5vUns3KdH23vPb4bfPD4J7O6yCZl/iJb5Ec/8fsTEYJPHv8+eXPCjAH6uD8ev6j0N4Jof39MP/PjZfM6X2V11pbXBp/e55iwWbVwo7R/6zfUmojVhF+bD7XN53W1Xh1t75qv5W+amTJvCdIOZkN+JaK2dQb67qZ3vb/27F9PqqrcPXpTr5ni9gP35Z6bD/uJfHu2bHcZC/eX/WIPWLg/Hp/VNaF0mS3bk6oEBkDgi6xYfrslkaTfz5qgiem0+zFNefuquqJfK0ek4LPHp0vqdTnNX63LXIZZtOb376wXq7PlecVo2z+oyYo4CpNvKWE/YDH99psvnuN94ryr19OMmGS9aLRt+Bnx/kUxfVZmFw3J6t4+uN9+8PhVvpzlNbGM/E081PlECAh5NER6UiyfZm12dHz82WeP75q/Hj+r8xxNnheLouXhhJ88pmb5m2KRP6vqBck8mCL8hPjlPFuX7eu3xepJPs8ui6oW3ul//JjG9qZaFdPmbPkyu2Cl0f3o8ZftPK9fr/IpSZIRq9//9eO7vc8fn8yzVZvXJMIEx/1BYrRY5Ese9sm6aauFUUzPi+Xbo8NDatz/+PFx22bTOV5s8OZ3c2grjER/e/x6WtUs1vj6edG0r6t1PbV/PS2aVZldmz9ZQeAPGuCX58RV68Wy0QG7vx/z2F/mBGfZYvjUX/cjQmVyUhb012vWjQAazjeLSfejxyLuL7NlXn5bhoD57X/6mNmOCIevze/eAPWb4ANCAKz9pmhFIuTPM8LgHZsQ78/HNJRzw4byBcuYaB7v78ev3jxjHf6Lf9+6Pd/9fc8nxaxoft9s2RS/7yw/P9/5xb/vebVs20lJv+z8vufLovx9z6fzrG7ydid9k82rRXb4S37Jb5z8vpdFfvW2WM72f9/1dPf3JaU5+33Ltqafv29Jtm13596D33fCIJrdB6m1Pmj4Gyf0PqGlmLDUdinY/UzmkAkn37s/O/N0T2W5++lj5R1Hl+AD0mrH07a4NGrF/vn4BaEiEwohICYIPuCvGRv6Q780fz4+WxBv8VDqatWwNxF+8vhs2bT1egoJYYnw/3aY9j/VSRZNtGPm2Com/PGyagq28TtGSdpPtMXzfHnRzt33+neHoPt9xt/3dScLhv+nj5tKjff346+eW7HVX8nuoJn3l/nmaT71vsFfngoJJCfysfBMM/DC4Jcq00PvDX8r/X07z4hSNOQ8U1bufao9kCF8vcqmuQfWfqRNut/rl+RLvGXmf91mgaRHPneNT5ezSFP7Kblhs1mZGy3iVJE1CsX59VdN/nvl19acb240AAPfiU+xGiLywFeP4YJsnNWNDfj1zbO7uQWjfEIylG9CfLBBR7Du9wXr/hFZh5/ohTR732BIs+uHNN+urtJFtrxOsxn5EU1KymmWTvL2Ks+X6e5BSj5rmk2qyzy9mldpVudpWVwSsinNZp5mbUrTmi4qjPL3SG8dFn3DUZFHnfeNir7h8f/QIqu9n5XIau9HkdWPIqtvOrIKnINeWPXpp/9/j6v2boqr9n4UV/2/J67iMP//O3HVN2q//r8em/0oNPv/SWj2o9DsR6HZ/1dCs91vMDTb80OzZ0XdkLM8Ss/SZU5ava3SGc3RjFX5gj5t5tW6nKXFkjwHGI30vKbP23nRpPRNk8+rcjZOT7Jlel2t0wvSlymZfyj8c4BOl+QNNGIhLuiX6jzNypK//yaMSS8YNOFdGAze/4ZjwYdfPxb8Rgk+Ho9/iOHgbjQcFGP5taPBez+KBn8UDf5wo0FdZPv/bzB470fB4P+HgsF7/98KBr9RA/bD9xh+FH7+KPy0uuZHK4M/Cj9/FH7eHH7e/wbDz3t++Pl7/v6/59mb01cvjr84pV/TYyh4NgCPfo4iu3tfP7LbNJYfWox2/2dlyW7/R0Haj4K0H26QttvTTUq+/99Eafs3RWn3fhSl/SxGae8ZpbFD/w1Ead9QeNaPy4bNz49Cnh+FPD8KeX4U8vwo5HmPkOfTbzDk2fdDnl+880s+btLji1iIcxCNcXZ3dszn31CUs/f1oxwf/R9aVPPpz0pUc/9HUc2PopofblTz6af/f49q7v8oqvn/UFRz/5uMavDPdHWxu3d/72cjwvl9f/HO72tsz49Cmh+FNB8a0vwopPlRSPPzKqQ5+AZDmvt+SPN0vVhcP0pfk882JQ9U1ulTNinpJGvok2qZ/l5FM08/r4tZL+yx0c3PctSzu//1w573HeIPLTQ6+FkJjT79UWj0o9Domw6N9jaHRj/cyOiHHxl9elNktP+jyOj/PZERs+P/RyKj9P2s04+Cpx8FTz8Knn4UPP0oeHqP4MmLHT44ePrUD57ezPO0CRV30TxKaZ3l5yxQevj146RNo/mhxUT70ZhIbMrXDoke/Cgk+lFI9E2HRIHZ7oVEe/9/D4ke3BQS3f9RSPT/npDowTcUEp1PilnR/GxERm1NP2MB0oBZ4iWlH4VDPwqHfhQO/Sgc+lE49B7h0O7uNxgPPfDjoeNlhZlJf5FC/zmLgrwRvm8U1B/DDyv2wbz8LKwHHfz/Lfgp8/ZHwc+Pgp+fy+Dn4EfBz/+Hgp+Dn4Xg52cx4OlaoP+vBzn3fhTk/CjI+VGQ86Mg52c1yKF/mqP/B1J2YI8YagAAH4sIAAAAAAAEAO29B2AcSZYlJi9tynt/SvVK1+B0oQiAYBMk2JBAEOzBiM3mkuwdaUcjKasqgcplVmVdZhZAzO2dvPfee++999577733ujudTif33/8/XGZkAWz2zkrayZ4hgKrIHz9+fB8/Iv7Hv/cffPx7vFuU6WVeN0W1/Oyj3fHOR2m+nFazYnnx2Ufr9nz74KPf4+jx6+MXDf979Ph42Vzl9dnTo53Hd+3vj39inTctgaDf7z2+6/31+Gz2Dk3x4/Gb/F17tDvq/ff4Ln/z+PW8qlt6KVv+/js79+j/9I35zHUhAP0/H/9kVhfZpMxfZIv86Pj33/396cXgs8cnPKQj+lx/e/x6XV/m1wR5d3dyb5Kdf7q9n316vr0/yT7dnhzs7m3vzh7uZ7O9vXuf3ssJD9P88dO8zNt8BiTMr4+/s16szpbn1dE29WD/eHz6rq0zjG03vat/PamqcvfoWVY2BNT7RL49W7a7AOz+UMy/Wp7M8+lb6bb7kbYxf9pB2u+BwrfffPEcWDwrs4sGUOSXx1+287x+vcqnRDCm1WuhX+9z6mWxyJctgHw3Ly7mLaDob49fT6s6xwfyy+Oz5vU0K3MzUvPn41f5iiYUCAHOq/yyyK/cX/jubDnL3zEh/b8fv8zr87DhSVVWtddQ/n78tGhWZXbtvg0+IMSOp21xmR+9qdeMmP75+Mu6uCiWWcmI0kTj1e5nj1/WeZMTJ8z8Vr0PH58tsosc2L6sqxVTu/OJtDibYTRfPf/JrFzn3q8083jH+8t88zSfet/gr8evsuWsWnxeV+uVEMP7Wyll59z/k6YKAh1K9e7tpXrXl+o9kuPw/3uDUr33daV6b0Cq934k1beS6r0fSfXPT6neu71U74W2em90bxT8OyjV976uVN8bkOp7P5LqW0n1vR9J9c9Pqb53e6m+15fqfZVo/jko1ftfV6r3B6R6/0dSfSup3v+RVP/8lOr920v1vi/V+6P7VqL1t0Gpvv91pfr+gFTf/5FU30qq7/9Iqn9+SvX920v1/a5Uf+rJ9SYP/NOvK9WfDkj1pz+S6ltJ9ac/kuqfn1L96e2l+lNfqkWWPx09cJI9KNUPvq5UPxiQ6gfK8D+S6s1S/eBHUv3zU6of3F6qH8Sl+sDI9aBUH3xdqT4YkOqDH0n1raT64EdS/fNTqg9uL9UH4cqWL9cPN2bLHn5dqX44INUPfzal+v9HUv3wR1L981OqH95eqh/GcuCeXA9J9e7O15VqvBkVa3zxI2t9C7kGoX4k2D8fBXtnQLB3d/uSveNLdpbFBHl3l4R5d0CQH2wW5IPff3dIjn8kxrcQY6bfj6T456MU776HFO/6UjyZDErx3teV4r0BKd77kRTfSor3fiTFPz+leO89pHjPl+LpdFCK731dKb43IMX3fiTFt5LieyrFP5Lin2dSPOhR3+BQ7zZtR4oxHF9It30QXaFF4/8fucvjWwipa/N1xXTn67vM6LwjqEYcfiSn35icjt1337ykDnrNNzjNe8vZNySp/39wiX9Ykvq13eIfSer/5yV10DO+wTG+V39Tkvr/B7f3hyWpX9v1/ZGk/n9eUu/dXlLv+ZK6386/IUnd/5Gk3lpS938kqT/7kvr/Ukndv72k7vuSev8bk9T7P5LUW0vq/R9J6s9bSb1/e0m970vqp9+YpH76I0m9taR++iNJ/XkrqZ/2JHVQUj/1JfXBNyapD34kqbeW1Ac/ktSft5L64PaS+sCX1INvTFIPfiSpt5bUgx9J6s9bST24vaQe+JL68BuT1Ic/ktRbS+rDH0nqz1tJfXh7SX3oS+ruzjcmqruWhX8kqzfKKoj1I2H9eSOs+Lc5+n8AYk4z4I5WAAA=H4sIAAAAAAAEAO29B2AcSZYlJi9tynt/SvVK1+B0oQiAYBMk2JBAEOzBiM3mkuwdaUcjKasqgcplVmVdZhZAzO2dvPfee++999577733ujudTif33/8/XGZkAWz2zkrayZ4hgKrIHz9+fB8/Iv7Hv/cffPx7vFuU6WVeN0W1/Oyj3fHOR2m+nFazYnnx2Ufr9nz74KPf4+jx6zdVk949+n8AZjUmjDEAAAA=H4sIAAAAAAAEAO29B2AcSZYlJi9tynt/SvVK1+B0oQiAYBMk2JBAEOzBiM3mkuwdaUcjKasqgcplVmVdZhZAzO2dvPfee++999577733ujudTif33/8/XGZkAWz2zkrayZ4hgKrIHz9+fB8/Iv7Hv/cffPx7vFuU6WVeN0W1/Oyj3fHOR2m+nFazYnnx2Ufr9nz74KPf4+jx65MG/xw9Pnt6tPP4Lv37+EW2yI++90VWLNOTebZq8/r7j+/yh49fr+vL/Joa7e5O7k2y80+397NPz7f3J9mn25OD3b3t3dnD/Wy2t3fv03v547u2+eOneZm3+QxdmF8fv8zqfNnSt9u7j+/aPx4/ry6K6bMyu2jQ2vvr8at8Octr+eP+47v+n9RBM62LVUuDPXozL5qU/tfO87SuqjadyjDS6jzNypI//0XrvEHj5m6znmxrA3pryd82jPjoN05+4+T3qdbpNFumS4JT54vqMqcWBFxfGaXZcsZQHUQLbbFu2nSSp2sgGrw29kEvaFLOr9OibdJVXa3yui3yJt1aEslH6cwNbJS2+bs2zdvp+A7o6Eb8+A2+uHv0+PRdW2dPqqrcPXqWlQ3NgfeJ+3bv6E299r/c0y/Plu0uz4f7y36xh/lwfzw+m73jpvjJCHz7zRfPgcRJtVjQZOLX7+bFxbzFi/rb49fTqs7BTfj6Vb6q6vYka/OLqr7uMV3na23+pmhLfvuL7N0ZNcyYBMAk+ODx86JpX1frepqfzfjr4APG+GW2zMtvC2Zo0f3s8as3zwxpX9FEV4vP62q94rb+34/PmuNpW1zmSlf7Z4Bj86Y6fYcR9JB135DQnFiB3PUE8vcqmnn6Jl+sSiLHz6487nyj4gja/Vyx5843yZ2dGfh/DXMe/eLft27Pd3/f80kxK5rfN1s2Bf8zXV3s7t2///vO8vPzHfxbZsuL3Z17D37x73teLdt2UtIvO7/v+bIof99z0kt1k7c76ZtsXi2yw1/yS37j5Pe9LPKrt8Vytv/7rqe7v+8qq2e/b9nW9PP3nfCbze4DfPobJ9SYCKLo/FxIyp4nKaxEhNV/JCe3k5NvVIsH9P+RlPy/SErueVJyPFuX5HA8zdusKJufXUHZGxCUvU8/3dv//5607H2T0tKdh29QYL4RefnZFZT/t0nIftfjOsnK6brkV35uZOT/e+Jx75sUj/4kfIMC8iOL8qHyct+TlxMaXLEE8B/JyW3kZP+blBNH/P/XycfPrmD8v0Yi7iKV9v8ApwD0V3kTAAA=H4sIAAAAAAAEAO29B2AcSZYlJi9tynt/SvVK1+B0oQiAYBMk2JBAEOzBiM3mkuwdaUcjKasqgcplVmVdZhZAzO2dvPfee++999577733ujudTif33/8/XGZkAWz2zkrayZ4hgKrIHz9+fB8/Iv7Hv/cffPx7vFuU6WVeN0W1/Oyj3fHOR2m+nFazYnnx2Ufr9nz74KPf4+jx6ycvmvTu0f8DVNIIpTEAAAA=H4sIAAAAAAAEAO29B2AcSZYlJi9tynt/SvVK1+B0oQiAYBMk2JBAEOzBiM3mkuwdaUcjKasqgcplVmVdZhZAzO2dvPfee++999577733ujudTif33/8/XGZkAWz2zkrayZ4hgKrIHz9+fB8/Iv7Hv/cffPx7vFuU6WVeN0W1/Oyj3fHOR2m+nFazYnnx2Ufr9nz74KPf4+jx6+M3TXr36P8B2S/MCTEAAAA=H4sIAAAAAAAEAO29B2AcSZYlJi9tynt/SvVK1+B0oQiAYBMk2JBAEOzBiM3mkuwdaUcjKasqgcplVmVdZhZAzO2dvPfee++999577733ujudTif33/8/XGZkAWz2zkrayZ4hgKrIHz9+fB8/Iv7Hv/cffPx7vFuU6WVeN0W1/Oyj3fHOR2m+nFazYnnx2Ufr9nz74KPf4+jx69cnXzbp3aP/B1t6G+cyAAAAH4sIAAAAAAAEAO29B2AcSZYlJi9tynt/SvVK1+B0oQiAYBMk2JBAEOzBiM3mkuwdaUcjKasqgcplVmVdZhZAzO2dvPfee++999577733ujudTif33/8/XGZkAWz2zkrayZ4hgKrIHz9+fB8/Iv7Hv/cffPx7vFuU6WVeN0W1/Oyj3fHOR2m+nFazYnnx2Ufr9nz74KPf4+jx65dNevfo/wF1B76WMAAAAA==H4sIAAAAAAAEAO29B2AcSZYlJi9tynt/SvVK1+B0oQiAYBMk2JBAEOzBiM3mkuwdaUcjKasqgcplVmVdZhZAzO2dvPfee++999577733ujudTif33/8/XGZkAWz2zkrayZ4hgKrIHz9+fB8/Iv7Hv/cffPx7vFuU6WVeN0W1/Oyj3fHOR2m+nFazYnnx2Ufr9nz74KPf4+jxq8+b9O7R/wNCnyKPMAAAAA==H4sIAAAAAAAEAO29B2AcSZYlJi9tynt/SvVK1+B0oQiAYBMk2JBAEOzBiM3mkuwdaUcjKasqgcplVmVdZhZAzO2dvPfee++999577733ujudTif33/8/XGZkAWz2zkrayZ4hgKrIHz9+fB8/Iv7Hv/cffPx7vFuU6WVeN0W1/Oyj3fHOR2m+nFazYnnx2Ufr9nz74KPf4+jxyesmvXv0/wA+f8jSMAAAAA==H4sIAAAAAAAEAO29B2AcSZYlJi9tynt/SvVK1+B0oQiAYBMk2JBAEOzBiM3mkuwdaUcjKasqgcplVmVdZhZAzO2dvPfee++999577733ujudTif33/8/XGZkAWz2zkrayZ4hgKrIHz9+fB8/Iv7Hv/cffPx7vFuU6WVeN0W1/Oyj3fHOR2m+nFazYnnx2Ufr9nz74KPf4+jx69cnDf9L/6zry/z67OnR7u7k3iQ7/3R7P/v0fHt/kn26PTnY3dvenT3cz2Z7e/c+vZc/vmubP349zcoc79GH+uvjF9kiP3qxXkzyOq3O0+PZumybx3f548dP82ZaF6uWMEvvHj1+VmYXzdHO47vyC31d5m0+wyfm18dnzfG0LS7zozf1mjq3fz5+kb9rj5fNVV4DA3ol+IAwwtDu8jD/HyQ7/OEWAQAAH4sIAAAAAAAEAO29B2AcSZYlJi9tynt/SvVK1+B0oQiAYBMk2JBAEOzBiM3mkuwdaUcjKasqgcplVmVdZhZAzO2dvPfee++999577733ujudTif33/8/XGZkAWz2zkrayZ4hgKrIHz9+fB8/Iv7Hv/cffPx7vFuU6WVeN0W1/Oyj3fHOR2m+nFazYnnx2Ufr9nz74KPf4+jxTxw36d2j/wdMGPaGMAAAAA==H4sIAAAAAAAEAO29B2AcSZYlJi9tynt/SvVK1+B0oQiAYBMk2JBAEOzBiM3mkuwdaUcjKasqgcplVmVdZhZAzO2dvPfee++999577733ujudTif33/8/XGZkAWz2zkrayZ4hgKrIHz9+fB8/Iv7Hv/cffPx7vFuU6WVeN0W1/Oyj3fHOR2m+nFazYnnx2Ufr9nz74KPf4+jx6+dNevfo/wH2fa4zMAAAAA==H4sIAAAAAAAEAO29B2AcSZYlJi9tynt/SvVK1+B0oQiAYBMk2JBAEOzBiM3mkuwdaUcjKasqgcplVmVdZhZAzO2dvPfee++999577733ujudTif33/8/XGZkAWz2zkrayZ4hgKrIHz9+fB8/Iv7Hv/cffPx7vFuU6WVeN0W1/Oyj3fHOR2m+nFazYnnx2Ufr9nz74KPf4+jx6zd5k949+n8Axy2WxjEAAAA=H4sIAAAAAAAEAO29B2AcSZYlJi9tynt/SvVK1+B0oQiAYBMk2JBAEOzBiM3mkuwdaUcjKasqgcplVmVdZhZAzO2dvPfee++999577733ujudTif33/8/XGZkAWz2zkrayZ4hgKrIHz9+fB8/Iv7Hv/cffPx7vFuU6WVeN0W1/Oyj3fHOR2m+nFazYnnx2Ufr9nz74KPf4+jx6y+eNPwv/bOuL/Prs6dHu7uTe5Ps/NPt/ezT8+39Sfbp9uRgd297d/ZwP5vt7d379F7++K5t/vjJevo2b+m3ncd37e/66Ytskad3jx4/zc+zddn+xLpqM7QL/n785nqV41P++fgn1nnTEtYEZXv38V3vz8cvszpftvqF/ePxV8uTeU7dzY6XzRUN+QnhhV7vysC+mdHtxkd39CK/Sl/P87w13/OntxnxvfcZ8c7tB3yXZ/X/AU/6Bu4FAgAA