CE PLUS - Nota 008224
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal Remessa
Data/Hora da Publicação: 20/03/2009 00:00:00
Data/Hora Última Alteração: 09/03/2010 16:42:23
Descrição da Nota: IMPLEMENTAÇÃO DE EXIT NOTA FISCAL REMESSA NA CRIAÇÃO DA NOTA
Sintoma
Implementação de Exit na Nota Fiscal de Remessa
Solução
Implementação de Exit na Nota Fiscal de Remessa
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08224 Data: 20/03/2009 Hora: 16:45:54
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08224
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00009
Agrupamento : 00090
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
IMPLEMENTAÇÃO DE EXIT NOTA FISCAL REMESSA NA CRIAÇÃO DA NOTA
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXIT - NOTA - FISCAL - REMESSA - USER_COMMAND
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016I01
...
( itab_zycit044-qtd_item / itab_zycit042-qtd_iten ).
itab_zycit480r-vl_nf_transf = itab_zycit480r-vl_nf_transf *
( itab_zycit044-qtd_item / itab_zycit042-qtd_iten ).
itab_zycit480r-desconto = itab_zycit480r-desconto *
( itab_zycit044-qtd_item / itab_zycit042-qtd_iten ).
APPEND itab_zycit480r.
ENDLOOP.
ENDMODULE.
MODULE user_command_0200 INPUT.
DATA: v_autoriza TYPE c.
* >> Início da inclusão: MODULE USER_COMMAND_0200
CLEAR: r_okcode, e_exec_okcode.
CALL METHOD cl_gui_cfw=>dispatch.
IF NOT r_okcode IS INITIAL.
okcode = r_okcode.
ENDIF.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI016'
'NFR002'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'NFR002' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
IF e_subrc NE 0.
EXIT.
ENDIF.
ENDIF.
ENDIF.
IF e_exec_okcode IS INITIAL.
* << Fim da inclusão
IF sy-tcode EQ '/PWS/ZYCI016_C' OR
sy-tcode EQ '/PWS/ZYCI016_A'.
CASE okcode.
WHEN 'ITENSNFR'.
CALL SCREEN '0220' STARTING AT 2 2.
WHEN 'ENTE'.
IF /pws/zycie043-nfexterna NE wa_zycit048-nfext.
v_ok = 'A'.
ENDIF.
itab_zycit044-nfnum = /pws/zycie044-nfnum.
...
...
CLEAR: v_coluna.
LOOP AT tc_itens_nfr-cols INTO wa_cols WHERE selected EQ 'X'.
v_coluna = wa_cols-screen-name+14.
ENDLOOP.
IF v_coluna IS INITIAL.
MESSAGE i096.
ELSE.
SORT itab_zycit044 DESCENDING BY (v_coluna).
ENDIF.
ENDCASE.
* >> Início da inclusão: MODULE USER_COMMAND_0200
ENDIF.
* << Fim da inclusão
CLEAR: okcode.
ENDMODULE.
MODULE user_command_0210 INPUT.
CASE okcode.
WHEN 'ENTE'.
LEAVE TO SCREEN 0.
ENDCASE.
ENDMODULE.
MODULE user_command_0220 INPUT.
CASE okcode.
...