1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.
  2. Anuncie Aqui
  3. Anuncie Aqui
    Anuncie aqui você Também: fdantas@4each.com.br
Cookies A2 Solutions Anuncie Aqui

[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 2 de 2
  1. acsj

    acsj Membro Participativo

    no caso ficaria dessa forma? nao da nenhum erro mas tb nao mostra nada

    def var l-pendente as logical no-undo.


    find first pedido-compr where pedido-compr.num-pedido = 16000 NO-LOCK NO-ERROR.

    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 16000,
    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.
    acsj, Março 24, 2014
    #7
  2. Cobra.cne

    Cobra.cne Equipe de Suporte Moderador

    @acsj,

    O exemplo de código sugerido, só vai lhe mostrar mensagem se o pedido ainda não foi aprovado, caso queria fazer um display dos dados, substitua o código abaixo:

    Código:
    if l-pendente then do:

run utp\ut-msgs.r (input "show",
input 16000,
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.
    por:

    Código:
    DISPLAY pedido-compr.num-pedido 
        l-pendente FORMAT "Sim/Não" LABEL "Pendente de Aprovação?".
    Ou explique melhor qual a aplicação da sua necessidade.

    Abs.
    Cobra.cne, Março 24, 2014
    #8
  3. acsj

    acsj Membro Participativo

    acsj, Março 25, 2014
    #9
  4. acsj

    acsj Membro Participativo

    Estava vendo aqui nos parâmetros de aprovação nem existe nada parametrizado a não ser o super como aprovador, nem aprovação de documentos esta parametrizado será que seja isso então? Não trabalhamos com aprovações de pedidos de compra a única tela que trabalhamos é com a manutenção de pedidos cc0300.
    acsj, Março 25, 2014
    #10
  5. eduardo.leite

    eduardo.leite Equipe de Suporte Moderador Equipe de Suporte

    Bom, neste caso, como voce nao tem parametrizado a aprovação eletronica, todos os pedidos emitidos já estarao automaticamente aprovados e poderao ser impressos e utilizados para serem usados na entrada das notas fiscais. O pedido somente ficará pendente de aprovação quando estiver parametrizado a Aprovação Eletronica.
    eduardo.leite, Março 25, 2014
    #11
  6. acsj

    acsj Membro Participativo

    ok respondido. Obrigado! vamos trabalhar nesse regra de negócio que seria o mais correto Aprovação Eletronica.
    acsj, Março 25, 2014
    #12
Página 2 de 2
Status do Tópico:
Não esta aberto para novas mensagens.

Compartilhe esta Página