Sintoma

Inclusão dos campos "Tipo de Conhecimento" e "CRT" na pasta "Conhecimento de Embarque" do programa

de Dados Adicionais.

Consistência ao modificar/excluir transporte no programa do Embarque quando o campo "Tipo de

Conhecimento" já estiver preenchido no Embarque.

Solução

Inclusão dos campos "Tipo de Conhecimento" e "CRT" e inclusão de consistência para o preenchimento

dos mesmos.

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 08349 Data: 28/04/2009 Hora: 15:42:12

----------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------

Nota Número              : 08349

Categoria                : Melhoria

Prioridade               : Baixa

Versão PW.CE             : 7.0

Pacote                   : 00009

Agrupamento              : 00096

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

08089  - 00001 - 7.0    - 00008  - CONHECIMENTO ELETRÔNICO DE EMBARQUE NOS DADOS ADICIONAIS DE EMBAR

----------------------------------------------------------------------------------------------------

INCLUSÃO DE CAMPOS "TIPO DE CONHECIMENTO" E "CRT" NOS DADOS ADICIONAIS

----------------------------------------------------------------------------------------------------

Palavras Chave:

EMBARQUE, DADOS ADICIONAIS, CONHECIMENTO, TIPO DE CONHECIMENTO, CRT

----------------------------------------------------------------------------------------------------

Objetos da nota:

DTEL /PWS/ZYCEL856

DTEL /PWS/ZYCEL857

DYNP /PWS/SAPMZYCE003                        0101

DYNP /PWS/SAPMZYCE038                        0105

FUGR /PWS/ZYCEGF1

REPS /PWS/MZYCE003F02

REPS /PWS/MZYCE003I01

REPS /PWS/MZYCE038F01

REPS /PWS/MZYCE038I01

REPS /PWS/MZYCE038O01

REPT /PWS/SAPMZYCE003

REPT /PWS/SAPMZYCE038

SHLP /PWS/ZYCEA316

TABD /PWS/ZYCEE047

TABD /PWS/ZYCET047

TABL /PWS/ZYCET406

TABU TDDAT

TABU TVDIR

TOBJ /PWS/ZYCET406S

TRAN /PWS/ZYCET406

----------------------------------------------------------------------------------------------------

Modificações efetuadas em DTEL /PWS/ZYCEL856

------------------------------------------------------------------------

Elemento de dados incluído: /PWS/ZYCEL856

Classe de desenvolvimento: /PWS/ZYCE

Idioma original: PT

Descrição breve incluída: (37 caracteres), idioma: PT

"CE - Tipo de Conhecimento de Embarque"

Categoria de dados: Entrada direta de categoria

Categoria de dados: CHAR

Comprimento: 15

Decimais: 15

ID parâmetro:

Nome componente default:

Documentar modificações: NÃO

Nome da ajuda de pesquisa:

Parâmetro da ajuda de pesquisa:

Comprimento máximo do denominador breve: 10

Denominador breve incluído (9 caracteres), idioma: PT

"Tipo Con."

Comprimento máximo do denominador médio: 17

Denominador médio incluído (17 caracteres), idioma: PT

"Tipo conhecimento"

Comprimento máximo do denominador longo: 32

Denominador longo incluído (32 caracteres), idioma: PT

"Tipo de Conhecimento de Embarque"

Comprimento máximo do título: 32

Título incluído (32 caracteres), idioma: PT

"Tipo de Conhecimento de Embarque"

----------------------------------------------------------------------------------------------------

Modificações efetuadas em DTEL /PWS/ZYCEL857

------------------------------------------------------------------------

Elemento de dados incluído: /PWS/ZYCEL857

Classe de desenvolvimento: /PWS/ZYCE

Idioma original: PT

Descrição breve incluída: (42 caracteres), idioma: PT

"CE - Conhecimento Rodoviário de Transporte"

Categoria de dados: Entrada direta de categoria

Categoria de dados: CHAR

Comprimento: 15

Decimais: 15

ID parâmetro:

Nome componente default:

Documentar modificações: NÃO

Nome da ajuda de pesquisa:

Parâmetro da ajuda de pesquisa:

Comprimento máximo do denominador breve: 10

Denominador breve incluído (3 caracteres), idioma: PT

"CRT"

Comprimento máximo do denominador médio: 17

Denominador médio incluído (17 caracteres), idioma: PT

"Conhecimento Rod."

Comprimento máximo do denominador longo: 32

