Histórico da Página

(Obrigatório)

Informações Gerais

   Legenda: 1 – Inovação 2 – Manutenção (Os demais campos devem ser preenchidos para ambos os processos). 

Objetivo

Gerar as informações iniciais do processo de expedição, no momento em que for gerada a Onda. Deverão ser geradas informações de CESV e planejamento de embarque.

Definição da Regra de Negócio

O processo de transferência de propriedade sempre ocorrerá durante a separação, para isso, deverão ser geradas as informações iniciais da expedição, CESV e planejamento de embarque, após a geração das Ondas de separação.

WMS60006 - Onda de separação.

Logo após o retorno da função wms60006_atualiza_dados() deverá ser chamada a função wms60006_inicia_expedição_auto(), que deverá ser criada conforme detalhamento a seguir.

Criar a função WMS60006_inicia_expedicao_auto() - está função será responsável por iniciar o processo de expedição para solicitações de carga com a finalidade de troca de propriedade entre depositantes.

• Verificar se a onda de separação pertence contém solicitação de carga de troca de propriedade, para isso deverá executar o select abaixo:
  

  SELECT DISTINCT(trans_solicitacao_carga_mestre)  INTO l_trans_solicitacao_carga_mestre
  FROM wms_plano_separacao_carga a
  INNER JOIN wms_onda_separacao o
  ON o.empresa = a.empresa
  AND o.plano_separacao = a.plano_separacao
  WHERE a.empresa = p_cod_empresa
  AND o.onda_separacao = ma_ondas_tela[l_arr_curr].onda_separacao
  AND a.trans_solicitacao_carga_mestre NOT IN  #ALTERAR PARA IN, POIS SE FICAR NOT IN IRÁ BUSCAR AS SOLICITAÇÕES Q NÃO SÃO TROCA PROPRIEDADE
                                                            (SELECT b.solicitacao_carga
                                                               FROM wms_solic_carga_parametro b
                                                            WHERE a.empresa = b.empresa
                                                                 AND a.trans_solicitacao_carga_mestre = b.solicitacao_carga
                                                                 AND b.parametro = 'troca_propriedade'
                                                                 AND val_texto = 'S')

   

• Se não encontrar registro, deve retornar TRUE, pois não se trata de troca de propriedade.
• Buscar o depositante da solicitação de carga efetuando select na tabela wms_solicitacao_carga_mestre utilizando a l_trans_solicitacao_carga_mestre retornada no select anterior.
• Preparar a geração das informações da expedição:
  • Exibir na status bar a mensagem "Gerando dados processo de troca de propriedade..."
  • Chamar a função WMSR94_inicializa_variaveis();
  • Chamar a função wmsr94_set_empresa(p_cod_empresa);
  • Chamar a função wmsr94_set_depositante(l_depositante) (retornado no select da wms_solicitacao_carga_mestre);
  • Chamar a função wmsr94_set_trans_solicitacao_carga(l_trans_solicitacao_carga_mestre);
  • Chamar a função wmsr94_set_cesv(null);
  • Chamar a função wmsr94_set_planejto_embarq(null);
  • Chamar a função wmsr94_set_gera_cesv_docum(TRUE);
  • Chamar a função wmsr94_set_gera_planejto_embarque(TRUE);
  • Chamar a função wmsr94_set_gera_relacionamento_plano_docum(FALSE);
  • Chamar a função wmsr94_set_modo_exibicao(TRUE);
• Chamar a função WMSR94_processa_expedição()
  • Se o retorno for FALSE deverá exibir mensagem em tela "Onda de separação geradas, porém ocorreu erro na geração dos dados da expedição de transferência de propriedade. Excluir as ondas e tentar novamente."
• Se o retorno for verdadeiro deverá chamar a função para geração do processo de recebimento, seguindo os passos a seguir:
  • Chamar a função wmsr95_set_empresa(p_cod_empresa);
  • Chamar a função wmsr95_set_depositante(depositante);
  • Chamar a função wmsr95_set_cesv(null);
  • Chamar a função wmsr95_set_gera_cesv_docum(TRUE);
  • Chamar a função wmsr95_set_relaciona_cesv_docum(TRUE);
  • Chamar a função wmsr95_set_libera_entrada_veic(TRUE);
  • Chamar a função wmsr95_set_valida_veiculo(TRUE);
  • Chamar a função wmsr95_set_libera_saida_veiculo(FALSE);
  • Chamar a função wmsr95_set_endereco_desembarque(??);
  • Chamar a função wmsr95_set_docum_recebimento(l_nota, l_serie, l_sub_serie, l_especie, l_emitente) - receberá os dados da nota fiscal de recebimento, os valores deverão ser armazenados em variáveis modulares: m_nota, m_serie, m_sub_serie, m_especie, m_emitente)
    • Para buscar os dados da nota fiscal de recebimento deverá buscar o número do AR na tabela wms_solic_carga_parametro (parâmetro "troca_propriedade", campo val_numerico) e efetuar o select da tabela aviso_rec.

  • Chamar a função wmsr95_set_modo_exibicao(TRUE);

  • Chamar a função WMSR95_processa_recebimento()

  • Se o retorno for FALSE deverá exibir mensagem em tela "Onda de separação geradas, porém ocorreu erro na geração dos dados da expedição de transferência de propriedade. Excluir as ondas e tentar novamente."

  • Caso retorne com sucesso, exibir mensagem atual.