CE PLUS - Nota 006355
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Captação
Data/Hora da Publicação: 09/04/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:07:00
Descrição da Nota: CAPTAÇÕES DE CONTRATOS DE EXPORTAÇÃO
Sintoma
Ao modificar Período Principal com parcelas e data de lançamento o batch input é interrompido.
Solução
Alteradas includes /PWS/MZYCB001F01 e /PWS/MZYCB001F04, para que o programa considera as datas
campos relevantes para estornar e gerar novo documento banco e trate corretamente os documentos de
principal.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06355 Data: 09/04/2008 Hora: 14:15:35
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06355
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00005
Agrupamento : 00042
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01164 - 00001 - 6.0 - 00023 - POP UP REFERENTE A PERÍODO FECHADO NÃO EXIBIDO
03000 - 00002 - 6.0 - 00026 - CAPTAÇÃO - TEXTO INFORMATIVO TEXTO PARA LANÇAMENTO - CONTABILIZAÇ
----------------------------------------------------------------------------------------------------
CAPTAÇÕES DE CONTRATOS DE EXPORTAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
CAPTAÇÕES DE CONTRATOS CLEARING PARCELAS PT M.TUDO/EXCLUIR NOVA DATA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB001F01
REPS /PWS/MZYCB001F04
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F01
...
MOVE wa_zycbt001-dtcred TO v_data3.
ENDIF.
IF /pws/zycbe001-tpcontr EQ wa_zycbt001-tpcontr AND
/pws/zycbe001-bukrs EQ wa_zycbt001-bukrs AND
/pws/zycbe001-werks EQ wa_zycbt001-werks AND
/pws/zycbe001-j_1bbranch EQ wa_zycbt001-j_1bbranch AND
/pws/zycbe001-gsber EQ wa_zycbt001-gsber AND
/pws/zycbe001-bcocred EQ wa_zycbt001-bcocred AND
v_data2 EQ v_data3 AND
/pws/zycbe001-dtliquid EQ wa_zycbt001-dtliquid AND
* >> Início da inclusão: FORM SAVE_ZYCBT001_PRE
/pws/zycbe001-dtcontr EQ wa_zycbt001-dtcontr AND
/pws/zycbe001-dtdesem EQ wa_zycbt001-dtdesem AND
/pws/zycbe001-dtcred EQ wa_zycbt001-dtcred AND
* << Fim da inclusão
/pws/zycbe001-waers EQ wa_zycbt001-waers AND
/pws/zycbe001-vlme EQ wa_zycbt001-vlme AND
/pws/zycbe001-vlmi EQ wa_zycbt001-vlmi AND
/pws/zycbe001-txcneg EQ wa_zycbt001-txcneg AND
/pws/zycbe001-fdtlanc EQ wa_zycbt001-fdtlanc AND
/pws/zycbe001-fdtjuros EQ wa_zycbt001-fdtjuros AND
( /pws/zycbe001-ftxt IS INITIAL OR
NOT /pws/zycbe001-ftxt IS INITIAL AND
/pws/zycbe001-txtinf = wa_zycbt001-txtinf ) AND
/pws/zycbe001-kostl EQ wa_zycbt001-kostl AND
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F04
...
CLEAR: v_valor, v_capital.
PERFORM clear_date_batch.
PERFORM get_parameters_001.
FREE itab_partidas.
IF /pws/zycbe001-capital EQ 'X'.
v_capital = 'X'.
ENDIF.
PERFORM fill_date_f30_pt.
LOOP AT itab_zycbt002p.
READ TABLE itab_zycbt002p_ant WITH KEY belnr = itab_zycbt002p-belnr.
* >> Início da inclusão: FORM ALTERA_CAB_PT
IF sy-subrc = 0.
* << Fim da inclusão
v_valor = v_valor + itab_zycbt002p_ant-vlme.
* >> Início da inclusão: FORM ALTERA_CAB_PT
ENDIF.
* << Fim da inclusão
itab_partidas-tcode = 'F-30'.
itab_partidas-tabela = '/PWS/ZYCBT002'.
itab_partidas-cpochv = itab_zycbe033-cpochv.
IF itab_zycbt002p-belnr2 IS INITIAL.
itab_partidas-belnr = itab_zycbt002p-belnr.
ELSE.
...
...
IF e_subrc NE 0.
EXIT.
ENDIF.
ENDIF.
ENDIF.
APPEND itab_zycbe033.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
IF itab_zycbt034 IS INITIAL.
* >> Início da inclusão: FORM ALTERA_CAB_PT
DELETE itab_partidas WHERE belnr IS INITIAL.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_30_W'
EXPORTING
v_modo = v_modo_bi
v_vinc_tot = 'X'
IMPORTING
v_dtlanc = v_dtlanc
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
...
...
itab_zycbe033-vbeln2 = /pws/zycbe001-vbeln_va.
ENDIF.
IF NOT /pws/zycbe001-posnr_va IS INITIAL.
itab_zycbe033-posn2 = /pws/zycbe001-posnr_va.
ENDIF.
itab_zycbe033-kkber = /pws/zycbe001-area_credito.
ENDFORM.
FORM volta_part_banco USING p_belnr.
PERFORM clear_date_batch.
PERFORM verif_dt_lancto.
* >> Início da inclusão: FORM VOLTA_PART_BANCO
MOVE /pws/zycbe001 TO wa_zycbt001.
* << Fim da inclusão
IF v_lanc NE 'S'.
MOVE wa_zycbt001 TO /pws/zycbe001.
EXIT.
ENDIF.
CLEAR itab_zycbt036.
REFRESH itab_zycbt036.
itab_zycbe033-tcode = 'F-30'.
itab_zycbe033-tabela = '/PWS/ZYCBT002'.
itab_zycbe033-cpochv = wa_zycbt001-nrseqc.
v_volta_part_banco = 'X'.
...