CE PLUS - Nota 002003
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 29/08/2006 00:00:00
Data/Hora Última Alteração: 22/02/2011 10:43:27
Descrição da Nota: RETIRADA DE VERIFICAÇÃO DE PARÂMETRO PARA ENVIO DE EMBARQUE AO CÂMBIO
Sintoma
Ao se enviar um embarque para o câmbio via modo visível de Batch-Input, o programa não estava
realizando a chamada do programa de agrupamento de embarque, não concluindo assim o envio.
Solução
Retirar a verificação de parâmetro obsoleto no embarque.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02003 Data: 29/08/2006 Hora: 15:00:38
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02003
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 - Versão - Pacote - Descrição Breve
01979 - 00001 - 6.0 - 00024 - PERFORMANCE E PADRONIZAÇÃO DO EMBARQUE
----------------------------------------------------------------------------------------------------
RETIRADA DE VERIFICAÇÃO DE PARÂMETRO PARA ENVIO DE EMBARQUE AO CÂMBIO
----------------------------------------------------------------------------------------------------
Palavras Chave:
CÂMBIO; EMBARQUE; ENVIO; PARÂMETRO; VERIFICAÇÃO; RETIRADA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCE003F01
REPS /PWS/SAPMZYCE003
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE003F01
...
itab_zycet037-agrup_fat_rec = '0'.
PERFORM reclass_cambiais.
ENDIF.
COMMIT WORK.
v_modo_venc = /pws/zycee001-modo_venc.
* >> Início da exclusão: FORM ENVIA_PARA_CAMBIO
IF NOT itab_zycet037-agrupa_t30 IS INITIAL.
* << Fim da exclusão
IF itab_zycet037-agrup_fat_rec = '0'.
v_mode = v_modo.
EXPORT v_mode TO MEMORY ID '035'.
READ TABLE itab_zycet079 WITH KEY func = 'AGR'
BINARY SEARCH.
...
dtenvcamb = sy-datlo
WHERE nrseq = /pws/zycee001-nrseq.
COMMIT WORK.
ELSE.
IF v_status_agrup NE 3.
* >> Início da exclusão: FORM ENVIA_PARA_CAMBIO
ENDIF.
ENDIF.
ELSE.
PERFORM seleciona_dados_agrup CHANGING v_result
v_status_agrup.
PERFORM gera_tabela_zycbt030.
PERFORM gera_tabela_zycbt017 USING space.
PERFORM gera_tabela_zycbt018.
PERFORM exclui_dados_cambio.
IF NOT itab_zycbt017[] IS INITIAL.
MODIFY /pws/zycbt017 FROM TABLE itab_zycbt017.
ENDIF.
IF NOT itab_zycbt018[] IS INITIAL.
MODIFY /pws/zycbt018 FROM TABLE itab_zycbt018.
ENDIF.
IF NOT itab_zycbt030[] IS INITIAL.
MODIFY /pws/zycbt030 FROM TABLE itab_zycbt030.
* << Fim da exclusão
ENDIF.
* >> Início da exclusão: FORM ENVIA_PARA_CAMBIO
/pws/zycee001-envia_c = 'X'.
/pws/zycee001-dtenvcamb = sy-datlo.
UPDATE /pws/zycet001 SET envia_c = 'X'
dtenvcamb = sy-datlo
WHERE nrseq = /pws/zycee001-nrseq.
COMMIT WORK.
* << Fim da exclusão
ENDIF.
ELSE.
PERFORM gera_tabela_zycbt017 USING space.
PERFORM exclui_dados_cambio.
IF NOT itab_zycbt017[] IS INITIAL.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/SAPMZYCE003
* >> Não houve alterações relevantes neste include <<