CE PLUS - Nota 007386

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: Nota Fiscal

Data/Hora da Publicação: 01/10/2008 00:00:00

Data/Hora Última Alteração: 09/03/2010 14:45:38

Descrição da Nota: PREENCHIMENTO DO MATERIAL NA NOTA FISCAL DE REMESSA

Sintoma

 

Ao criar a nota fiscal global e logo após criar a nota fiscal de remessa sem sair do programa de

nota não está sendo gravado o codigo do material na tabela /PWS/zycit044.

 

Solução

 

Ajuste para preencher o codigo de material na tabela interna de itens.

Versões Tratadas

7.0

Informações Complementares

 

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

Nota Número 07386 Data: 01/10/2008 Hora: 11:57:35

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

 

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

Nota Número              : 07386

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00007

Agrupamento              : 00067

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

 

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

PREENCHIMENTO DO MATERIAL NA NOTA FISCAL DE REMESSA

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

Palavras Chave:

MATERIAL - NOTA - FISCAL - REMESSA - TABELA

 

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

Objetos da nota:

REPS /PWS/MZYCI016O01

 

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

Modificações efetuadas em REPS /PWS/MZYCI016O01

 

...

        PERFORM seleciona_itens_nfg.

      ENDLOOP.

      PERFORM seleciona_despesas.

      SORT itab_zycit042 BY tpnf j_1bbranch lifnr nrseq ebeln ebelp.

      MOVE itab_zycit042[] TO itab_zycit042_aux[].

      v_status_s = 0.

    ELSE.

      MESSAGE s015 WITH text-063. LEAVE PROGRAM.

    ENDIF.

  ENDIF.

* >> Início da inclusão: MODULE LOAD_DATA_0100

  IF NOT itab_zycit042[] IS INITIAL AND

     itab_matuse_aux[] IS INITIAL.

    SELECT ebeln ebelp matnr FROM ekpo

           INTO TABLE itab_matuse_aux

           FOR ALL ENTRIES IN itab_zycit042

           WHERE ebeln EQ itab_zycit042-ebeln

             AND ebelp EQ itab_zycit042-ebelp.

  ENDIF.

  LOOP AT itab_zycit042 WHERE matnr EQ space.

    READ TABLE itab_matuse_aux WITH KEY ebeln = itab_zycit042-ebeln

                                        ebelp = itab_zycit042-ebelp.

    IF sy-subrc EQ 0.

      itab_zycit042-matnr = itab_matuse_aux-matnr.

      MODIFY itab_zycit042.

    ENDIF.

  ENDLOOP.

* << Fim da inclusão

  SELECT SINGLE * FROM j_1bbranch

       WHERE bukrs = /pws/zycie041-bukrs

         AND branch = /pws/zycit085-j_1bbranch.

  SELECT SINGLE * FROM adrc

       WHERE addrnumber = j_1bbranch-adrnr.

  READ TABLE itab_zycit042 INDEX 1.

  SELECT SINGLE modalidade FROM /pws/zycit001 INTO v_modalidade

         WHERE nrseq = itab_zycit042-nrseq.

ENDMODULE.

MODULE carrega_zycie042 OUTPUT.

...