Módulo: DOC. IMPORTAÇÃO
Funcionalidade: BL
Data/Hora da Publicação: 23/10/2008 00:00:00
Data/Hora Última Alteração: 09/03/2010 14:42:44
Descrição da Nota: NÃO PERMITIR EXCLUIR O BL SE O PROCESSO TIVER FATURA
Sintoma
O BL foi excluido com fatura criada
Solução
Verificar se o embarque possui vinculo para não permitir excluir
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07473 Data: 23/10/2008 Hora: 14:12:18
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07473
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00070
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
NÃO PERMITIR EXCLUIR O BL SE O PROCESSO TIVER FATURA
----------------------------------------------------------------------------------------------------
Palavras Chave:
DESEMBARAÇO - BL - VINCULO - EXCLUSÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI002F02
REPT /PWS/SAPMZYCI002
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI002F02
...
MODIFY itab_zycit094s.
ENDLOOP.
ELSEIF ( ts_bl-activetab EQ 'FC_CONT' ).
LOOP AT itab_zycit055.
itab_zycit055-marc = ' '.
MODIFY itab_zycit055.
ENDLOOP.
ENDIF.
ENDFORM.
FORM trata_botao_delm.
* >> Início da inclusão: FORM TRATA_BOTAO_DELM
SELECT SINGLE * FROM /pws/zycit006
WHERE nrseqce = /pws/zycie093-nrseqce AND
eliminado = space
AND tpfatura NE '11'. "#EC CI_NOFIELD
IF sy-subrc = 0.
MESSAGE s061 WITH text-123 text-102.
EXIT.
ENDIF.
* << Fim da inclusão
IF ( ts_bl-activetab EQ 'FC_COMP' ).
LOOP AT itab_zycit014.
IF itab_zycit014-marc2 = 'X'.
DELETE itab_zycit014.
ENDIF.
ENDLOOP.
ELSEIF ( ts_bl-activetab EQ 'FC_EMB' ).
LOOP AT itab_zycit094s.
IF itab_zycit094s-marc = 'X'.
DELETE itab_zycit094s.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI002
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 123
Texto: (43 caracteres)
"Embarque não pode ser excluído. Há vinculos"
Comprimento máximo: 43