CE PLUS - Nota 005336
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Associação Ordem de Pagamento
Data/Hora da Publicação: 27/11/2007 00:00:00
Data/Hora Última Alteração: 18/02/2011 16:24:18
Descrição da Nota: ASSOCIAÇÃO - SELEÇÃO DA ATRIBUIÇÃO DO CLEARING
Sintoma
Durante o clearing da associação o programa não envia para o batch input a atribuição utilizada na
primeira f-30 de desmembramento do cliente.
Solução
O tratamento foi adicionado no programa de associação.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05336 Data: 27/11/2007 Hora: 20:03:13
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05336
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00024
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03270 - 00001 - 6.0 - 00026 - DESENVOLVIMENTO ADICIONAL COMPLETO - ORDEM DE PAGAMENTO
04862 - 00002 - 7.0 - 00003 - DA LIQUIDAÇÃO - COMPENSAÇÃO AUTOMÁTICA CONTA CORRENTE ME
----------------------------------------------------------------------------------------------------
ASSOCIAÇÃO - SELEÇÃO DA ATRIBUIÇÃO DO CLEARING
----------------------------------------------------------------------------------------------------
Palavras Chave:
ASSOCIAÇÃO - SELEÇÃO DA ATRIBUIÇÃO DO CLEARING
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCB_TRANSACAO_F_30_W
REPS /PWS/MZYCB035F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_TRANSACAO_F_30_W
MODIFICAR MÓDULO DE FUNÇÃO: /PWS/ZYCB_TRANSACAO_F_30_W
IMPORTAÇÃO:
NOME PARAM. ATRIB. TIPO REFERÊNCIA VL. PROPOSTO OPCIONAL TRANSF. TEXT
* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_W
V_ASSOC TYPE C # X
* << Fim da inclusão
...
INTO /pws/zyglt009-comp_aut_cc
WHERE bukrs = t_dados-bukrs.
IF sy-subrc NE 0 OR ( sy-subrc = 0 AND
NOT /pws/zyglt009-comp_aut_cc IS INITIAL ).
PERFORM bdc_field USING 'RF05A-SEL01(02)' t_dados-d_zuonr.
ENDIF.
v_cont = 2.
ELSE.
v_cont = 1.
ENDIF.
* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_W
IF NOT v_assoc IS INITIAL AND
NOT t_dados-d_zuonr IS INITIAL.
v_cont = v_cont + 1.
CONCATENATE 'RF05A-SEL01(' v_cont ')' INTO v_xpos.
PERFORM bdc_field USING v_xpos t_dados-d_zuonr.
ENDIF.
* << Fim da inclusão
LOOP AT t_partidas.
IF NOT t_partidas-d_zuonr IS INITIAL AND v_liqop EQ 'X'
AND t_partidas-d_zuonr(4) = 'Des.'.
v_cont = v_cont + 1.
CONCATENATE 'RF05A-SEL01(' v_cont ')' INTO v_xpos.
PERFORM bdc_field USING v_xpos t_partidas-d_zuonr.
IF v_cont > 5.
PERFORM bdc_field USING 'BDC_OKCODE' 'SU1'.
PERFORM bdc_screen USING 'SAPDF05X' '0731'.
CLEAR v_cont.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB035F03
...
IF sy-subrc <> 0.
EXIT.
ENDIF.
WHEN c_f30_w.
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_30_W'
EXPORTING
v_modo = wa_controle-modo_bi
v_vinc_tot = p_vinc_tot
v_op = 'X'
v_liqop = 'X'
* >> Início da inclusão: FORM EXECUTA_F30
v_assoc = 'X'
* << Fim da inclusão
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
t_partidas = itab_partidas
EXCEPTIONS
campo_em_branco = 1
periodo_fechado = 2
OTHERS = 3.
IF sy-subrc <> 0.
...