Sintoma

Programa deixa estornar fatura de mercadoria existindo fatura de seguro/fre

Solução

Verificar se há outros tipos de fatura antes de estornar fatura de mercadoria.

Informações Complementares

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

Nota Número 09532 Data: 08/12/2009 Hora: 15:44:30

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

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

Nota Número              : 09532

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 8.0

Pacote                   : 00001

Agrupamento              : 00125

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

ESTORNO DE FATURA DE MERCADORIA EXISTINDO FATURA DE SEGURO/FRE

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

Palavras Chave:

ESTORNO - FATURA DE MERCADORIA - FATURA FRETE - SEGURO

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

Objetos da nota:

REPS /PWS/MZYCI003F02

REPS /PWS/MZYCI003I01

REPT /PWS/SAPMZYCI003

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

Modificações efetuadas em REPS /PWS/MZYCI003F02

...

* >> Início da inclusão:

form verifica_fatura.

      clear:   itab_zycit006_atual.

      refresh: itab_zycit006_atual.

      SELECT SINGLE *

        FROM /pws/zycit094

       WHERE nrseq = /pws/zycie001-nrseq.          "#EC CI_NOFIRST

      IF sy-subrc = 0.

        SELECT *

          FROM /pws/zycit006

          into table itab_zycit006_atual

          WHERE nrseqce = /pws/zycit094-nrseqce

            AND ( tpfatura  EQ '02'

             OR   tpfatura  EQ '03' )                   "#EC CI_NOFIELD

            AND eliminado ne 'X'.

      ENDIF.

endform.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI003I01

...

      WHEN 'DELE'.

* >> Início da inclusão: MODULE USER_COMMAND_0100

        IF /pws/zycie006-tpfatura EQ '01' AND

        /pws/zycit031-inco1_ci EQ 'FOB' .

          PERFORM verifica_fatura.

          IF NOT itab_zycit006_atual[] IS INITIAL.

            MESSAGE e015 WITH text-186 text-191.

            CLEAR:   itab_zycit006_atual.

            REFRESH: itab_zycit006_atual.

            EXIT.

          ENDIF.

        ENDIF.

* << Fim da inclusão

        /pws/zycie003-flagfabr = 'S'.

        PERFORM estorno_pag_antecipado.

        PERFORM eliminar_fatura.

...

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

Modificações efetuadas em REPT /PWS/SAPMZYCI003

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: 191

Texto: (30 caracteres)

"There is Freight/Insur.invoice"

Comprimento máximo: 30

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 191

Texto: (30 caracteres)

"Existe fatura de Frete/Seguro."

Comprimento máximo: 30

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: 191

Texto: (30 caracteres)

"Ya existe fact.de Flete/Seguro"

Comprimento máximo: 30