Jorge Olguin (super carnicerias hernandez sa de cv) asked a question.

June 29, 2026 at 6:41 PM
Dataset theory 101. trying to show off the simplicity of code with ABL, but struggling myself.

I've been figthing with this code, (RTFMing, john saad's excelent handbook, copilot and claude all included) but we haven't being able to make it run.... correctly (or at least, run as I need):

  1. DEFINE TEMP-TABLE ttTicket NO-UNDO
  2. LIKE-SEQUENTIAL tap.Ticket.
  3. DEFINE TEMP-TABLE ttTicketD NO-UNDO
  4. LIKE-SEQUENTIAL tap.TicketD.
  5. DEFINE TEMP-TABLE ttTicketPago NO-UNDO
  6. LIKE-SEQUENTIAL tap.TicketPago.
  7.  
  8. DEFINE DATASET prodsTicket FOR ttTicket, ttTicketD, ttTicketPago
  9. DATA-RELATION drTicketD FOR ttTicket, ttTicketD
  10. RELATION-FIELDS (
  11. Sucursal, Sucursal,
  12. Almacen, Almacen,
  13. Serie, Serie,
  14. Ticket, Ticket)
  15. DATA-RELATION drTicketP FOR ttTicket, ttTicketPago
  16. RELATION-FIELDS (
  17. Sucursal, Sucursal,
  18. Serie, Serie,
  19. Ticket, Ticket)
  20. .
  21.  
  22.  
  23.  
  24. /*-------------------------
  25. QUERIES
  26. -------------------------*/
  27. DEFINE QUERY qTicket FOR tap.Ticket, tap.TicketD, tap.TicketPago.
  28. //DEFINE QUERY qTicketD FOR tap.TicketD.
  29. //DEFINE QUERY qTicketPago FOR tap.TicketPago.
  30.  
  31. /*-------------------------
  32. DATA SOURCES
  33. -------------------------*/
  34.  
  35. DEFINE DATA-SOURCE srcTicket
  36. FOR tap.Ticket KEYS (Sucursal, Serie, Ticket).
  37.  
  38. /*DEFINE DATA-SOURCE srcTicket */
  39. /*FOR QUERY qTicket */
  40. /*tap.Ticket KEYS (Sucursal, Serie, Ticket), */
  41. /*tap.TicketD KEYS (Sucursal, Almacen, Serie, Ticket),*/
  42. /*tap.TicketPago KEYS (Sucursal, Serie, Ticket). */
  43.  
  44. DEFINE DATA-SOURCE srcTicketD
  45. FOR tap.TicketD KEYS (Sucursal, Almacen, Serie, Ticket).
  46.  
  47. DEFINE DATA-SOURCE srcTicketPago
  48. FOR tap.TicketPago KEYS (Sucursal, Serie, Ticket).
  49.  
  50. FIND LAST Ticket NO-LOCK.
  51.  
  53. QUERY qTicket:QUERY-PREPARE(
  54. SUBSTITUTE("FOR EACH tap.Ticket NO-LOCK
  55. WHERE tap.Ticket.Ticket = &1,
  56. EACH tap.TicketD OF tap.Ticket no-lock,
  57. EACH tap.TicketPago of Ticket no-lock",
  58. Ticket.Ticket)).
  59.  
  60.  
  61. BUFFER ttTicket:ATTACH-DATA-SOURCE(DATA-SOURCE srcTicket:HANDLE).
  62. BUFFER ttTicketD:ATTACH-DATA-SOURCE(DATA-SOURCE srcTicketD:HANDLE).
  63. BUFFER ttTicketPago:ATTACH-DATA-SOURCE(DATA-SOURCE srcTicketPago:HANDLE).
  64.  
  65.  
  66. MESSAGE Ticket.Ticket
  67. VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.
  68.  
  69. DATASET prodsTicket:FILL().
  70.  
  71.  
  72. FOR EACH ttTicket,
  73. EACH ttTicketD OF ttTicket:
  74. DISPLAY ttTicket.Ticket ttTicketD.Articulo.
  75. END.

This code indeed finds last ticket, and shows it's number.

The issue is that the dataset picks up ALL tickets on table....

 

If I modify data-source srcTicket as the commented-out code, I get error about TicketD is on two data-source at same time...

 

Any clue on the missusing of data-sources will be very appreciatted.

 

TIA

