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.
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,
...