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

[RESOLVIDO] embarque

Discussão em 'EMS , HCM e Totvs 11' iniciado por renato.andrade, Abril 15, 2019.

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

    renato.andrade Sem Pontuação

    Prezados, estou utilizando a API EQAPI300 e preciso saber como que a API retorna o próximo numero do embarque, pois no meu caso em algum momento acaba dando lock na tabela travando os usuários, entendi que tem um Procedure que faz esta tratativa, mas gostaria de verificar como é feito esta tratativa, alguém pode me ajudar....Obrigado por enquanto.
  2. rodolfo.rcs

    rodolfo.rcs Membro Participativo

    Renato,

    aqui na empresa faço de forma diferente, antes de chamar a API de embarque, busco o último embarque jogando o valor desse embarque + 1 em uma variável. Depois é só enviar essa variável nas chamadas da API.

    ...........
    FIND LAST embarque NO-LOCK NO-ERROR.
    IF AVAIL embarque THEN ASSIGN i-nr-embarque = embarque.cdd-embarq + 1.

    FIND FIRST bf-embarque NO-LOCK
    WHERE bf-embarque.cdd-embarq = int(i-embarque:SCREEN-VALUE IN FRAME {&FRAME-NAME}) NO-ERROR.

    RUN pi-acompanhar IN h-acomp (INPUT "Processando embarque........" + string(i-nr-embarque)).

    CREATE tt-embarque.
    ASSIGN tt-embarque.i-sequen = 1
    tt-embarque.ind-oper = 1 /* 1-Inclusao 2-Alteracao 3-Eliminacao */
    tt-embarque.cdd-embarq = i-nr-embarque
    tt-embarque.dt-embarque = TODAY
    tt-embarque.usuario = c-seg-usuario
    tt-embarque.cod-estabel = bf-embarque.cod-estabel
    tt-embarque.nome-transp = bf-embarque.nome-transp
    tt-embarque.motorista = bf-embarque.motorista
    tt-embarque.placa = bf-embarque.placa
    tt-embarque.uf-placa = bf-embarque.uf
    tt-embarque.identific = c-seg-usuario.
    ................
Status do Tópico:
Não esta aberto para novas mensagens.

Compartilhe esta Página