Advertisement
dandepp

Untitled

Mar 23rd, 2023
811
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. arrayAnuncisBorrados    is array of MTAULELL_ANUNCIS
  2.  
  3.  
  4. FOR ALL TAULELL_ANUNCIS
  5.     IF TAULELL_ANUNCIS.Anunci_ID = Anunci_ID THEN
  6.         TAULELL_ANUNCIS.isDeleted = True
  7.         IF HModify(TAULELL_ANUNCIS) THEN
  8.             obj is MTAULELL_ANUNCIS = TAULELL_ANUNCIS
  9.             arrayAnuncisBorrados.Add(obj)
  10.         ELSE
  11.             // Returns an HTTP 5xx code: the cause of the problem is on the server (not on the consumer).
  12.             RESULT ReturnHFError(500)
  13.         END
  14.     END    
  15. END
  16.  
  17. sToReturn   is ANSI string
  18. Serialize(arrayAnuncisBorrados, sToReturn, psdJSON)
  19.  
  20. RETURN sToReturn
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement