Sintoma

Ao estornar a Fatura com associação de Pagto Antecipado esta fixo o tipo de Documento na F-51 como

CA

Solução

Passar por parâmetro para a Função /PWS/ZYCI_TRANSACAO_F_51D o Tipo do Documento da 1º Fatura

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 08161 Data: 11/03/2009 Hora: 13:35:04

----------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------

Nota Número              : 08161

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00008

Agrupamento              : 00088

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

----------------------------------------------------------------------------------------------------

ESTORNA FATURA DE PAGTO ANTECIPADO ESTA FIXANDO TIPO DE DOCUMENTO F-51

----------------------------------------------------------------------------------------------------

Palavras Chave:

FATURA - ANTECIPADO - F51 - CA - TIPO - DOCUMENTO

----------------------------------------------------------------------------------------------------

Objetos da nota:

FUNC /PWS/ZYCI_TRANSACAO_F_51D

REPS /PWS/MZYCI003F02

----------------------------------------------------------------------------------------------------

Modificações efetuadas em FUNC /PWS/ZYCI_TRANSACAO_F_51D

...

      CONCATENATE '0' v_budat+3(2) INTO v_monat.

      CLEAR v_empresas.

      PERFORM verifica_empresas USING t_dados-bukrs

                                      'UMBUCHNG'

                                      t_dados-d_newko

                                      t_dados-agkoa

                             CHANGING v_empresas.

      PERFORM bdc_screen USING 'SAPMF05A' '0122'.

      PERFORM bdc_field USING:

              'BKPF-BLDAT'  v_bldat,

* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_F_51D

              'BKPF-BLART'  'CA',

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_F_51D

              'BKPF-BLART'  t_dados-blart,

* << Fim da inclusão

              'BKPF-BUKRS'  v_bukrs,

              'BKPF-BUDAT'  v_budat,

              'BKPF-MONAT'  v_budat+3(2),

              'BKPF-WAERS'  t_dados-waers,

              'BKPF-XBLNR'  t_dados-xblnr,

              'BKPF-BKTXT'  t_dados-bktxt,

              'RF05A-AUGTX' t_dados-augtx,

              'BDC_OKCODE'  '=SL'.

    ENDIF.

    PERFORM bdc_screen USING 'SAPMF05A' '0710'.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI003F02

...

          PERFORM fill_date_f_51_pag_antecipado TABLES itab_bseg.

          itab_zycit132-status = '2'.

          MODIFY itab_zycit132.

        ENDIF.

      ENDLOOP.

    ENDIF.

  ENDIF.

ENDFORM.

FORM fill_date_f_51_pag_antecipado TABLES p_itab_bseg STRUCTURE bseg.

  DATA v_conta TYPE bseg-hkont.

* >> Início da inclusão: FORM FILL_DATE_F_51_PAG_ANTECIPADO

  READ TABLE p_itab_bseg INDEX 1.

  SELECT SINGLE BLART

  FROM bkpf

  INTO itab_zycbe033-blart

  WHERE belnr EQ p_itab_bseg-belnr

    AND gjahr EQ p_itab_bseg-gjahr

    AND bukrs EQ p_itab_bseg-bukrs.

* << Fim da inclusão

  itab_zycbe033-waers = /pws/zycie006-waers.

  itab_zycbe033-bukrs = /pws/zycie006-bukrs.

  itab_zycbe033-mandt = sy-mandt.

  itab_zycbe033-tcode = 'F-51'.

  itab_zycbe033-tabela = '/PWS/ZYCBT108'.

  itab_zycbe033-cpochv = /pws/zycie006-nrseq.

  itab_zycbe033-bldat   = sy-datum.

  itab_zycbe033-d_valut = sy-datum.

  itab_zycbe033-budat   = sy-datum.

  itab_zycbe033-d_newko   = /pws/zycie006-lifnr.

...