Sintoma

Quando ordens eram vinculadas a uma nomeação, um aviso de "Saldo a vincular zerado" era dado em

determinados casos.

Solução

Corrigir o preenchimento das ordens vinculadas na Nomeação.

Informações Complementares

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

Nota Número 02108 Data: 14/09/2006 Hora: 16:17:15

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

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

Nota Número              : 02108

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00024

Agrupamento              : 00129

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

VINCULAÇÃO DE ORDENS DE VENDA A UMA NOMEAÇÃO

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

Palavras Chave:

NOMEAÇÃO; VENDA; ORDENS; VINCULAÇÃO

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

Objetos da nota:

REPS /PWS/MZYCE103F01

REPS /PWS/SAPMZYCE103

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

Modificações efetuadas em REPS /PWS/MZYCE103F01

FORM comm_ok.

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

  CLEAR gidx.

* << Fim da exclusão

  LOOP AT itovv WHERE marc = 'X'.

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

    gidx = gidx + 1.

    IF gidx = 1.

      READ TABLE it109 WITH KEY vbeln_va = itovv-vbeln_va

                                posnr    = itovv-posnr

                                etenr    = itovv-etenr.

      IF sy-subrc <> 0.

* << Fim da exclusão

        it109-vbeln_va = itovv-vbeln_va.

        it109-posnr    = itovv-posnr.

        it109-etenr    = itovv-etenr.

        it109-bmeng    = itovv-bmeng.

        it109-ntgew    = itovv-ntgew.

        it109-qtdvol   = itovv-ntgew.

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

        MODIFY it109 INDEX gpos.

      ELSE.

        MESSAGE i001 WITH text-050.

      ENDIF.

    ELSE.

      READ TABLE it109 WITH KEY vbeln_va = itovv-vbeln_va

                                posnr    = itovv-posnr

                                etenr    = itovv-etenr.

      IF sy-subrc <> 0.

        it109-vbeln_va = itovv-vbeln_va.

        it109-posnr    = itovv-posnr.

        it109-etenr    = itovv-etenr.

        it109-ntgew    = itovv-ntgew.

        it109-qtdvol   = itovv-ntgew.

* << Fim da exclusão

        APPEND it109.

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

      ELSE.

        MESSAGE i001 WITH text-050.

      ENDIF.

    ENDIF.

* << Fim da exclusão

  ENDLOOP.

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

  DELETE it109 WHERE vbeln_va IS initial

                 AND posnr    IS initial

                 AND etenr    IS initial.

  SORT it109 BY vbeln_va

                posnr

             ASCENDING.

* << Fim da inclusão

ENDFORM.

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

FORM cliente_reserva_vinculada.

ENDFORM.

* << Fim da exclusão

FORM okcode_spec.

ENDFORM.

FORM verifica_campos.

  READ TABLE itab_zyglt320 WITH KEY tela     = '1000'

                                    campo    = 'WERKS'.

...

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

Modificações efetuadas em REPS /PWS/SAPMZYCE103

* >> Não houve alterações relevantes neste include <<