CE PLUS - Nota 009830
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 12/02/2010 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:01:00
Descrição da Nota: AJUSTES PARA TRATAMENTO AMÉRICA LATINA.
Sintoma
Ajustes para tratamento América latina.
Solução
Ajustes para tratamento América latina.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09830 Data: 12/02/2010 Hora: 11:32:15
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09830
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00002
Agrupamento : 00008
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
05995 - 00001 - 7.0 - 00004 - O CAMPO NRDI NA TABELA ZYCIT003 ESTÁ PREENCHIDO DE FORMA INCORRET
06811 - 00002 - 7.0 - 00006 - VINCULAR CENTROS PRODUTIVOS E IMPRODUTIVOS NO EMBARQUE
09283 - 00003 - 8.0 - 00001 - AJUSTE PARA NÃO O OCULTAR BOTÃO DE NOTA FISCAL.
----------------------------------------------------------------------------------------------------
AJUSTES PARA TRATAMENTO AMÉRICA LATINA.
----------------------------------------------------------------------------------------------------
Palavras Chave:
EMBARQUE - AJUSTES - AMÉRICA - LATINA
/PWS/SAPMZYCI001
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI001F03
REPS /PWS/MZYCI001I01
REPS /PWS/MZYCI001O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F03
...
ENDLOOP.
IF sy-subrc EQ 0.
v_prod_dif = 'X'.
ENDIF.
ENDIF.
ENDIF.
IF v_prod_dif = 'X'.
MESSAGE i015 WITH text-198 text-199.
EXIT.
ENDIF.
* >> Início da exclusão: FORM SELECIONAR_ITENS_DA
IF NOT t001-land1 EQ 'CL' AND NOT t001-land1 EQ 'AR'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_ITENS_DA
CLEAR: itab_zycit477.
READ TABLE itab_zycit477 WITH KEY land = t001-land1.
IF NOT t001-land1 EQ 'CL' AND NOT t001-land1 EQ 'AR' AND
sy-subrc NE 0.
* << Fim da inclusão
IF NOT itab_zycit003[] IS INITIAL.
SELECT * FROM t001w INTO TABLE itab_t001w
FOR ALL ENTRIES IN itab_zycit003
WHERE werks = itab_zycit003-werks.
LOOP AT itab_t001w WHERE j_1bbranch NE /pws/zycie001-j_1bbranch.
ENDLOOP.
IF sy-subrc EQ 0.
MESSAGE e015 WITH text-220.
ENDIF.
IF NOT itab_werks[] IS INITIAL.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001I01
...
PERFORM check USING vl_erro.
IF NOT vl_erro IS INITIAL.
MESSAGE e013 WITH text-234.
ENDIF.
CLEAR: v_errodb, v_pedidodb.
PERFORM verif_db USING v_errodb
v_pedidodb.
IF NOT v_errodb IS INITIAL.
MESSAGE e015 WITH text-046 v_pedidodb text-469.
ENDIF.
* >> Início da exclusão: MODULE USER_COMMAND_0050
IF v_land1 EQ 'AR' OR v_land1 EQ 'CL'.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0050
CLEAR: itab_zycit477.
READ TABLE itab_zycit477 WITH KEY land = v_land1.
IF v_land1 EQ 'AR' OR v_land1 EQ 'CL' OR
sy-subrc EQ 0.
* << Fim da inclusão
PERFORM call_di_mult.
ELSE.
PERFORM call_di.
ENDIF.
SELECT SINGLE status
FROM /pws/zycit001
INTO /pws/zycie001-status
WHERE nrseq = /pws/zycie001-nrseq.
WHEN 'FAT'.
IF v_status_s NE 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001O01
...
ENDIF.
SELECT SINGLE land1 INTO v_land1 FROM t001
WHERE bukrs = /pws/zycie001-bukrs.
IF itab_zycit477[] IS INITIAL.
SELECT * FROM /pws/zycit477
INTO TABLE itab_zycit477
WHERE land EQ v_land1.
ENDIF.
READ TABLE itab_zycit477 WITH KEY land = v_land1.
IF sy-subrc EQ 0 .
* >> Início da inclusão: MODULE STATUS_0050
it_code-fcode = 'NOTA'. APPEND it_code.
* << Fim da inclusão
it_code-fcode = 'VINCULA'. APPEND it_code.
it_code-fcode = 'DESVIN'. APPEND it_code.
it_code-fcode = 'VLI'. APPEND it_code.
ENDIF.
IF /pws/zycie001-regime IS INITIAL.
it_code-fcode = 'DA'.
APPEND it_code.
it_code-fcode = 'CUSTO_DA'.
APPEND it_code.
ENDIF.
...