CE PLUS - Nota 003662
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Relatórios
Data/Hora da Publicação: 11/05/2007 00:00:00
Data/Hora Última Alteração: 10/03/2010 15:26:46
Descrição da Nota: VALORES MANTIDOS NO EXTERIOR - CAMPO ZTERM
Sintoma
Ao criar uma ordem de Pagamento com origem "Embarque de Exportação" no valor total do embarque, na
1ª F-30 (desmembramento do cliente), ao entrar no item 002 (chave 17), o programa está tentando
preencher o campo ZTERM (condição de pagamento), mas não deveria tentar preencher a condição de
pagamento na chave 17.
Solução
Foi adicionado tratamento para que o programa faça a verificação quando a ordem de pagamento é no
valor total do embarque.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03662 Data: 11/05/2007 Hora: 14:03:52
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03662
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00027
Agrupamento : 00165
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
VALORES MANTIDOS NO EXTERIOR - CAMPO ZTERM
----------------------------------------------------------------------------------------------------
Palavras Chave:
VALORES MANTIDOS NO EXTERIOR - CAMPO ZTERM
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB034F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB034F01
...
'008'.
ENDIF.
ENDIF.
ENDFORM.
FORM doc_desm_cliente.
DATA: wa_zycbt032 TYPE t_s_zycbt032,
wa_zycbe033 TYPE t_s_zycbe033,
wa_zycbt034 TYPE t_s_zycbt034,
wa_zycbt036 TYPE t_s_zycbt036,
wa_zycbt011 TYPE t_s_zycbt011.
* >> Início da inclusão: FORM DOC_DESM_CLIENTE
DATA: v_vinc_tot TYPE c.
* << Fim da inclusão
FIELD-SYMBOLS: <fs_zycbt030> TYPE t_s_zycbt030.
CHECK NOT <fs_op>-belnr_op IS INITIAL AND
<fs_op>-belnr_desm_cli IS INITIAL AND
v_desm_cli = 'X'.
wa_zycbe033-tcode = 'F-30'.
wa_zycbe033-tabela = '/PWS/ZYCBT226'.
CONCATENATE <fs_op>-nrinvoic <fs_op>-gsberf <fs_op>-nrparcf
INTO wa_zycbe033-cpochv.
READ TABLE itab_zycbt011 INTO wa_zycbt011
WITH KEY
...
...
<fs_op>-bukrs
<fs_op>-dtlancto
<fs_op>-nrinvoic
CHANGING
wa_zycbe033-kursf.
PERFORM verifica_campo_vazio USING wa_zycbe033-kursf
'KURSF'
'Taxa de Câmbio'(019).
IF v_desm_cli = 'X' AND v_desm_liqand = ' '.
wa_zycbe033-wrbtr = <fs_op>-vlr_exterior.
* >> Início da inclusão: FORM DOC_DESM_CLIENTE
v_vinc_tot = 'X'.
* << Fim da inclusão
ELSEIF v_desm_cli = 'X' AND v_desm_liqand = 'X'.
wa_zycbe033-wrbtr = <fs_op>-vlr_exterior - v_sld_liq_and.
ENDIF.
READ TABLE itab_zycbt030
WITH KEY nrinvoic = <fs_op>-nrinvoic
nrparcf = <fs_op>-nrparcf
gsberf = <fs_op>-gsberf
ASSIGNING <fs_zycbt030>.
IF sy-subrc = 0.
IF NOT <fs_zycbt030>-belnr6 IS INITIAL.
...
...
'I'
'DOC. DESMEMBRAMENTO DO CLIENTE'(012)
'-'
<fs_op>-nrseq
space
'061'.
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_30_P'
EXPORTING
v_modo = v_modo_bi
v_op = 'X'
* >> Início da inclusão: FORM DOC_DESM_CLIENTE
v_vinc_tot = v_vinc_tot
* << Fim da inclusão
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
t_zycbt036 = itab_zycbt036
EXCEPTIONS
campo_em_branco = 1
periodo_fechado = 2
OTHERS = 3.
IF sy-subrc = 0.
...