Denominador longo incluído (31 caracteres), idioma: PT

"Conhecimento Rod. de Transporte"

Comprimento máximo do título: 37

Título incluído (37 caracteres), idioma: PT

"Conhecimento Rodoviário de Transporte"

----------------------------------------------------------------------------------------------------

Modificações efetuadas em DYNP /PWS/SAPMZYCE003                        0101

MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0101

PROCESS BEFORE OUTPUT.

  MODULE screen.

PROCESS AFTER INPUT.

  FIELD /pws/zycee046-zterm MODULE verifica_condicao ON REQUEST.

* >> Início da inclusão:

  FIELD /pws/zycee001-navio MODULE verifica_transporte ON REQUEST.

* << Fim da inclusão

  MODULE user_command.

----------------------------------------------------------------------------------------------------

Modificações efetuadas em DYNP /PWS/SAPMZYCE038                        0105

INCLUIR CAMPOR TABLE CONTROLE TC_BL:

INCLUIR CAMPO ENTRADA/SAÍDA "/PWS/ZYCEE047-TP_CONHECIMENTO" em tbl.contr./tabstr

Linha                    1

Coluna                   1

Comprimento Def.         15

Comprimento Visão        22

Altura                   1

Formato                  CHAR

Do dic.                  (X)

Ajuda de Pesquisa        /PWS/ZYCEA316

Campo de Entrada         (X)

Input                    possible

Campo de Saída           (X)

Fonte Equidistante       (X)

INCLUIR TEXTO "/PWS/ZYCEE047-TP_CONHECIMENTO" em tbl.contr./tabstr.

Linha                    1

Coluna                   1

Comprimento Def.         20

Comprimento Visão        22

Altura                   1

Texto                    "Tipo de Conhecimento"

Formato                  CHAR

Do dic.                  (X)

Modifi.                  F

INCLUIR CAMPO ENTRADA/SAÍDA "/PWS/ZYCEE047-CRT" em tbl.contr./tabstr

Linha                    1

Coluna                   2

Comprimento Def.         15

Comprimento Visão        21

Altura                   1

Formato                  CHAR

Do dic.                  (X)

Campo de Entrada         (X)

Input                    possible

Campo de Saída           (X)

Fonte Equidistante       (X)

INCLUIR TEXTO "/PWS/ZYCEE047-CRT" em tbl.contr./tabstr.

Linha                    1

Coluna                   2

Comprimento Def.         3

Comprimento Visão        21

Altura                   1

Texto                    "CRT"

Formato                  CHAR

Do dic.                  (X)

Modifi.                  F

MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0105

PROCESS BEFORE OUTPUT.

  MODULE: set_screen.

  LOOP AT itab_zycet047

    WITH CONTROL tc_bl CURSOR tc_bl-current_line.

    MODULE insert_line.

  ENDLOOP.

PROCESS AFTER INPUT.

  LOOP AT itab_zycet047.

* >> Início da inclusão:

    FIELD /pws/zycee047-tp_conhecimento

          MODULE verifica_tipo_conhecimento ON REQUEST.

* << Fim da inclusão

    MODULE: modify_line.

  ENDLOOP.

  MODULE user_command_0105.

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCE003F02

...

* >> INCLUIR APÓS ÚLTIMO FORM DO INCLUDE /PWS/MZYCE003F02:

* >> Início da inclusão:

FORM verifica_transporte.

  DATA: _viatrans TYPE /pws/zycet001-viatrans.

  LOOP AT itab_zycet047 WHERE NOT tp_conhecimento IS initial.

    EXIT.

  ENDLOOP.

  CHECK sy-subrc IS INITIAL.

  IF /pws/zycee001-navio IS INITIAL.

    /pws/zycee001-navio = */pws/zycee001-navio.

    MESSAGE e016 WITH text-648

                      text-649.

  ELSE.

    PERFORM busca_viatrans

      USING

        /pws/zycee001-navio

        CHANGING

       _viatrans.

    SELECT COUNT(*)

      FROM /pws/zycet406

      WHERE tp_conhecimento = itab_zycet047-tp_conhecimento AND

            viatrans        = _viatrans.

    IF NOT sy-subrc IS INITIAL.

      /pws/zycee001-navio = */pws/zycee001-navio.

      MESSAGE e016 WITH text-646

                        itab_zycet047-tp_conhecimento

                        text-647

                        /pws/zycee001-viatrans.

    ENDIF.

  ENDIF.

