ocr: TIME XEUHecordi3Eaction nethod action(uar eventinfo ActionEvent) var dtine Dateline rtine Nunber chapno Snallint tc1, tc2 TCursor enduar if eventinfo.1d0) - atainserthecurd then if not 1Ed1to then nsg5top("."Not in Edit node:") return endif ulsableverault CZ.CEACHCTIRCTRAN) active-pestRecerd0 actiwe.tmlocskecerdo if not e2.unlocknecord0 then endif if not (CT.0penCTINETRAN.DE) then asgstop(ProblemCould not open TineTran table") return endif tc1.edito) chapno - TIMENSIN.Chapter, nunber dtine = dateline() rtine = nunDer(datelimet12/31/9) - dtine) tel.1msertRecerd0) tc1."Chapter. Nunber" chapno te ...
