Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 22/11/2005 00:00:00
Data/Hora Última Alteração: 21/02/2011 13:56:05
Descrição da Nota: NÃO ESTÁ GRAVANDO A DATA DE ENVIA PARA O CÂMBIO.
Sintoma
Quando enviamos o embarque para o Câmbio, não está levando a informação para o campo:
/PWS/ZYCET001-DTENVCAM.
Solução
Ajustes efetuados para que a data seja inserida na tabela.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00323 Data: 22/11/2005 Hora: 14:33:25
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00323
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00021
Agrupamento : 00089
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00010 - 00001 - 6.0 - 00021 - CRIAÇÃO DE EMBARQUE POR ORDEM DE VENDA PARCIAL
00039 - 00002 - 6.0 - 00021 - DOCUMENTOS CONTÁBEIS NO HISTÓRICO DE EXPORTAÇÃO APÓS ENVIO PARA O
----------------------------------------------------------------------------------------------------
NÃO ESTÁ GRAVANDO A DATA DE ENVIA PARA O CÂMBIO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXPORTAÇÃO - EMBARQUE - ENVIO PARA O CAMBIO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCE003F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE003F01
...
ENDIF.
IF NOT itab_zycbt030[] IS INITIAL.
MODIFY /pws/zycbt030 FROM TABLE itab_zycbt030.
ENDIF.
/pws/zycee001-envia_c = 'X'.
* >> Início da exclusão: FORM ENVIA_PARA_CAMBIO
UPDATE /pws/zycet001 SET envia_c = 'X'
WHERE nrseq = /pws/zycee001-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM ENVIA_PARA_CAMBIO
UPDATE /pws/zycet001 SET envia_c = 'X'
dtenvcamb = sy-datum
WHERE nrseq = /pws/zycee001-nrseq.
* << Fim da inclusão
COMMIT WORK.
ELSE.
IF v_status_agrup NE 3.
ENDIF.
ENDIF.
...
...
ENDIF.
IF NOT itab_zycbt030[] IS INITIAL.
MODIFY /pws/zycbt030 FROM TABLE itab_zycbt030.
ENDIF.
/pws/zycee001-envia_c = 'X'.
* >> Início da exclusão: FORM ENVIA_PARA_CAMBIO
UPDATE /pws/zycet001 SET envia_c = 'X'
WHERE nrseq = /pws/zycee001-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM ENVIA_PARA_CAMBIO
UPDATE /pws/zycet001 SET envia_c = 'X'
dtenvcamb = sy-datum
WHERE nrseq = /pws/zycee001-nrseq.
* << Fim da inclusão
COMMIT WORK.
ENDIF.
ELSE.
PERFORM gera_tabela_zycbt017 USING space.
PERFORM exclui_dados_cambio.
IF NOT itab_zycbt017[] IS INITIAL.
MODIFY /pws/zycbt017 FROM TABLE itab_zycbt017.
ENDIF.
/pws/zycee001-envia_c = 'X'.
* >> Início da exclusão: FORM ENVIA_PARA_CAMBIO
UPDATE /pws/zycet001 SET envia_c = 'X'
WHERE nrseq = /pws/zycee001-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM ENVIA_PARA_CAMBIO
UPDATE /pws/zycet001 SET envia_c = 'X'
dtenvcamb = sy-datum
WHERE nrseq = /pws/zycee001-nrseq.
* << Fim da inclusão
COMMIT WORK.
ENDIF.
IF /pws/zycee001-envia_c IS INITIAL.
MESSAGE w246 WITH /pws/zycee001-nrseq.
ELSE.
...
...
MODIFY itab_zycet002_ant TRANSPORTING emb_liq
WHERE emb_liq NE space.
UPDATE /pws/zycet002 SET emb_liq = space
WHERE nrseq = /pws/zycee001-nrseq.
/pws/zycee001-envia_c = space.
* >> Início da exclusão: FORM RETIRA_DO_CAMBIO
UPDATE /pws/zycet001 SET envia_c = space
WHERE nrseq = /pws/zycee001-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM RETIRA_DO_CAMBIO
CLEAR /pws/zycee001-dtenvcamb.
UPDATE /pws/zycet001 SET envia_c = space
dtenvcamb = /pws/zycee001-dtenvcamb
WHERE nrseq = /pws/zycee001-nrseq.
* << Fim da inclusão
COMMIT WORK.
*/pws/zycee001-envia_c = 'X'.
PERFORM gera_doc_modificacao USING 'X'.
*/pws/zycee001-envia_c = space.
PERFORM executa_exit USING 'EMB005'.
...