Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DA
Data/Hora da Publicação: 30/03/2007 00:00:00
Data/Hora Última Alteração: 08/03/2010 20:25:45
Descrição da Nota: MATERIAIS DIFERENTES NA DA
Sintoma
não permite vinculação de materiais diferentes na DA.
Solução
permitir materiais diferentes na DA.
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03361 Data: 30/03/2007 Hora: 12:06:52
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03361
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00027
Agrupamento : 00160
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
MATERIAIS DIFERENTES NA DA
----------------------------------------------------------------------------------------------------
Palavras Chave:
DECLARAÇÃO DE ADMISSÃO - DA - MATERIAIS DIFERENTES
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI070I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070I01
...
WHEN 'COMPEN'.
PERFORM compensa_conta_ia.
PERFORM atualiza_doccmp.
WHEN 'CRIA'.
IF /pws/zycie442-codreg NE '02'.
MESSAGE i015 WITH text-519.
ELSEIF sy-tcode = '/PWS/ZYCI070_C' AND
v_salvo IS INITIAL.
MESSAGE i015 WITH text-515.
ELSE.
* >> Início da exclusão: MODULE USER_COMMAND_0050
v_matnr = itab_it-matnr.
LOOP AT itab_it WHERE matnr NE v_matnr.
ENDLOOP.
IF sy-subrc = 0.
MESSAGE i015 WITH text-522 text-523.
ELSE.
* << Fim da exclusão
PERFORM copiar_item_da.
* >> Início da exclusão: MODULE USER_COMMAND_0050
ENDIF.
* << Fim da exclusão
ENDIF.
WHEN 'TRAN'.
IF /pws/zycie442-codreg NE '02'.
MESSAGE i015 WITH text-519.
ELSEIF sy-tcode = '/PWS/ZYCI070_C' AND
v_salvo IS INITIAL.
MESSAGE i015 WITH text-515.
ELSE.
* >> Início da exclusão: MODULE USER_COMMAND_0050
v_matnr = itab_it-matnr.
LOOP AT itab_it WHERE matnr NE v_matnr.
ENDLOOP.
IF sy-subrc = 0.
MESSAGE i015 WITH text-522 text-523.
ELSE.
* << Fim da exclusão
PERFORM retorna_saldo.
* >> Início da exclusão: MODULE USER_COMMAND_0050
ENDIF.
* << Fim da exclusão
ENDIF.
when 'RESUMO'.
PERFORM RESUMO.
ENDCASE.
ENDIF.
PERFORM atualiza_qtd_po.
...