CE PLUS - Nota 005249
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Transmissão Siscomex
Data/Hora da Publicação: 20/11/2007 00:00:00
Data/Hora Última Alteração: 09/03/2010 10:58:39
Descrição da Nota: AO CANCELAR TRANSMISSÃO DA DI, SISTEMA CONTINUA TRANSMITINDO
Sintoma
Ao transmitir a DI uma vez para o siscomex e clicar no botão transmitir para transmitir novamente
aparece um pop up, se clicar em cancelar o sistema transmiti a DI, deveria cancelar.
Solução
ao cancelar transmissão, sair do processo de transmitir itens para siscomex
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05249 Data: 20/11/2007 Hora: 09:34:21
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05249
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00022
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
AO CANCELAR TRANSMISSÃO DA DI, SISTEMA CONTINUA TRANSMITINDO
----------------------------------------------------------------------------------------------------
Palavras Chave:
TRANSMISSÃO SISCOMEX - DI - BOTÃO CANCELAR
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F03
REPS /PWS/MZYCI023I01
REPS /PWS/MZYCI023X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
textline1 = text-069
titel = text-070
IMPORTING
answer = v_resposta.
IF v_resposta EQ 'J'.
wa_zycit136-stasis = 'A'.
wa_zycit136-dtenvf = sy-datlo.
MODIFY /pws/zycit136 FROM wa_zycit136.
IF okcode EQ 'TRANSM'.
ENDIF.
* >> Início da inclusão: FORM COMM_SEND
elseif v_resposta eq 'A'.
V_TRANSM = 'N'.
exit.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
ELSE.
MESSAGE e015 WITH text-029.
ENDIF.
ENDFORM.
FORM comm_idel.
IF /pws/zycie085-dtreg IS INITIAL.
LOOP AT itab_it WHERE NOT mark IS initial.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023I01
...
PERFORM: comm_select USING 'X'.
WHEN 'UNSELECT'.
PERFORM: comm_select USING space.
WHEN 'IDEL'.
PERFORM: comm_idel.
WHEN 'VLI'.
PERFORM: verifica_li.
WHEN 'ADM'.
PERFORM: comm_adm.
WHEN 'TRANSM'.
* >> Início da exclusão: MODULE USER_COMMAND_0050
PERFORM: comm_send,
send.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0050
PERFORM: comm_send.
if v_transm ne 'N'.
perform send.
endif.
* << Fim da inclusão
WHEN 'VERIFY'.
PERFORM: verify_transm.
WHEN 'MODO'.
DATA: v_autoriza TYPE c.
CALL FUNCTION '/PWS/ZYGL_AUTORIZA_MODO_BATCH'
EXPORTING
codmod = 'D'
usuario = sy-uname
func = 'DI'
IMPORTING
...
...
ENDMODULE.
MODULE modi_dataadir INPUT.
it_adir-mark = wa_adr-mark.
MODIFY it_adir INDEX tc_arep-current_line TRANSPORTING mark.
ENDMODULE.
MODULE check_urf INPUT.
IF NOT v_msg1 IS INITIAL.
CLEAR: v_msg1.
IF NOT /pws/zycie085-urfdesp IS INITIAL AND
NOT /pws/zycie085-urfent IS INITIAL.
* >> Início da exclusão: MODULE CHECK_URF
IF ( /pws/zycie093-tpdoccheg EQ '3' OR /pws/zycie093-tpdoccheg EQ
'4' ) AND
* << Fim da exclusão
* >> Início da inclusão: MODULE CHECK_URF
IF ( /pws/zycie093-tpdoccheg EQ '3' OR
/pws/zycie093-tpdoccheg EQ '4' ) AND
* << Fim da inclusão
( /pws/zycie085-urfdesp = /pws/zycie085-urfent ).
MESSAGE s015 WITH text-019.
ELSE.
* >> Início da exclusão: MODULE CHECK_URF
IF ( /pws/zycie093-tpdoccheg EQ '1' OR /pws/zycie093-tpdoccheg EQ
'2' ) AND
* << Fim da exclusão
* >> Início da inclusão: MODULE CHECK_URF
IF ( /pws/zycie093-tpdoccheg EQ '1' OR
/pws/zycie093-tpdoccheg EQ '2' ) AND
* << Fim da inclusão
( /pws/zycie085-urfdesp NE /pws/zycie085-urfent ).
MESSAGE s015 WITH text-033.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDMODULE.
MODULE load_cana INPUT.
PERFORM load_cana.
ENDMODULE.
...
...
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK' ID 'BUKRS' FIELD
/pws/zycie085-bukrs
ID 'ACTVT' FIELD '03'.
IF sy-subrc NE 0.
MESSAGE e083(f5) WITH /pws/zycie085-bukrs.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDMODULE.
* >> Início da exclusão: MODULE MODIFY_LINE
MODULE modify_line INPUT.
ENDMODULE.
* << Fim da exclusão
MODULE user_command_0002 INPUT.
okcode = sy-ucomm.
CASE okcode.
WHEN 'ENTE'.
PERFORM submit_report_cliente.
WHEN 'FUNC'.
PERFORM chama_func_cliente.
WHEN 'CANC'.
SET SCREEN 0.
LEAVE SCREEN.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023X01
...
data v_ntgew LIKE /pws/zycit003-ntgew.
data v_ntgewd LIKE /pws/zycit003-ntgew.
DATA: v_dele.
DATA: v_pisred LIKE t_icms,
v_cofred LIKE t_icms,
v_calcpc LIKE itab_it-basepis.
DATA: v_difgran LIKE /pws/zycie085-vlfob.
data: v_diftern type /pws/zycit085-vlfob.
DATA: v_cgc LIKE j_1bwfield-cgc_number.
data v_tipop.
* >> Início da inclusão:
data : v_transm.
* << Fim da inclusão
DATA: END OF COMMON PART.