CE PLUS - Nota 009959
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Desp. Estatística
Data/Hora da Publicação: 15/03/2010 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:55:51
Descrição da Nota: OBRIGATORIEDADE DA FILIAL
Sintoma
O programa não está permitindo cadastrar registros que não possuem filial. Nos processos da américa
latina os processos não possuem filial.
Solução
O programa doi atualizado para permitir a gravação do registro sem a filial para os países
cadastrados na tabela /PWS/ZYCIT477.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09959 Data: 15/03/2010 Hora: 14:57:26
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09959
Categoria : Erro de Programa
Prioridade : Baixa
Versão PW.CE : 8.0
Pacote : 00003
Agrupamento : 00012
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01930 - 00001 - 6.0 - 00024 - EMBARQUE - MENSAGEM (CADASTRAR A EMPRESA NO PROGRAMA DE RANGES
----------------------------------------------------------------------------------------------------
OBRIGATORIEDADE DA FILIAL
----------------------------------------------------------------------------------------------------
Palavras Chave:
CADASTRO DE RANGE DO NÚMERO SEQUENCIAL DO EMBARQUE
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYGL001I01
REPS /PWS/MZYGL001TOP
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL001I01
...
LEAVE TO SCREEN '0001'.
WHEN '0001'.
LEAVE PROGRAM.
ENDCASE.
ENDMODULE.
MODULE modify_itab2 INPUT.
CLEAR: itab_zyglt006_aux1,
v_flag .
IF /pws/zygle006-codmod EQ v_mod.
IF v_mod EQ 'D'.
* >> Início da inclusão: MODULE MODIFY_ITAB2
SELECT SINGLE * FROM t001
WHERE bukrs EQ /pws/zygle006-bukrs.
SELECT SINGLE * FROM /pws/zycit477
WHERE land EQ t001-land1.
IF sy-subrc NE 0.
* << Fim da inclusão
IF /pws/zygle006-j_1bbranch IS INITIAL.
LOOP AT itab_zyglt006 WHERE j_1bbranch NE space
AND j_1bbranch NE 0.
MESSAGE w001 WITH text-010 text-011.
MESSAGE w001 WITH text-012.
v_flag = '1'.
EXIT.
ENDLOOP.
ELSE.
LOOP AT itab_zyglt006 WHERE j_1bbranch EQ space
AND j_1bbranch EQ 0.
MESSAGE w001 WITH text-010 text-011.
MESSAGE w001 WITH text-012.
v_flag = '1'.
EXIT.
ENDLOOP.
* >> Início da inclusão: MODULE MODIFY_ITAB2
ENDIF.
* << Fim da inclusão
ENDIF.
LOOP AT itab_zyglt006.
IF itab_zyglt006-range EQ /pws/zygle006-range.
MESSAGE w016 WITH text-009.
v_flag = '1'.
EXIT.
ENDIF.
ENDLOOP.
IF /pws/zygle006-range IS INITIAL.
MESSAGE w001 WITH text-013.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL001TOP
PROGRAM /pws/sapmzygl001 MESSAGE-ID /pws/zycem.
TABLES: /pws/zyglt006,
/pws/zygle006,
/pws/zycet001,"#EC *
/pws/zycit001."#EC *
* >> Início da inclusão:
TABLES: t001 ,
/pws/zycit477.
* << Fim da inclusão
CONTROLS: tc_lista TYPE TABLEVIEW
USING SCREEN '0100'.
CONTROLS: tc_lista2 TYPE TABLEVIEW
USING SCREEN '0200'.
DATA: wa_cols TYPE cxtab_column.
DATA: BEGIN OF itab_zyglt006 OCCURS 0.
INCLUDE STRUCTURE /pws/zyglt006.
DATA: mark(1) TYPE c.
DATA: v_doble(1) TYPE c.
DATA: END OF itab_zyglt006.
...