CE PLUS - Nota 000805
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 03/02/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:08:46
Descrição da Nota: NÃO ESTÃO SENDO INCLUIDOS OS DADOS NA PASTA CAMBIO
Sintoma
Os dados incluídos na pasta câmbio (pagamento em até 180 dias)da adição, da DI dentro de parcelas
variáveis e parcelas fixas, não estão sendo gravados nas tabelas zycit124 e zycit116.
Solução
Tratamento para mover corretamente.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00805 Data: 03/02/2006 Hora: 16:39:09
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00805
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00022
Agrupamento : 00099
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
NÃO ESTÃO SENDO INCLUIDOS OS DADOS NA PASTA CAMBIO
----------------------------------------------------------------------------------------------------
Palavras Chave:
PASTA - CAMBIO - PAGAMENTO EM ATÉ 180 DIAS - GRAVADOS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
AND nrseq = itab_itb-nrseq
AND ebeln = itab_itb-ebeln
AND ebelp = itab_itb-ebelp
AND adicao = itab_itb-adicao.
ENDLOOP.
* >> Início da inclusão: FORM SALVA_DADOS_SISCOMEX
DELETE itab_zycit121 WHERE adicao = wa_ad-adicao.
LOOP AT itab_zycit121b.
MOVE itab_zycit121b TO itab_zycit121.
APPEND itab_zycit121.
ENDLOOP.
LOOP AT itab_zycit121c.
MOVE itab_zycit121c TO itab_zycit121.
APPEND itab_zycit121.
ENDLOOP.
DELETE itab_zycit124 WHERE adicao = wa_ad-adicao.
LOOP AT itab_zycit124b.
MOVE itab_zycit124b TO itab_zycit124.
APPEND itab_zycit124.
ENDLOOP.
MODIFY /pws/zycit121 FROM TABLE itab_zycit121.
MODIFY /pws/zycit124 FROM TABLE itab_zycit124.
* << Fim da inclusão
ENDFORM.
FORM salva_fatura.
DATA: v_belnr_p LIKE /pws/zycie006-belnr_p,
itab_132 LIKE /pws/zycie132 OCCURS 10 WITH HEADER LINE.
DATA: BEGIN OF itab_zycbt117 OCCURS 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
IF /pws/zycie006-codcambial = '4'.
CLEAR /pws/zycie116-valtot.
ENDIF.
* >> Início da inclusão: FORM save_adic
IF NOT v_pos = 0.
* << Fim da inclusão
* >> Início da Exclusão
IF NOT sy-tabix = 0.
* >> Fim da Exclusão
* v_pos = sy-tabix.
MOVE-CORRESPONDING /pws/zycie116 TO itab_zycit116.
MODIFY itab_zycit116 INDEX v_pos.
IF sy-subrc NE 0.
APPEND itab_zycit116.
ENDIF.
* >> Início da inclusão: FORM save_adic
ENDIF.
* << Fim da inclusão
* >> Início da Exclusão
ENDIF.
* >> Fim da Exclusão
DELETE itab_zycit114 WHERE adicao = wa_ad-adicao.
LOOP AT itab_zycit114b.
MOVE itab_zycit114b TO itab_zycit114.
APPEND itab_zycit114.
ENDLOOP.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023I01
...
WHEN 'TRANSM'.
PERFORM: comm_send.
WHEN 'VERIFY'.
PERFORM: verify_transm.
WHEN 'MODO'.
* >> Início da inclusão: MODULE USER_COMMAND_0050
DATA: v_autoriza TYPE feld.
CALL FUNCTION '/PWS/ZYGL_AUTORIZA_MODO_BATCH'
EXPORTING
codmod = 'D'
usuario = sy-uname
func = 'DI'
IMPORTING
autoriza = v_autoriza.
IF v_autoriza = 'X'.
* << Fim da inclusão
PERFORM modo_batch_input.
* >> Início da inclusão: MODULE USER_COMMAND_0050
ELSE.
MESSAGE w013 WITH text-235 text-236.
ENDIF.
* << Fim da inclusão
WHEN 'VISUA'.
PERFORM visualiza_rateio.
WHEN 'ENTE'.
PERFORM msg_dsi.
WHEN 'PB_HELP'.
...
...
WHEN 'DRAFT'.
v_seqdi = /pws/zycie085-nrseqdi.
SET PARAMETER ID '/PWS/ZYCIP085' FIELD v_seqdi.
EXPORT v_seqdi TO MEMORY ID 'V_REL'.
SUBMIT /pws/zycir331 AND RETURN.
* >> Início da inclusão: MODULE USER_COMMAND_0050
WHEN 'BACK'.
v_comm = sy-ucomm.
IF sy-tcode EQ '/PWS/ZYCI023_C' OR
sy-tcode EQ '/PWS/ZYCI023_A'.
IF sy-tcode EQ '/PWS/ZYCI023_C'.
IF /pws/zycie085-moddesps IS INITIAL OR
v_required EQ '0'.
PERFORM delete_text.
LEAVE PROGRAM.
ENDIF.
ENDIF.
IF v_required EQ '1' AND
/pws/zycie085-dttax IS INITIAL.
LEAVE PROGRAM.
ENDIF.
PERFORM check USING vl_erro.
IF vl_erro IS INITIAL.
PERFORM verify_changes.
IF v_changed EQ '1' AND sy-binpt IS INITIAL.
CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE'
EXPORTING
defaultoption = 'Y'
diagnosetext1 = text-023
textline1 = text-024
titel = text-025
IMPORTING
answer = v_resposta.
IF v_resposta EQ 'J'.
PERFORM save_data.
ELSEIF v_resposta EQ 'N' .
IF sy-tcode EQ '/PWS/ZYCI023_C'.
PERFORM delete_text.
ENDIF.
LEAVE PROGRAM.
ELSEIF v_resposta EQ 'A'.
EXIT.
ENDIF.
ELSEIF v_changed EQ '2'.
CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE'
EXPORTING
defaultoption = 'N'
diagnosetext1 = text-044
textline1 = text-045
titel = text-025
IMPORTING
answer = v_resposta.
IF v_resposta EQ 'N' OR v_resposta EQ 'A'.
EXIT.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
CLEAR: editor2.
IF sy-binpt IS INITIAL.
CALL METHOD editcontainer2->free.
ENDIF.
PERFORM unlock_record.
CLEAR: s_cnpj, v_changed,s_regdescr,s_urf.
CLEAR: itab_zycit095, itab_zycit095a,
itab_zycit086, itab_zycit086a, itab_zycit087,
itab_zycit087a, itab_zycit096, itab_zycit096a,
itab_it, itab_ita, itab_zycit003,
itab_zycit013, itab_zycit100, wa_it, wa_ad, wa_lfa1,
/pws/zycie100a, it_adi, it_alist.
REFRESH:itab_zycit086, itab_zycit086a, itab_zycit087,
itab_zycit087a,itab_zycit096, itab_zycit096a,
itab_it, itab_ita, itab_zycit003,
itab_zycit013, itab_zycit100, it_adi,
it_alist.
IF v_comm = 'LEAV'.
LEAVE PROGRAM.
ELSE.
IF sy-tcode NE '/PWS/ZYCI023_C' AND
sy-tcode NE '/PWS/ZYCI023_I' AND
v_nrseqdi IS INITIAL.
LEAVE TO SCREEN '0010'.
ELSE.
LEAVE PROGRAM.
ENDIF.
ENDIF.
* << Fim da inclusão
ENDCASE.
ENDIF.
CLEAR: sy-ucomm, r_okcode.
ENDMODULE.
MODULE load_urf INPUT.
...
...
WHEN 'BACK' OR 'LEAV'.
LEAVE TO SCREEN 0.
ENDCASE.
WHEN '0300'.
CASE sy-ucomm.
* >> Início da exclusão: MODULE USER_COMMAND_EXIT
WHEN 'BACK' OR 'LEAV'.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_EXIT
WHEN 'LEAV'.
* << Fim da inclusão
PERFORM save_adic.
CLEAR: editor.
CALL METHOD editcontainer->free.
CALL METHOD cl_gui_cfw=>flush.
LEAVE TO SCREEN 0.
...
...
ENDIF.
ENDIF.
ENDCASE.
WHEN '0231' OR '0400'.
CASE sy-ucomm.
* >> Início da exclusão: MODULE USER_COMMAND_EXIT
WHEN 'BACK' OR 'LEAV'.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_EXIT
WHEN 'LEAV'.
* << Fim da inclusão
PERFORM: save_data_item,
calc_itab,
fill_receitas.
LOOP AT itab_it WHERE NOT mark IS initial.
itab_it-mark = space.
...
...
CASE sy-ucomm.
WHEN 'ENTE'.
GET CURSOR LINE v_linha.
v_pos = tc_adic-top_line + v_linha - 1.
PERFORM adic_change.
* >> Início da inclusão: MODULE USER_COMMAND_0231
WHEN 'BACK'.
LEAVE TO SCREEN 0.
* << Fim da inclusão
ENDCASE.
WHEN '0180'.
CALL METHOD cl_gui_cfw=>dispatch.
CASE sy-ucomm.
WHEN 'FC_COM'.
...
...
ELSE.
MESSAGE s015 WITH text-041.
ENDIF.
WHEN 'ENTE'.
PERFORM save_data_item.
* >> Início da inclusão: MODULE USER_COMMAND_0231
when 'BACK'.
PERFORM: save_data_item,
calc_itab,
fill_receitas.
LOOP AT itab_it WHERE NOT mark IS initial.
itab_it-mark = space.
MODIFY itab_it INDEX sy-tabix TRANSPORTING mark.
ENDLOOP.
IF sy-dynnr = '0231'.
LEAVE TO SCREEN '0050'.
ELSE.
LEAVE TO SCREEN '0050'.
ENDIF.
* << Fim da inclusão
ENDCASE.
ENDCASE.
CLEAR sy-ucomm.
ENDMODULE.
MODULE load_regt INPUT.
...
...
ELSE.
MESSAGE s015 WITH text-041.
ENDIF.
WHEN 'SAVE'.
PERFORM salva_dados_siscomex.
* >> Início da inclusão: MODULE USER_COMMAND_0300
WHEN 'BACK'.
PERFORM save_adic.
LEAVE TO SCREEN 0.
* << Fim da inclusão
ENDCASE.
CLEAR: sy-ucomm.
ENDMODULE.
MODULE modi_data049 INPUT.
itab_zycit049-tpdesp = /pws/zycie049-tpdesp.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP Tela 0353
process before output.
module: radio_init1,
set_screen,
screen_lines.
loop at itab_zycit124b with control tc_apar.
module: set_screen_lines_esp,
fill_struct124b.
endloop.
process after input.
module: radio_comm1.
loop at itab_zycit124b.
* << Início da inclusão
chain.
field /pws/zycie124-valor module modi_data124b on input.
endchain.
* << Fim da inclusão
module modi_data124b.
endloop.
field: /pws/zycie116-codtxjuros module load_juro on request.
module: verify_tables.
*Os seguintes campos foram modificados:
Nome
Ctg. Linha Coluna CmprDf CmVis Altura Format Dict Modif At.Des.Só At
Gr1 Gr2 Gr3 Gr4 SPA GPA ID parâm Cód.F TCmp TpoLoopExbLoop
Outros atributos
*DE
/PWS/ZYCIE116-TAXAJUROS
Check 4 67 1 1 1 CHAR X X Off
AC TX
*PARA
/PWS/ZYCIE116-TAXAJUROS
Check 4 68 1 1 1 CHAR X X Off
AC
* Os seguintes PF-status foram alterados : 0300
Código de função Categoria Res. Nome campo p/texto GUI dinâmico
*DE:
BACK E ICON_ARROW_LEFT
*PARA
BACK ICON_ARROW_LEFT