ENDFORM.

* << Fim da inclusão

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCE003I01

...

* >> INCLUIR APÓS ÚLTIMO MÓDULO DO INCLUDE /PWS/MZYCE003I01:

* >> Início da inclusão:

MODULE verifica_transporte INPUT.

  PERFORM verifica_transporte.

ENDMODULE.

* << Fim da inclusão

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCE038F01

FORM seleciona_dados.

  DATA: v_flag(4) TYPE c,

        itab_saida LIKE /pws/zycet002 OCCURS 10 WITH HEADER LINE.

  IMPORT v_flag FROM MEMORY ID 'EMBARQUE'.

  IF v_flag EQ 'NOVO'.

    GET PARAMETER ID '/PWS/ZYCEP001' FIELD wa_zycee001-nrseq.

    SELECT SINGLE * FROM /pws/zycet001 INTO wa_zycee001

             WHERE nrseq = wa_zycee001-nrseq.

    IF sy-subrc EQ 0.

* >> Início da inclusão: FORM SELECIONA_DADOS

      SET PARAMETER ID '/PWS/ZYCIP138' FIELD wa_zycee001-viatrans.

* << Fim da inclusão

      /pws/zycee001 = wa_zycee001.

      SELECT * FROM /pws/zycet002 INTO TABLE itab_zycet002

               WHERE nrseq = wa_zycee001-nrseq.

      SELECT * FROM /pws/zycet008 INTO TABLE itab_zycet008

               WHERE nrseq = wa_zycee001-nrseq.

      CALL FUNCTION '/PWS/ZYCE_SEPARA_ITENS_EMB'

           EXPORTING

                nrseq     = wa_zycee001-nrseq

           TABLES

                tab_saida = itab_saida

...

...

       NOT itab_zyglt100-formulario  IS INITIAL.

      PERFORM (itab_zyglt100-formulario)

        IN PROGRAM (itab_zyglt100-programa)

        USING okcode

        CHANGING e_subrc

        IF FOUND.                                           "#EC *

    ENDIF.

  ENDIF.

  sy-subrc = e_subrc.

ENDFORM.

* >> Início da inclusão:

FORM verifica_tipo_conhecimento

  CHANGING

    p_tp_conhecimento TYPE /pws/zycet047-tp_conhecimento.

  CHECK NOT p_tp_conhecimento IS INITIAL.

  SELECT COUNT(*)

    FROM /pws/zycet406

    WHERE viatrans = /pws/zycee001-viatrans AND

          tp_conhecimento = p_tp_conhecimento.

  CHECK NOT sy-subrc IS INITIAL.

  CLEAR p_tp_conhecimento.

  MESSAGE e016 WITH text-051

                    p_tp_conhecimento

                    text-052

                    /pws/zycee001-viatrans.

ENDFORM.

* << Fim da inclusão

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCE038I01

...

* >> INCLUIR APÓS ÚLTIMO MÓDULO DO INCLUDE /PWS/MZYCE038I01:

* >> Início da inclusão:

MODULE verifica_tipo_conhecimento INPUT.

  PERFORM verifica_tipo_conhecimento

    CHANGING

      /pws/zycee047-tp_conhecimento.

ENDMODULE.

* << Fim da inclusão

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPT /PWS/SAPMZYCE003

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 646

Texto: (20 caracteres)

"Tipo de Conhecimento"

Comprimento máximo: 20

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 647

Texto: (38 caracteres)

"não cadastrado para tipo de transporte"

Comprimento máximo: 38

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 648

Texto: (40 caracteres)

"Tipo de Conhecimento preenchido em Dados"

Comprimento máximo: 55

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 649

Texto: (49 caracteres)

" Adicionais! Não é possível excluir o Transporte."

Comprimento máximo: 55

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPT /PWS/SAPMZYCE038

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 051

Texto: (20 caracteres)

"Tipo de conhecimento"

Comprimento máximo: 20

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 052

Texto: (19 caracteres)

"não cadastrado para"

Comprimento máximo: 19

----------------------------------------------------------------------------------------------------

Modificações efetuadas em SHLP /PWS/ZYCEA316

* CRIAR AJUDA DE PESQUISA /PWS/ZYCEA316:

NOME: /PWS/ZYCEA316

DESCRIÇÃO BREVE: "CE - Tipo de Conhecimento"

CLASSE DE DESENVOLVIMENTO: /PWS/ZYCE

