Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 19/03/2009 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:19:37
Descrição da Nota: IMPLEMENTAÇÃO NA CRIAÇÃO DA NOTA FISCAL PARA PREENCHER O INCOTERM
Sintoma
Ao criar uma NF, o Incoterm não está sendo levado para o campo Incoterms, na aba Transporte
Solução
Verificar no pedido o Incoterm e passar por parâmetro para a Nota Fiscal
7.0
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08216 Data: 19/03/2009 Hora: 14:50:11
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08216
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00009
Agrupamento : 00090
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
06710 - 00001 - 7.0 - 00005 - AUMENTO DAS CASAS DECIMAIS DE PESO LÍQUIDO NO EMBARQUE.
----------------------------------------------------------------------------------------------------
IMPLEMENTAÇÃO NA CRIAÇÃO DA NOTA FISCAL PARA PREENCHER O INCOTERM
----------------------------------------------------------------------------------------------------
Palavras Chave:
INCOTERM - NOTA - FISCAL - INCO1 - INCO2
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
it_zycee005-transpnac = /pws/zycie041-transpnac.
IF it_zycee005-ntgew LT '0.001'. "#EC PORTABLE
it_zycee005-ntgew = '0.001'.
ENDIF.
* >> Início da inclusão: FORM FILL_DATA_J1B1
PERFORM PEGA_INCO_PEDIDO
USING
itab_zycit042-ebeln
CHANGING
it_zycee005-inco1
it_zycee005-inco2.
* << Fim da inclusão
APPEND it_zycee005.
PERFORM mensagens_nf.
LOOP AT it_zycet004.
MESSAGE i019 WITH it_zycet004-descricao.
ENDLOOP.
...
...
it_zycee005-transpnac = /pws/zycie041-transpnac.
IF it_zycee005-ntgew LT '0.001'. "#EC PORTABLE
it_zycee005-ntgew = '0.001'.
ENDIF.
* >> Início da inclusão: FORM FILL_DATA_J1B1
PERFORM PEGA_INCO_PEDIDO
USING
itab_zycit042-ebeln
CHANGING
it_zycee005-inco1
it_zycee005-inco2.
* << Fim da inclusão
APPEND it_zycee005.
PERFORM mensagens_nf.
LOOP AT it_zycet004.
MESSAGE i019 WITH it_zycet004-descricao.
ENDLOOP.
...
...
PERFORM itens_nf_r.
CLEAR itab_zycit033.
ENDLOOP.
it_zycee005-transpnac = /pws/zycie043-transpnac.
IF it_zycee005-ntgew LT '0.001'. "#EC PORTABLE
it_zycee005-ntgew = '0.001'.
ENDIF.
* >> Início da inclusão: FORM FILL_DATA_J1B1_R
PERFORM PEGA_INCO_PEDIDO
USING
itab_zycit044-ebeln
CHANGING
it_zycee005-inco1
it_zycee005-inco2.
* << Fim da inclusão
APPEND it_zycee005.
PERFORM mensagens_nf_r.
LOOP AT it_zycet004.
MESSAGE i019 WITH it_zycet004-descricao.
ENDLOOP.
...
...
PERFORM itens_nf_c.
ENDIF.
PERFORM peso_global_sep_c.
CLEAR itab_zycit033.
v_counter = v_counter + 1.
v_qtditem = wa_zycit048-qtd_item.
IF v_counter >= v_qtditem.
EXIT.
ENDIF.
ENDLOOP.
* >> Início da inclusão: FORM FILL_DATA_J1B1_C
PERFORM PEGA_INCO_PEDIDO
USING
itab_zycit042_c2-ebeln
CHANGING
it_zycee005-inco1
it_zycee005-inco2.
* << Fim da inclusão
APPEND it_zycee005.
PERFORM mensagens_nf_c.
LOOP AT it_zycet004.
MESSAGE i019 WITH it_zycet004-descricao.
ENDLOOP.
...
...
READ TABLE itab_zycit033 WITH KEY tpnf = itab_zycit042_c3-tpnf
regio = space.
PERFORM itens_nf_c.
ENDIF.
ENDLOOP.
* >> Início da inclusão: FORM FILL_DATA_J1B1_C
PERFORM PEGA_INCO_PEDIDO
USING
itab_zycit042_c3-ebeln
CHANGING
it_zycee005-inco1
it_zycee005-inco2.
* << Fim da inclusão
APPEND it_zycee005.
PERFORM mensagens_nf_c.
LOOP AT it_zycet004.
MESSAGE i019 WITH it_zycet004-descricao.
ENDLOOP.
...
...
* >> Início da inclusão:
form PEGA_INCO_PEDIDO
using
p_ebeln LIKE EKKO-EBELN
changing
p_zycee005-INCO1 LIKE EKKO-INCO1
p_zycee005-INCO2 LIKE EKKO-INCO2.
SELECT SINGLE INCO1 INCO2
FROM EKKO
INTO (p_zycee005-INCO1, p_zycee005-INCO2)
WHERE EBELN = p_ebeln.
endform.
* << Fim da inclusão