Sintoma

O documento contábil da fatura não foi gerado e embarque está apresentando problemas nos valores dos

gastos do embarque, que estão incorretos.

Solução

considerar o tipo de fatura ao verificar estorno

Informações Complementares

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

Nota Número 06865 Data: 27/06/2008 Hora: 14:52:22

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

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

Nota Número              : 06865

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00006

Agrupamento              : 00054

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

Referência às notas relacionadas:

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

06133  - 00001 - 7.0    - 00004  - RECEBIMENTO DE NOTA FISCAL DE REMESSA POR FORA DO EMBARQUE

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

ERRO NO DOCUMENTO CONTÁBIL E VALORES DO EMBARQUE

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

Palavras Chave:

DOCUMENTO CONTÁBIL - EMBARQUE - FATURA

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

Objetos da nota:

REPS /PWS/MZYCI001F02

REPS /PWS/MZYCI001X01

REPS /PWS/MZYCI017F01

REPS /PWS/MZYCI017F03

REPS /PWS/MZYCI017X01

REPS /PWS/MZYCI059F01

REPS /PWS/MZYCI059F02

REPT /PWS/SAPMZYCI001

REPT /PWS/SAPMZYCI017

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

Modificações efetuadas em REPS /PWS/MZYCI001F02

...

FORM call_bt.

  EXPORT /pws/zycie001-embarca TO MEMORY ID '0001'.

  READ TABLE itab_zycit100 INDEX 1.

  v_nrseqdi = itab_zycit100-nrseqdi.

  IF /pws/zycit085 IS INITIAL.

    SELECT SINGLE * FROM /pws/zycit085

         WHERE nrseqdi = v_nrseqdi.

  ENDIF.

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

  CLEAR: e_contab.

  PERFORM check_contab_fat CHANGING e_contab.

  IF e_contab EQ 'X'.

    EXIT.

  ENDIF.

* << Fim da inclusão

  IF sy-subrc = 0.

...

...

        IF sy-tcode EQ '/PWS/ZYCI001_A' OR sy-tcode EQ '/PWS/ZYCI001_C'.

          PERFORM valida_trans USING '/PWS/ZYCI059_A' 'skip'.

        ELSE.

          PERFORM valida_trans USING '/PWS/ZYCI059_E' 'skip'.

        ENDIF.

      ENDIF.

    ELSE.

      SELECT SINGLE * FROM /pws/zycit093

       WHERE nrseqce = /pws/zycit094-nrseqce.

      IF sy-subrc EQ 0.

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

        CLEAR: e_contab.

        PERFORM check_contab_fat CHANGING e_contab.

        IF e_contab EQ 'X'.

          EXIT.

        ENDIF.

* << Fim da inclusão

        MOVE-CORRESPONDING /pws/zycit093 TO wa_zycie085.

        MOVE: /pws/zycit093-nrseqce TO wa_zycie085-nrbl,

              /pws/zycie001-embarca TO wa_zycie085-identify.

        EXPORT wa_zycie085 TO MEMORY ID rimc4.

        IF /pws/zycie001-tpdecl EQ 'DI'.

          IF sy-tcode NE '/PWS/ZYCI001_E'.

            PERFORM valida_trans USING '/PWS/ZYCI059_C' ''.

          ELSE.

            MESSAGE e015 WITH text-166.

          ENDIF.

...

...

* >> Início da inclusão:

