Sintoma

Geração de log de dump ao tentar vincular uma ordem de venda com pelo menos 1.000 T.

Solução

Inclusão de campos e tratamentos apropriados para armazenamento de volume.

Informações Complementares

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

Nota Número 04757 Data: 19/09/2007 Hora: 10:03:15

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

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

Nota Número              : 04757

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00003

Agrupamento              : 00013

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

Referência às notas relacionadas:

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

01819  - 00001 - 6.0    - 00024  - VINCULAÇÃO NÃO EXIBE O PESO DOS ITENS

02108  - 00002 - 6.0    - 00024  - VINCULAÇÃO DE ORDENS DE VENDA A UMA NOMEAÇÃO

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

TRATAMENTO DE QUANTIFICAÇÃO DE VOLUME NA VINCULAÇÃO NOMEAÇÃO

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

Palavras Chave:

VOLUME VINCUÇAÇÃO NOMEAÇÃO

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

Objetos da nota:

REPS /PWS/MZYCE103F01

REPS /PWS/MZYCE103I01

REPS /PWS/MZYCE103X01

TABD /PWS/ZYCEE109

TABD /PWS/ZYCET109

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

Modificações efetuadas em REPS /PWS/MZYCE103F01

...

    ENDIF.

  ENDLOOP.

ENDFORM.

FORM comm_ok.

  LOOP AT itovv WHERE marc = 'X'.

    it109-vbeln_va = itovv-vbeln_va.

    it109-posnr    = itovv-posnr.

    it109-etenr    = itovv-etenr.

    it109-bmeng    = itovv-bmeng.

    it109-ntgew    = itovv-ntgew.

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

    it109-qtdvol   = itovv-ntgew.

* << Fim da exclusão

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

    it109-qtdvol   = itovv-qtdvol.

    it109-undvol   = itovv-undvol.

* << Fim da inclusão

    APPEND it109.

  ENDLOOP.

  DELETE it109 WHERE vbeln_va IS initial

                 AND posnr    IS initial

                 AND etenr    IS initial.

  SORT it109 BY vbeln_va

                posnr

             ASCENDING.

ENDFORM.

FORM okcode_spec.

...

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

Modificações efetuadas em REPS /PWS/MZYCE103I01

...

  ENDIF.

  itcomp-mark = mark.

  MODIFY itcomp INDEX tc_comp-current_line.

ENDMODULE.

MODULE fill_ovv INPUT.

  MOVE: /pws/zycee108-vbeln_va  TO itovv-vbeln_va,

        /pws/zycee108-posnr     TO itovv-posnr,

        /pws/zycee108-etenr     TO itovv-etenr,

        /pws/zycee108-bmeng     TO itovv-bmeng,

        /pws/zycee108-ntgew     TO itovv-ntgew,

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

        marc               TO itovv-marc.

* << Fim da exclusão

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

        marc                    TO itovv-marc.

  READ TABLE itvbap WITH KEY

    vbeln = /pws/zycee108-vbeln_va

    posnr = /pws/zycee108-posnr.

  IF sy-subrc = 0.

    itovv-qtdvol = itvbap-volum.

    itovv-undvol = itvbap-voleh.

  ENDIF.

* << Fim da inclusão

  MODIFY itovv INDEX tc_ov-current_line.

  IF sy-subrc NE 0.

    APPEND itovv.

  ENDIF.

ENDMODULE.

MODULE fill_it234 INPUT.

  CHECK NOT /pws/zycee234-nrseq IS INITIAL.

  it234-mandt   = sy-mandt.

  it234-nrseqno = /pws/zycee106-nrseqno.

  it234-nrseq   = /pws/zycee234-nrseq.

...

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

Modificações efetuadas em REPS /PWS/MZYCE103X01

...

DATA: BEGIN OF it135 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycee135.

DATA:   mark,

      END OF it135.

DATA: BEGIN OF itovv OCCURS 10,

        vbeln_va LIKE /pws/zycee108-vbeln_va,

        posnr    LIKE /pws/zycee108-posnr,

        etenr    LIKE /pws/zycee108-etenr,

        bmeng    LIKE /pws/zycee108-bmeng,

        ntgew    LIKE /pws/zycee108-ntgew,

* >> Início da inclusão:

        qtdvol   type /pws/zycee109-qtdvol,

        undvol   type /pws/zycee109-undvol,

* << Fim da inclusão

        marc,

      END OF itovv.

DATA: END OF COMMON PART.

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

Modificações efetuadas em TABD /PWS/ZYCEE109

MODIFICAR ESTRUTURA: /PWS/ZYCEE109

DESCRIÇÃO BREVE: CE - Vinculação para a Nomeação do Transporte

COMPONENTE:     TP. COMP:      TAB.REF.:       CPO.REF.:    AJUD. PESQU.

...

GEWEI           GEWEI

QTDCONT  /PWS/ZYCEL114

* >> Início da alteração:

QTDVOL         VOLUM_AP    /PWS/ZYCEE109   UNDVOL

* << Fim da alteração

* >> Início da inclusão:

UNDVOL         VOLEH

* << Fim da inclusão

HISTORICO  /PWS/ZYCEL107

BMENG           BMENG

...

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

Modificações efetuadas em TABD /PWS/ZYCET109

MODIFICAR ESTRUTURA: /PWS/ZYCET109

DESCRIÇÃO BREVE: CE - Vinculação para a Nomeação do Transporte

COMPONENTE:     TP. COMP:      TAB.REF.:       CPO.REF.:    AJUD. PESQU.

...

GEWEI           GEWEI

QTDCONT  /PWS/ZYCEL114

* >> Início da alteração:

QTDVOL         VOLUM_AP    /PWS/ZYCET109   UNDVOL

* << Fim da alteração

* >> Início da inclusão:

UNDVOL         VOLEH

* << Fim da inclusão

HISTORICO  /PWS/ZYCEL107

BMENG           BMENG

...