SnapShot de um registro

Pessoal muitas vezes precisamos fazer um programa de log ou algo assim.

A maneira mais eficiente em Progress para salvar o registro antigo seria usar uma variável do tipo RAW.

Vejam o trecho de código a seguir.

Código:

DEFINE VARIABLE t-raw AS RAW  NO-UNDO.

DEFINE TEMP-TABLE tt-customer NO-UNDO LIKE Customer.

FIND FIRST Customer NO-LOCK.

IF AVAILABLE(Customer)
THEN DO:
  RAW-TRANSFER Customer TO t-raw NO-ERROR.
  RUN ip-showcust IN THIS-PROCEDURE (INPUT t-raw).
END.

PROCEDURE ip-showcust :
  DEFINE INPUT PARAMETER  p-raw  AS RAW  NO-UNDO.

  CREATE tt-customer.
  RAW-TRANSFER p-raw TO tt-customer NO-ERROR.
  MESSAGE "Transfer completed"
    customer.cust-num
    tt-customer.cust-num
  VIEW-AS ALERT-BOX.  

END PROCEDURE.