CE PLUS - Nota 006513
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 06/05/2008 00:00:00
Data/Hora Última Alteração: 11/03/2010 09:47:10
Descrição da Nota: COMPLEMENTO DO BOLETO - CAMPO ZFBDT F-43
Sintoma
O campo zfbdt esta sendo enviado mesmo quando não parametrizado.
Solução
retirada a linha em que o campo zfbdt estava sendo enviado e adicionado código para verificação do
campo vazio.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06513 Data: 06/05/2008 Hora: 12:57:48
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06513
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00005
Agrupamento : 00046
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
COMPLEMENTO DO BOLETO - CAMPO ZFBDT F-43
----------------------------------------------------------------------------------------------------
Palavras Chave:
COMPLEMENTO DO BOLETO - CAMPO ZFBDT F-43
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCM_TRANSACAO_F_43C
REPS /PWS/MZYCM110F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCM_TRANSACAO_F_43C
...
PERFORM bdc_field USING 'BSEG-SGTXT' t_item-c_sgtxt.
ENDIF.
IF /pws/zycbt007-fdivisao IS INITIAL.
READ TABLE itab_oculto WITH KEY campo = 'BSEG-GSBER'
chave = 'D'.
IF sy-subrc <> 0.
PERFORM bdc_field USING 'BSEG-GSBER' t_item-c_gsber.
ENDIF.
ENDIF.
PERFORM bdc_field USING 'BSEG-WRBTR' v_wrbtr.
* >> Início da inclusão: FUNCTION /PWS/ZYCM_TRANSACAO_F_43C
IF NOT v_zfbdt_char IS INITIAL AND
v_zfbdt_char NE '00.00.0000'.
* << Fim da inclusão
SELECT SINGLE ulsk1 ulsk2
FROM t042
INTO (v_ulsk1, v_ulsk2)
WHERE bukrs = t_dados-bukrs.
IF sy-subrc EQ 0.
IF t_dados-umskz CA v_ulsk1 OR
t_dados-umskz CA v_ulsk2.
PERFORM bdc_field USING 'BSEG-ZFBDT' v_zfbdt_char.
ELSE.
SELECT SINGLE umsks
...
...
IF v_umsks NE 'A'.
PERFORM bdc_field USING 'BSEG-ZFBDT' v_zfbdt_char.
ENDIF.
ENDIF.
ENDIF.
ELSE.
READ TABLE itab_oculto WITH KEY campo = 'BSEG-ZFBDT'
chave = 'D'.
IF sy-subrc <> 0.
PERFORM bdc_field USING 'BSEG-ZFBDT' v_zfbdt_char.
* >> Início da inclusão: FUNCTION /PWS/ZYCM_TRANSACAO_F_43C
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
IF v_tabix NE v_linhas.
PERFORM bdc_field USING:
'BSEG-WRBTR' v_wrbtr,
'RF05A-NEWBS' '29',
'RF05A-NEWKO' t_item-d_newko,
'RF05A-NEWUM' t_item-umskz,
'BDC_OKCODE' '/00'.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCM110F01
...
IF NOT /pws/zycbe031-contabreal IS INITIAL.
itab_zycbe033-contabreal = 'X'.
ENDIF.
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
itab_zycbe033-umskz = wa_zycbt011-agums.
IF NOT itab_zycmt020[] IS INITIAL.
itab_zycbe033-newbs1 = '31'.
ENDIF.
itab_zycbe033-newbs = '29'.
itab_zycbe033-bcorec = /pws/zycbe031-bco.
* >> Início da exclusão: FORM FILL_DATE_F-63_IA
itab_zycbe033-zfbdt = /pws/zycbe031-dtcredpr.
* << Fim da exclusão
PERFORM verify_null_field USING wa_zycbt117-lifnr
'LIFNR'
text-061.
itab_zycbe033-agkon = wa_zycbt117-lifnr.
itab_zycbe033-d_newko = wa_zycbt117-lifnr.
LOOP AT itab_zycbt013.
CASE itab_zycbt013-cpor3.
WHEN 'XBLNR'.
CASE itab_zycbt013-cpocb.
WHEN 'NRSEQ'.
...