Sintoma

O sistema está permitindo selecionar o item para criar e contabilizar uma fatura de frete antes de

ter a fatura de mercadoria.

Solução

Atualizado o programa da fatura para tratar essa situação

Informações Complementares

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

Nota Número 02968 Data: 25/01/2007 Hora: 16:50:51

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

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

Nota Número              : 02968

Categoria                : Erro de Programa

Prioridade               : Baixa

Versão PW.CE             : 6.0

Pacote                   : 00026

Agrupamento              : 00150

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

Referência às notas relacionadas:

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

01363  - 00001 - 6.0    - 00023  - QUANDO O REGIME DE EMBARQUE FOR 16, NÃO HAVERÁ CRIAÇÃO MANUAL DE

02858  - 00002 - 6.0    - 00026  - FATURA DE SERVIÇO COM PAGAMENTO APÓS DI

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

PERMITE GRAVAR FATURA DO TIPO 2 SEM TER CRIADO DO TIPO1

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

Palavras Chave:

FATURA - MERCADORIA - FRETE

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

Objetos da nota:

REPS /PWS/MZYCI003F02

REPT /PWS/SAPMZYCI003

REPT /PWS/MZYCI003O01

REPT /PWS/MZYCI003I01

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

Modificações efetuadas em REPS /PWS/MZYCI003F02

...

ENDFORM.

FORM tp_fatura.

  IF sy-ucomm = 'ENTE' OR sy-ucomm = 'SAVE'.

    IF /pws/zycie001-regime = '16'.

      IF /pws/zycie006-tpfatura = '01'

      OR /pws/zycie006-tpfatura = '02'

      OR /pws/zycie006-tpfatura = '03'.

        MESSAGE e013 WITH text-167.

      ENDIF.

    ENDIF.

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

    IF /pws/zycie006-tpfatura NE '01'

    and /pws/zycie006-tpfatura NE '11'.

      SELECT SINGLE *

        FROM /pws/zycit263

        WHERE nrseq     EQ /pws/zycie001-nrseq

          and eliminado NE 'X'.

      IF sy-subrc NE 0.

        MESSAGE e039 WITH text-171.

      ENDIF.

    ENDIF.

* << Fim da inclusão

  ENDIF.

ENDFORM.

FORM atualiza_fb08_fat.

  IF v_parcela = 'X'.

    SELECT SINGLE *

      FROM bkpf

      WHERE belnr EQ /pws/zycie006-belnr_p

        AND gjahr EQ /pws/zycie006-dtincl+0(4)

        AND bukrs EQ /pws/zycie006-bukrs.

    READ TABLE itab_zycbt032 WITH KEY tcode  = 'FB08'

...

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

Modificações efetuadas em REPT /PWS/SAPMZYCI003

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 171

Texto: (35 caracteres)

"Fatura tipo 1 ainda não foi criada!"

Comprimento máximo: 35

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

Modificações efetuadas em REPS /PWS/MZYCI003O01

...

        INTO TABLE itab_zycit003

        FOR ALL ENTRIES IN itab_sele

        WHERE ebeln = itab_sele-ebeln

          AND ebelp = itab_sele-ebelp

          AND nrseq = /pws/zycie001-nrseq.

    ENDIF.

    CLEAR okcode.

    MOVE: /pws/zycie001-bukrs   TO /pws/zycie006-bukrs  ,

          /pws/zycie001-inco1   TO /pws/zycie006-inco1,

          /pws/zycie001-waers   TO /pws/zycie006-waers_emb.

* >> Início da exclusão: MODULE LOAD_DATA

    IF ( /pws/zycie006-tpfatura EQ '02' OR

       /pws/zycie006-tpfatura EQ '03' OR

       /pws/zycie006-tpfatura EQ '04' OR

       /pws/zycie006-tpfatura EQ '09' ) AND NOT

       /pws/zycie006-lifnr IS INITIAL.

      IF sy-tcode EQ '/PWS/ZYCI003_C'

        AND v_forn NE 'X'.

        CLEAR /pws/zycie006-lifnr.

      ENDIF.

    ELSE.

* << Fim da exclusão

      IF  ( NOT /pws/zycie006-tpfatura EQ '02' OR

            NOT /pws/zycie006-tpfatura EQ '03' OR

            NOT /pws/zycie006-tpfatura EQ '04' )

            AND /pws/zycie006-lifnr IS INITIAL

            .

        SELECT SINGLE *

           FROM /pws/zycet076

           WHERE codigo_ce EQ 'PI'.

        READ TABLE itab_zycit003 INDEX 1.

        SELECT SINGLE lifn2  FROM ekpa INTO v_emissor

               WHERE ebeln = itab_zycit003-ebeln

               AND   parvw = /pws/zycet076-codigo_r3.

        IF sy-subrc EQ 0.

          /pws/zycie006-lifnr = v_emissor.

        ELSE.

          /pws/zycie006-lifnr = v_lifnr.

* >> Início da exclusão: MODULE LOAD_DATA

        ENDIF.

* << Fim da exclusão

      ENDIF.

    ENDIF.

    IF /pws/zycie006-j_1bbranch IS INITIAL.

      MOVE /pws/zycie001-j_1bbranch TO /pws/zycie006-j_1bbranch.

    ENDIF.

  ELSE.

    IF sy-tcode EQ '/PWS/ZYCI003_C' AND

      v_forn = 'X'.

      CLEAR /pws/zycie006-lifnr.

    ENDIF.

...

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

Modificações efetuadas em REPS /PWS/MZYCI003I01

...

      CLEAR tdynpread-fieldvalue.

      CONCATENATE v_peso1 '.' v_peso2 INTO tdynpread-fieldvalue.

      MOVE tdynpread-fieldvalue TO /pws/zycie006-ntgew.

    ENDIF.

  ENDIF.

  IF ( /pws/zycie006-tpfatura = '02' OR

     /pws/zycie006-tpfatura = '03' OR

     /pws/zycie006-tpfatura = '04' ) AND

     v_forn IS INITIAL

     AND /pws/zycie006-eliminado NE 'X'.

* >> Início da exclusão: MODULE ATUALIZA_ZYCIE006

    CLEAR /pws/zycie006-lifnr.

    v_forn = 'X'.

* << Fim da exclusão

  ENDIF.

  IF t001-land1 = 'CL'.

    /pws/zycie006-waers_clp = /pws/zycbt007-waersb.

  ENDIF.

  IF /pws/zycie006-vlfre_clp GT 0.

    v_freteclp = 'S'.

  ENDIF.

ENDMODULE.

MODULE user_command_0101 INPUT.

  CASE okcode.

...