Sintoma

Não estava levando o valor da fatura para o realizado do custo efetivo, mesmo estando parametrizado

para ir para o custo via fatura.

O valor do fete quando vem da Nota fiscal não está indo para custo.

o frete internacional,

está na cit140 para ir para custo via NF porém está indo para a coluna diferença sendo que já fiz a

NF.

Solução

Atualizado o programa para calcular e gravar no custo a fatura corretamente

Informações Complementares

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

Nota Número 02700 Data: 14/12/2006 Hora: 15:40:38

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

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

Nota Número              : 02700

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00025

Agrupamento              : 00144

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

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

00811  - 00001 - 6.0    - 00022  - SISTEMA NÃO REALIZA A FATURA EM ALGUNS EMBARQUES.

01256  - 00002 - 6.0    - 00023  - ERRO NAS FATURAS DE SERVIÇO, QUANDO GERAMOS A REMESSA PARA O MÓDU

02118  - 00003 - 6.0    - 00024  - PLANEJADO E MOVIMENTADO DO ENCERRAMENTO ESTÁ INCORRETO PARA JPY

02415  - 00004 - 6.0    - 00025  - AJUSTE EXIT DA FATURA, DE CONTABILIZAÇÃO

02677  - 00005 - 6.0    - 00025  - AJUSTES NO CUSTO EFETIVO

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

CUSTO EFETIVO FATURA P PARCELADA NÃO GRAVA NO CUSTO E FRETEI COLUNA DIF

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

Palavras Chave:

FATURA P - PARCELADA - CUSTO EFETIVO - FRETEI - DIF. ERRADA

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

Objetos da nota:

REPS /PWS/ZYCIR006

REPS /PWS/MZYCI003F01

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

Modificações efetuadas em REPS /PWS/ZYCIR006

...

        v_linf = v_linf + 1.

        endif.

        CLEAR v_valor.

        IF itab_zycit036-vlreal GT 0         AND

          NOT itab_zycit036-waers_real IS INITIAL.

          PERFORM busca_fatores CHANGING itab_zycit036-waers_real.

          READ TABLE itab_zycit100 WITH KEY

                                      nrseq = itab_zycit036-nrseq

                                      ebeln = itab_zycit036-ebeln

                                      ebelp = itab_zycit036-ebelp.

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

          IF v_linf NE v_tot_linf OR

              itab_zycit036-origem NE 'NF'.

* << Fim da exclusão

            IF itab_zycit036-origem = 'NF'.

              IF t001-land1 = 'BR'.

                v_valor = itab_zycit100-vlfre.

              ELSE.

                v_valor = itab_zycit036-vlreal.

              ENDIF.

              v_valor = itab_zycit100-vlfre.

            ELSE.

              v_valor = itab_zycit036-vlreal.

            ENDIF.

...

...

              v_valor = v_val_tot2 - v_val_tot.

              IF itab_zycit036-origem = 'NF'.

                PERFORM retorna_decimais USING itab_zycit100-waersreal

                                          CHANGING v_valor.

              ELSE.

                PERFORM retorna_decimais USING itab_zycit036-waers_real

                                            CHANGING v_valor.

              ENDIF.

            endif.

            v_val_tot = v_val_tot + v_valor.

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

          ELSE.

            PERFORM retorna_decimais USING /pws/zycit085-waersfre

                                     CHANGING /pws/zycit093-vlfre.

            v_valor = ( /pws/zycit093-vlfre * /pws/zycit085-ukursfre )

                                                  - v_val_tot .

          ENDIF.

* << Fim da exclusão

          IF v_itemcongela NE 'X'.

            IF NOT /pws/zycit085-ukursfre IS INITIAL.

              IF itab_zycit036-origem = 'NF'.

                itab_zycit036-vlmov     = v_valor .

              ELSE.

                IF  itab_zycit036-waers_real NE /pws/zycbt007-waersb.

                  READ TABLE itab_zycit006 WITH KEY

                                     nrseq = itab_zycit036-nrseqori.

                  IF sy-subrc EQ 0 AND itab_zycit006-frpagto EQ 'P'.

                    itab_zycit036-vlmov     = v_valor *

...

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

Modificações efetuadas em REPS /PWS/MZYCI003F01

...

      IF /pws/zycie006-tpfatura EQ '11'

    AND NOT /pws/zycie006-belnr_p IS INITIAL.

        PERFORM cria_remessa.

      ENDIF.

    ENDIF.

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

    CLEAR v_par.

    READ TABLE itab_zycit132_ini WITH KEY belnr_p = '          '

                                        eliminado = ' '.

    IF sy-subrc = 0.

      v_par = 'X'.

    ENDIF.

* << Fim da exclusão

    IF ( NOT v_contabilizou IS INITIAL AND

         ( /pws/zycie006-belnr_p NE wa_zycie006_ini-belnr_p OR

           ( itab_zycit132[] NE itab_zycit132_ini[] AND

           ( itab_zycit132_ini[] IS INITIAL OR

             v_par = 'X' ) ) ) )

...

...

          MODIFY itab_zycit132 INDEX v_idx.

        ENDLOOP.

      ENDIF.

    ENDIF.

    MODIFY /pws/zycit006 FROM /pws/zycie006.

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

    CLEAR v_par.

    READ TABLE itab_zycit132_ini WITH KEY belnr_p = '          '

                                        eliminado = ' '.

    IF sy-subrc = 0.

      v_par = 'X'.

    ENDIF.

* << Fim da inclusão

    PERFORM verifica_associacao.

    CLEAR v_parcela.

    REFRESH itab_matuse.

    IF /pws/zycie006-flagdesc NE wa_zycie006_ini-flagdesc OR

       /pws/zycie006-bcofav   NE wa_zycie006_ini-bcofav OR

...