CE PLUS - Nota 002515
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Remessa
Data/Hora da Publicação: 24/11/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 11:35:29
Descrição da Nota: REMESSA - PONTO DE EXIT REM002
Sintoma
Alterar a chamada do ponto de exit REM002 para depois do preenchimento da itab_zycbe033 e
itab_zycbe035. Incluir o campo v_belnr_s e criar outro para enxergar o p_tpimp no include
/PWS/MZYCA109X01.
Solução
Alterar a chamada do ponto de exit REM002 para depois do preenchimento da itab_zycbe033 e
itab_zycbe035. Incluir o campo v_belnr_s e criar outro para enxergar o p_tpimp no include
/PWS/MZYCA109X01.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02515 Data: 24/11/2006 Hora: 16:30:34
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02515
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00141
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
REMESSA - PONTO DE EXIT REM002
----------------------------------------------------------------------------------------------------
Palavras Chave:
REMESSA PONTO DE EXIT REM002 V_BELNR_S P_TPIMP
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCA109F01
REPS /PWS/MZYCA109TOP
REPS /PWS/MZYCA109X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA109F01
...
ENDIF.
ENDLOOP.
ENDFORM.
FORM preenche_gera_contabeis USING p_tpimp
p_vlme.
* >> Início da inclusão: FORM PREENCHE_GERA_CONTABEIS
v_tpimp = p_tpimp.
* << Fim da inclusão
CHECK erro_bi_principal IS INITIAL AND
erro_bi_irrf IS INITIAL AND
erro_bi_cide IS INITIAL AND
erro_bi_pis IS INITIAL AND
erro_bi_cofins IS INITIAL AND
...
...
itab_zycbe033-newbs = '50'.
ENDIF.
ENDIF.
itab_zycbe033-d_gsber = /pws/zycbe124-gsber.
itab_zycbe033-c_gsber = /pws/zycbe124-gsber.
* >> Início da inclusão: FORM PREENCHE_GERA_CONTABEIS
APPEND itab_zycbe033.
PERFORM preenche_partida_multipla USING p_tpimp.
* << Fim da inclusão
CLEAR: itab_zyglt100.
REFRESH: itab_zyglt100.
IF itab_zyglt100[] IS INITIAL.
v_syrepid = sy-repid.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
...
...
IF e_subrc NE 0.
EXIT.
ENDIF.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM PREENCHE_GERA_CONTABEIS
APPEND itab_zycbe033.
PERFORM preenche_partida_multipla USING p_tpimp.
* << Fim da exclusão
IF /pws/zycbe124-frgzu = '2'.
PERFORM call_function_f63 USING p_tpimp.
ELSEIF /pws/zycbe124-frgzu = '1'.
MODIFY /pws/zycbt124 FROM /pws/zycbe124.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA109TOP
...
tcurx,
afko,
afvc.
DATA:
wa_zycbt031a LIKE /pws/zycbe031,
* >> Início da exlusão:
wa_zycbt011 LIKE /pws/zycbt011,
* << Fim da exclusão
wa_vbfa LIKE vbfa,
wa_bkpf LIKE bkpf,
wa_rbkp LIKE rbkp.
...
...
DATA: v_nrboleto LIKE /pws/zycbt064-nrboleto OCCURS 10 WITH HEADER
LINE.
DATA: BEGIN OF itab_pf_status OCCURS 10, "Tabela para setar STATUS 100
fcode LIKE rsmpe-func,
END OF itab_pf_status.
** >> Início da exclusão:
DATA: BEGIN OF itab_zycbt032 OCCURS 100. "Parâmetros F-43
INCLUDE STRUCTURE /pws/zycbt032.
DATA: END OF itab_zycbt032.
** << Fim da exclusão
...
** >> Início da exclusão:
DATA: BEGIN OF itab_zycbt034 OCCURS 100. "Verifica campos do BI
INCLUDE STRUCTURE /pws/zycbt034.
DATA: END OF itab_zycbt034.
DATA: BEGIN OF itab_zycbe035 OCCURS 100. "Lançamentos F-43 (Itens)
INCLUDE STRUCTURE /pws/zycbe035.
DATA: END OF itab_zycbe035.
DATA: BEGIN OF itab_zycbt036 OCCURS 100.
INCLUDE STRUCTURE /pws/zycbt036.
DATA: END OF itab_zycbt036.
** << Fim da exclusão
DATA: BEGIN OF itab_zycbt133 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt133.
DATA: END OF itab_zycbt133.
** >> Início da exclusão:
DATA: BEGIN OF itab_zyglt321 OCCURS 0.
INCLUDE STRUCTURE /pws/zyglt321.
DATA: END OF itab_zyglt321.
** << Fim da exclusão
DATA: BEGIN OF itab_zyglt209_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zyglt209.
DATA: mark(1) TYPE c.
DATA: END OF itab_zyglt209_aux.
DATA: BEGIN OF itab_zyglt209_tela OCCURS 0.
INCLUDE STRUCTURE /pws/zyglt209.
DATA: mark(1) TYPE c.
DATA: END OF itab_zyglt209_tela.
...
...
INCLUDE STRUCTURE /pws/zyglt350.
DATA: END OF itab_custo.
DATA: BEGIN OF itab_lucro OCCURS 0.
INCLUDE STRUCTURE /pws/zyglt350.
DATA: END OF itab_lucro.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycat025_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycat025.
DATA: mark(1) TYPE c.
DATA: END OF itab_zycat025_aux.
* << Fim da exclusão
* >> Início da exclusão:
DATA: BEGIN OF itab_zycat025_aux3 OCCURS 0.
INCLUDE STRUCTURE /pws/zycat025.
DATA: mark(1) TYPE c.
DATA: END OF itab_zycat025_aux3.
* << Fim da exclusão
DATA: BEGIN OF it_modo OCCURS 0.
INCLUDE STRUCTURE spopli.
DATA: END OF it_modo.
DATA : tdynpread LIKE dynpread OCCURS 0 WITH HEADER LINE,
v_mconame LIKE dd23l-mconame.
...
...
v_ordem TYPE c,
v_doc TYPE c,
v_revisao TYPE c,
v_vlme LIKE /pws/zycbt124-vlme,
v_belnr LIKE /pws/zycbt124-belnr,
* >> Início da exclusão:
v_belnr_s LIKE /pws/zycbt124-belnr,
* << Fim da exclusão
v_dtlancp LIKE sy-datum,
v_dtlancir LIKE sy-datum,
v_dtlanccide LIKE sy-datum,
v_frpagto LIKE /pws/zycbt124-frpagto,
v_frpgto LIKE dd07t-ddtext,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA109X01
...
DATA: mark(1) TYPE c.
DATA: END OF itab_zycat025_aux2.
DATA:
w_ok LIKE sy-ucomm,
v_valorme LIKE /pws/zycbt124-vlme.
* >> Início da inclusão:
DATA: v_belnr_s TYPE /pws/zycbt124-belnr,
v_tpimp type /pws/zycat025-tpimp.
wa_zycbt011 LIKE /pws/zycbt011.
data: BEGIN OF itab_zycbt032 OCCURS 100.
INCLUDE STRUCTURE /pws/zycbt032.
DATA: END OF itab_zycbt032.
DATA: BEGIN OF itab_zycbt034 OCCURS 100.
INCLUDE STRUCTURE /pws/zycbt034.
DATA: END OF itab_zycbt034.
DATA: BEGIN OF itab_zycbe035 OCCURS 100.
INCLUDE STRUCTURE /pws/zycbe035.
DATA: END OF itab_zycbe035.
DATA: BEGIN OF itab_zycbt036 OCCURS 100.
INCLUDE STRUCTURE /pws/zycbt036.
DATA: END OF itab_zycbt036.
DATA: BEGIN OF itab_zyglt321 OCCURS 0.
INCLUDE STRUCTURE /pws/zyglt321.
DATA: END OF itab_zyglt321.
DATA: BEGIN OF itab_zycat025_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycat025.
DATA: mark(1) TYPE c.
DATA: END OF itab_zycat025_aux.
DATA: BEGIN OF itab_zycat025_aux3 OCCURS 0.
INCLUDE STRUCTURE /pws/zycat025.
DATA: mark(1) TYPE c.
DATA: END OF itab_zycat025_aux3.
* << Fim da inclusão
DATA: END OF COMMON PART.