Sintoma

Ao criar NF só leva quantidade da primeira linha do BL

Solução

Somar se possuir mais de um tipo de volume

Informações Complementares

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

Nota Número 11435 Data: 08/09/2011 Hora: 08:33:36

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

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

Nota Número              : 11435

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 8.0

Pacote                   : 00008

Agrupamento              : 00084

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

Referência às notas relacionadas:

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

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

AO CRIAR NF SÓ LEVA QUANTIDADE DA PRIMEIRA LINHA DO BL

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

Palavras Chave:

NF - BL - VOLUME - QUANTIDADE

                                                      -

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

Objetos da nota:

REPS /PWS/MZYCI016F01

REPS /PWS/MZYCI016X01

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

Modificações efetuadas em REPS /PWS/MZYCI016F01

...

                                'DNF021'.

            e_subrc = '0'.

            CLEAR itab_zyglt100 .

            READ TABLE itab_zyglt100 WITH KEY

                  zexit = 'DNF021'  BINARY SEARCH.

            IF  NOT itab_zyglt100-zexit_ativa IS INITIAL.

              PERFORM (itab_zyglt100-formulario) IN PROGRAM

                 (itab_zyglt100-programa) IF FOUND.

            ENDIF.

            IF e_subrc EQ 0.

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

              SELECT SINGLE tpembal quant descr meins INTO

                    (local_embal,it_zycee005-quant,

                    it_zycee005-shpmrk,it_zycee005-shpunt)

* << Fim da exclusão

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

              SELECT tpembal quant descr meins

* << Fim da inclusão

                    FROM /pws/zycit014

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

              INTO TABLE itab_zycit014

* << Fim da inclusão

                    WHERE nrseq = /pws/zycit085-nrbl.

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

              IF sy-subrc EQ 0.

* << Fim da exclusão

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

              LOOP AT itab_zycit014.

                IF sy-tabix = 1.

                  local_embal = itab_zycit014-tpembal.

                  it_zycee005-shpmrk = itab_zycit014-descr.

                  it_zycee005-shpunt = itab_zycit014-meins.

                ENDIF.

                it_zycee005-quant = it_zycee005-quant +

                itab_zycit014-quant.

              ENDLOOP.

              IF NOT local_embal IS INITIAL.

* << Fim da inclusão

                SELECT SINGLE traty

                FROM /pws/zycit015

                INTO it_zycee005-traty

                  WHERE tpembal = local_embal.

                v_quant = it_zycee005-quant.

                CALL FUNCTION 'POPUP_TO_GET_VALUE'

                     EXPORTING

                          fieldname           = 'QUANT'

                          tabname             = '/PWS/ZYCEE005'

                          titel               = text-110

...

...

           v_j_1bbranch NE itab_zycit042-j_1bbranch.

          v_j_1bbranch = itab_zycit042_aux-j_1bbranch.

          v_lifnr = itab_zycit042_aux-lifnr.

          CLEAR v_counter.

          PERFORM clear_date_batch.

          PERFORM cabecalho_nf.

          IF ( v_resp EQ 'S' ) OR

             ( v_libera = 'X' AND v_modalidade = '99' ).

            SELECT SINGLE * FROM /pws/zycit093

              WHERE nrseqce = /pws/zycit085-nrbl.

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

            SELECT SINGLE tpembal quant descr meins

                INTO (local_embal,it_zycee005-quant,

                 it_zycee005-shpmrk,it_zycee005-shpunt)

* << Fim da exclusão

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

            SELECT tpembal quant descr meins

* << Fim da inclusão

                   FROM /pws/zycit014

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

            INTO TABLE itab_zycit014

* << Fim da inclusão

                   WHERE nrseq = /pws/zycit085-nrbl.

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

            IF sy-subrc EQ 0.

