NetTalk Central

NetTalk Web Server => Web Server - Ask For Help => Topic started by: Djordje Radovanovic on July 05, 2015, 02:49:33 PM

Title: Service Server and filter
Post by: Djordje Radovanovic on July 05, 2015, 02:49:33 PM

I create application straight from generator. Asked only to make services for some .TPS files.
No changes no tweaking just generate and compile and receive this errors:
Unknown procedure label -                                                                  D:\AC10\TestSRV\GEN\TestSRV012.clw:171,127
Expected: <assign> <LINEBREAK> ( [ &= :=: { @ . ;  -                        D:\AC10\TestSRV\GEN\TestSRV012.clw:171,107
Unknown procedure label -                                                                  D:\AC10\TestSRV\GEN\TestSRV012.clw:171,89
Expected: <LINEBREAK> ( [ + - * / % ^ & { @ . ;  -                              D:\AC10\TestSRV\GEN\TestSRV012.clw:171,69
Expected: <statement> <EOF> <INT> <REAL> <DECIMAL> <STRING> <LINEBREAK> ( ; ACCEPT ASSERT CHOOSE INCLUDE OMIT RAISE TRY SECTION COMPILE BEGIN PRAGMA  -                                             D:\AC10\TestSRV\GEN\TestSRV012.clw:175,5

Original source lines are from 156 to 176
156 BuildResultFields  Routine
157   if p_web.RequestJSON
158   Else
159     xml._indent = IndentLen
160     xml.SaveEncoding = 'utf-8'
161     If Records(p_web.ServiceErrorQueue)
162       xml.save(p_web.ServiceErrorQueue,'ServiceErrors','Error')
163       packet.append(sub(xml.xmldata,1,xml.xmldatalen))
164     Else
165       If Records(p_web.ServiceResultQueue)
166         xml.save(p_web.ServiceResultQueue,'ServiceResults','Result')
167         packet.append(sub(xml.xmldata,1,xml.xmldatalen))
168       End
169       If records(p_web.ServiceResultQueue) = 0
170         Get(q:BKREC,1)
171         BKRECView{prop:filter} = 'REC:PROID = ' & q:BKREC.REC_PROID AND'REC:DATUM = ' & q:BKREC.REC_DATUM AND'REC:VREME = ' & q:BKREC.REC_VREME
172         xml.save(BKRECView,'','BKRECDetail')
173         packet.append(sub(xml.xmldata,1,xml.xmldatalen))
174       End ! Condition
175    End
176   End

Obviously main source of problem is line 171 and I do not want to change it by hand. What to add or change to make it right?

Best regards,

Djordje

Title: Re: Service Server and filter
Post by: Bruce on July 06, 2015, 12:48:17 AM

can you send me the app & dict please Djordje?

cheers
Bruce

Title: Re: Service Server and filter
Post by: Djordje Radovanovic on July 06, 2015, 02:37:10 PM

Sure I can. This is a small example. What I understood, problem is multicomponent primary key.

I made comment on routine where problem is located so to have an error just remove my comments.

Best regards,

Djole



[attachment deleted by admin]

Title: Re: Service Server and filter
Post by: Bruce on July 08, 2015, 04:32:45 AM

Hi Djordje,

I removed your comments, but I'm not getting any compile errors.

I'm not seeing this line;

BKRECView{prop:filter} = 'REC:PROID = ' & q:BKREC.REC_PROID AND'REC:DATUM = ' & q:BKREC.REC_DATUM AND'REC:VREME = ' & q:BKREC.REC_VREME

generated at all.
Am I missing something?

update -- I wizarded a new app from your dict and got the error - I am investigating....


cheers
Bruce

Title: Re: Service Server and filter
Post by: Bruce on July 08, 2015, 04:42:01 AM

ok, fixed for the next build (8.53).