Sintoma

Não existe parametrização sobre qual informação deverá ir para o campo referencia no historico do

item no pedido de compra.

Solução

Atualização do programa de recebimento para que o cliente consiga parametrizar a informação que vai

para o campo "Referência" do histórico do pedido.

Informações Complementares

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

Nota Número 02418 Data: 10/11/2006 Hora: 15:03:08

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

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

Nota Número              : 02418

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00025

Agrupamento              : 00139

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

TEXTO DE REFERENCIA NO HISTÓRICO DO PEDIDO DE COMPRA

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

Palavras Chave:

TEXTO - REFERENCIA - PEDIDO - COMPRA - RECEBIMENTO

/PWS/SAPMZYCI017

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

Objetos da nota:

FUNC /PWS/ZYCI_TEXTOS_CONTABEIS

REPS /PWS/MZYCI017F01

REPS /PWS/MZYCI017F02

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

Modificações efetuadas em FUNC /PWS/ZYCI_TEXTOS_CONTABEIS

MODIFICAR MÓDULO DE FUNÇÃO: /PWS/ZYCI_TEXTOS_CONTABEIS

*ALTERAÇÕES CARACTERÍSTICAS

IMPORTAÇÃO:

NOME PARAM.   ATRIB. TIPO REFERÊNCIA      VL. PROPOSTO  OPCIONAL

V_NRSEQ LIKE /PWS/ZYCIE001-NRSEQ                    X

V_NRFAT LIKE /PWS/ZYCIE006-NRFAT                    X

V_EBELP LIKE /PWS/ZYCIE003-EBELP                    X

V_EBELN LIKE /PWS/ZYCIE003-EBELN                    X

V_CODEVEN LIKE /PWS/ZYGLT321-CODEVEN

V_KTOSL LIKE /PWS/ZYGLT321-KTOSL                    X

V_NFSERV LIKE /PWS/ZYCIE026-NFSERV                   X

V_NRPARC LIKE /PWS/ZYCIT132-NRPARC                   X

V_DESCR1 LIKE /PWS/ZYCBE033-XBLNR                    X

V_NRPRES LIKE /PWS/ZYCIE026-NRPRES                   X

*<<Inicio Inclusao

V_NFNUM TYPE /PWS/ZYCIE041-NFNUM                    X

*<<Fim Inclusao

*Alteração no Texto fonte

...

              CONCATENATE itab_zyglt321-descr v_nfserv   INTO

              v_xblnr.

            WHEN 'NRDI'.

              CONCATENATE itab_zyglt321-descr v_nrdi   INTO

              v_xblnr.

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

            WHEN 'NFNUM'.

              CONCATENATE itab_zyglt321-descr v_nfnum  INTO

              v_xblnr.

* << Fim da inclusão

            WHEN 'TPDESP'.

              MOVE 1 TO v_xblnr.

          ENDCASE.

        WHEN 'ZUONR'.

          CASE itab_zyglt321-cpocb.

...

...

              WHEN 'NFSERV'.

                CONCATENATE itab_zyglt322-descr v_nfserv   INTO

                v_xblnr.

              WHEN 'NRDI'.

                CONCATENATE itab_zyglt322-descr v_nrdi   INTO

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

                v_xblnr.

              WHEN 'NFNUM'.

                CONCATENATE itab_zyglt321-descr v_nfnum  INTO

* << Fim da inclusão

                v_xblnr.

            ENDCASE.

          ENDIF.

        WHEN 'ZUONR'.

          IF v_zuonr IS INITIAL.

...

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

Modificações efetuadas em REPS /PWS/MZYCI017F01

...

    itab_zycie033-bldat   = sy-datlo.

  ENDIF.

  itab_zycie033-xabln   = wa_nf-datacheg.

  itab_zycie033-budat   = sy-datlo.

  itab_zycie033-lfsnr   = wa_nf-lfsnr.

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

  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

            v_xblnr   = v_xblnr.

  IF NOT v_xblnr IS INITIAL.

    itab_zycie033-lfsnr = v_xblnr.

  ENDIF.

* << Fim da inclusão

  itab_zycie033-bktxt   = wa_nf-nfnum.

  IF NOT wa_nf-bwartwe IS INITIAL.

    itab_zycie033-bwartwe  = wa_nf-bwartwe.

  ENDIF.

  IF /pws/zycie001-modalidade = '99'.

...

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

Modificações efetuadas em REPS /PWS/MZYCI017F02

...

  IF NOT /pws/zycie041-j_1bbranch IS INITIAL.

    itab_zycbe033-brnch = /pws/zycie041-j_1bbranch.

  ELSE.

    itab_zycbe033-brnch = /pws/zycie043-j_1bbranch.

  ENDIF.

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

  clear v_xblnr.

* << Fim da inclusão

  CALL FUNCTION '/PWS/ZYCI_TEXTOS_CONTABEIS'

       EXPORTING

            v_nrseq   = /pws/zycie001-nrseq

            v_codeven = v_codeven

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

            v_nfnum   = v_nfnum

* << Fim da inclusão

       IMPORTING

            v_xblnr   = v_xblnr

            v_zuonr   = v_zuonr

            v_sgtxt   = v_sgtxt

            v_bktxt   = v_bktxt.

  itab_zycbe033-bktxt   = v_bktxt.

  itab_zycbe033-d_zuonr = itab_zycbe033-c_zuonr = v_zuonr.

  itab_zycbe033-d_sgtxt = itab_zycbe033-c_sgtxt = v_sgtxt.

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

  IF not v_xblnr IS INITIAL.

* << Fim da inclusão

  itab_zycbe033-xblnr   = v_xblnr.

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

  ENDIF.

* << Fim da inclusão

  APPEND itab_zycbe033.

...