(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.

WMS60003 - Onda de separação.

Alterar a função wms60003_gerar_onda_tt_plano(). Antes do RETURN TRUE no final da função deverá chamar a função wms60003_inicia_expedição_auto(), detalhada a seguir, se o retorno da função for FALSE, deverá retornar FALSE.

Criar a função WMS60003_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 IN (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 NF_SUP.

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

  • Chamar a função wmsr95_cria_temporarias();

  • 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.

Criar a função wms60003_cancela_expedicao_auto().

• Ao efetuar a exclusão da onda de separação, deverá verificar se a mesma está relacionada a uma solicitação de carga de troca de depositante, efetuando o mesmo select indicado na função wms60003_inicia_expedicao_auto().
• Após o retorno da função wmsr71_exclui_onda(), se o retorno for verdadeiro, deverá efetuar a chamada das funções de exclusão das tabelas do processo de expedição gerados pela função wms60003_inicia_expedicao_auto().

Função WMS60006

Ao efetuar a exclusão de uma onda, quando o processo envolver uma solicitação de carga de troca de propriedade, deverá também excluir os dados gerados para a expedição e recebimento. Para isso deverá ser alterada a função wms60006_exclui_ondas_selecionadas(), após o retorno da função wmsr71_exclui_onda() deverá ser incluída lógica abaixo:

• Efetuar select para identificar se o plano está relacionado a uma troca de propriedade e buscar a solicitação de carga:
  

  SELECT DISTINCT(trans_solicitacao_carga_mestre)
  INTO l_trans_solicitacao_carga_mestre
  FROM wms_plano_separacao_carga a
  WHERE a.empresa = p_cod_empresa
  AND a.plano_separacao = l_plano_separacao
  AND a.trans_solicitacao_carga_mestre IN
  (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 o sqlcode for menor que zero deve processar mensagem de erro e retornar false.
• Se encontrou registro, deve efetuar o select abaixo para buscar aviso de recebimento relacionado ao processo:
  

  SELECT val_numerico
  INTO l_num_aviso_rec
  FROM wms_solic_carga_parametro
  WHERE empresa = p_cod_empresa
  AND solicitacao_carga = l_trans_solicitacao_carga_mestre
  AND parametro = 'troca_propriedade'

• Se o sqlcode for menor que zero deve processar mensagem de erro e retornar false.
• Se encontrou registro, deve buscar os dados da nota na NF_SUP:
  

  SELECT num_nf,
  ser_nf,
  ssr_nf,
  cod_fornecedor
  INTO l_num_nf,
  l_ser_nf,
  l_ssr_nf,
  l_deposit
  FROM nf_sup
  WHERE cod_empresa = p_cod_empresa
  AND num_aviso_rec = l_num_aviso_rec

• Se o sqlcode for menor que zero deve processar mensagem de erro e retornar false.
• Se encontrou registro deve buscar a entrada de veículo planejada na WMS_CESV_DOCUM_NOTA_FISCAL:
  

  SELECT ctr_ent_sai_veic_docum
  INTO l_ctr_ent_sai_veic_docum
  FROM wms_cesv_docum_nota_fiscal
  WHERE empresa = p_cod_empresa
  AND nota_fiscal = l_num_nf
  AND serie_nota_fiscal = l_ser_nf
  AND subserie_nota_fiscal = l_ssr_nf
  AND deposit = l_deposit

• Se o sqlcode for diferente de zero deve processar mensagem de erro e retornar false.
• Se encontrou o registro deve:
  • Chamar a função wmsr95_set_empresa(p_cod_empresa)
  • Chamar a função wmsr95_set_cesv(l_ctr_ent_sai_veic_docum)
  • Chamar a função wmsr95_exclusao_dados_gerados_troca_propriedade(). Se o retorno for FALSE deve retornar FALSE.