[RESOLVIDO] Saldo estoque inicial de um período

bem vindo ao clube me caro:

Código:

define variable saldonaData as date no-undo.

find first saldo-estoq no-lock
     where saldo-estoq.cod-depos   = 'xxx'
       and saldo-estoq.cod-estabel = 'xxx'
       and saldo-estoq.cod-localiz = 'xxxxxxxxxx'
       and saldo-estoq.lote        = 'xxxxxxxxxx'
       and saldo-estoq.it-codigo   = 'xxxxxxxxxxxxxxxx'
       and saldo-estoq.cod-refer   = 'xxxxxxxxxxxxxxxx'
           no-error.

if avail saldo-estoq then do:
    assign saldonaData = saldo-estoq.qtidade-atu.
    for each movto-estoq of saldo-estoq no-lock
        where movto-estoq.dt-trans > 01/01/2015:
        case movto-estoq.tipo-trans:
            when 1 then assign saldonaData = saldonaData - movto-estoq.quantidade.
            when 2 then assign saldonaData = saldonaData + movto-estoq.quantidade.
        end case.
    end.
end.

Ali no teste da data, se vc deixar só > (maior que) vc pega o saldo no fim do dia 01/01, se vc colocar >= (maior ou igual) vc pega o saldo inicial do dia.

e é claro, meu diretor inventou de querer ver esses saldos toda semana em periodos variados, então acabei criando um programa que roda todo dia via RPW alimentando uma tabela no banco especifico salvando o saldo, assim, quando ele pede o saldo em determinada data, leio da tabela espefica, se for saldo do dia, leio da saldo-estoq.

hehehe, errei a tipagem do campo ...
define variable saldonaData as decimal no-undo.

Oi Russo, mas ai eu só consigo recompor saldo de estoque dentro do mês ou período, usado a saldo-estoq com a movto-estoq vc recompõe qualquer período.