Sintoma

Não existe no Pw.CE, um campo para informar a unidade da quantidade do volume.

Solução

Foi criado o campo na pasta dados complementares do BL e adcionado no Batch Input da nota fiscal

Informações Complementares

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

Nota Número 07666 Data: 28/11/2008 Hora: 09:51:53

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

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

Nota Número              : 07666

Categoria                : Melhoria

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00007

Agrupamento              : 00075

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

UNIDADE DA QUANTIDADE - NOTA FISCAL ELETRÔNICA - NFE - BL

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

Palavras Chave:

UNIDADE DA QUANTIDADE - NOTA FISCAL ELETRÔNICA - NFE - BL

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

Objetos da nota:

DYNP /PWS/SAPMZYCI002                        0103

FUNC /PWS/ZYCI_TRANSACAO_J1B1N

RELE F6DK966647 20081127 154010 PWSCI

REPS /PWS/MZYCI002I01

REPS /PWS/MZYCI002O01

REPS /PWS/MZYCI016F01

TABD /PWS/ZYCIE014

TABD /PWS/ZYCIT014

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI002                        0103

INCLUIR CAMPO TEXTO "/PWS/ZYCIE014-MEINS" em tbl.contr./tabstr.

Altura                   3

Comprimento Visível      3

Linha                    1

Coluna                   5

Formato                  UNIT

Linhas mínimas           3

Texto                    ___

Código função

INCLUIR TEXTO "/PWS/ZYCIE014-MEINS" em tbl.contr./tabstr.

Altura                   3

Comprimento Visível      10

Linha                    1

Coluna                   5

Formato                  CHAR

Texto                    MeioAuxEx.

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

Modificações efetuadas em FUNC /PWS/ZYCI_TRANSACAO_J1B1N

...

    ENDIF.

    PERFORM bdc_tela USING 'SAPLJ1BB2' '2000'.

    PERFORM bdc_campo USING: 'J_1BDYDOC-TRATY' t_dados-traty,

                             'J_1BDYDOC-SHPMRK' t_dados-shpmrk,

* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_J1B1N

                             'J_1BDYDOC-ANZPK' t_dados-quant.

* << Fim da exclusão

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

                             'J_1BDYDOC-ANZPK' t_dados-quant,

                             'J_1BDYDOC-SHPUNT' t_dados-SHPUNT.

* << Fim da inclusão

    IF NOT t_dados-vstel IS INITIAL.

      PERFORM bdc_campo USING:

                      'J_1BDYDOC-VSTEL'       t_dados-vstel.

    ENDIF.

...

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

Modificações efetuadas em REPS /PWS/MZYCI002I01

...

    itab_zycit014-descr    = /pws/zycie014-descr   .

    itab_zycit014-quant    = /pws/zycie014-quant   .

    itab_zycit014-volume   = /pws/zycie014-volume  .

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

    itab_zycit014-meins   = /pws/zycie014-meins  .

* << Fim da inclusão

    itab_zycit014-marc2    = marc2            .

    MODIFY itab_zycit014 INDEX tc_comp-current_line.

  ELSE.

    itab_zycit014-nrseq    = /pws/zycie093-nrseqce .

    itab_zycit014-embarque = /pws/zycie093-identify.

    itab_zycit014-tpembal  = /pws/zycie014-tpembal .

    itab_zycit014-descr    = /pws/zycie014-descr   .

    itab_zycit014-quant    = /pws/zycie014-quant   .

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

    itab_zycit014-meins   = /pws/zycie014-meins  .

* << Fim da inclusão

    itab_zycit014-volume   = /pws/zycie014-volume  .

    itab_zycit014-marc2    = marc2            .

    APPEND itab_zycit014.

  ENDIF.

...

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

Modificações efetuadas em REPS /PWS/MZYCI002O01

...

  /pws/zycie014-quant   = itab_zycit014-quant   .

  /pws/zycie014-volume   = itab_zycit014-volume  .

  marc2            = itab_zycit014-marc2   .

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

  /pws/zycie014-meins = itab_zycit014-meins.

* << Fim da inclusão

ENDMODULE.

...

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

Modificações efetuadas em REPS /PWS/MZYCI016F01

...

        IF itab_zycit042_aux-tpnf NE v_tpnf OR

           itab_zycit042_aux-j_1bbranch NE v_j_1bbranch OR

           itab_zycit042_aux-lifnr NE v_lifnr.

          v_tpnf = itab_zycit042_aux-tpnf.

          v_j_1bbranch = itab_zycit042_aux-j_1bbranch.

          v_lifnr = itab_zycit042_aux-lifnr.

          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

              INTO (local_embal,it_zycee005-quant,it_zycee005-shpmrk)

* << Fim da exclusão

* >> Início da inclusã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 inclusão

                   FROM /pws/zycit014

                   WHERE nrseq = /pws/zycit085-nrbl.

            IF sy-subrc EQ 0.

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

                                            WHERE tpembal = local_embal.

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

              IF NOT it_zycee005-shpunt IS INITIAL.

                CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'

                     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.

* << Fim da inclusão

            ENDIF.

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

...

...

        IF v_lifnr NE itab_zycit042_aux-lifnr OR

           v_j_1bbranch NE itab_zycit042-j_1bbranch.

           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

* << Fim da exclusão

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

            SELECT SINGLE tpembal quant descr meins

* << Fim da inclusão

                INTO (local_embal,it_zycee005-quant,

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

                 it_zycee005-shpmrk)

* << Fim da exclusão

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

                 it_zycee005-shpmrk,it_zycee005-shpunt)

* << Fim da inclusão

                   FROM /pws/zycit014

                   WHERE nrseq = /pws/zycit085-nrbl.

            IF sy-subrc EQ 0.

              SELECT SINGLE traty FROM /pws/zycit015 INTO

                  it_zycee005-traty

* >> Início da inclusã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 inclusão

                  WHERE tpembal = local_embal.

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

                IF NOT it_zycee005-shpunt IS INITIAL.

                  CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'

                       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.

              ENDIF.

* << Fim da inclusão

            ENDIF.

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

              it_zycee005-nftype   = wa_zycit048-catnfext.

...

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

Modificações efetuadas em TABD /PWS/ZYCIE014

MODIFICAR ESTRUTURA: /PWS/ZYCIE014

DESCRIÇÃO BREVE: CI - BL/AWB/CRT - Dados Complementares

COMPONENTES ALTERADOS

COMPONENTE:     TP. COMP:      TAB.VERIFIC.:

MEINS           MEINS          T006