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

Urgente Multi empresa

Discussão em 'EMS , HCM e Totvs 11' iniciado por antonioc, Março 19, 2021.

  1. antonioc

    antonioc Membro Participativo

    Boa tarde.
    Estou com o seguinte problema:


    Estou logado na empresa 1:

    Gero uma nota fiscal de saída, onde meu cliente é a empresa 30.

    Tenho que colocar automaticamente a nota fiscal de saída no re1001(fazer a entrada) na empresa 30.

    Como faço para colocar a nota na empresa 30 se os bancos desta empresa são outros bancos(mov2unit, ems2unit)?

    Apenas fazendo a desconexão dos bancos da empresa 1 e fazendo a conexão dos bancos da empresa 30, resolveria?
    Tenho que alterar alguma variável de ambiente devido ao banco do ems5 que já é multi-empresa, e a api de recebimento utiliza ele?

    Se alguém tiver uma dica, agradeço.

    Obrigado.

    Antonio
  2. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    Bom dia Antonio, ai temos varias opções, acredito que a mais facil seria a seguinte ...
    Primeiro para mudar a empresa no datasul ....:
    Código:
        find first fnd_usuar_univ exclusive-lock
             where fnd_usuar_univ.cod_usuario = v_cod_usuar_corren
                   no-error.
        if not avail fnd_usuar_univ then do:
            create fnd_usuar_univ.
            assign fnd_usuar_univ.cod_usuario = v_cod_usuar_corren.
        end.
    
        assign fnd_usuar_univ.cod_empresa = string(empresa)
               fnd_usuar_univ.cod_livre_1 = i-ep-codigo-usuario
               fnd_usuar_univ.log_livre_1 = yes
               fnd_usuar_univ.log_livre_2 = no.
    
        release fnd_usuar_univ.
        empty temp-table ttErrosConexao.
    
        run piEmpresa  in hSPContexto.
        run getTTErros in HSPContexto (output table ttErrosConexao).
        if can-find(first ttErrosConexao) then do:
            message substitute('Erro conexÆo empresa &1', empresa)
                view-as alert-box info buttons ok.
            return 'NOK'.
        end.
        return 'OK'.
    
    Segundo, se logar com usuario valido no datasul ...
    Código:
            run btb/btapi910za.p(usuario,senha, output table tt-erros).
            if can-find(first tt-erros) then do:
                message 'Usuario e/ou senha invalidos'
                    view-as alert-box info buttons ok.
    end.
    Essa API ela, valida o usuario e já conecta os bancos certos pra empresa / usuario.
    Agora vc roda o seu importador de documentos para o RE1001
  3. antonioc

    antonioc Membro Participativo

    Obrigado.
    Vou testar

Compartilhe esta Página