CE PLUS - Nota 001219
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação de Fatura
Data/Hora da Publicação: 18/04/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 15:08:41
Descrição da Nota: INSERÇÃO DOS PONTOS DE EXIT NOS PROGRAMAS DO PRODUTO
Sintoma
Estão faltando Pontos de Exit nos Programas do Produto.
Solução
foram inseridos os Pontos de Exit nos Programas do Produto.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01219 Data: 18/04/2006 Hora: 14:57:56
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01219
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00110
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
INSERÇÃO DOS PONTOS DE EXIT NOS PROGRAMAS DO PRODUTO
----------------------------------------------------------------------------------------------------
Palavras Chave:
PONTOS EXIT
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB004F01
REPS /PWS/MZYCB004F02
REPS /PWS/MZYCB004I01
REPS /PWS/MZYCB009F01
REPS /PWS/MZYCB009F09
REPS /PWS/MZYCB009I01
REPS /PWS/MZYCB031I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F01
...
READ TABLE itab_zyglt100 WITH KEY zexit = v_exit004.
IF sy-subrc EQ 0.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ENDIF.
* >> Início da inclusão: FORM EXECUTA_EXIT
READ TABLE itab_zyglt100 WITH KEY zexit = 'LIQ011'.
IF sy-subrc EQ 0.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ENDIF.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM fill_date_f22_perf TABLES itab_bsas STRUCTURE itab_bsas_aux
itab_bsad STRUCTURE itab_bsad_aux
itab_zycbt084 STRUCTURE itab_zycbt084
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F02
...
itab_contabil-docto = itab_zycbt032-belnr.
itab_contabil-msg = text-186.
itab_contabil-dtdocto = itab_zycbt006-dtpagto.
itab_contabil-bukrs = itab_zycbe033-bukrs.
APPEND itab_contabil.
* >> Início da inclusão: FORM ANULA_LIQUIDACAO
READ TABLE itab_zyglt100 WITH KEY zexit = 'LIQ012'.
IF sy-subrc EQ 0.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ENDIF.
* << Fim da inclusão
ELSE.
LOOP AT itab_zycbt032 WHERE tcode = 'FB08'
AND tabela = 'ZYCBT006'
AND cpochv = v_cpochv.
itab_erro-vbeln = itab_zycbt006-belnr.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004I01
...
IF e_subrc NE 0.
EXIT.
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: MODULE USER_COMMAND_0100
READ TABLE itab_zyglt100 WITH KEY zexit = 'OKCODE'.
IF sy-subrc EQ 0.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa)
USING ok_code
CHANGING e_subrc.
ENDIF.
* << Fim da inclusão
CASE ok_code.
WHEN 'PB_HELP'.
v_tela_help = '0051'.
EXIT.
WHEN 'CLOSE'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F01
...
PERFORM local_negocio.
PERFORM verifica_pais_filial USING /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
ENDIF.
* >> Início da inclusão: FORM FILL_DATE1_F02
CALL CUSTOMER-FUNCTION '003'
TABLES
t_dados = itab_zycbe033.
* << Fim da inclusão
itab_zycbe033-agums = wa_zycbt011-agums.
itab_zycbe033-umskz = wa_zycbt011-agums.
IF /pws/zycbe001-tpcontr(1) = 'D' AND
wa_zycbt089-f_cont_vinc = 'A'.
itab_zycbe033-newbs = '19'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F09
...
PERFORM local_negocio.
PERFORM verifica_pais_filial USING /pws/zycbe001-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
ENDIF.
* >> Início da inclusão: FORM LANCA_CLIENTE
CALL CUSTOMER-FUNCTION '003'
TABLES
t_dados = itab_zycbe033.
* << Fim da inclusão
APPEND itab_zycbe033.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
IF itab_zycbt034[] IS INITIAL.
...
...
PERFORM local_negocio.
PERFORM verifica_pais_filial USING /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
ENDIF.
* >> Início da inclusão: FORM EST_DESC_RECEBIVEIS
CALL CUSTOMER-FUNCTION '003'
TABLES
t_dados = itab_zycbe033.
* << Fim da inclusão
APPEND itab_zycbe033.
CHECK sy-subrc EQ 0.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009I01
...
IF e_subrc NE 0.
EXIT.
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: MODULE USER_COMMAND_0100
READ TABLE itab_zyglt100 WITH KEY zexit = 'OKCODE' BINARY SEARCH.
IF sy-subrc EQ 0.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa)
USING ok_code
CHANGING e_subrc.
IF e_subrc NE 0.
EXIT.
ENDIF.
ENDIF.
* << Fim da inclusão
PERFORM preenche_itab_zycbt005.
CASE ok_code.
WHEN 'PB_HELP'.
v_tela_help = '0051'.
EXIT.
...
...
ENDMODULE.
MODULE user_command_0400 INPUT.
SELECT SINGLE * FROM /pws/zycbt089
WHERE bukrs EQ /pws/zycbe001-bukrs.
PERFORM executa_exit USING 'VNC010'.
* >> Início da inclusão: MODULE USER_COMMAND_0400
PERFORM executa_exit USING 'OKCODES'.
* << Fim da inclusão
CASE ok_code.
WHEN 'PB_HELP'.
v_tela_help = '0051'.
EXIT.
WHEN 'CLOSE'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB031I01
...
IF e_subrc NE 0.
EXIT.
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: MODULE USER_COMMAND_0100
READ TABLE itab_zyglt100 WITH KEY zexit = 'LIQ010' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa)
USING ok_code
CHANGING e_subrc.
IF e_subrc NE 0.
EXIT.
ENDIF.
ENDIF.
ENDIF.
* << Fim da inclusão
CASE ok_code.
WHEN 'PB_HELP'.
v_tela_help = '0051'.
EXIT.
WHEN 'CLOSE'.
...