Sintoma

Os documentos contábeis da MIGO estão sendo gerados sem o preenchimento do campo Texto quando gerado

pelo PWCE.

Solução

Carregar textos para o documento contábil (Evento 006M) MIGO.

Informações Complementares

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

Nota Número 04974 Data: 11/10/2007 Hora: 15:14:10

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

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

Nota Número              : 04974

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00003

Agrupamento              : 00016

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

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

02418  - 00001 - 6.0    - 00025  - TEXTO DE REFERENCIA NO HISTÓRICO DO PEDIDO DE COMPRA

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

TEXTOS DOCUMENTO CONTÁBIL GERADO NA MIGO

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

Palavras Chave:

TEXTOS; MIGO; FUNÇÃO /PWS/ZYCI_TRANSACAO_MIGO

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

Objetos da nota:

FUNC /PWS/ZYCI_TRANSACAO_MIGO

REPS /PWS/MZYCI017F01

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

Modificações efetuadas em FUNC /PWS/ZYCI_TRANSACAO_MIGO

...

        CONCATENATE 'GOITEM-VFDAT(' v_indice ')' INTO v_campo.

        WRITE t_zycit031-vfdat TO v_vfdat.

        PERFORM bdc_field USING v_campo v_vfdat.

      ENDIF.

      IF NOT t_zycit031-hsdat IS INITIAL.

        CLEAR v_campo.

        CONCATENATE 'GOITEM-HSDAT(' v_indice ')' INTO v_campo.

        WRITE t_zycit031-hsdat TO v_hsdat.

        PERFORM bdc_field USING v_campo v_hsdat.

      ENDIF.

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

      IF NOT t_dados-sgtxt IS INITIAL.

        CLEAR v_campo.

        CONCATENATE 'GOITEM-SGTXT(' v_indice ')' INTO v_campo.

        PERFORM bdc_field USING v_campo t_dados-sgtxt.

      ENDIF.

* << Fim da inclusão

      IF v_indice = v_srows.

        IF v_nreg NE v_nline.

          PERFORM bdc_field USING 'BDC_OKCODE'  '=P+'.

          PERFORM bdc_screen USING 'SAPLMIGO' '0001'.

        ENDIF.

        CLEAR v_indice.

      ENDIF.

    ENDLOOP.

    CLEAR v_indice.

    PERFORM bdc_screen USING 'SAPLMIGO' '0001'.

...

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

Modificações efetuadas em REPS /PWS/MZYCI017F01

...

  itab_zycie033-budat   = sy-datlo.

  itab_zycie033-lfsnr   = wa_nf-lfsnr.

  v_codeven = '006M'.

  CLEAR: v_xblnr.

  CALL FUNCTION '/PWS/ZYCI_TEXTOS_CONTABEIS'

       EXPORTING

            v_nrseq   = /pws/zycie001-nrseq

            v_codeven = v_codeven

            v_nfnum   = wa_nf-nfnum

       IMPORTING

* >> Início da exclusão: FORM FILL_DATE_MB01

            v_xblnr   = v_xblnr.

* << Fim da exclusão

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

            v_xblnr   = v_xblnr

            v_sgtxt   = v_sgtxt.

* << Fim da inclusão

  IF NOT v_xblnr IS INITIAL.

    itab_zycie033-lfsnr = v_xblnr.

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

  ENDIF.

  IF NOT v_sgtxt IS INITIAL.

    itab_zycie033-sgtxt = v_sgtxt.

* << Fim da inclusão

  ENDIF.

  itab_zycie033-bktxt   = wa_nf-nfnum.

  IF NOT wa_nf-bwartwe IS INITIAL.

...