Added capital works blank section. Synced calling screen.

[capital-apms-progress.git] / process / one-off / chr13_2.p

DEF VAR i AS INT INIT 0 NO-UNDO.

FOR EACH PostalDetail:
  IF ( NUM-ENTRIES( PostalDetail.Address, CHR(13) ) - 1 ) > 0 THEN
  ASSIGN
    PostalDetail.Address = REPLACE( PostalDetail.Address, CHR(13), "" )
    i = i + 1.
END.

MESSAGE i "Postal Detail records fixed" VIEW-AS ALERT-BOX INFORMATION.