1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

  2. Anuncie Aqui ! Entre em contato fdantas@4each.com.br
Cookies Anuncie aqui Patrocinador Anuncios

Urgente Api/BO aprovação/reprovação (cd1720)?

Discussão em 'Progress 4GL' iniciado por akaytatsu, Abril 8, 2016.

Página 1 de 5
  1. akaytatsu

    akaytatsu Membro Participativo

    Existe alguma API/BO para aprovação/reprovação de documentos? Para fazer via progress o que o CD1720 faz por tela. Vi as api capi171 e cdapi172, mas ambas são para consultar e gerar pendencias de aprovação, agora, existe alguma api que encapsula essas e aprova ou reprova o documento?
    akaytatsu, Abril 8, 2016
    #1
  2. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    Eu tenho a tabela tt-doc-pend-aprov, que é like doc-pend-aprov, copio pra ela todos os doc-pend-aprov que quero aprovar, dai executo os programas, conforme abaixo, nesse caso vai abrir aquela tela onde vc digita uma observação da aprovação e clica em OK
    Código:
        case tipo:
        when 'aprovar'  then run cdp/cd1720a.w(table tt-doc-pend-aprov, cod-aprov:input-value in frame f-cad).
        when 'reprovar' then run cdp/cd1720b.w(table tt-doc-pend-aprov, cod-aprov:input-value in frame f-cad).
    end case.
    Agora não estou lembrado, terei que pesquisar novamente, mas tem os cd1720???? que aprova e reprova sem abrir telas, acho que é o c e d, mas tenho que confirmar isso
    bootstrapmaster, Abril 8, 2016
    #2
    cintiasottelli curtiu isso.
  3. akaytatsu

    akaytatsu Membro Participativo

    não posso abrir a tela, tudo irá rodar em batch.
    akaytatsu, Abril 8, 2016
    #3
  4. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    Então tem que ser os c e d que fazem o processo sem abrir telas.
    bootstrapmaster, Abril 9, 2016
    #4
  5. Andre Navarro

    Andre Navarro Sem Pontuação

    def temp-table tt-doc-pend-aprov no-undo like doc-pend-aprov.

    FIND FIRST doc-pend-aprov WHERE doc-pend-aprov.nr-requisicao = <número de uma solicitação> NO-LOCK NO-ERROR.

    CREATE tt-doc-pend-aprov.
    BUFFER-COPY doc-pend-aprov TO tt-doc-pend-aprov.

    run cdp/cd1720a.w(table tt-doc-pend-aprov, '<codigo do aprovador>').

    Quando executo dessa forma retorna o erro:

    upload_2016-12-2_7-49-30.png

    Alguém pode me ajudar.
    Andre Navarro, Dezembro 2, 2016
    #5
  6. af.dums

    af.dums Membro Ativo

    Olá, tenta usar a include definida na {cdp\cd1720.i10}, caso não tenha a definição é (pelo menos a que a Totvs me passou):

    Código:
      def temp-table tt-doc-pend-aprov NO-UNDO
      field aprov-auto       like doc-pend-aprov.aprov-auto
      field aprov-tec        like doc-pend-aprov.aprov-tec
      field aprov-total      like doc-pend-aprov.aprov-total
      field char-1           like doc-pend-aprov.char-1
      field char-2           like doc-pend-aprov.char-2
      field cod-aprov        like doc-pend-aprov.cod-aprov
      field cod-aprov-altern like doc-pend-aprov.cod-aprov-altern
      field cod-emitente     like doc-pend-aprov.cod-emitente
      field cod-rej          like doc-pend-aprov.cod-rej
      field cod-tip-aprov    like doc-pend-aprov.cod-tip-aprov
      field cod-usuario      like doc-pend-aprov.cod-usuario
      field cot-aprovada     like doc-pend-aprov.cot-aprovada
      field data-1           like doc-pend-aprov.data-1
      field data-2           like doc-pend-aprov.data-2
      field dec-1            like doc-pend-aprov.dec-1
      field dec-2            like doc-pend-aprov.dec-2
      field dt-aprova        like doc-pend-aprov.dt-aprova
      field dt-geracao       like doc-pend-aprov.dt-geracao
      field dt-reaprova      like doc-pend-aprov.dt-reaprova
      field dt-rejeita       like doc-pend-aprov.dt-rejeita
      field ind-situacao     like doc-pend-aprov.ind-situacao
      field ind-tip-aprov    like doc-pend-aprov.ind-tip-aprov
      field ind-tip-doc      like doc-pend-aprov.ind-tip-doc
      field int-1            like doc-pend-aprov.int-1
      field int-2            like doc-pend-aprov.int-2
      field it-codigo        like doc-pend-aprov.it-codigo
      field log-1            like doc-pend-aprov.log-1
      field log-2            like doc-pend-aprov.log-2
      field narrativa-apr    like doc-pend-aprov.narrativa-apr
      field narrativa-rej    like doc-pend-aprov.narrativa-rej
      field nr-requisicao    like doc-pend-aprov.nr-requisicao
      field nr-trans         like doc-pend-aprov.nr-trans
      field num-faixa        like doc-pend-aprov.num-faixa
      field num-pedido       like doc-pend-aprov.num-pedido
      field numero-ordem     like doc-pend-aprov.numero-ordem
      field sc-codigo        like doc-pend-aprov.sc-codigo
      field seq-aprov        like doc-pend-aprov.seq-aprov
      field sequencia        like doc-pend-aprov.sequencia
      field sit-aprov        like doc-pend-aprov.sit-aprov
      field situacao         as char    format "X(12)"
      field marca            as char    format "X(01)"
      field row-doc          as rowid
      field rw-doc           as rowid
      field desc-item        like item.desc-item
      &if defined(bf_mnt_ems203) &then
      field descricao        as char format "X(50)"
      &endif
      field prioridade-aprov as integer
      &if defined(bf_mnt_ems204) &then
      field cd-equipto       as char format "X(16)"
      field cd-tag           as char format "X(16)"
      &endif.
    af.dums, Dezembro 2, 2016
    #6
Página 1 de 5

Compartilhe esta Página