CE PLUS - Nota 007346
Módulo: CÂMBIO IMPORTAÇÃO
Funcionalidade: Financiamento
Data/Hora da Publicação: 23/09/2008 00:00:00
Data/Hora Última Alteração: 18/02/2011 10:01:04
Descrição da Nota: FINANCIAMENTO DE IMPORTAÇÃO
Sintoma
Financiamento de importação não apresenta mensagem de retorno de erro quando não está informado o
código AB para o Tipo de Documento da T011. Nem mesmo quando a conta crédito não está no parâmetro
da 012. Além disso, é preciso manter o nome das letras S, C e L (períodos do financiamento) como
fixo no código para garantir a contabilização.
Solução
Mensagem de retorno: gravação em tabela
Símbolos de texto: constantes foram geradas no lugar de text.
Loop indevido foi tirado do código da função
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07346 Data: 23/09/2008 Hora: 15:41:13
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07346
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00066
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04735 - 00001 - 7.0 - 00002 - FINANCIAMENTO - RELATÓRIO DE MENSAGENS DE CONTABILIZAÇÃO
07218 - 00002 - 7.0 - 00006 - FINANCIAMENTO DE IMPORTAÇÃO
----------------------------------------------------------------------------------------------------
FINANCIAMENTO DE IMPORTAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
FINANCIAMENTO DE IMPORTAÇÃO- MENSAGEM DE RETORNO SÍMBOLOS DE TEXTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/LZYCMGF2F01
REPS /PWS/MZYCM101F01
REPS /PWS/MZYCM101I01
REPS /PWS/MZYCM101O01
REPS /PWS/MZYCM101TOP
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYCMGF2F01
...
i_koart = p_koart
i_monat = p_monat
EXCEPTIONS
error_period = 1
error_period_acc = 2
OTHERS = 3. "#EC *
IF sy-subrc <> 0.
PERFORM entrar_nova_data USING v_resposta v_novadata.
IF v_resposta = 'A'.
RAISE periodo_fechado.
* >> Início da inclusão: FORM CHECK_PERIODO
ELSE.
p_gjahr = v_novadata+6(04).
concatenate '0' v_novadata+3(2) into p_monat.
* << Fim da inclusão
ENDIF.
ELSE.
p_ok = 'S'.
ENDIF.
ENDWHILE.
p_novadata = v_novadata.
ENDFORM.
FORM entrar_nova_data
USING p_resposta TYPE c
p_novadata LIKE spop-varvalue1.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCM101F01
...
LOOP AT itab_zycbt034.
wa_mensagem-tpmsg = c_erro.
CONCATENATE text-246
itab_zycbt034-descricao
text-250
text-251
'FIN'
text-249
INTO wa_mensagem-msg
SEPARATED BY space.
* >> Início da inclusão: FORM FILL_DATE1_F48
APPEND wa_mensagem TO itab_mensagem.
* << Fim da inclusão
v_erro_bi = 'X'.
ENDLOOP.
IF itab_zycbt034[] IS INITIAL.
CALL FUNCTION '/PWS/ZYCM_TRANSACAO_F_43C'
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = itab_zycbe033
t_item = itab_item
t_campo = itab_zycbt034
...
...
INTO TABLE itab_zycbt012
WHERE codeven = v_codeven
AND codmod = text-016.
CLEAR itab_zycbt012.
v_nrdias = itab_zycbt113p-dtfinal - /pws/zycbe112-dtdesem.
CLEAR /pws/zyglt009.
SELECT SINGLE nrdias_cp FROM /pws/zyglt009
INTO /pws/zyglt009-nrdias_cp
WHERE bukrs EQ /pws/zycbe112-bukrs.
IF v_nrdias <= /pws/zyglt009-nrdias_cp.
* >> Início da exclusão: FORM GET_PARAMETERS_112
v_prazo = text-466.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_112
v_prazo = c_prazo_s.
* << Fim da inclusão
ELSE.
* >> Início da exclusão: FORM GET_PARAMETERS_112
v_prazo = text-465.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_112
v_prazo = c_prazo_l.
* << Fim da inclusão
ENDIF.
* >> Início da exclusão: FORM GET_PARAMETERS_112
IF itab_zycbt113p-ftransf = text-007.
v_prazo = text-007.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_112
IF itab_zycbt113p-ftransf = c_prazo_c.
v_prazo = c_prazo_c.
* << Fim da inclusão
ENDIF.
CLEAR wa_zycbt011.
SELECT SINGLE * FROM /pws/zycbt011
INTO wa_zycbt011
WHERE codeven = v_codeven
AND codmod = text-016
AND bukrs = /pws/zycbe112-bukrs.
CONCATENATE /pws/zycbe112-codint v_prazo
INTO v_codaux1 SEPARATED BY space.
CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
...
...
READ TABLE itab_zycbt032 WITH KEY tcode = text-083
tabela = text-008
cpochv = /pws/zycbe112-nrseq
tpmsg = 'S'.
IF sy-subrc = 0.
wa_mensagem-tpmsg = c_sucesso.
CONCATENATE text-058
itab_zycbt032-msg
INTO wa_mensagem-msg
SEPARATED BY space.
* >> Início da inclusão: FORM GERA_NOVAS_PARCELAS
APPEND wa_mensagem TO itab_mensagem.
* << Fim da inclusão
REFRESH itab_zycbt036.
itab_zycbt036-tcode = text-083.
itab_zycbt036-tabela = text-008.
itab_zycbt036-cpochv = /pws/zycbe112-nrseq.
itab_zycbt036-belnr = itab_zycbt032-belnr.
SELECT SINGLE awkey FROM bkpf
INTO itab_zycbt036-awkey
WHERE belnr EQ itab_zycbt032-belnr
AND bukrs EQ /pws/zycbe112-bukrs
AND gjahr EQ v_budat(4).
APPEND itab_zycbt036.
itab_zycbt113p-belnr = itab_zycbt032-belnr.
* >> Início da exclusão: FORM GERA_NOVAS_PARCELAS
IF v_prazo EQ 'L'.
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_NOVAS_PARCELAS
IF v_prazo EQ c_prazo_l.
* << Fim da inclusão
itab_zycbt113p-belnr_lp = itab_zycbt032-belnr.
* >> Início da exclusão: FORM GERA_NOVAS_PARCELAS
itab_zycbt113p-ftransf = 'L'.
ELSEIF v_prazo EQ text-007.
itab_zycbt113p-ftransf = text-007.
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_NOVAS_PARCELAS
itab_zycbt113p-ftransf = c_prazo_l.
ELSEIF v_prazo EQ c_prazo_c.
itab_zycbt113p-ftransf = c_prazo_c.
* << Fim da inclusão
ELSE.
* >> Início da exclusão: FORM GERA_NOVAS_PARCELAS
itab_zycbt113p-ftransf = 'S'.
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_NOVAS_PARCELAS
itab_zycbt113p-ftransf = c_prazo_s.
* << Fim da inclusão
ENDIF.
itab_zycbt113p-dtcont = v_budat.
MODIFY itab_zycbt113p.
...
...
FROM /pws/zycbt112
INTO wa_zycbt112_log
WHERE nrseq = /pws/zycbe112-nrseq.
PERFORM grava_log USING '/PWS/ZYCBT112'
wa_log
'A'.
ENDIF.
MOVE /pws/zycbt112 TO wa_zycbt112.
ENDFORM.
FORM busca_conta_parcela.
* >> Início da exclusão: FORM BUSCA_CONTA_PARCELA
IF itab_zycbt113pa-ftransf EQ 'L'.
v_prazo = 'L'.
ELSEIF itab_zycbt113pa-ftransf EQ text-007.
v_prazo = text-007.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_CONTA_PARCELA
IF itab_zycbt113pa-ftransf EQ c_prazo_l.
v_prazo = c_prazo_l.
ELSEIF itab_zycbt113pa-ftransf EQ c_prazo_c.
v_prazo = c_prazo_c.
* << Fim da inclusão
ELSE.
* >> Início da exclusão: FORM BUSCA_CONTA_PARCELA
v_prazo = 'S'.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_CONTA_PARCELA
v_prazo = c_prazo_s.
* << Fim da inclusão
ENDIF.
CONCATENATE wa_zycbt112-codint v_prazo
INTO v_codaux1 SEPARATED BY space.
...
...
'DTDESEM'
text-011.
itab_zycbe033-bldat = wa_zycbt112r-dtdesem.
itab_zycbe033-d_valut = wa_zycbt112r-dtdesem.
IF wa_zycbt007-dt_efet = 'E'.
itab_zycbe033-d_valut = wa_zycbt113-dtvecto .
converte_data wa_zycbt113-dtvecto itab_zycbe033-c_valut.
ENDIF.
ENDCASE.
converte_data wa_zycbt113-dtvecto itab_zycbe033-c_valut.
* >> Início da exclusão: FORM RECLASSIFICA_FINANC_ORIGINAL
IF wa_zycbt113-ftransf = text-007.
* << Fim da exclusão
* >> Início da inclusão: FORM RECLASSIFICA_FINANC_ORIGINAL
IF wa_zycbt113-ftransf = c_prazo_c.
* << Fim da inclusão
SELECT dtcont
FROM /pws/zycbt154
UP TO 1 ROWS
INTO /pws/zycbt154-dtcont
WHERE nrcorresp EQ /pws/zycbe112-nrseq
AND tpcontr EQ wa_zycbt113-nrparc+1(2)
AND codmod EQ 'I'
AND codmodul EQ 'T'.
ENDSELECT.
itab_zycbe033-budat = /pws/zycbt154-dtcont.
...
...
READ TABLE itab_zycbt032 WITH KEY tcode = text-083
tabela = text-008
cpochv = wa_zycbt112r-nrseq
tpmsg = 'S'.
IF sy-subrc = 0.
wa_mensagem-tpmsg = c_sucesso.
CONCATENATE text-058
itab_zycbt032-msg
INTO wa_mensagem-msg
SEPARATED BY space.
* >> Início da inclusão: FORM RECLASSIFICA_FINANC_ORIGINAL
APPEND wa_mensagem TO itab_mensagem.
* << Fim da inclusão
REFRESH itab_zycbt036.
itab_zycbt036-tcode = text-083.
itab_zycbt036-tabela = text-008.
itab_zycbt036-cpochv = wa_zycbt112r-nrseq.
itab_zycbt036-belnr = itab_zycbt032-belnr.
SELECT SINGLE awkey FROM bkpf
INTO itab_zycbt036-awkey
WHERE bukrs = itab_zycbe033-bukrs
AND belnr = itab_zycbt032-belnr
AND gjahr = itab_zycbe033-budat(4).
...
...
'DTDESEM'
text-011.
itab_zycbe033-bldat = /pws/zycbe112-dtdesem.
itab_zycbe033-d_valut = /pws/zycbe112-dtdesem.
IF wa_zycbt007-dt_efet = 'E'.
itab_zycbe033-d_valut = itab_zycbt113p-dtvecto .
converte_data itab_zycbt113p-dtvecto itab_zycbe033-c_valut.
ENDIF.
ENDCASE.
converte_data itab_zycbt113p-dtvecto itab_zycbe033-c_valut.
* >> Início da exclusão: FORM FINALIZA_PROCESSO_CONTABIL
IF itab_zycbt113p-ftransf = text-007.
* << Fim da exclusão
* >> Início da inclusão: FORM FINALIZA_PROCESSO_CONTABIL
IF itab_zycbt113p-ftransf = c_prazo_c.
* << Fim da inclusão
SELECT dtcont
FROM /pws/zycbt154
UP TO 1 ROWS
INTO /pws/zycbt154-dtcont
WHERE nrcorresp EQ /pws/zycbe112-nrseq
AND tpcontr EQ itab_zycbt113p-nrparc+1(2)
AND codmod EQ 'I'
AND codmodul EQ 'T'.
ENDSELECT.
IF sy-subrc = 0.
...
...
LOOP AT itab_zycbt034.
wa_mensagem-tpmsg = c_erro.
CONCATENATE text-246
itab_zycbt034-descricao
text-250
text-251
'FIN'
text-249
INTO wa_mensagem-msg
SEPARATED BY space.
* >> Início da inclusão: FORM EXCLUI_FINANCIAMENTO_ASSOC_FAT
APPEND wa_mensagem TO itab_mensagem.
* << Fim da inclusão
v_erro_bi = 'X'.
ENDLOOP.
IF itab_zycbt034 IS INITIAL.
CALL FUNCTION '/PWS/ZYCM_TRANSACAO_F_02A'
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
...
...
'DTDESEM'
text-011.
itab_zycbe033-bldat = /pws/zycbe112-dtdesem.
itab_zycbe033-d_valut = /pws/zycbe112-dtdesem.
IF wa_zycbt007-dt_efet = 'E'.
itab_zycbe033-d_valut = itab_zycbt113p-dtfinal .
converte_data itab_zycbt113p-dtfinal itab_zycbe033-c_valut.
ENDIF.
ENDCASE.
converte_data /pws/zycbe112-dtvencto itab_zycbe033-c_valut.
* >> Início da exclusão: FORM EXECUTA_F51F_ESTORNO
IF itab_zycbt113p-ftransf = text-007.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F51F_ESTORNO
IF itab_zycbt113p-ftransf = c_prazo_c.
* << Fim da inclusão
SELECT dtcont
FROM /pws/zycbt154
UP TO 1 ROWS
INTO /pws/zycbt154-dtcont
WHERE nrcorresp EQ /pws/zycbe112-nrseq
AND tpcontr EQ itab_zycbt113p-nrparc+1(2)
AND codmod EQ 'I'
AND codmodul EQ 'T'.
ENDSELECT.
IF sy-subrc = 0.
...
...
IF sy-subrc = 0.
READ TABLE itab_zyglt321
WITH KEY cpor3 = 'ZFBDT'.
IF itab_zyglt321-cpocb = 'DTFINAL'.
itab_zycbe033-zfbdt = itab_zycbt113p-dtfinal.
ELSE.
itab_zycbe033-zfbdt = itab_zycbt113p-dtfinal.
ENDIF.
ENDIF.
itab_zycbe033-zfbdt = itab_zycbt113p-dtfinal.
* >> Início da exclusão: FORM FILL_DATE_FB02
IF itab_zycbt113p-ftransf = text-007.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_FB02
IF itab_zycbt113p-ftransf = c_prazo_c.
* << Fim da inclusão
SELECT dtcont
FROM /pws/zycbt154
UP TO 1 ROWS
INTO /pws/zycbt154-dtcont
WHERE nrcorresp EQ /pws/zycbe112-nrseq
AND tpcontr EQ itab_zycbt113p-nrparc+1(2)
AND codmod EQ 'I'
AND codmodul EQ 'T'.
ENDSELECT.
IF sy-subrc = 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCM101I01
...
LOOP AT itab_zycbt113p.
v_nrdias = itab_zycbt113p-dtfinal - /pws/zycbe112-dtdesem.
IF itab_zycbt113p-ftransf EQ 'C'.
READ TABLE itab_zycbt113p_ant
WITH KEY nrseq = itab_zycbt113p-nrseq
nrparc = itab_zycbt113p-nrparc
tpparc = itab_zycbt113p-tpparc.
IF sy-subrc = 0.
IF itab_zycbt113p_ant-nrdias <> itab_zycbt113p-nrdias.
IF v_nrdias < wa_zyglt009-nrdias_cp.
* >> Início da exclusão: MODULE DIAS_PRINCIPAL
itab_zycbt113p-ftransf = 'C'.
* << Fim da exclusão
* >> Início da inclusão: MODULE DIAS_PRINCIPAL
itab_zycbt113p-ftransf = c_prazo_c.
* << Fim da inclusão
v_descprzcontr = text-459.
ELSE.
* >> Início da exclusão: MODULE DIAS_PRINCIPAL
itab_zycbt113p-ftransf = 'L'.
* << Fim da exclusão
* >> Início da inclusão: MODULE DIAS_PRINCIPAL
itab_zycbt113p-ftransf = c_prazo_l.
* << Fim da inclusão
v_descprzcontr = text-458.
ENDIF.
ENDIF.
ENDIF.
ELSE.
IF v_nrdias < wa_zyglt009-nrdias_cp.
* >> Início da exclusão: MODULE DIAS_PRINCIPAL
itab_zycbt113p-ftransf = 'S'.
* << Fim da exclusão
* >> Início da inclusão: MODULE DIAS_PRINCIPAL
itab_zycbt113p-ftransf = c_prazo_s.
* << Fim da inclusão
v_descprzcontr = text-460.
ELSE.
* >> Início da exclusão: MODULE DIAS_PRINCIPAL
itab_zycbt113p-ftransf = 'L'.
* << Fim da exclusão
* >> Início da inclusão: MODULE DIAS_PRINCIPAL
itab_zycbt113p-ftransf = c_prazo_l.
* << Fim da inclusão
v_descprzcontr = text-459.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCM101O01
...
IF itab_zycbt113p[] IS INITIAL.
SELECT * FROM /pws/zycbt113
INTO TABLE itab_zycbt113p
WHERE nrseq EQ v_nrseqc
AND tpparc EQ 'P'
AND status NE 'E'.
ENDIF.
ENDIF.
READ TABLE itab_zycbt113p index sy-tfill.
IF sy-tcode EQ c_transacao_e.
* >> Início da exclusão: MODULE SET-SCREEN
IF itab_zycbt113p-ftransf = text-465.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET-SCREEN
IF itab_zycbt113p-ftransf = c_prazo_l.
* << Fim da inclusão
/pws/zycbe113-ftransf = itab_zycbt113p-ftransf.
v_descprzcontr = text-458.
* >> Início da exclusão: MODULE SET-SCREEN
ELSEIF itab_zycbt113p-ftransf = text-466.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET-SCREEN
ELSEIF itab_zycbt113p-ftransf = c_prazo_s.
* << Fim da inclusão
/pws/zycbe113-ftransf = itab_zycbt113p-ftransf.
v_descprzcontr = text-460.
ENDIF.
ENDIF.
* >> Início da exclusão: MODULE SET-SCREEN
IF itab_zycbt113p-ftransf EQ text-007.
/pws/zycbe113-ftransf = text-007.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET-SCREEN
IF itab_zycbt113p-ftransf EQ c_prazo_c.
/pws/zycbe113-ftransf = c_prazo_c.
* << Fim da inclusão
v_descprzcontr = text-459.
ELSE.
IF sy-tcode EQ c_transacao_c OR
sy-tcode EQ c_transacao_a.
IF wa_zyglt009-nrdias_cp < nrdias.
* >> Início da exclusão: MODULE SET-SCREEN
v_prazo = text-465.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET-SCREEN
v_prazo = c_prazo_l.
* << Fim da inclusão
v_descprzcontr = text-458.
ELSEIF wa_zyglt009-nrdias_cp >= nrdias.
* >> Início da exclusão: MODULE SET-SCREEN
v_prazo = text-466.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET-SCREEN
v_prazo = c_prazo_s.
* << Fim da inclusão
v_descprzcontr = text-460.
ENDIF.
* >> Início da exclusão: MODULE SET-SCREEN
IF v_prazo = text-466 AND
/pws/zycbe113-ftransf = text-007.
/pws/zycbe113-ftransf = text-007.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET-SCREEN
IF v_prazo = c_prazo_s AND
/pws/zycbe113-ftransf = c_prazo_c.
/pws/zycbe113-ftransf = c_prazo_c.
* << Fim da inclusão
v_descprzcontr = text-459.
ELSE.
* >> Início da exclusão: MODULE SET-SCREEN
IF v_prazo = text-466.
/pws/zycbe113-ftransf = text-466.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET-SCREEN
IF v_prazo = c_prazo_s.
/pws/zycbe113-ftransf = c_prazo_s.
* << Fim da inclusão
ELSE.
IF nrdias > wa_zyglt009-nrdias_cp.
* >> Início da exclusão: MODULE SET-SCREEN
/pws/zycbe113-ftransf = text-465.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET-SCREEN
/pws/zycbe113-ftransf = c_prazo_l.
* << Fim da inclusão
v_descprzcontr = text-458.
ELSEIF nrdias <= wa_zyglt009-nrdias_cp.
* >> Início da exclusão: MODULE SET-SCREEN
/pws/zycbe113-ftransf = text-007.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET-SCREEN
/pws/zycbe113-ftransf = c_prazo_c.
* << Fim da inclusão
v_descprzcontr = text-459.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
IF v_flag = 'X'.
IF wa_zyglt009-nrdias_cp < nrdias.
* >> Início da exclusão: MODULE SET-SCREEN
v_prazo = text-465.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET-SCREEN
v_prazo = c_prazo_l.
* << Fim da inclusão
v_descprzcontr = text-458.
ELSEIF wa_zyglt009-nrdias_cp >= nrdias.
* >> Início da exclusão: MODULE SET-SCREEN
v_prazo = text-466.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET-SCREEN
v_prazo = c_prazo_s.
* << Fim da inclusão
v_descprzcontr = text-460.
ENDIF.
* >> Início da exclusão: MODULE SET-SCREEN
IF v_prazo = text-466 AND
/pws/zycbe113-ftransf = text-007.
/pws/zycbe113-ftransf = text-007.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET-SCREEN
IF v_prazo = c_prazo_s AND
/pws/zycbe113-ftransf = c_prazo_c.
/pws/zycbe113-ftransf = c_prazo_c.
* << Fim da inclusão
v_descprzcontr = text-459.
ELSE.
* >> Início da exclusão: MODULE SET-SCREEN
IF v_prazo = text-466.
/pws/zycbe113-ftransf = text-466.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET-SCREEN
IF v_prazo = c_prazo_c.
/pws/zycbe113-ftransf = c_prazo_s.
* << Fim da inclusão
ELSE.
IF nrdias > wa_zyglt009-nrdias_cp.
* >> Início da exclusão: MODULE SET-SCREEN
/pws/zycbe113-ftransf = text-465.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET-SCREEN
/pws/zycbe113-ftransf = c_prazo_l.
* << Fim da inclusão
v_descprzcontr = text-458.
ELSEIF nrdias <= wa_zyglt009-nrdias_cp.
* >> Início da exclusão: MODULE SET-SCREEN
/pws/zycbe113-ftransf = text-007.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET-SCREEN
/pws/zycbe113-ftransf = c_prazo_c.
* << Fim da inclusão
v_descprzcontr = text-459.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ELSE.
CLEAR:/pws/zycbe113-ftransf, v_descprzcontr.
ENDIF.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCM101TOP
...
v_valor1 LIKE ekko-ebeln,
v_ped LIKE ekpo-ebeln,
v_lines TYPE i,
v_saldo LIKE /pws/zycmt020-vlpago,
v_tot_pedido LIKE /pws/zycmt020-netwr,
pressed_tab LIKE sy-ucomm,
dynpronr(4) TYPE c,"#EC NEEDED
v_descprzcontr(21) TYPE c.
CONSTANTS: c_transacao_c(14) VALUE '/PWS/ZYCB101_C',
c_transacao_a(14) VALUE '/PWS/ZYCB101_A',
* >> Início da exclusão:
c_transacao_e(14) VALUE '/PWS/ZYCB101_E'.
* << Fim da exclusão
* >> Início da inclusão:
c_transacao_e(14) VALUE '/PWS/ZYCB101_E',
c_prazo_s(01) VALUE 'S',
c_prazo_c(01) VALUE 'C',
c_prazo_l(01) VALUE 'L'.
* << Fim da inclusão