CE PLUS - Nota 001299
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Remessa
Data/Hora da Publicação: 10/05/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 11:41:31
Descrição da Nota: REMESSA/BOLETO CAMPO "MATERIAL - MATNR"
Sintoma
1) Ao criar uma remessa de pagamento com impostos e todos com forma de pagamento (à pagar
competência) e na pasta "contabilização" for preenchido o campo "Material - MATNR" tanto para o
principal como para os impostos, ao salvar o programa não está levando para o batch input o campo
(Material - MATNR) preenchido.
Solução
Ajustes efetuados para carregar o campo MATNR na contabilização da Remessa e do complemento do
boleto de Remessa, quando a mesma for regime de caixa. Remessa de Pagamento e de Recebimento.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01299 Data: 10/05/2006 Hora: 08:57:27
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01299
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00113
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
REMESSA/BOLETO CAMPO "MATERIAL - MATNR"
----------------------------------------------------------------------------------------------------
Palavras Chave:
REMESSA/BOLETO CAMPO "MATERIAL - MATNR"
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCA_TRANSACAO_F_02R
FUNC /PWS/ZYCA_TRANSACAO_F_63R
REPS /PWS/MZYCA109F01
REPS /PWS/MZYCA110F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCA_TRANSACAO_F_02R
...
READ TABLE itab_oculto WITH KEY campo = 'COBL-FISTL'
chave = 'D'.
IF sy-subrc <> 0 AND NOT t_dados-d_fictr IS INITIAL.
PERFORM bdc_field USING 'COBL-FISTL' t_dados-d_fictr.
ENDIF.
* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_02R
READ TABLE itab_oculto WITH KEY campo = 'COBL-MATNR'
chave = 'D'.
IF sy-subrc <> 0 AND NOT t_dados-matnr IS INITIAL.
PERFORM bdc_field USING 'COBL-MATNR' t_dados-matnr.
ENDIF.
* << Fim da inclusão
READ TABLE itab_oculto WITH KEY
campo = 'COBL-PS_PSP_PNR' chave = 'D'.
IF sy-subrc <> 0.
IF NOT t_dados-ps_psp_pnr IS INITIAL.
CALL FUNCTION 'CONVERSION_EXIT_KONPR_OUTPUT'
...
...
PERFORM bdc_field USING 'COBL-FIPOS' t_credito-c_fipos.
ENDIF.
READ TABLE itab_oculto WITH KEY campo = 'COBL-FISTL' chave = 'C'.
IF sy-subrc <> 0 AND NOT t_credito-c_fictr IS INITIAL.
PERFORM bdc_field USING 'COBL-FISTL' t_credito-c_fictr.
* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_02R
ENDIF.
READ TABLE itab_oculto WITH KEY campo = 'COBL-MATNR'
chave = 'C'.
IF sy-subrc <> 0 AND NOT t_credito-matnr IS INITIAL.
PERFORM bdc_field USING 'COBL-MATNR' t_credito-matnr.
* << Fim da inclusão
ENDIF.
READ TABLE itab_oculto WITH KEY
campo = 'COBL-PS_PSP_PNR' chave = 'C'.
IF sy-subrc <> 0.
IF NOT t_credito-ps_psp_pnr IS INITIAL.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCA_TRANSACAO_F_63R
...
output = v_pep.
PERFORM bdc_field USING:
'COBL-PS_PSP_PNR' v_pep.
ENDIF.
ENDIF.
* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
READ TABLE itab_oculto WITH KEY campo = 'COBL-MATNR'
chave = v_deb_cred.
IF sy-subrc <> 0 AND NOT t_dados-matnr IS INITIAL.
PERFORM bdc_field USING 'COBL-MATNR' t_dados-matnr.
ENDIF.
* << Fim da inclusão
READ TABLE itab_oculto WITH KEY
campo = 'COBL-PS_POSID' chave = v_deb_cred.
IF sy-subrc <> 0.
* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
IF t_dados-ps_posid = '00000000'.
PERFORM bdc_field USING: 'COBL-PS_POSID' ' '.
ELSE.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
IF NOT t_dados-ps_posid = '00000000' AND
NOT t_dados-ps_posid = ' '.
* << Fim da inclusão
PERFORM bdc_field USING: 'COBL-PS_POSID' t_dados-ps_posid.
ENDIF.
ENDIF.
PERFORM bdc_field USING: 'BDC_OKCODE' '=ENTE'.
ENDIF.
...
...
output = v_pep.
PERFORM bdc_field USING:
'COBL-PS_PSP_PNR' v_pep.
ENDIF.
ENDIF.
* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
READ TABLE itab_oculto WITH KEY campo = 'COBL-MATNR'
chave = v_deb_cred.
IF sy-subrc <> 0 AND NOT t_debito-matnr IS INITIAL.
PERFORM bdc_field USING 'COBL-MATNR' t_debito-matnr.
ENDIF.
* << Fim da inclusão
READ TABLE itab_oculto WITH KEY
campo = 'COBL-PS_POSID'
chave = v_deb_cred.
IF sy-subrc <> 0.
* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
IF t_debito-ps_posid = '00000000'.
PERFORM bdc_field USING: 'COBL-PS_POSID' ' '.
ELSE.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
IF NOT t_dados-ps_posid = '00000000' AND
NOT t_dados-ps_posid = ' '.
* << Fim da inclusão
PERFORM bdc_field USING: 'COBL-PS_POSID' t_debito-ps_posid.
ENDIF.
ENDIF.
READ TABLE itab_oculto WITH KEY campo = 'COBL-NPLNR'
chave = v_deb_cred.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA109F01
...
itab_zycbe035-wrbtr = itab_zycbt141-vlremessa.
ENDIF.
PERFORM verify_null_field USING itab_zycbe035-d_newko
'D_NEWKO'
text-120.
* >> Início da inclusão: FORM PREENCHE_PARTIDA_MULTIPLA
itab_zycbe035-matnr = itab_zycbt141-matnr.
* << Fim da inclusão
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
IF itab_zyglt321-cpocb = 'NRFAT'.
itab_zycbe035-c_sgtxt = /pws/zycbe124-nrfat.
...
...
itab_zycbe035-ps_posid = itab_zycbt141-ps_posid.
itab_zycbe035-nplnr = itab_zycbt141-nplnr.
itab_zycbe035-vornr = itab_zycbt141-vornr.
itab_zycbe035-ebeln = itab_zycbt141-ebeln.
itab_zycbe035-ebelp = itab_zycbt141-ebelp.
* >> Início da inclusão: FORM PREENCHE_PARTIDA_MULTIPLA_REC
itab_zycbe035-matnr = itab_zycbt141-matnr.
* << Fim da inclusão
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
IF itab_zyglt321-cpocb = 'NRFAT'.
itab_zycbe033-c_sgtxt = /pws/zycbe124-nrfat.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA110F01
...
itab_zycbe035-c_fictr = itab_zycbt141-fictr.
itab_zycbe035-nplnr = itab_zycbt141-nplnr.
itab_zycbe035-vornr = itab_zycbt141-vornr.
itab_zycbe035-ebeln = itab_zycbt141-ebeln.
itab_zycbe035-ebelp = itab_zycbt141-ebelp.
* >> Início da inclusão: FORM LANCAMENTO_MULTIPLO
itab_zycbe035-matnr = itab_zycbt141-matnr.
* << Fim da inclusão
IF p_tpimp = 'PRINCIPAL'.
CLEAR v_vlirrf.
READ TABLE itab_zycat025 WITH KEY tpimp(4) = 'IRRF'
nrseq = itab_zycbt141-nrseq.
IF sy-subrc = 0 AND itab_zycat025-dedfat = 'X'.
...