Troca de Propriedade - Fase II - Onda de Separação

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 recebimento, no momento em que for gerada a Onda, sendo que deverão ser geradas informações de CESV e planejamento do recebimento.

Definição da Regra de Negócio

Ao gerar as ondas de coleta deverá ser verificado se a solicitação de carga vinculada ao plano é de troca de propriedade.

Caso atenda a esta condição, após a geração das Ondas, deverão ser gerados o CESV/documental e o plano de recebimento para o depositante destinatário do processo.

O endereço a ser utilizado para conferência do recebimento deverá ser o mesmo endereço destino do plano de separação, que por sua vez deverá estar parametrizado no Contrato do depositante origem.

Ao efetuar o cancelamento de uma onda de coleta deverá ser verificado se a mesma contém solicitação de carga de troca de propriedade. Tendo esta condição atendida, deverão ser excluídos os dados do CESV e do plano de recebimento do depositante destino da solicitação de carga.

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_recebimento_auto(), detalhada a seguir, se o retorno da função for FALSE, deverá retornar FALSE.

Criar a função WMS60003_inicia_recebimento_auto() - esta 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 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' AND ( val_numerico IS NOT NULL AND val_numerico > 0))

                        

• Se não encontrar registro, deve retornar TRUE.
• 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.
• 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(buscar do select abaixo):

SELECT wms_parametro_complementar.val_decimal
FROM wms_parametro_complementar
WHERE wms_parametro_complementar.empresa = p_cod_emprsa 
AND wms_parametro_complementar.depositante = l_deposit
AND wms_parametro_complementar.nom_parametro = 'end_troca_propried'
AND wms_parametro_complementar.contrato = {buscar o contrato ativo do depositante}

• • 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 obter 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 a seguinte 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 a mensagem atual.

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 o 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 a 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)

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' AND (val_numerico is not null AND val_numerico > 0))

INTO l_trans_solicitacao_carga_mestre

• Se o sqlcode for menor que zero deve processar mensagem de erro e retornar FALSE.
• Se encontrou o 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.

WMS6325 - Solicitação de Carga

Aplicar a mesma regra para geração dos dados de recebimento automático, quando estiver configurado para geração de plano e onda automáticos no WMS6325.

Após a chamada da função wmsr71_gera_onda("WMS6325",1), incluir a chamada da WMSR128_processa_recebimento.