SET TERM ^ ;

create or alter procedure SP_COPIA_DADOS_EMBARQUE (
    EMBARQUE_ADMISSAO varchar(20),
    EMBARQUE_NACIONALIZACAO varchar(20))
returns (
    TX_STATUS varchar(100))
as
declare variable CD_AGENTE_EMBARCADOR integer;
declare variable CD_TRANSP_INTER integer;
declare variable DT_RET_CONHEC timestamp;
declare variable CD_LOCAL_EMBARQUE integer;
declare variable DT_PREV_EMBARQUE timestamp;
declare variable CD_VALORACAO varchar(5);
declare variable NR_CONHECIMENTO varchar(18);
declare variable DT_CONHECIMENTO timestamp;
declare variable NR_MASTER varchar(18);
declare variable DT_MASTER timestamp;
declare variable FL_FRETE varchar(1);
declare variable CD_MOEDA_FRETE_NEG varchar(3);
declare variable VL_FRETE_PAGO numeric(15,2);
declare variable VL_CAPATAZIA numeric(15,2);
declare variable DT_DESCARGA timestamp;
declare variable DT_DESOVA timestamp;
declare variable NM_PRESENCA_CARGA varchar(36);
declare variable DT_PREVISAO_CHEGADA timestamp;
declare variable NM_IDENTIFICACAO_TRANSP varchar(31);
declare variable NM_LOCAL varchar(15);
declare variable NR_MANIFESTO varchar(18);
declare variable NM_PORTO_ORIGEM varchar(50);
declare variable DT_CONF_MERCANTE timestamp;
declare variable DT_REDESTINACAO timestamp;
declare variable DT_REGISTRO_TERMINAL timestamp;
declare variable CD_MARGEM_TERM_ATRAC integer;
declare variable NM_ARM_TERM varchar(20);
BEGIN

/*PEGA AS INFORMACOES DO PROCESSO DE ADMISSAO*/
SELECT P06_CD_AGENTE_EMBARCADOR, P06_CD_TRANSP_INTER, P06_DT_RET_CONHEC, P06_CD_LOCAL_EMBARQUE, P06_DT_PREV_EMBARQUE, P06_CD_VALORACAO,
            P06_NR_CONHECIMENTO, P06_DT_CONHECIMENTO, P06_NR_MASTER, P06_DT_MASTER, P06_FL_FRETE, P06_CD_MOEDA_FRETE_NEG, P06_VL_FRETE_PAGO,
            P06_VL_CAPATAZIA, P06_DT_DESCARGA, P06_DT_DESOVA, P06_NM_PRESENCA_CARGA, P06_DT_PREVISAO_CHEGADA, P06_NM_IDENTIFICACAO_TRANSP,
            P06_NM_LOCAL, P06_NR_MANIFESTO
FROM PER_006
WHERE P06_NR_EMBARQUE = :EMBARQUE_ADMISSAO
INTO CD_AGENTE_EMBARCADOR, CD_TRANSP_INTER, DT_RET_CONHEC, CD_LOCAL_EMBARQUE, DT_PREV_EMBARQUE, CD_VALORACAO, NR_CONHECIMENTO, DT_CONHECIMENTO,
      NR_MASTER, DT_MASTER, FL_FRETE, CD_MOEDA_FRETE_NEG, VL_FRETE_PAGO, VL_CAPATAZIA, DT_DESCARGA, DT_DESOVA, NM_PRESENCA_CARGA, DT_PREVISAO_CHEGADA, NM_IDENTIFICACAO_TRANSP, NM_LOCAL, NR_MANIFESTO;


/*ATUALIZA O PROCESSO DE NACIONALIZACAO*/
UPDATE PER_006 SET
  P06_CD_AGENTE_EMBARCADOR = :CD_AGENTE_EMBARCADOR,
  P06_CD_TRANSP_INTER = :CD_TRANSP_INTER,
  P06_DT_RET_CONHEC = :DT_RET_CONHEC,
  P06_CD_LOCAL_EMBARQUE = :CD_LOCAL_EMBARQUE,
  P06_DT_PREV_EMBARQUE = :DT_PREV_EMBARQUE,
  P06_CD_VALORACAO = :CD_VALORACAO,
  P06_NR_CONHECIMENTO = :NR_CONHECIMENTO,
  P06_DT_CONHECIMENTO = :DT_CONHECIMENTO,
  P06_NR_MASTER = :NR_MASTER,
  P06_DT_MASTER = :DT_MASTER,
  P06_FL_FRETE = :FL_FRETE,
  P06_CD_MOEDA_FRETE_NEG = :CD_MOEDA_FRETE_NEG,
  P06_VL_FRETE_PAGO = :VL_FRETE_PAGO,
  P06_VL_CAPATAZIA = :VL_CAPATAZIA,
  P06_DT_DESCARGA = :DT_DESCARGA,
  P06_DT_DESOVA = :DT_DESOVA,
  P06_NM_PRESENCA_CARGA = :NM_PRESENCA_CARGA,
  P06_DT_PREVISAO_CHEGADA = :DT_PREVISAO_CHEGADA,
  P06_NM_IDENTIFICACAO_TRANSP = :NM_IDENTIFICACAO_TRANSP,
  P06_NM_LOCAL = :NM_LOCAL,
  P06_NR_MANIFESTO = :NR_MANIFESTO
WHERE P06_NR_EMBARQUE = :EMBARQUE_NACIONALIZACAO;


/*PEGA AS INFORMACOES DO PROCESSO DE ADMISSAO*/
SELECT P06A_NM_PORTO_ORIGEM, P06A_DT_CONF_MERCANTE, P06A_DT_REDESTINACAO, P06A_DT_REGISTRO_TERMINAL, P06A_CD_MARGEM_TERM_ATRAC, P06A_NM_ARM_TERM
FROM PER_006A
WHERE P06A_NR_EMBARQUE = :EMBARQUE_ADMISSAO
INTO NM_PORTO_ORIGEM, DT_CONF_MERCANTE, DT_REDESTINACAO, DT_REGISTRO_TERMINAL, CD_MARGEM_TERM_ATRAC, NM_ARM_TERM;

UPDATE PER_006A SET
  P06A_NM_PORTO_ORIGEM = :NM_PORTO_ORIGEM,
  P06A_DT_CONF_MERCANTE = :DT_CONF_MERCANTE,
  P06A_DT_REDESTINACAO = :DT_REDESTINACAO,
  P06A_DT_REGISTRO_TERMINAL = :DT_REGISTRO_TERMINAL,
  P06A_CD_MARGEM_TERM_ATRAC = :CD_MARGEM_TERM_ATRAC,
  P06A_NM_ARM_TERM = :NM_ARM_TERM
WHERE P06A_NR_EMBARQUE = :EMBARQUE_NACIONALIZACAO;


TX_STATUS = 'DADOS COPIADOS COM SUCESSO!';

END^

SET TERM ; ^

/* Following GRANT statetements are generated automatically */

GRANT SELECT,UPDATE ON PER_006 TO PROCEDURE SP_COPIA_DADOS_EMBARQUE;
GRANT SELECT,UPDATE ON PER_006A TO PROCEDURE SP_COPIA_DADOS_EMBARQUE;

/* Existing privileges on this procedure */

GRANT EXECUTE ON PROCEDURE SP_COPIA_DADOS_EMBARQUE TO SUNLOGICA;
GRANT EXECUTE ON PROCEDURE SP_COPIA_DADOS_EMBARQUE TO SYSDBA;