[RESOLVIDO] EMS-2.06 Módulo Compras - Problema campo quant-alocada

Discussão em 'EMS , HCM e Totvs 11' iniciado por Leao, Fevereiro 28, 2012.

Status do Tópico:
Não esta aberto para novas mensagens.
  1. Leao

    Leao Sem Pontuação

    Claudemir...
    A ordem ja foi recebida e a NF atualizada no Recebimento, ficou tipo uma 'sujeira' neste campo, um valor, mesmo com a NF atualizada, por isso estou tentando resolver via for each, precisava saber em qual tabela fica este campo para tentar descobrir a origem do problema e atualizar este valor.


    Valeu ...
    abraços.

    Everaldo
  2. Claudemir

    Claudemir Membro Participativo

    Tenta isso

    (Roda em base teste antes)

    FOR EACH prazo-compra EXCLUSIVE-LOCK
    WHERE prazo-compra.numero-ordem = NUMERODAORDEM
    AND ( prazo-compra.dec-1 > 0
    OR prazo-compra.dec-1 < 0 ):

    assign prazo-compra.dec-1 = 0.

    for each item-doc-est
    where item-doc-est.it-codigo = prazo-compra.it-codigo
    and item-doc-est.numero-ordem = prazo-compra.numero-ordem
    and item-doc-est.parcela = prazo-compra.parcela NO-LOCK:

    find first docum-est no-lock
    where docum-est.serie-docto = item-doc-est.serie-docto
    and docum-est.nro-docto = item-doc-est.nro-docto
    and docum-est.cod-emitente = item-doc-est.cod-emitente
    and docum-est.nat-operacao = item-doc-est.nat-operacao no-error.
    if avail docum-est
    and docum-est.ce-atual = no then
    assign prazo-compra.dec-1 = prazo-compra.dec-1 +
    item-doc-est.quantidade.
    end.

    for each it-doc-fisico
    where it-doc-fisico.it-codigo = prazo-compra.it-codigo
    AND it-doc-fisico.numero-ordem = prazo-compra.numero-ordem
    and it-doc-fisico.parcela = prazo-compra.parcela no-lock:

    find first doc-fisico no-lock
    where doc-fisico.serie-docto = it-doc-fisico.serie-docto
    and doc-fisico.nro-docto = it-doc-fisico.nro-docto
    and doc-fisico.cod-emitente = it-doc-fisico.cod-emitente
    and doc-fisico.tipo-nota = it-doc-fisico.tipo-nota no-error.
    /* Considera Notas na situacao 1 = Nao Atualizada */
    if avail doc-fisico
    and doc-fisico.situacao = 1 then do:
    assign prazo-compra.dec-1 = prazo-compra.dec-1 +
    it-doc-fisico.quantidade .
    end.
    end.
    END.
    PUT "Processamento concluido" SKIP.
    RELEASE prazo-compra.
    END.
  3. Leao

    Leao Sem Pontuação

    Claudemir,

    Executei na base teste e deu certo... na realidade nao tinhamos documentos no recebimento fisico e fiscal para esta ordem...
    então o valor fica no campo 'dec-1' da tabela 'prazo-compra'... putz... acho que nunca ia conseguir descobrir sozinho....

    Valeu pela ajuda ae...

    Abraço.

    Everaldo.
Status do Tópico:
Não esta aberto para novas mensagens.

Compartilhe esta Página