Popravljanje datuma dokumenta u knjiženjima

Popravljanje datuma dokumenta u knjiženjima

Skript popravlja sva knjiženja na nalozima za knjiženje, koja imaju prazan datum dokumenta u nalozima na datum dokumenta, upisan u polju datum dokumenta (iz računa/prenosa, ...).

declare
  @cKljuc char(11),
  @iPoz int,
  @dDatumDok datetime,
  @i int,
  @j int

set nocount on

declare crKurzor cursor local fast_forward for 
  select T.KLJUC,T.POZ, P.DATUM
    from TEMEPOZ T
      join PROMET P on P.KLJUC = T.DOKUMENT
    where DATUMDOK is null


set @i = 0
set @j = 0
open crKurzor
fetch next from crKurzor into @cKljuc, @iPoz, @dDatumDok
while @@fetch_status = 0
  begin
    if @dDatumDok is not null
      begin
        update TEMEPOZ
          set DATUMDOK = @dDatumDok
          where KLJUC = @cKljuc
            and POZ = @iPoz
        set @i = @i + 1
      end
    else
      set @j = @j + 1

    fetch next from crKurzor into @cKljuc, @iPoz, @dDatumDok
  end
close crKurzor
deallocate crKurzor
print 'Popravljenih: ' + cast(@i as varchar)
print 'Nepopravljenih: ' + cast(@j as varchar)