[RESOLVIDO] Transferencia de Depósitos

Pessoal preciso transferir centenas de itens de um depósito para outro.

Alguem sabe alguma forma de fazer isso pelo EMS ou tem alguma rotina que faça isso e possa me passar ?

Abraço

Fábio,

Você pode usar a API CEAPI001, segue abaixo um pequeno exemplo:

Código:

{utp/ut-glob.i}
{cdp/cd0666.i}
{cep/ceapi001.i}

create tt-movto.

/***** Dados da Entrada *****/
assign tt-movto.cod-versao-integracao = 1
       tt-movto.cod-prog-orig     = "ESPECIFICO"
       tt-movto.conta-contabil    = <conta-contabil>
       tt-movto.dt-trans          = <dt-trans>
       tt-movto.nro-docto         = <nro-docto>
       tt-movto.sc-codigo         = <sc-codigo>
       tt-movto.ct-codigo         = <ct-codigo>
       tt-movto.cod-depos         = <cod-depos-destino>
       tt-movto.cod-estabel       = <cod-estabel>
       tt-movto.it-codigo         = <it-codigo>
       tt-movto.cod-localiz       = <cod-localiz-destino>
       tt-movto.quantidade        = <quantidade>
       tt-movto.un                = <un>
       tt-movto.tipo-trans        = 1   /* 1 = Entrada, 2 = Sa¡da */
       tt-movto.esp-docto         = 33
       tt-movto.usuario           = c-seg-usuario.

create tt-movto.

/***** Dados da Saída *****/
assign tt-movto.cod-versao-integracao = 1
       tt-movto.cod-prog-orig     = "ESPECIFICO"
       tt-movto.conta-contabil    = <conta-contabil>
       tt-movto.dt-trans          = <dt-trans>
       tt-movto.nro-docto         = <nro-docto>
       tt-movto.sc-codigo         = <sc-codigo>
       tt-movto.ct-codigo         = <ct-codigo>
       tt-movto.cod-depos         = <cod-depos-destino>
       tt-movto.cod-estabel       = <cod-estabel>
       tt-movto.it-codigo         = <it-codigo>
       tt-movto.cod-localiz       = <cod-localiz-destino>
       tt-movto.quantidade        = <quantidade>
       tt-movto.un                = <un>
       tt-movto.tipo-trans        = 2   /* 1 = Entrada, 2 = Saida */
       tt-movto.esp-docto         = 33
       tt-movto.usuario           = c-seg-usuario.

end.

for each tt-movto:

  run cep/ceapi001.p (input-output table tt-movto,
                      input-output table tt-erro,
                      input yes).

  find first tt-erro no-lock no-error.

  if avail tt-erro then do:

      run cdp/cd0666.w (input table tt-erro).
      return 'ADM-ERROR':U.

  end.

end.

Perfeito Eduardo !

Fiz aqui e funcionou. Valew