Jorge

  • 3 answers
  • 112 views

  • Thomas Wurl (Taste IT Consulting)

    You may wanna try this. It's almost what Peter was talking about.

    Hope this works.

    1. DEFINE TEMP-TABLE ttTicket NO-UNDO
    2. LIKE-SEQUENTIAL tap.Ticket.
    3. DEFINE TEMP-TABLE ttTicketD NO-UNDO
    4. LIKE-SEQUENTIAL tap.TicketD.
    5. DEFINE TEMP-TABLE ttTicketPago NO-UNDO
    6. LIKE-SEQUENTIAL tap.TicketPago.
    8. DEFINE DATASET prodsTicket FOR ttTicket, ttTicketD, ttTicketPago
    9. DATA-RELATION drTicketD FOR ttTicket, ttTicketD
    10. RELATION-FIELDS (
    11. Sucursal, Sucursal,
    12. Almacen, Almacen,
    13. Serie, Serie,
    14. Ticket, Ticket)
    15. DATA-RELATION drTicketP FOR ttTicket, ttTicketPago
    16. RELATION-FIELDS (
    17. Sucursal, Sucursal,
    18. Serie, Serie,
    19. Ticket, Ticket)
    20. .
    24. /*-------------------------
    25. QUERIES
    26. -------------------------*/
    27. //DEFINE QUERY qTicket FOR tap.Ticket, tap.TicketD, tap.TicketPago.
    28. //DEFINE QUERY qTicketD FOR tap.TicketD.
    29. //DEFINE QUERY qTicketPago FOR tap.TicketPago.
    30.  
    31. // Just for Ticket
    32. DEFINE QUERY qTicket FOR tap.Ticket.
    34. /*-------------------------
    35. DATA SOURCES
    36. -------------------------*/
    38. //DEFINE DATA-SOURCE srcTicket
    39. //FOR tap.Ticket KEYS (Sucursal, Serie, Ticket).
    40.  
    41. // Data-source for the Query
    42. DEFINE DATA-SOURCE srcTicket FOR QUERY qTicket.
    44. /*DEFINE DATA-SOURCE srcTicket */
    45. /*FOR QUERY qTicket */
    46. /*tap.Ticket KEYS (Sucursal, Serie, Ticket), */
    47. /*tap.TicketD KEYS (Sucursal, Almacen, Serie, Ticket),*/
    48. /*tap.TicketPago KEYS (Sucursal, Serie, Ticket). */
    50. // Normally you don't need to use KEYS. The primary key fields are used normally.
    51. DEFINE DATA-SOURCE srcTicketD
    52. FOR tap.TicketD KEYS (Sucursal, Almacen, Serie, Ticket).
    54. DEFINE DATA-SOURCE srcTicketPago
    55. FOR tap.TicketPago KEYS (Sucursal, Serie, Ticket).
    57. FIND LAST Ticket NO-LOCK.
    59. /*QUERY qTicket:QUERY-PREPARE(
    60. SUBSTITUTE("FOR EACH tap.Ticket NO-LOCK
    61. WHERE tap.Ticket.Ticket = &1,
    62. EACH tap.TicketD OF tap.Ticket no-lock,
    63. EACH tap.TicketPago of Ticket no-lock",
    64. Ticket.Ticket)).
    65. */
    66. /* Prepare to query only for ticket. But in the filter you want */
    68. // Just a sample from LAST Ticket. Whatever data type the ticketId has
    69.  
    70. DEFINE VARIABLE iTicketId AS INTEGER NO-UNDO.
    71. iTicketID = Ticket.TicketId.
    72.  
    73. QUERY qTicket:QUERY-PREPARE(
    74. SUBSTITUTE("FOR EACH tap.Ticket WHERE tap.Ticket.Ticket = &1 NO-LOCK",iTicketId).
    76. BUFFER ttTicket:ATTACH-DATA-SOURCE(DATA-SOURCE srcTicket:HANDLE).
    77. BUFFER ttTicketD:ATTACH-DATA-SOURCE(DATA-SOURCE srcTicketD:HANDLE).
    78. BUFFER ttTicketPago:ATTACH-DATA-SOURCE(DATA-SOURCE srcTicketPago:HANDLE).
    80. /*
    81. MESSAGE Ticket.Ticket
    82. VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.
    83. */
    84. DATASET prodsTicket:FILL().
    86. BUFFER ttTicket:DETACH-DATA-SOURCE().
    87. BUFFER ttTicketD:DETACH-DATA-SOURCE().
    88. BUFFER ttTicketPago:DETACH-DATA-SOURCE().
    90. FOR EACH ttTicket,
    91. EACH ttTicketD OF ttTicket:
    92. DISPLAY ttTicket.Ticket ttTicketD.Articulo.
    93. END.

     

    Selected as Best

  • Peter Judge (Consultingwerk)

    You haven't associated the query with the datasource anywhere.

     

    You should define the query for ttTicket for only the tables that are needed to populate that temp-table. The queries for the child tables will done by the AVM, according to the data relation.

     

  • Thomas Wurl (Taste IT Consulting)

    You may wanna try this. It's almost what Peter was talking about.

    Hope this works.

    1. DEFINE TEMP-TABLE ttTicket NO-UNDO
    2. LIKE-SEQUENTIAL tap.Ticket.
    3. DEFINE TEMP-TABLE ttTicketD NO-UNDO
    4. LIKE-SEQUENTIAL tap.TicketD.
    5. DEFINE TEMP-TABLE ttTicketPago NO-UNDO
    6. LIKE-SEQUENTIAL tap.TicketPago.
    8. DEFINE DATASET prodsTicket FOR ttTicket, ttTicketD, ttTicketPago
    9. DATA-RELATION drTicketD FOR ttTicket, ttTicketD
    10. RELATION-FIELDS (
    11. Sucursal, Sucursal,
    12. Almacen, Almacen,
    13. Serie, Serie,
    14. Ticket, Ticket)
    15. DATA-RELATION drTicketP FOR ttTicket, ttTicketPago
    16. RELATION-FIELDS (
    17. Sucursal, Sucursal,
    18. Serie, Serie,
    19. Ticket, Ticket)
    20. .
    24. /*-------------------------
    25. QUERIES
    26. -------------------------*/
    27. //DEFINE QUERY qTicket FOR tap.Ticket, tap.TicketD, tap.TicketPago.
    28. //DEFINE QUERY qTicketD FOR tap.TicketD.
    29. //DEFINE QUERY qTicketPago FOR tap.TicketPago.
    30.  
    31. // Just for Ticket
    32. DEFINE QUERY qTicket FOR tap.Ticket.
    34. /*-------------------------
    35. DATA SOURCES
    36. -------------------------*/
    38. //DEFINE DATA-SOURCE srcTicket
    39. //FOR tap.Ticket KEYS (Sucursal, Serie, Ticket).
    40.  
    41. // Data-source for the Query
    42. DEFINE DATA-SOURCE srcTicket FOR QUERY qTicket.
    44. /*DEFINE DATA-SOURCE srcTicket */
    45. /*FOR QUERY qTicket */
    46. /*tap.Ticket KEYS (Sucursal, Serie, Ticket), */
    47. /*tap.TicketD KEYS (Sucursal, Almacen, Serie, Ticket),*/
    48. /*tap.TicketPago KEYS (Sucursal, Serie, Ticket). */
    50. // Normally you don't need to use KEYS. The primary key fields are used normally.
    51. DEFINE DATA-SOURCE srcTicketD
    52. FOR tap.TicketD KEYS (Sucursal, Almacen, Serie, Ticket).
    54. DEFINE DATA-SOURCE srcTicketPago
    55. FOR tap.TicketPago KEYS (Sucursal, Serie, Ticket).
    57. FIND LAST Ticket NO-LOCK.
    59. /*QUERY qTicket:QUERY-PREPARE(
    60. SUBSTITUTE("FOR EACH tap.Ticket NO-LOCK
    61. WHERE tap.Ticket.Ticket = &1,
    62. EACH tap.TicketD OF tap.Ticket no-lock,
    63. EACH tap.TicketPago of Ticket no-lock",
    64. Ticket.Ticket)).
    65. */
    66. /* Prepare to query only for ticket. But in the filter you want */
    68. // Just a sample from LAST Ticket. Whatever data type the ticketId has
    69.  
    70. DEFINE VARIABLE iTicketId AS INTEGER NO-UNDO.
    71. iTicketID = Ticket.TicketId.
    72.  
    73. QUERY qTicket:QUERY-PREPARE(
    74. SUBSTITUTE("FOR EACH tap.Ticket WHERE tap.Ticket.Ticket = &1 NO-LOCK",iTicketId).
    76. BUFFER ttTicket:ATTACH-DATA-SOURCE(DATA-SOURCE srcTicket:HANDLE).
    77. BUFFER ttTicketD:ATTACH-DATA-SOURCE(DATA-SOURCE srcTicketD:HANDLE).
    78. BUFFER ttTicketPago:ATTACH-DATA-SOURCE(DATA-SOURCE srcTicketPago:HANDLE).
    80. /*
    81. MESSAGE Ticket.Ticket
    82. VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.
    83. */
    84. DATASET prodsTicket:FILL().
    86. BUFFER ttTicket:DETACH-DATA-SOURCE().
    87. BUFFER ttTicketD:DETACH-DATA-SOURCE().
    88. BUFFER ttTicketPago:DETACH-DATA-SOURCE().
    90. FOR EACH ttTicket,
    91. EACH ttTicketD OF ttTicket:
    92. DISPLAY ttTicket.Ticket ttTicketD.Articulo.
    93. END.

     

    Selected as Best

  • Jorge Olguin (super carnicerias hernandez sa de cv)

    Thanks a lot... I'll compare, as it works. And special thanks for your commentary, as is the help that allows complete knowledge of matter....

     

    Thanks again