NetTalk Central

Author Topic: Service Server and filter  (Read 3623 times)

Djordje Radovanovic

  • Full Member
  • ***
  • Posts: 237
    • View Profile
Service Server and filter
« 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

Bruce

  • Global Moderator
  • Hero Member
  • *****
  • Posts: 11244
    • View Profile
Re: Service Server and filter
« Reply #1 on: July 06, 2015, 12:48:17 AM »
can you send me the app & dict please Djordje?

cheers
Bruce

Djordje Radovanovic

  • Full Member
  • ***
  • Posts: 237
    • View Profile
Re: Service Server and filter
« Reply #2 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]

Bruce

  • Global Moderator
  • Hero Member
  • *****
  • Posts: 11244
    • View Profile
Re: Service Server and filter
« Reply #3 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
« Last Edit: July 08, 2015, 04:34:36 AM by Bruce »

Bruce

  • Global Moderator
  • Hero Member
  • *****
  • Posts: 11244
    • View Profile
Re: Service Server and filter
« Reply #4 on: July 08, 2015, 04:42:01 AM »
ok, fixed for the next build (8.53).