CE PLUS - Nota 008799
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 07/08/2009 00:00:00
Data/Hora Última Alteração: 22/02/2011 16:10:23
Descrição da Nota: AJUSTES NECESSÁRIOS PARA ATIVAÇÃO DO PROGRAMA DE FATURA NA VERSÃO 46B
Sintoma
Ajustes necessários para ativação do programa de Fatura na Versão 46B
Solução
Ajustes necessários para ativação do programa de Fatura na Versão 46B
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08799 Data: 07/08/2009 Hora: 15:49:53
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08799
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00010
Agrupamento : 00109
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
08779 - 00001 - 7.0 - 00010 - CRIADO UMA MIRO DINAMICA DEVIDO VERSÃO DO CLIENTE 46B
----------------------------------------------------------------------------------------------------
AJUSTES NECESSÁRIOS PARA ATIVAÇÃO DO PROGRAMA DE FATURA NA VERSÃO 46B
----------------------------------------------------------------------------------------------------
Palavras Chave:
AJUSTE - FATURA - VERSÃO - 46B
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
CALL FUNCTION '/PWS/ZYCI_TEXTOS_CONTABEIS'
EXPORTING
v_nrfat = /pws/zycie006-nrfat
v_nrseq = /pws/zycie001-nrseq
v_codeven = v_codeven
IMPORTING
v_xblnr = v_xblnr
v_zuonr = v_zuonr
v_sgtxt = v_sgtxt
v_bktxt = v_bktxt.
* >> Início da exclusão: FORM MIRO_AM_LA
itab_itemdata-item_text =
wa_headerdata-item_text = v_sgtxt.
wa_headerdata-alloc_nmbr = v_zuonr.
MODIFY itab_itemdata TRANSPORTING item_text
WHERE item_text EQ space.
* << Fim da exclusão
* >> Início da inclusão: FORM MIRO_AM_LA
PERFORM AJUSTES_46B.
* << Fim da inclusão
wa_headerdata-pmnt_block = /pws/zycie006-zlspr.
* >> Início da exclusão: FORM MIRO_AM_LA
wa_headerdata-pymt_meth = /pws/zycie006-zlsch.
* << Fim da exclusão
wa_headerdata-doc_date = itab_zycie033-bldat.
wa_headerdata-pstng_date = itab_zycie033-budat.
wa_headerdata-ref_doc_no = itab_zycie033-bktxt.
wa_headerdata-comp_code = itab_zycie033-bukrs.
wa_headerdata-currency = itab_zycie033-waers.
wa_headerdata-gross_amount = itab_zycie033-rmwwr.
...
...
itab_glaccount
itab_return
CHANGING
v_belnr_mr1m
v_gjahr
wa_headerdata
IF FOUND.
ENDIF.
ENDIF.
endform.
* >> Início da inclusão:
form AJUSTES_46B.
IF sy-saprl+0(3) NE '46B'.
DATA: t_prog(72) TYPE c OCCURS 1000 WITH HEADER LINE.
DATA: w_prog LIKE trdir-name.
APPEND 'report sy-repid MESSAGE-ID /pws/zycim.' "#EC NOTEXT
TO t_prog.
APPEND
' DATA: wa_headerdata like bapi_incinv_create_header,' "#EC NOTEXT
TO t_prog.
APPEND
' itab_itemdata TYPE bapi_incinv_create_item ' "#EC NOTEXT
TO t_prog.
APPEND
' OCCURS 0 WITH HEADER LINE. ' "#EC NOTEXT
TO t_prog.
APPEND
' DATA: p_zycie006 LIKE /pws/zycie006. ' "#EC NOTEXT
TO t_prog.
APPEND
' DATA: v_zuonr LIKE bseg-zuonr, ' "#EC NOTEXT
TO t_prog.
APPEND
' v_sgtxt LIKE bseg-sgtxt. ' "#EC NOTEXT
TO t_prog.
APPEND
'FORM f_exec_open ' "#EC NOTEXT
TO t_prog.
APPEND
'TABLES itab_itemdata STRUCTURE itab_itemdata ' "#EC NOTEXT
TO t_prog.
APPEND
' CHANGING ' "#EC NOTEXT
TO t_prog.
APPEND
' wa_headerdata STRUCTURE wa_headerdata ' "#EC NOTEXT
TO t_prog.
APPEND
' p_zycie006 structure /pws/zycie006 ' "#EC NOTEXT
TO t_prog.
APPEND
' v_zuonr ' "#EC NOTEXT
TO t_prog.
APPEND
' v_sgtxt. ' "#EC NOTEXT
TO t_prog.
APPEND
' itab_itemdata-item_text = wa_headerdata-item_text = v_sgtxt. '
"#EC NOTEXT
TO t_prog.
APPEND
' wa_headerdata-alloc_nmbr = v_zuonr. ' "#EC NOTEXT
TO t_prog.
APPEND
' wa_headerdata-pymt_meth = p_zycie006-zlsch. ' "#EC NOTEXT
TO t_prog.
APPEND
' MODIFY itab_itemdata TRANSPORTING item_text ' "#EC NOTEXT
TO t_prog.
APPEND
' WHERE item_text EQ space. ' "#EC NOTEXT
TO t_prog.
APPEND
'ENDFORM. ' "#EC NOTEXT
TO t_prog.
GENERATE SUBROUTINE POOL t_prog NAME w_prog. "#EC CI_GENERATE
IF sy-subrc = 0.
PERFORM f_exec_open IN PROGRAM (w_prog)
TABLES
itab_itemdata
CHANGING
wa_headerdata
/pws/zycie006
v_zuonr
v_sgtxt
IF FOUND.
ENDIF.
ENDIF.
endform.
* << Fim da inclusão