Овој скрипт ја поправи сите книги во темелниците, кои имаат празен датум на документот во книговодствата на датумот на документот, запишан во полето датум на документот (од сметки/преноси, ...).

declare
  @cКлуч char(11),
  @iПози int,
  @dДатумДок datetime,
  @i int,
  @j int

set nocount on

declare crКурсор cursor local fast_forward for 
  select T.КЛУЧ,T.ПОЗ, P.ДАТУМ
    from TEMEPOZ T
      join PROMET P on P.КЛУЧ = T.ДОКУМЕНТ
    where ДАТУМДОК is null


set @i = 0
set @j = 0
open crКурсор
fetch next from crКурсор into @cКлуч, @iПози, @dДатумДок
while @@fetch_status = 0
  begin
    if @dДатумДок is not null
      begin
        update TEMEPOZ
          set ДАТУМДОК = @dДатумДок
          where КЛУЧ = @cКлуч
            and ПОЗ = @iПози
        set @i = @i + 1
      end
    else
      set @j = @j + 1

    fetch next from crКурсор into @cКлуч, @iПози, @dДатумДок
  end
close crКурсор
deallocate crКурсор
print 'Поправени: ' + cast(@i as varchar)
print 'Непоправени: ' + cast(@j as varchar)