CE PLUS - Nota 008216

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

 

Versões Tratadas

7.0


Pré-Requisitos

Produto:

Nota

Descrição

AUMENTO DAS CASAS DECIMAIS DE PESO LÍQUIDO NO EMBARQUE.

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