terça-feira, 26 de novembro de 2013

Consulta Estoque TOTVS



define variable vinTempoGasto as integer no-undo.

vinTempoGasto = etime(yes).

for each ord-serv use-index docto where
         ord-serv.ep-codigo   = 1 and
         ord-serv.dt-trans   >= 01/01/2010 and
         ord-serv.dt-trans   <= (today - 1):
  assign ord-serv.nr-docto = string(integer(replace(ord-serv.nr-docto,".","")),"999,999,999").

  display
    ord-serv.nr-docto.
  pause 0.
end.

display
  skip(4)
  "Tempo Gasto: " (etime / 1000).

Nenhum comentário:

Postar um comentário