MÉTODO DE SELEÇÃO: /PWS/ZYCET406

TIPO DE DIÁLOGO: "D - EXIBIÇÃO DE VALORES IMEDIATA"

PARÂMETROS:

PARÂMETRO:       IMP   EXP   POSL  ISEL   EXAJ.    ELEMENTO DADOS    VALOR PROPOSTO

VIATRANS         X           1     1      X        /PWS/ZYCIL138     /PWS/ZYCIP138

TP_CONHECIMENTO  X     X     2     2               /PWS/ZYCEL856      

----------------------------------------------------------------------------------------------------

Modificações efetuadas em TABD /PWS/ZYCEE047

MODIFICAR ESTRUTURA /PWS/ZYCEE047:

...

Nome de campo   Elem.dados    Tab.verif.      CtDt Comp. Grupo

NUMERO_CE       /PWS/ZYCEL804                 CHAR    15

DATA_CE         /PWS/ZYCEL805                 DATS     8

* >> Início da inclusão:

TP_CONHECIMENTO /PWS/ZYCEL856                 CHAR    15

CRT             /PWS/ZYCEL857                 CHAR    15

* << Fim da inclusão

----------------------------------------------------------------------------------------------------

Modificações efetuadas em TABD /PWS/ZYCET047

MODIFICAR TABELA /PWS/ZYCET047:

...

Nome de campo   Elem.dados    Tab.verif.      CtDt Comp. Grupo

NUMERO_CE       /PWS/ZYCEL804                 CHAR    15

DATA_CE         /PWS/ZYCEL805                 DATS     8

* >> Início da inclusão:

TP_CONHECIMENTO /PWS/ZYCEL856                 CHAR    15

CRT             /PWS/ZYCEL857                 CHAR    15

* << Fim da inclusão

----------------------------------------------------------------------------------------------------

Modificações efetuadas em TABL /PWS/ZYCET406

CRIADA TABELA TRANSPARENTE /PWS/ZYCET406:

NOME: /PWS/ZYCET406

CLASSE DE DESENVOLVIMENTO: /PWS/ZYCE

CLASSE DE ENTREGA: C - Tab.customizing, atualização só por cliente, s/import.SAP

(X)ATUALIZAÇÃO DE TABELAS PERMITIDA

CAMPOS:

CAMPO:           CHV  INIC  TIPO DE CAMPO   CATEGORIA   COMPRIMENTO  CASAS DEC.

MANDT            X    X     MANDT           CLNT        3            0

VIATRANS         X    X     /PWS/ZYCIL138   CHAR        2            0

TP_CONHECIMENTO  X    X     /PWS/ZYCEL856   CHAR        15           0

OPÇÕES TÉCNICAS:

TIPO DE DADOS: APPL2

CAT. TAMANHO:  0 - Registros dados esperados: 0 Até 30.000

(x)AR. BUFFER NAO PERMITIDO

APÓS CRIAR A TABELA, ATUALIZAR "GERADOR DE ATUALIZAÇÃO DE TABELA":

GRUPO DE FUNÇÕES: /PWS/ZYCEGF1

CLASSE DE DESENVOLVIMENTO: /PWS/ZYCE

CTG. ATUALIZAÇÃO (X) NÍVEL ÚNICO

TELA DE SÍNTESE: 406

(X) ROTINA DE REGISTRO STANDARD

----------------------------------------------------------------------------------------------------

Modificações efetuadas em TRAN /PWS/ZYCET406

CRIAR TRANSAÇÃO: /PWS/ZYCET406 (TRANSAÇÃO COM PARÂMETROS)

CÓDIGO DE TRANSAÇÃO: /PWS/ZYCET406

CLASSE DE DESENVOLVIMENTO: /PWS/ZYCE

TEXTO DA TRANSAÇÃO: "CE - Parâmetros Tipo de Conhecimento"

VALOR PROPOSTO PARA: (X) TRANSAÇÃO: SM30 (X) OMITIR 1º TELA

CLASSIFICAÇÃO:

(X) HERDAR CARACTERÍSTICAS GUI

    (X) TRANSAÇÃO PROFESSIONAL USER

CAPACIDADE GUI:

(X)SAP GUI PARA HTML

(X)SAP GUI PARA JAVA

(X)SAP GUI PARA WINDOWS

VALORES PROPOSTOS:

NOME DO CAMPO DE TELA      VALOR

VIEWNAME                   /PWS/ZYCET406

UPDATE                     X