CE PLUS - Nota 006841

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: Função

Data/Hora da Publicação: 24/06/2008 00:00:00

Data/Hora Última Alteração: 09/03/2010 13:50:47

Descrição da Nota: PREENCHIMENTO PARA UNIDADE NO BATCH-INPUT DA NOTA FISCAL

Sintoma

 

Na criação da nota fiscal em ingles está informando no batch-input a unidade errada.

 

Solução

 

Ajustar função para alterar a unidade de medida de acordo com o idioma.

Versões Tratadas

7.0

Informações Complementares

 

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

Nota Número 06841 Data: 24/06/2008 Hora: 16:14:23

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

 

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

Nota Número              : 06841

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00006

Agrupamento              : 00054

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

 

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

PREENCHIMENTO PARA UNIDADE NO BATCH-INPUT DA NOTA FISCAL

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

Palavras Chave:

BATCH - INPUT - NOTA - FISCAL - UNIDADE - IDIOMA

/PWS/ZYCI_TRANSACAO_J1B1N

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

Objetos da nota:

FUNC /PWS/ZYCI_TRANSACAO_J1B1N

 

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

Modificações efetuadas em FUNC /PWS/ZYCI_TRANSACAO_J1B1N

 

...

             'BDC_OKCODE'              '=TAB5'.

    ENDIF.

    PERFORM bdc_tela USING 'SAPLJ1BB2' '2000'.

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

                             'J_1BDYDOC-SHPMRK' t_dados-shpmrk,

                             'J_1BDYDOC-ANZPK' t_dados-quant.

    IF NOT t_dados-vstel IS INITIAL.

      PERFORM bdc_campo USING:

                      'J_1BDYDOC-VSTEL'       t_dados-vstel.

    ENDIF.

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

    CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'

         EXPORTING

              input          = t_dados-gewei

         IMPORTING

              output         = t_dados-gewei

         EXCEPTIONS

              unit_not_found = 1

              OTHERS         = 2.

    IF sy-subrc <> 0.

    ENDIF.

* << Fim da inclusão

    IF NOT t_dados-inco1 IS INITIAL OR

       NOT t_dados-inco2 IS INITIAL.

      PERFORM bdc_campo USING:

     'J_1BDYDOC-NTGEW'    v_ntgew,

                   'J_1BDYDOC-BRGEW'    v_brgew,

     'J_1BDYDOC-GEWEI'        t_dados-gewei,

                    'J_1BDYDOC-INCO1'         t_dados-inco1,

                    'J_1BDYDOC-INCO2'         t_dados-inco2,

                    'BDC_OKCODE'       '=TAB1'.

    ELSE.

...

 

...

      MOVE sy-tabix TO v_tabix.

      v_cont = v_cont + 1.

      PERFORM bdc_tela USING 'SAPLJ1BB2' '3000'.

      WRITE:

            t_itens-netoth CURRENCY t_itens-waers TO  v_netoth,

            t_itens-netins CURRENCY t_itens-waers TO  v_netins,

            t_itens-netfre CURRENCY t_itens-waers TO v_netfre,

            t_itens-netpr TO  v_netpr,

            t_itens-menge UNIT t_itens-meins TO v_menge.

      READ TABLE itab_oculto WITH KEY campo = 'J_1BDYDOC-NFNUM'.

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

      CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'

           EXPORTING

                input          = t_itens-meins

           IMPORTING

                output         = t_itens-meins

           EXCEPTIONS

                unit_not_found = 1

                OTHERS         = 2.

      IF sy-subrc <> 0.

      ENDIF.

* << Fim da inclusão

    IF sy-subrc <> 0 AND v_refer NE '0004'.

        PERFORM bdc_campo  USING:

               'J_1BDYDOC-SERIES'        t_dados-series,

               'J_1BDYLIN-ITMTYP'        t_itens-itmtyp,

               'J_1BDYLIN-MATNR'         t_itens-matnr,

               'J_1BDYLIN-MAKTX'         t_itens-maktx,

               'J_1BDYLIN-MATKL'         t_itens-matkl,

               'J_1BDYLIN-WERKS'         t_itens-werks,

               'J_1BDYLIN-MENGE'         v_menge,

               'J_1BDYLIN-MEINS'         t_itens-meins,

...