[RESOLVIDO] Campo de Pedido de compras

Discussão em 'EMS , HCM e Totvs 11' iniciado por Fernando Pinhatti, Março 18, 2014.

Status do Tópico:
Não esta aberto para novas mensagens.
Página 1 de 2
  1. Fernando Pinhatti

    Fernando Pinhatti Membro Participativo

    Bom dia, alguém pode me informar qual o campo e tabela onde verifico se um pedido de compras está aprovado ou pendente de aprovação?

    No aguardo
    Fernando Pinhatti, Março 18, 2014
    #1
  2. weiss_sbs

    weiss_sbs Membro Participativo

    Table: pedido-compr
    Name: i-situacao
    Type: INTEGER

    1 = aberto
    2 = Atendido Parcial
    3 = Encerrado
    weiss_sbs, Março 18, 2014
    #2
  3. eduardo.leite

    eduardo.leite Equipe de Suporte Moderador Equipe de Suporte

    Olá, segue logica para saber se o PC está pendente de aprovação.

    Código:
    def var l-pendente              as logical      no-undo.

find first param-compra no-lock no-error.

if param-compra.log-1 then do:

    for each ordem-compra no-lock
      where ordem-compra.num-pedido = pedido-compr.num-pedido:

        if pedido-compr.emergencial then
            run cdp/cdapi172 (6, rowid(ordem-compra), output l-pendente).
        else
            run cdp/cdapi172 (4, rowid(ordem-compra), output l-pendente).

        if l-pendente then do:

            run utp\ut-msgs.r (input "show",
                              input 17006,
                              input "Pedido de Compra Nao Aprovado!" + "~~" +
                                    "O pedido de compra " + string(pedido-compr.num-pedido) + " esta pendente de aprovacao e nao podera ser impresso!").

            leave.

        end.
        else
            leave.

    end.

end.

if l-pendente then next.
    eduardo.leite, Março 18, 2014
    #3
  4. marco.luques

    marco.luques Membro Ativo

    veja tambem a tabela doc-pend-aprov
    ela contem todos os dados referentes a aprovacao. é ela que alimenta a consulta "situacao documento"




    ind-tip-doc
    cod-aprov
    ind-situacao
    nr-requisicao
    sequencia
    it-codigo
    cod-rej
    numero-ordem
    num-pedido
    dt-aprova
    dt-rejeita
    dt-reaprova
    dt-geracao
    narrativa-apr
    cod-aprov-altern
    cod-usuario
    cod-emitente
    ind-tip-aprov
    seq-aprov
    aprov-tec
    narrativa-rej
    sit-aprov
    cod-tip-aprov
    cot-aprovada
    aprov-auto
    num-faixa
    aprov-total
    sc-codigo
    char-1
    char-2
    dec-1
    dec-2
    int-1
    int-2
    log-1
    log-2
    data-1
    data-2
    nr-trans
    prioridade
    seq-evento
    seq-item
    seq-medicao
    nr-contrato
    cod-estabel
    marco.luques, Março 18, 2014
    #4
  5. acsj

    acsj Membro Participativo

    Olá o meu deu erro aqui:

    alta o comando FOR, FIND or CREATE para a tabela com num-pedido no bloco corrente. (232)
    ** Nao entendi a linha 8. (196)
    acsj, Março 18, 2014
    #5
  6. eduardo.leite

    eduardo.leite Equipe de Suporte Moderador Equipe de Suporte

    antes faca a leitura da tabela pedido de compra:

    find first pedido-compr where pedido-compr.num-pedido = <variavel com o numero do pedido de compra> no-lock no-error.
    eduardo.leite, Março 18, 2014
    #6
Página 1 de 2
Status do Tópico:
Não esta aberto para novas mensagens.

Compartilhe esta Página