end while error - xbasic array Multiple SMS twilio

[CharlesParker]

Re: end while error - xbasic array Multiple SMS twilio

Yep looked there - no errors on their end - only the successful sends. From what I can tell the code is not executing from the resultset like how I think it should in my head. It seems to me the right way to do this would be to first get a count of the result then loop through them. the nextrow method doesn't seem to be working like I think it should.
Now that said - I have no clue how to setup a for loop for the result set...for instance in the debugger as it loops through the rows I would think the vSendNumber variable would change as it loops through but I never see the value.
It just seems to me if I can send once I can send for each record in the result set - it really blows when things don't work as expected...

[madtowng]

Re: end while error - xbasic array Multiple SMS twilio

You have so much going on here, and you are understandably concerned about the privacy of the people in your table.
With that said, based on what you're experiencing, there is obviously a problem somewhere.

My advice is free, and should probably be tempered as such. More often than not, advice is worth what you pay for it.
Sometimes however, you cannot put a price on free advice.

I am more than willing to do a screen sharing session with you. I might see things in data that you miss (easy to do when
it's data you deal with all the time. The code below is designed to force any obvious imperfections to be seen.
There may be other errors based on different rules that I am unaware of.
I'm still up and awake and willing to talk. Feel free to call me (608)345-2697 to pound through this if you want.

Gregg
P.S. This code is designed to be within a function, and you will have to provide the connection name

[code]
dim qResults[0] as p
dim args as sql::arguments
dim cn as sql::connection
dim sqlCode as c
dim itsOpen as l
dim itWorked as l

sqlCode = <<%txt%
SELECT coalesce(Employee_phone,'000-000-0000') as Employee_phone, Sending_Data
FROM alphanwcopro.send_tasks
WHERE Date = :thedate AND company_id = :coid
%txt%

if .not. itsOpen then
itsOpen = cn.open("::name::<connection"
end if
if .not. itsOpen then
exit function
end if
'Be sure your arguments are set before processing the next line
itWorked = cn.ToPropertyArray(sqlCode, args, qResults)
debug(1)

[CharlesParker]

Re: end while error - xbasic array Multiple SMS twilio

thanks that a very generous offer - its always fun to get together with another developer who speaks Alpha!

[madtowng]

Re: end while error - xbasic array Multiple SMS twilio

Glad to do it. It appears I have the office running smoothly today (several people now working from home).
I know the frustration of APIs that don't work even though everything seems to suggest they should.

[CharlesParker]

Re: end while error - xbasic array Multiple SMS twilio

NWCOPRO Training & Help

Please join my meeting from your computer, tablet or smartphone.

https://www.gotomeet.me/nwcopro


Working on this live - if your interested join the meeting. There might be some actual live data involved so please no screenshots or recording unless its for your own personal use, not that there is any sensitive data anyway...
If you want to join or just hang out feel free. I am hoping to solve this issue and or maybe learn a few things while hanging out.

You can also dial in using your phone.
(For supported devices, tap a one-touch number below to join instantly.)

United States: +1 (872) 240-3311
- One-touch: tel:+18722403311,,984944085#

Access Code: 984-944-085


New to GoToMeeting? Get the app now and be ready when your first meeting starts: https://global.gotomeeting.com/install/984944085

[CharlesParker]

Re: end while error - xbasic array Multiple SMS twilio

Had a great call with Gregg, together (mostly his help) we came up with working code: See if you can spot the part that makes it work over the previous code that didn't...

FUNCTION SendTw AS C (e as p)

debug(1)
'==CONNECTION AND VARS
dim cn as SQL::Connection
dim vHasError as c
dim cf as extension::CurlFile
dim flag_1 as l
dim ce as extension::Curl	
dim vSendNumber as c
dim args as sql::arguments
dim vUser as c
dim SendTw as c
dim vResult[0] as p

cn.open("::Name::Connection1")
args.Add("thedate",convert_type(e._CurrentRowDataNew.Date,"D"))
args.Add("coid",e._CurrentRowDataNew.company_id)

 
vSelect = "SELECT Employee_phone, Sending_Data FROM alphanwcopro.send_tasks WHERE Date = :thedate AND company_id = :coid"

cn.topropertyarray(vSelect,args,vresult)
vHasError = "N"



vTwilioURLPre= "https://api.twilio.com/2010-04-01/Accounts/"
vSID = "*******bf919b1724bc6d0"
vTwilioURL=vTwilioURLPre+vSID+"/Messages.json"
vToken = "******"
vPassword=vSID+":"+vToken
vFromNumber="+16303330311"
vFrom="&From="+vFromNumber
vSubject = "Job Assigments" 'irrelevant really to the SMS




ce = extension::Curl.Init()
ce.setOpt("URL",vTwilioURL)
ce.setOpt("NOPROGRESS",1)
ce.setOpt("USERPWD",vPassword)
ce.setOpt("USERAGENT","curl/7.34.0")
ce.setOpt("MAXREDIRS",50)
ce.setOpt("CAINFO","C:\\Program Files (x86)\\a5V12\\CARoot\\ca-cert.pem")
ce.setOpt("CAPATH","C:\\Program Files (x86)\\a5V12\\CARoot")
ce.setOpt("CUSTOMREQUEST","POST")
ce.setOpt("TCP_KEEPALIVE",1)



for each banana in vresult
	'debug(1)
if eval_valid(banana.Employee_phone) then

vSendNumber= banana.Employee_phone
vMessage = banana.Sending_Data
vTo="&To=+1"+remspecial(vSendNumber)
vBody = "Body="+urlencode(vMessage)	
vPostFields=vBody+vFrom+vTo
ce.setOpt("POSTFIELDS",vPostFields)
ce.setOpt("POSTFIELDSIZE_LARGE", len(vPostFields) )
ce.SetOpt("FILE",cf)

flag_1 = ce.Exec()
if flag_1 then

    dim headers as c
	dim contents as c
	headers = cf.GetHeaders()
	contents = cf.GetContent()
end if


end if

next
ce.close()
cn.Close()

end function

[madtowng]

Re: end while error - xbasic array Multiple SMS twilio

The call was great, and our hang up time was perfect.
Dinner arrived within 5 seconds of us hanging up.