CE PLUS - Nota 008850
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 19/08/2009 00:00:00
Data/Hora Última Alteração: 03/02/2010 17:04:00
Descrição da Nota: FATURA PAGAMENTO PARCELADO CONFIGURADO NA OBB8 PARÂMETRO SEM PROPOSTA
Sintoma
Ao configurar na OBBO uma condição de pagamento sem proposta mesmo sendo parcelada ele contabiliza
como pagamento à vista
Solução
Verficar corretamente se o condição de Pagto é parcelada e o parâmetro esta sem proposta
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08850 Data: 19/08/2009 Hora: 10:22:24
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08850
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00010
Agrupamento : 00110
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
FATURA PAGAMENTO PARCELADO CONFIGURADO NA OBB8 PARÂMETRO SEM PROPOSTA
----------------------------------------------------------------------------------------------------
Palavras Chave:
FATURA - MERCADORIA - PARCELADO - OBBO - SEM - PROPOSTA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F01
REPS /PWS/MZYCI003F02
REPS /PWS/MZYCI003I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F01
...
IF v_cont > 1.
EXIT.
ENDIF.
v_tot_deducoes = v_tot_deducoes + itab_zycit130-montante.
ENDLOOP.
IF v_tot_deducoes > /pws/zycie006-vltotal.
MESSAGE i015 WITH text-098.
ELSEIF v_cont > 1.
MESSAGE i015 WITH text-100.
ELSE.
* >> Início da inclusão: FORM CONSISTE_CAMPOS_OBRIGATORIOS
READ TABLE itab_zycit132 INDEX 1.
IF NOT itab_zycit132[] IS INITIAL AND
/pws/zycie006-dtbase = 0 AND /pws/zycie006-dtvencto = 0.
/pws/zycie006-dtbase = itab_zycit132-dtbase.
/pws/zycie006-dtvencto = itab_zycit132-dtbase.
ENDIF.
* << Fim da inclusão
IF /pws/zycie006-dtvencto IS INITIAL.
MESSAGE i015 WITH text-102.
ELSE.
PERFORM salvar_dados.
ENDIF.
ENDIF.
ELSE.
* >> Início da inclusão: FORM CONSISTE_CAMPOS_OBRIGATORIOS
READ TABLE itab_zycit132 INDEX 1.
IF NOT itab_zycit132[] IS INITIAL AND
/pws/zycie006-dtbase = 0 AND /pws/zycie006-dtvencto = 0.
/pws/zycie006-dtbase = itab_zycit132-dtbase.
/pws/zycie006-dtvencto = itab_zycit132-dtbase.
ENDIF.
* << Fim da inclusão
IF /pws/zycie006-dtvencto IS INITIAL.
MESSAGE i015 WITH text-102.
ELSE.
PERFORM salvar_dados.
ENDIF.
ENDIF.
ELSE.
MESSAGE s015 WITH text-094.
ENDIF.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
/pws/zycie006-vltotal / 100.
v_tot_parc = v_tot_parc + itab_zycit132-vlparc.
ENDIF.
itab_zycit132-nrseq = /pws/zycie006-nrseq.
itab_zycit132-nrfat = /pws/zycie006-nrfat.
itab_zycit132-nrparc = itab_t052s-ratnr.
itab_zycit132-zterm = itab_t052s-ratzt.
itab_zycit132-dtbase = /pws/zycie006-dtbase.
APPEND itab_zycit132.
ENDLOOP.
* >> Início da inclusão: FORM CALCULA_PARCELA
ELSEIF t052-zdart EQ 'C'.
CLEAR v_tot_parc.
LOOP AT itab_t052s.
IF sy-tabix = v_line.
itab_zycit132-vlparc =
/pws/zycie006-vltotal - v_tot_parc.
ELSE.
itab_zycit132-vlparc = itab_t052s-ratpz *
/pws/zycie006-vltotal / 100.
v_tot_parc = v_tot_parc + itab_zycit132-vlparc.
ENDIF.
itab_zycit132-nrseq = /pws/zycie006-nrseq.
itab_zycit132-nrfat = /pws/zycie006-nrfat.
itab_zycit132-nrparc = itab_t052s-ratnr.
itab_zycit132-zterm = itab_t052s-ratzt.
itab_zycit132-dtbase = /pws/zycie006-dtbase.
APPEND itab_zycit132.
ENDLOOP.
ELSEIF t052-zdart EQ '' AND
NOT t052 IS INITIAL AND
NOT itab_t052s[] IS INITIAL.
CLEAR v_tot_parc.
LOOP AT itab_t052s.
IF sy-tabix = v_line.
itab_zycit132-vlparc =
/pws/zycie006-vltotal - v_tot_parc.
ELSE.
itab_zycit132-vlparc = itab_t052s-ratpz *
/pws/zycie006-vltotal / 100.
v_tot_parc = v_tot_parc + itab_zycit132-vlparc.
ENDIF.
itab_zycit132-nrseq = /pws/zycie006-nrseq.
itab_zycit132-nrfat = /pws/zycie006-nrfat.
itab_zycit132-nrparc = itab_t052s-ratnr.
itab_zycit132-zterm = itab_t052s-ratzt.
APPEND itab_zycit132.
ENDLOOP.
* << Fim da inclusão
ENDIF.
v_total006 = /pws/zycie006-vltotal.
ENDFORM.
FORM verifica_boleto.
IF /pws/zycie006-tpfatura EQ '11'.
SELECT SINGLE * FROM /pws/zycbt131 WHERE
nrseq_pgfat EQ /pws/zycie006-nrseqre.
ELSE.
SELECT SINGLE * FROM /pws/zycbt131 WHERE
nrseq_pgfat EQ /pws/zycie006-nrseq_pgfat.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003I01
...
IF itab_zycit132-nrseq_pgfat IS INITIAL AND NOT itab_zycit132[] IS
INITIAL.
READ TABLE itab_t052s WITH KEY ratnr = itab_zycit132-nrparc.
IF sy-subrc EQ 0.
itab_zycit132-vlparc = itab_t052s-ratpz * /pws/zycie006-vltotal /
100.
ENDIF.
ENDIF.
ENDIF.
LOOP AT itab_zycit132.
* >> Início da inclusão: MODULE CONSISTE_ZTERM
IF itab_zycit132-dtbase > 0 OR /pws/zycie006-dtbase > 0.
* << Fim da inclusão
IF itab_zycit132-dtbase IS INITIAL.
itab_zycit132-dtbase = /pws/zycie006-dtbase.
ENDIF.
SELECT SINGLE ztag1 FROM t052 INTO itab_t052s-ztag1
WHERE zterm = itab_zycit132-zterm.
itab_zycit132-dtvencto =
itab_zycit132-dtbase + itab_t052s-ztag1.
MODIFY itab_zycit132.
* >> Início da inclusão: MODULE CONSISTE_ZTERM
ENDIF.
* << Fim da inclusão
ENDLOOP.
ENDMODULE.
MODULE user_command_0102 INPUT.
data v_status_bkp like v_status_s .
DATA v_valorn LIKE ekko-ebeln.
DATA: v_zeros(10) VALUE '0000000000'.
CASE okcode.
WHEN 'P-'.
CHECK ts_faturas-activetab = 'FC_CLCONT'.
tc_itens-top_line = tc_itens-top_line - 9.
...
...
ENDIF.
ENDMODULE.
MODULE load_remessa INPUT.
IF NOT /pws/zycie006-kursf IS INITIAL.
/pws/zycie006-vlme = /pws/zycie006-kursf * /pws/zycie006-vltotal /
100.
ENDIF.
ENDMODULE.
MODULE consiste_zterm2 INPUT.
LOOP AT itab_zycit132.
* >> Início da inclusão: MODULE CONSISTE_ZTERM2
IF itab_zycit132-dtbase > 0 OR /pws/zycie006-dtbase > 0.
* << Fim da inclusão
IF itab_zycit132-dtbase IS INITIAL.
itab_zycit132-dtbase = /pws/zycie006-dtbase.
ENDIF.
SELECT SINGLE ztag1 FROM t052 INTO itab_t052s-ztag1
WHERE zterm = itab_zycit132-zterm.
itab_zycit132-dtvencto =
itab_zycit132-dtbase + itab_t052s-ztag1.
MODIFY itab_zycit132.
* >> Início da inclusão: MODULE CONSISTE_ZTERM2
ENDIF.
* << Fim da inclusão
ENDLOOP.
ENDMODULE.
MODULE user_command_0110 INPUT.
CASE okcode.
WHEN 'SELE'.
PERFORM drill_down_documentos.
ENDCASE.
ENDMODULE.
MODULE seta_matchcode INPUT.
CLEAR : v_tab, f_tab, itab_rateio.
...