CE PLUS - Nota 001526
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Recebimento
Data/Hora da Publicação: 06/06/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:40:45
Descrição da Nota: VARIÁVEL V_MODALIDADE NO COMMON PART PARA UTILIZAÇÃO EM EXIT
Sintoma
Abertura de Exit no recebimento para atender ao FUNDAP (Fundo de Desenvolvimento das Atividades
Portuárias)
Solução
declarada a variável v_modalidade no include /PWS/MZYCI016X01.
Abertura de Exit no recebimento para atender ao FUNDAP (Fundo de Desenvolvimento das Atividades
Portuárias).
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01526 Data: 06/06/2006 Hora: 12:24:25
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01526
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00117
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01850 - 00001 - 6.0 - 00024 - ABERTURA DA EXIT RCB006 ANTES DA MIRO
----------------------------------------------------------------------------------------------------
VARIÁVEL V_MODALIDADE NO COMMON PART PARA UTILIZAÇÃO EM EXIT
----------------------------------------------------------------------------------------------------
Palavras Chave:
COMMON PART - EXIT - RECEBIMENTO - V_MODALIDADE
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016TOP
REPS /PWS/MZYCI016X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016TOP
...
v_nf(10),
v_bktxt like bkpf-bktxt,
v_zuonr like bseg-zuonr,
v_forn like /pws/zycit001-lifnr,
v_sgtxt like bseg-sgtxt,
* >> Início da exclusão:
v_modalidade like /pws/zycie001-modalidade,
* << Fim da exclusão
VAUX_BELNR LIKE RBKP-BELNR,
V_apaga,
v_subrc,
v_urf2(1) type c,
v_dir like rlgrap-filename ,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016X01
...
v_othbas LIKE j_1bdytax-base,
v_impostos LIKE /pws/zycit100-vlpis,
v_despesas LIKE j_1bdylin-netoth,
v_ipi LIKE j_1bdystx-taxval,
v_icms LIKE j_1bdystx-taxval,
* >> Início da inclusão:
v_modalidade like /pws/zycie001-modalidade,
* << Fim da inclusão
v_tiponf(10) ,
e_subrc value 0,
v_modo_bi ,
e_exec_okcode ,
v_total like j_1bdytax-base,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
ENDIF.
ELSEIF v_modalidade NE '99' AND ( t001-land1 NE 'AR' AND
t001-land1 NE 'CL' ) OR
( v_modalidade = '99' AND
v_libera = 'X' ).
* >> Início da inclusão: FORM FILL_DATA_J1B1
REFRESH itab_zyglt100.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI016'
'DNF011'.
e_subrc = 0.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY
zexit = 'DNF011' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
v_tiponf = 'NF'.
e_subrc = '0'.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
ENDIF.
ENDIF.
IF e_subrc = '0'.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYCI_TRANSACAO_J1B1N'
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = it_zycee005
...
...
t_message = it_zycee006
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
ENDIF.
* >> Início da inclusão: FORM FILL_DATA_J1B1
ENDIF.
* << Fim da inclusão
IF sy-subrc = 0 OR v_modalidade = '99'
OR ( t001-land1 EQ 'AR' OR t001-land1 EQ 'CL' ).
IF v_modalidade = '99' AND
v_libera IS INITIAL.
it_zycet005-tcode = text-065.
...
...
ENDIF.
ELSEIF ( v_modalidade NE '99' AND t001-land1 NE 'AR'
AND t001-land1 NE 'CL' ) OR
( v_modalidade = '99' AND
v_libera = 'X' )..
* >> Início da inclusão: FORM FILL_DATA_J1B1
REFRESH itab_zyglt100.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI016'
'DNF011'.
e_subrc = 0.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY
zexit = 'DNF011' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
v_tiponf = 'NF'.
e_subrc = '0'.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
ENDIF.
ENDIF.
IF e_subrc = '0'.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYCI_TRANSACAO_J1B1N'
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = it_zycee005
...
...
t_zycet005 = it_zycet005
t_message = it_zycee006
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
* >> Início da inclusão: FORM FILL_DATA_J1B1
ENDIF.
* << Fim da inclusão
ENDIF.
IF sy-subrc = 0 OR v_modalidade = '99' OR
( t001-land1 EQ 'AR' OR t001-land1 EQ 'CL' ).
IF v_modalidade = '99' AND
v_libera IS INITIAL.
...
...
ENDIF.
ENDLOOP.
ENDIF.
ELSEIF v_modalidade NE '99' AND
( t001-land1 NE 'AR' AND t001-land1 NE 'CL' )..
* >> Início da inclusão: FORM FILL_DATA_J1B1_R
REFRESH itab_zyglt100.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI016'
'DNF011'.
e_subrc = 0.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY
zexit = 'DNF011' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
v_tiponf = 'NF'.
e_subrc = '0'.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
ENDIF.
ENDIF.
IF e_subrc = '0'.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYCI_TRANSACAO_J1B1N'
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = it_zycee005
...
...
t_message = it_zycee006
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
ENDIF.
* >> Início da inclusão: FORM FILL_DATA_J1B1_R
ENDIF.
* << Fim da inclusão
IF sy-subrc = 0 OR v_modalidade = '99' OR
( t001-land1 EQ 'AR' OR t001-land1 EQ 'CL' ).
IF v_modalidade = '99'.
it_zycet005-tcode = text-065.
it_zycet005-tabela = text-025.
...
...
v_tpnf LIKE /pws/zycit044-tpnf,
v_counter TYPE i,
v_lifnr LIKE /pws/zycit042-lifnr,
v_j_1bbranch LIKE /pws/zycit042-j_1bbranch,
v_qtditem TYPE i.
* >> Início da exclusão: FORM FILL_DATA_J1B1_C
CLEAR e_subrc.
* << Fim da exclusão
REFRESH itab_zyglt100.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI016'
'DNF003'.
DELETE itab_zycit042_c2 WHERE vldp_dif < 0.
...
...
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
ELSE.
* >> Início da inclusão: FORM FILL_DATA_J1B1_C
REFRESH itab_zyglt100.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI016'
'DNF011'.
e_subrc = 0.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY
zexit = 'DNF011' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
v_tiponf = 'NF'.
e_subrc = '0'.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
ENDIF.
ENDIF.
IF e_subrc = '0'.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYCI_TRANSACAO_J1B1N'
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = it_zycee005
...
...
t_zycet005 = it_zycet005
t_message = it_zycee006
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
* >> Início da inclusão: FORM FILL_DATA_J1B1_C
ENDIF.
* << Fim da inclusão
IF sy-subrc = 0.
LOOP AT itab_zycit042
WHERE nrseq EQ itab_zycit042_c3-nrseq
AND nfglobal EQ itab_zycit042_c3-nfglobal
AND tpnf EQ itab_zycit042_c3-tpnf.
...
...
ENDIF.
ENDIF.
ENDLOOP.
ELSE.
IF it_zycet004 IS INITIAL.
* >> Início da inclusão: FORM FILL_DATA_J1B1_C
REFRESH itab_zyglt100.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI016'
'DNF011'.
e_subrc = 0.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY
zexit = 'DNF011' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
v_tiponf = 'NF'.
e_subrc = '0'.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
ENDIF.
ENDIF.
IF e_subrc = '0'.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYCI_TRANSACAO_J1B1N'
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = it_zycee005
...
...
t_zycet005 = it_zycet005
t_message = it_zycee006
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
* >> Início da inclusão: FORM FILL_DATA_J1B1_C
ENDIF.
* << Fim da inclusão
IF sy-subrc = 0.
LOOP AT itab_zycit042_c.
READ TABLE it_zycet005 WITH KEY tcode = text-065
tabela = text-014
cpochv =
...