FORM check_contab_fat CHANGING p_contab.

  DATA: itab_zycit132 TYPE /pws/zycit132 OCCURS 0 WITH HEADER LINE.

  DATA: itab_zycit006 TYPE /pws/zycit006 OCCURS 0 WITH HEADER LINE.

  CLEAR: itab_zycit006. REFRESH itab_zycit006.

  IF /pws/zycit094-nrseqce IS INITIAL.

    SELECT SINGLE * FROM /pws/zycit094

        WHERE nrseq EQ /pws/zycie001-nrseq.

  ENDIF.

  IF okcode EQ 'DI'.

    SELECT * FROM /pws/zycit006 INTO TABLE itab_zycit006

                  WHERE nrseqce = /pws/zycit094-nrseqce

                    AND eliminado = space

                    AND frpagto   NE 'P'

                    AND belnr_p   = space.

  ELSE.

    SELECT * FROM /pws/zycit006 INTO TABLE itab_zycit006

                  WHERE nrseqce = /pws/zycit094-nrseqce

                    AND eliminado = space

                    AND belnr_p   = space.

  ENDIF.

  LOOP AT itab_zycit006 WHERE tpfatura NE '01'.

    p_contab = 'X'.

    EXIT.

  ENDLOOP.

  IF p_contab = 'X'.

    MESSAGE i015 WITH text-474.

    EXIT.

  ENDIF.

  LOOP AT itab_zycit006 WHERE tpfatura = '01'.

    SELECT * FROM /pws/zycit132 INTO TABLE itab_zycit132

      WHERE nrseq = itab_zycit006-nrseq

        AND eliminado = space.

    IF sy-subrc EQ 0.

      LOOP AT itab_zycit132 WHERE belnr_p EQ space.

        p_contab = 'X'.

        EXIT.

      ENDLOOP.

      IF p_contab = 'X'.

        EXIT.

      ENDIF.

    ELSE.

      p_contab = 'X'.

      EXIT.

    ENDIF.

  ENDLOOP.

  IF p_contab = 'X'.

    MESSAGE i015 WITH text-474.

    EXIT.

  ENDIF.

ENDFORM.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI001X01

...

* >> Início da inclusão:

data   e_contab TYPE c  .

* << Fim da inclusão

DATA: END OF COMMON PART a.

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

Modificações efetuadas em REPS /PWS/MZYCI017F01

FORM seleciona_itens_nf.

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

  CLEAR: itab_zycit132.

* << Fim da inclusão

...

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

Modificações efetuadas em REPS /PWS/MZYCI017F03

...

        AND  docnumnfg = itab_nfg-docnum

        AND  cancel   = ' '.

    IF sy-subrc EQ 0.

      itab_nfg-delete = 'S'.

      MODIFY itab_nfg.

    ENDIF.

  ENDLOOP.

  READ TABLE itab_nfg INDEX 1.

  SELECT SINGLE * FROM /pws/zycit100 WHERE nrseqdi = itab_nfg-nrseq.

  SELECT SINGLE * FROM /pws/zycit001 WHERE nrseq = /pws/zycit100-nrseq.

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

  CLEAR: itab_zycit006. REFRESH itab_zycit006.

  SELECT SINGLE * FROM /pws/zycit094 WHERE nrseq = /pws/zycit100-nrseq.

  SELECT * FROM /pws/zycit006 INTO TABLE itab_zycit006

                WHERE nrseqce = /pws/zycit094-nrseqce AND

                      eliminado = space AND

                      belnr_p   = space.

  LOOP AT itab_zycit006 WHERE tpfatura NE '01'.

    itab_zycit006-eliminado = 'X'.

    EXIT.

  ENDLOOP.

  LOOP AT itab_zycit006 WHERE tpfatura = '01'.

    SELECT * FROM /pws/zycit132 INTO TABLE itab_zycit132

      WHERE nrseq = itab_zycit006-nrseq

        AND eliminado = space.

    IF sy-subrc EQ 0.

      LOOP AT itab_zycit132 WHERE belnr_p EQ space.

        itab_zycit006-eliminado = 'X'.

        EXIT.

      ENDLOOP.

      IF itab_zycit006-eliminado = 'X'.

        EXIT.

      ENDIF.

    ELSE.

      itab_zycit006-eliminado = 'X'.

      EXIT.

    ENDIF.

  ENDLOOP.

  IF itab_zycit006-eliminado = 'X'.

    MESSAGE i015 WITH text-262.

    EXIT.

  ENDIF.

* << Fim da inclusão

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

    READ TABLE itab_nf INDEX 1.

    IF sy-subrc NE 0.

      MESSAGE s015 WITH text-060.

      EXIT.

    ENDIF.

  ENDIF.

  LOOP AT itab_nf.

    itab_nf-remessa = 'S'.

    MODIFY itab_nf.

...

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

Modificações efetuadas em REPS /PWS/MZYCI017X01

TABLES:

