CE PLUS - Nota 002174
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Agrupamento de Embarque
Data/Hora da Publicação: 28/09/2006 00:00:00
Data/Hora Última Alteração: 21/02/2011 17:20:28
Descrição da Nota: ENVIO PARA O CÂMBIO INCORRETO DE ACORDO COM PARÂMETRO OCULTO
Sintoma
Ao enviar um embarque para o câmbio quando o campo AGRUPA_T30 da tabela /PWS/ZYCET037 está limpo, o
valor no câmbio fica dobrado.
Solução
Ignorar o parâmetro citado.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02174 Data: 28/09/2006 Hora: 15:48:08
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02174
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00132
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01651 - 00001 - 6.0 - 00024 - CAMPOS OCULTOS EM TABELA DE PARÂMETROS GERAIS
01979 - 00002 - 6.0 - 00024 - PERFORMANCE E PADRONIZAÇÃO DO EMBARQUE
02003 - 00003 - 6.0 - 00024 - RETIRADA DE VERIFICAÇÃO DE PARÂMETRO PARA ENVIO DE EMBARQUE AO CÂ
----------------------------------------------------------------------------------------------------
ENVIO PARA O CÂMBIO INCORRETO DE ACORDO COM PARÂMETRO OCULTO
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXPORTAÇÃO CÂMBIO EMBARQUE PARÂMETRO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCE003F01
REPS /PWS/MZYCE037F01
REPS /PWS/MZYCE312F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE003F01
...
itab_bseg_aux LIKE itab_bseg OCCURS 0 WITH HEADER LINE.
REFRESH itab_zycet093.
PERFORM seleciona_itens_contabeis.
IF itab_zycet037-agrup_fat_rec = '0'.
itab_bseg_aux[] = itab_bseg[].
* >> Início da exclusão: FORM SELECIONA_DADOS_AGRUP
IF itab_zycet037-agrupa_t30 EQ 'X'.
* << Fim da exclusão
DELETE itab_bseg_aux WHERE augbl IS initial OR
koart NE 'D'.
* >> Início da exclusão: FORM SELECIONA_DADOS_AGRUP
ELSE.
DELETE itab_bseg_aux WHERE koart NE 'D'.
ENDIF.
* << Fim da exclusão
itab_002[] = itab_zycet002[].
SORT itab_002 BY vbeln_va vbeln_vl vbeln_vf.
LOOP AT itab_002.
IF itab_002-vbeln_vf NE v_vbeln.
READ TABLE itab_bkpf WITH KEY awkey = itab_002-vbeln_vf.
...
...
itab_002-waers TO itab_zycet093-waers,
itab_bseg_aux-wrbtr TO itab_zycet093-vlme.
IF itab_bseg_aux-shkzg EQ 'H'.
itab_zycet093-vlme = itab_zycet093-vlme * ( -1 ).
ENDIF.
* >> Início da exclusão: FORM SELECIONA_DADOS_AGRUP
IF itab_zycet037-agrupa_t30 = 'X'.
* << Fim da exclusão
MOVE: itab_bseg_aux-augbl TO itab_zycet093-belnr_i.
* >> Início da exclusão: FORM SELECIONA_DADOS_AGRUP
ELSE.
MOVE: itab_bseg_aux-belnr TO itab_zycet093-belnr_i.
ENDIF.
* << Fim da exclusão
COLLECT itab_zycet093.
ENDLOOP.
ENDIF.
v_vbeln = itab_002-vbeln_vf.
ENDIF.
...
...
END OF itab_result.
DATA: v_vbeln TYPE vbrk-vbeln.
IMPORT itab_result FROM MEMORY ID '014'.
IF itab_result[] IS INITIAL.
LOOP AT itab_zycet093.
* >> Início da exclusão: FORM GERA_TABELA_ZYCBT030
IF itab_zycet037-agrupa_t30 IS INITIAL.
READ TABLE itab_bkpf WITH KEY belnr = itab_zycet093-belnr_i.
v_vbeln = itab_bkpf-awkey.
READ TABLE itab_zycet002 WITH KEY vbeln_vf = v_vbeln.
itab_zycbt030-shkzg = itab_zycet002-shkzg.
ENDIF.
* << Fim da exclusão
itab_zycbt030-nrinvoic = itab_zycet002-nrseq.
itab_zycbt030-waers = itab_zycet002-waers.
itab_zycbt030-kostl = itab_zycet002-kostl.
itab_zycbt030-prctr = itab_zycet002-prctr.
IF itab_zycet037-dtlct CA 'NE'.
...
...
IF itab_zycet093-nrparcf NE '01'.
itab_zycbt030-nrparcf = itab_zycet093-nrparcf.
ELSE.
itab_zycbt030-nrparcf = '01'.
ENDIF.
* >> Início da exclusão: FORM GERA_TABELA_ZYCBT030
IF itab_zycet037-agrupa_t30 IS INITIAL.
IF itab_zycet037-doc_camb EQ 'F'.
itab_zycbt030-vbeln = itab_zycet002-vbeln_vf.
ELSEIF itab_zycet037-doc_camb EQ 'R'.
itab_zycbt030-vbeln = itab_zycet002-xblnr.
ENDIF.
ELSE.
* << Fim da exclusão
itab_zycbt030-vbeln = itab_zycbt030-belnr.
* >> Início da exclusão: FORM GERA_TABELA_ZYCBT030
ENDIF.
* << Fim da exclusão
APPEND itab_zycbt030.
...
...
IMPORTING
answer = v_resposta.
CHECK v_resposta CA 'YJ'.
CHECK NOT itab_zycbt030[] IS INITIAL.
CLEAR v_executa.
* >> Início da exclusão: FORM RETIRA_DO_CAMBIO
IF NOT itab_zycet037-agrupa_t30 IS INITIAL.
* << Fim da exclusão
IF itab_zycet037-agrup_fat_rec = '0'.
READ TABLE itab_zycet079 WITH KEY func = 'AGR'
BINARY SEARCH.
MOVE itab_zycet079-transacao TO v_tcode.
EXPORT /pws/zycee001-modo_venc TO MEMORY ID 'VCTO'.
...
...
AND RETURN.
IMPORT v_result FROM MEMORY ID '031'.
IF sy-subrc = 0 AND v_result = 'Y'.
v_executa = 'X'.
ENDIF.
* >> Início da exclusão: FORM RETIRA_DO_CAMBIO
ELSE.
v_executa = 'X'.
ENDIF.
* << Fim da exclusão
IF v_executa EQ 'X'.
PERFORM exclui_dados_cambio.
itab_zycet002-emb_liq = space.
MODIFY itab_zycet002 TRANSPORTING emb_liq
WHERE emb_liq NE space.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE037F01
...
IMPORTING
answer = presp.
ENDFORM.
FORM datasave.
/pws/zycet037-uname = sy-uname.
* >> Início da inclusão: FORM DATASAVE
/pws/zycet037-agrupa_t30 = 'X'.
* << Fim da inclusão
wa_zycet037 = /pws/zycet037.
wa_zycet037-usernamec = sy-uname.
wa_zycet037-dtuserc = sy-datum.
wa_zycet037-hruserc = sy-uzeit.
PERFORM nome_usuario.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE312F01
...
IF sy-subrc EQ 0.
/pws/zycet312-username = v_name.
/pws/zycet312-usernamec = sy-uname.
/pws/zycet312-dtuserc = sy-datum.
/pws/zycet312-hruserc = sy-uzeit.
* >> Início da inclusão: FORM SALVAR_REGISTROS
/pws/zycet037-agrupa_t30 = 'X'.
* << Fim da inclusão
MODIFY /pws/zycet037 FROM /pws/zycet037.
COMMIT WORK.
IF sy-subrc EQ 0.
MESSAGE i001 WITH text-006.
v_save = 'X'.
...