CE PLUS - Nota 001273
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 03/05/2006 00:00:00
Data/Hora Última Alteração: 20/09/2011 17:22:05
Descrição da Nota: AJUSTES PARA PREENCHIMENTO DE CAMPOS AO FAZER DI PELO MENU.
Sintoma
Ao criar a DI pelo menu externo está dando erros em vários campos.
Solução
Atualizado a seleção de campos da DI criada a partir do BL. (DI por fora).
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01273 Data: 03/05/2006 Hora: 17:06:51
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01273
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00112
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
----------------------------------------------------------------------------------------------------
AJUSTES PARA PREENCHIMENTO DE CAMPOS AO FAZER DI PELO MENU.
----------------------------------------------------------------------------------------------------
Palavras Chave:
DI PELO MENU - DI POR FORA - CAMPOS NA DI
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
REPS /PWS/MZYCI023F04
REPS /PWS/MZYCI023I01
REPS /PWS/MZYCI023O01
REPS /PWS/MZYCI023X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
* itab_it-dttaxbem ).
ENDIF.
ENDLOOP.
v_tmle_d2 = v_tmle.
PERFORM data_sort.
* >> Início da inclusão: FORM FILL_ITABIT
if v_difora eq 'X'.
perform data_clean_seg.
endif.
* << Fim da inclusão
IF v_dit = 'N'.
IF /pws/zycie085-mdadicao = 'S'.
/pws/zycie085-waersfob = v_waers.
LOOP AT itab_it.
itab_it-dttaxbem = /pws/zycie085-ukursfob.
...
...
IF v_dit = 'S'.
/pws/zycie085-ntimp = itab_zycit001-regime.
ENDIF.
IF /pws/zycie085-j_1bbranch IS INITIAL.
/pws/zycie085-j_1bbranch = itab_zycit001-j_1bbranch.
* >> Início da inclusão: FORM FILL_ITABIT
ENDIF.
if v_difora eq 'X'.
perform fill_desp.
* << Fim da inclusão
ENDIF.
CLEAR /pws/zycit062.
SELECT SINGLE * FROM j_1bbranch
WHERE bukrs = /pws/zycie085-bukrs
AND branch = /pws/zycie085-j_1bbranch.
...
...
FORM fill_taxasiscomex USING p_adics.
SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie085-bukrs.
SELECT SINGLE * FROM /pws/zycit000 WHERE land1 EQ t001-land1.
* >> Início da inclusão: FORM FILL_TAXASISCOMEX
SELECT SINGLE * FROM /pws/zycbt007 INTO wa_zycbt007
WHERE bukrs EQ /pws/zycie085-bukrs.
if wa_it000 is initial.
move /pws/zycit000 to wa_it000.
endif.
* << Fim da inclusão
v_adics = p_adics.
IF NOT /pws/zycie093-meiotransp EQ 'PS'.
s_wsisco = wa_it000-txsis_fix.
IF v_adics > 2.
s_wsisco = s_wsisco + ( wa_it000-txsis_0_2 * 2 ).
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F04
...
* >> Início da inclusão:
form data_clean_seg.
IF sy-tcode = '/PWS/ZYCI023_C'.
IF /pws/zycie085-per_seg IS INITIAL AND
/pws/zycie085-vlseg IS INITIAL.
SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie085-bukrs.
SELECT SINGLE per_seg FROM /pws/zycit000
INTO /pws/zycie085-per_seg
WHERE land1 EQ t001-land1.
ENDIF.
ENDIF.
endform.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023I01
...
fill_receitas.
LOOP AT itab_it WHERE NOT mark IS initial.
itab_it-mark = space.
MODIFY itab_it INDEX sy-tabix TRANSPORTING mark.
ENDLOOP.
* >> Início da inclusão: MODULE USER_COMMAND_0231
CLEAR sy-ucomm.
* << Fim da inclusão
IF sy-dynnr = '0231'.
LEAVE TO SCREEN '0050'.
ELSE.
LEAVE TO SCREEN '0050'.
ENDIF.
...
...
itab_zycit049-vlreal = itab_zycit049-vldp.
ENDIF.
ELSE.
CLEAR itab_zycit049-vlreal.
ENDIF.
* >> Início da inclusão: MODULE MODI_DATA049
if not itab_zycit049-tpdesp is initial.
* << Fim da inclusão
MODIFY itab_zycit049 INDEX tc_desp-current_line.
IF sy-subrc NE 0.
APPEND itab_zycit049.
* >> Início da inclusão: MODULE MODI_DATA049
ENDIF.
* << Fim da inclusão
ENDIF.
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023O01
...
/pws/zycie085-nrbl.
WHEN OTHERS.
v_dit = 'S'.
ENDCASE.
IMPORT wa_zycie085 FROM MEMORY ID rimc4.
* >> Início da inclusão: MODULE LOAD_DATA
if sy-subrc ne 0.
v_difora = 'X'.
endif.
* << Fim da inclusão
IMPORT /pws/zycie001-nrseq FROM MEMORY ID rimc7.
IF sy-subrc EQ 0.
MOVE wa_zycie085 TO /pws/zycie085.
CLEAR: /pws/zycie085-dtuserc, /pws/zycie085-dtusera,
/pws/zycie085-usernamec, /pws/zycie085-usernamea.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023X01
...
* >> Início da inclusão:
datA: v_difora ;
* << Fim da inclusão
...