* >> Início da inclusão:

  /pws/zycit094,

  /pws/zycit132.

* << Fim da inclusão

...

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

Modificações efetuadas em REPS /PWS/MZYCI059F01

...

FORM verify_bl CHANGING p_v_bl.

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

  DATA: itab_zycit006 TYPE /pws/zycit006 OCCURS 0 WITH HEADER LINE.

* << Fim da inclusão

  CLEAR:   it_verbl, p_v_bl.

  REFRESH: it_verbl.

  SELECT  /pws/zycit003~nrseq /pws/zycit003~ebeln /pws/zycit003~ebelp

          /pws/zycit003~qtd_iten

          INTO TABLE it_verbl

          FROM /pws/zycit094 INNER JOIN /pws/zycit003

               ON /pws/zycit094~nrseq = /pws/zycit003~nrseq

          WHERE /pws/zycit094~nrseqce = /pws/zycie085-nrbl

             AND servico NE 'X'.

  IF sy-subrc EQ 0.

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

    CLEAR: itab_zycit006. REFRESH itab_zycit006.

    SELECT * FROM /pws/zycit006 INTO TABLE itab_zycit006

                  WHERE nrseqce = /pws/zycie085-nrbl

                    AND eliminado = space

                    AND frpagto   NE 'P'

                    AND belnr_p   = space.

    LOOP AT itab_zycit006 WHERE tpfatura NE '01'.

      p_v_bl = 'C'.

      EXIT.

    ENDLOOP.

    IF p_v_bl = 'C'.

      EXIT.

    ENDIF.

    LOOP AT itab_zycit006 WHERE tpfatura = '01'.

      SELECT * FROM /pws/zycit132 INTO TABLE itab_zycit132

        WHERE nrseq = itab_zycit006-nrseq

          AND eliminado = space.

      IF sy-subrc EQ 0.

        LOOP AT itab_zycit132 WHERE belnr_p EQ space.

          p_v_bl = 'C'.

          EXIT.

        ENDLOOP.

        IF p_v_bl = 'C'.

          EXIT.

        ENDIF.

      ELSE.

        p_v_bl = 'C'.

        EXIT.

      ENDIF.

    ENDLOOP.

    IF p_v_bl = 'C'.

      EXIT.

    ENDIF.

    CLEAR: itab_zycit006. REFRESH itab_zycit006.

* << Fim da inclusão

    IF NOT it_verbl[] IS INITIAL.

      SELECT * FROM /pws/zycit263 INTO TABLE itab_zycit263

               FOR ALL ENTRIES IN it_verbl WHERE

               nrseq = it_verbl-nrseq AND

               ebeln = it_verbl-ebeln AND

               ebelp = it_verbl-ebelp AND

               eliminado = space.

    ENDIF.

  ENDIF.

  IF sy-subrc EQ 0.

...

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

Modificações efetuadas em REPS /PWS/MZYCI059F02

...

      PERFORM: load_pais USING /pws/zycie085-land

                         CHANGING   s_ppais       s_pdesc,

                         load_tra,  load_tr3,     load_mmo,

                         load_lfa,  load_ban,     load_tdo,

                         load_con,  load_uti,     load_frwa,

                         load_frvl, load_sewa,    load_sgvl,

                         load_blag, load_blitens, load_reg,

                         calc_itab.

      PERFORM concatena_empresa.

      PERFORM atualiza_peso_desemb.

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

    ELSEIF v_bl = 'C'.

      MESSAGE i015 WITH text-206 text-207.

* << Fim da inclusão

    ELSE.

      MESSAGE i015 WITH text-017 text-018.

    ENDIF.

  ENDIF.

ENDFORM.

...

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

Modificações efetuadas em REPT /PWS/SAPMZYCI001

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 474

Texto: (41 caracteres)

"Existe(m) fatura(s) não contabilizada(s)."

Comprimento máximo: 41

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

Modificações efetuadas em REPT /PWS/SAPMZYCI017

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 262

Texto: (41 caracteres)

"Existe(m) fatura(s) não contabilizada(s)."

Comprimento máximo: 41

Criado tradução.

Idioma: EN

Símbolo: 262

"Exist invoice not posted."

Comprimento máximo: 41