Sintoma

Ao informar o Peso Líquido ocorre dump.

Ao informar o Transportador o programa não busca as informações do transportador.

Solução

Ajustar o Dump do programa e a busca do transportador.

Informações Complementares

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

Nota Número 11081 Data: 11/04/2011 Hora: 15:31:00

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

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

Nota Número              : 11081

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00007

Agrupamento              : 00066

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

Referência às notas relacionadas:

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

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

DA - ERRO NOS CAMPOS PESO LÍQUIDO E TRANSPORTADOR

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

Palavras Chave:

DUMP AO INFORMAR O PESO E ERRO NA BUSCA DO TRANSPORTADOR

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

Objetos da nota:

REPS /PWS/MZYCI070F02

REPS /PWS/MZYCI070I01

REPS /PWS/MZYCI070O01

REPT /PWS/SAPMZYCI070

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

Modificações efetuadas em REPS /PWS/MZYCI070F02

...

        WHERE lifnr = /pws/zycie093-transp.

      IF sy-subrc EQ 0.

        /pws/zycie093-descrtransp = lfa1-name1.

        SET LOCALE LANGUAGE sy-langu.

        TRANSLATE /pws/zycie093-descrtransp TO UPPER CASE.

        /pws/zycie093-bandtransp = lfa1-land1.

        PERFORM load_ban.

      ENDIF.

    ENDIF.

  ELSE.

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

    IF /pws/zycie442-flagtransp EQ 'S'.

* << Fim da exclusão

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

    IF NOT /pws/zycie442-transp IS INITIAL.

* << Fim da inclusão

      SELECT SINGLE *

        FROM lfa1

        INTO lfa1

        WHERE lifnr = /pws/zycie442-transp.

      IF sy-subrc EQ 0.

        /pws/zycie442-descrtransp = lfa1-name1.

        SET LOCALE LANGUAGE sy-langu.

        TRANSLATE /pws/zycie442-descrtransp TO UPPER CASE.

        /pws/zycie442-bandtransp = lfa1-land1.

        PERFORM load_ban.

...

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

Modificações efetuadas em REPS /PWS/MZYCI070I01

...

MODULE modify_peso INPUT.

  DATA: v_ntgewa TYPE /pws/zycie442-ntgew.

  IF /pws/zycie442-ntgew IS INITIAL.

    MESSAGE e015 WITH text-545.

    EXIT.

  ENDIF.

  CLEAR v_ntgewa.

  LOOP AT itab_it.

    itab_it-ntgew = /pws/zycie442-ntgew *

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

        ( itab_it-ntgew / wa_zycit442a-ntgew ).

* << Fim da exclusão

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

        ( itab_it-ntgew / /pws/zycie442-ntgew ).

* << Fim da inclusão

    ADD itab_it-ntgew TO v_ntgewa.

    MODIFY itab_it.

  ENDLOOP.

  itab_it-ntgew = itab_it-ntgew + ( /pws/zycie442-ntgew - v_ntgewa ).

  MODIFY itab_it TRANSPORTING ntgew

        WHERE ebeln EQ itab_it-ebeln

          AND ebelp EQ itab_it-ebelp.

ENDMODULE.

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

Modificações efetuadas em REPS /PWS/MZYCI070O01

...

  SET PF-STATUS '0001'.

  IF v_dit = 'N'.

    IF sy-tcode EQ '/PWS/ZYCI070_E'

       OR v_tcode EQ '/PWS/ZYCI070_E'.

      v_textstat = text-058.

      SET TITLEBAR '0100' WITH text-058 text-060.

    ELSE.

      v_textstat = text-059.

      SET TITLEBAR '0100' WITH text-059 text-060.

    ENDIF.

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

  ELSE.

    IF sy-tcode EQ '/PWS/ZYCI070_L'.

      v_textstat = text-058.

      SET TITLEBAR '0100' WITH text-058 text-061.

    ELSE.

      v_textstat = text-059.

      SET TITLEBAR '0100' WITH text-059 text-061.

    ENDIF.

* << Fim da exclusão

  ENDIF.

ENDMODULE.

...

...

 MODULE atualiza_peso_da OUTPUT.

  IF itab_zycit442-ntgew IS INITIAL.

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

    CLEAR /pws/zycie442-ntgew.

* << Fim da exclusão

    LOOP AT itab_it.

      READ TABLE itab_itens WITH KEY

                                ebeln = itab_it-ebeln

                                ebelp = itab_it-ebelp.

      CLEAR v_ntgew.

      SELECT msehi zaehl nennr exp10 FROM t006

        INTO TABLE itab_t006

        WHERE dimid = 'MASS'.

      READ TABLE itab_t006 WITH KEY msehi = itab_it-gewei.

      IF sy-subrc EQ 0.

...

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

Modificações efetuadas em REPT /PWS/SAPMZYCI070

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

Modificado símbolo de texto:

Idioma: EN

Símbolo: 153

Texto: (47 caracteres)

"There is no converison tax. DA cannot be saved."

Comprimento máximo: 50

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

Modificado símbolo de texto:

Idioma: PT

Símbolo: 153

Texto: (50 caracteres)

"Não há taxa de conversão. DA não pode ser gravada."

Comprimento máximo: 50

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: 191

Texto: (42 caracteres)

"Valitidy date of the condition not founded"

Comprimento máximo: 50

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 191

Texto: (45 caracteres)

"Não encontrada a Data de Validade da Condição"

Comprimento máximo: 50

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: 191

Texto: (43 caracteres)

"No encontrada fecha de Validad de Condición"

Comprimento máximo: 50

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

Modificado símbolo de texto:

Idioma: EN

Símbolo: 228

Texto: (35 caracteres)

"DA importer different from shipment"

Comprimento máximo: 35

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

Modificado símbolo de texto:

Idioma: PT

Símbolo: 228

Texto: (35 caracteres)

"Importador da DA difere do Embarque"

Comprimento máximo: 35

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 436

Texto: (0 caracteres)

Comprimento máximo: 132

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: 545

Texto: (13 caracteres)

"Inform weight"

Comprimento máximo: 50

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: 546

Texto: (18 caracteres)

"Regime not allowed"

Comprimento máximo: 35

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

Incluído símbolo de texto:

Idioma: EN

Símbolo: 547

Texto: (2 caracteres)

"DI"

Comprimento máximo: 2

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: 547

Texto: (2 caracteres)

"DI"

Comprimento máximo: 3

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

Incluído símbolo de texto:

Idioma: ES

Símbolo: 547

Texto: (2 caracteres)

"DI"

Comprimento máximo: 2