* << Fim da exclusão

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

            LOOP AT itab_zycit014.

              IF sy-tabix = 1.

                local_embal = itab_zycit014-tpembal.

                it_zycee005-shpmrk = itab_zycit014-descr.

                it_zycee005-shpunt = itab_zycit014-meins.

              ENDIF.

              it_zycee005-quant = it_zycee005-quant +

              itab_zycit014-quant.

            ENDLOOP.

            IF NOT local_embal IS INITIAL.

* << Fim da inclusão

              SELECT SINGLE traty FROM /pws/zycit015 INTO

                  it_zycee005-traty

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

                  WHERE tpembal = local_embal.

              IF sy-subrc EQ 0.

          SELECT SINGLE traty FROM /pws/zycit015 INTO it_zycee005-traty

* << Fim da exclusão

                                            WHERE tpembal = local_embal.

                v_quant = it_zycee005-quant.

                CALL FUNCTION 'POPUP_TO_GET_VALUE'

...

...

                       EXPORTING

                            input          = it_zycee005-shpunt

                            language       = sy-langu

                       IMPORTING

                            output         = v_mseh3

                       EXCEPTIONS

                            unit_not_found = 1

                            OTHERS         = 2.

                ENDIF.

                it_zycee005-shpunt = v_mseh3.

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

              ENDIF.

* << Fim da exclusão

            ENDIF.

            IF /pws/zycie041-nfexterna EQ 'X'.

              it_zycee005-nftype   = wa_zycit048-catnfext.

              it_zycee005-nfnum    = itab_zycit042_aux-nfnum.

              it_zycee005-series   = itab_zycit042_aux-series.

              it_zycee005-subser   = itab_zycit042_aux-subser.

            ELSE.

              IF v_urf2 = 1.

                it_zycee005-nftype   = wa_zyglt369-catnfint.

              ELSE.

...

...

    INTO CORRESPONDING FIELDS OF TABLE itab_ekpo

    FOR ALL ENTRIES IN itab_zycit044

    WHERE ebeln = itab_zycit044-ebeln AND

          ebelp = itab_zycit044-ebelp.

  ENDIF.

  PERFORM clear_date_batch.

  PERFORM cabecalho_nf_r.

  PERFORM peso_remessa_n.

  SELECT SINGLE * FROM /pws/zycit093

  WHERE nrseqce = /pws/zycit085-nrbl.

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

  SELECT SINGLE tpembal quant descr meins

        INTO (local_embal,it_zycee005-quant,

         it_zycee005-shpmrk,it_zycee005-shpunt)

* << Fim da exclusão

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

              SELECT tpembal quant descr meins

* << Fim da inclusão

           FROM /pws/zycit014

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

              INTO TABLE itab_zycit014

* << Fim da inclusão

           WHERE nrseq = /pws/zycit085-nrbl.

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

  IF sy-subrc EQ 0.

* << Fim da exclusão

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

              LOOP AT itab_zycit014.

                IF sy-tabix = 1.

                  local_embal = itab_zycit014-tpembal.

                  it_zycee005-shpmrk = itab_zycit014-descr.

                  it_zycee005-shpunt = itab_zycit014-meins.

                ENDIF.

                it_zycee005-quant = it_zycee005-quant +

                itab_zycit014-quant.

              ENDLOOP.

              IF not local_embal is initial.

* << Fim da inclusão

    SELECT SINGLE traty FROM /pws/zycit015 INTO

        it_zycee005-traty

        WHERE tpembal = local_embal.

    IF sy-subrc EQ 0.

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

      SELECT SINGLE traty

      FROM /pws/zycit015 INTO it_zycee005-traty

      WHERE tpembal = local_embal.

* << Fim da exclusão

      v_quant = it_zycee005-quant.

...

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

Modificações efetuadas em REPS /PWS/MZYCI016X01

...

* >> Início da inclusão:

  DATA: begin of itab_zycit014 OCCURS 0 .

  data: tpembal type /pws/zycit014-tpembal,

        quant   type /pws/zycit014-quant  ,

        descr   type /pws/zycit014-descr  ,

        meins   type /pws/zycit014-meins  .

  data: end of itab_zycit014 .

* << Fim da inclusão

DATA: END OF COMMON PART a.