TEC_AnnaWSAnnAGetWsContainer.txt

Parm(
in:&WSPlace,
inout:&NextPlace,
inout:&Saudacao,
inout:&CallHash,
out:&json_out);

do 'AnnaParametros'
&LinkWSIntegracao = &TEC_AnnaParamWSIntegracao
&LinkWSCallBack   = &TEC_AnnaParamWSCallBack

&SdtWSContainersContainer = new()
&SdtWSContainersContainer.Type = !'WS'
&SdtWSContainersContainer.WsUrl = &LinkWSIntegracao
&SdtWSContainersContainer.WsCallBackUrl = &LinkWSCallBack
&SdtWSContainersContainer.Alias = &CallHash+!'WS'+TEC_AnnaGetHash.Udp()

if not &WSPlace.IsEmpty()
	&SdtWSContainersPost = new()
	&SdtWSContainersPost.Variable = !'Place'
	&SdtWSContainersPost.Content = &WSPlace
	&SdtWSContainersContainer.Posts.Add(&SdtWSContainersPost)
endif

if not &NextPlace.IsEmpty()
	&SdtWSContainersPost = new()
	&SdtWSContainersPost.Variable = !'NextPlace'
	&SdtWSContainersPost.Content = &NextPlace
	&SdtWSContainersContainer.Posts.Add(&SdtWSContainersPost)
endif

if not &Saudacao.IsEmpty()
	&SdtWSContainersPost = new()
	&SdtWSContainersPost.Variable = !'GoMenu'
	&SdtWSContainersPost.Content = &Saudacao
	&SdtWSContainersContainer.Posts.Add(&SdtWSContainersPost)
endif

&SdtWSContainersPost = new()
&SdtWSContainersPost.Variable = !'PhoneNumber'
&SdtWSContainersPost.Content = !'@@PHONEUSER@@'
&SdtWSContainersContainer.Posts.Add(&SdtWSContainersPost)

&SdtWSContainersPost = new()
&SdtWSContainersPost.Variable = !'ModuleCode'
&SdtWSContainersPost.Content = !'@@MODULECODE@@'
&SdtWSContainersContainer.Posts.Add(&SdtWSContainersPost)

&SdtWSContainersPost = new()
&SdtWSContainersPost.Variable = !'LASTANSWER'
&SdtWSContainersPost.Content = !'@@LASTANSWERJSON@@'
&SdtWSContainersContainer.Posts.Add(&SdtWSContainersPost)

&SdtWSContainersPost = new()
&SdtWSContainersPost.Variable = !'ANSWERS'
&SdtWSContainersPost.Content = !'@@ANSWERSJSON@@'
&SdtWSContainersContainer.Posts.Add(&SdtWSContainersPost)

&SdtWSContainersPost = new()
&SdtWSContainersPost.Variable = !'PROVIDER'
&SdtWSContainersPost.Content = !'@@PROVIDERTYPE@@'
&SdtWSContainersContainer.Posts.Add(&SdtWSContainersPost)

&json_out = &SdtWSContainersContainer.ToJson()

sub 'AnnaParametros'
	
	for each
		where TEC_AnnaParamSeq = 1
		defined by TEC_AnnaParamWSIntegracao
		
		if TEC_AnnaParamIDAmbiente = 1
			&TEC_AnnaParamWSIntegracao = TEC_AnnaParamWSIntegracao
			&TEC_AnnaParamWSCallBack   = TEC_AnnaParamWSCallBack
		else
			&TEC_AnnaParamWSIntegracao = TEC_AnnaParamWSIntegracaoH
			&TEC_AnnaParamWSCallBack   = TEC_AnnaParamWSCallBackH
		endif
		
	endfor
	
endsub