CE PLUS - Nota 000339
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 24/11/2005 00:00:00
Data/Hora Última Alteração: 21/02/2011 13:51:16
Descrição da Nota: AJUSTES NO EMBARQUE DE EXPORTAÇÃO
Sintoma
Ajustes diversos no Embarque:
- Valores de comissão gravados incorretamente ao enviar embarque para o câmbio;
- Consistência de Estorno e Re-faturamento de Nota de Crédito;
- Erro na unidade de medida quando há partição de lote;
- Consistência de estorno e re-faturamento de remessa;
- Campo Canal do SISCOMEX fica fechado ao criar DDE;
- Consistência de processos permitidos para Embarque de Exportação Temporária.
Solução
Aplicar as correções constantes nessa nota de atualização.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00339 Data: 24/11/2005 Hora: 17:24:25
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00339
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
00169 - 00001 - 6.0 - 00021 - DESENVOLVIMENTO DO EMBARQUE DE EXPORTAÇÃO EM CONSIGNAÇÃO
00195 - 00002 - 6.0 - 00021 - EXIBIÇÃO DE VALORES CONSIDERADOS ERRADOS NO ITEM DO EMBARQUE EXPO
00212 - 00003 - 6.0 - 00021 - INCLUSÃO DO CAMPO CANAL NOS DADOS DO SISCOMEX NO EMBARQUE DE EXPO
00279 - 00004 - 6.0 - 00021 - VALORES INCORRETOS NO ENVIO PARA O CÂMBIO DE EMBARQUES MARÍTIMOS
00291 - 00005 - 6.0 - 00021 - VALORES DO RE ERRADOS QUANDO FATURA-SE A ORDEM DE VENDA
00301 - 00006 - 6.0 - 00021 - VALORES ERRADOS NO RE QUANDO HÁ DEVOLUÇÃO E ESTORNO DA MESMA NO E
00308 - 00007 - 6.0 - 00021 - ERRO AO GRAVAR OS DADOS REFERENTES AO ATO CONCESSÓRIO DE EXPORTAÇ
00313 - 00008 - 6.0 - 00021 - O EMBARQUE ESTÁ APRESENTANDO PROBLEMAS QUANDO EXISTE NOTA DE CRÉD
00323 - 00009 - 6.0 - 00021 - NÃO ESTÁ GRAVANDO A DATA DE ENVIA PARA O CÂMBIO.
00328 - 00010 - 6.0 - 00021 - ERRO DE ARREDONDAMENTO DE FRETE NO ENVIO PARA CÂMBIO
00332 - 00011 - 6.0 - 00022 - AJUSTES NO VALOR DA COMISSÃO DE AGENTE
----------------------------------------------------------------------------------------------------
AJUSTES NO EMBARQUE DE EXPORTAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXPORTAÇÃO EMBARQUE AJUSTES
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCE003 0102
DYNP /PWS/SAPMZYCE003 0104
REPS /PWS/MZYCE003F01
REPS /PWS/MZYCE003F02
REPS /PWS/SAPMZYCE003
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCE003 0102
Alterar o SCREEN-GROUP4 do objeto BOT_COMPL (botão) de "D " para "DE ".
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCE003 0104
Alterar o SCREEN-GROUP2 e SCREEN-GROUP3 do campo /PWS/ZYCEE001-CANAL conforme abaixo:
DE PARA
SCREEN-GROUP2 04 0
SCREEN-GROUP3 022 024
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE003F01
...
DATA: BEGIN OF itab_zycee085 OCCURS 0.
INCLUDE STRUCTURE /pws/zycee085.
DATA: END OF itab_zycee085.
DATA: v_nrseq LIKE /pws/zycee085-nrseq.
LOOP AT itab_zycet002.
* >> Início da inclusão: FORM EXECUTA_TRATA_ORDEM
IF itab_zycet037-bukrs NE itab_zycet002-bukrs.
READ TABLE itab_zycet037 WITH KEY bukrs = itab_zycet002-bukrs.
ENDIF.
* << Fim da inclusão
v_nrseq = v_nrseq + 1.
itab_zycee085-nrseq = v_nrseq.
SHIFT itab_zycee085-nrseq RIGHT DELETING TRAILING space.
UNPACK itab_zycee085-nrseq TO itab_zycee085-nrseq.
MOVE: itab_zycet002-mandt TO itab_zycee085-mandt,
...
...
itab_zycet312-part_lote IS INITIAL.
MOVE: itab_lips-kcntgew TO itab_zycet002-ntgew,
itab_lips-kcbrgew TO itab_zycet002-brgew,
itab_lips-kcmeng TO itab_zycet002-fkimg,
itab_lips-kcgewei TO itab_zycet002-gewei,
* >> Início da exclusão: FORM MOVE_DADOS_SAP_PARA_ITENS
itab_lips-kcgewei TO itab_zycet002-vrkme.
* << Fim da exclusão
* >> Início da inclusão: FORM MOVE_DADOS_SAP_PARA_ITENS
itab_lips-vrkme TO itab_zycet002-vrkme.
* << Fim da inclusão
ELSE.
MOVE: itab_lips-lfimg TO itab_zycet002-fkimg,
itab_lips-brgew TO itab_zycet002-brgew,
itab_lips-ntgew TO itab_zycet002-ntgew.
ENDIF.
...
...
DATA: v_peso LIKE /pws/zycee001-speso,
v_lfimg LIKE lips-lfimg.
CLEAR wa_valores-peso.
CLEAR /pws/zycee001-gewei.
LOOP AT itab_zycet002.
* >> Início da inclusão: FORM CABECALHO_PESO_EMBARQUE
CHECK itab_zycet002-estorno IS INITIAL AND
itab_zycet002-estornado IS INITIAL.
* << Fim da inclusão
IF /pws/zycee001-gewei IS INITIAL.
READ TABLE itab_zycet037 WITH KEY bukrs = /pws/zycee001-bukrs.
IF sy-subrc EQ 0.
/pws/zycee001-gewei = itab_zycet037-gewei.
ENDIF.
...
...
CLEAR v_exclui.
v_vbeln = itab_zycet002-vbeln_vf.
v_posnr = itab_zycet002-posnr.
LOOP AT itab_vbfa WHERE vbelv EQ v_vbeln AND
posnv EQ v_posnr.
* >> Início da inclusão: FORM ATUALIZA_OUTRAS_ORDENS
IF itab_vbfa-vbtyp_n CA 'NS'.
READ TABLE itab_vbrk WITH KEY vbeln = itab_vbfa-vbeln.
CHECK sy-subrc EQ 0.
IF itab_vbfa-vbtyp_n EQ 'N'.
READ TABLE itab_002 WITH KEY vbeln_vf = itab_vbfa-vbeln
posnr = itab_vbfa-posnn.
CHECK sy-subrc NE 0.
ENDIF.
CLEAR wa_zycet002.
IF /pws/zycee001-tipo_emb EQ 'V'.
wa_zycet002-ebeln = itab_zycet002-ebeln.
wa_zycet002-ebelp = itab_zycet002-ebelp.
ENDIF.
wa_zycet002-vbeln_va = itab_zycet002-vbeln_va.
wa_zycet002-aupos = itab_zycet002-aupos.
wa_zycet002-vbeln_vl = itab_zycet002-vbeln_vl.
wa_zycet002-posnl = itab_zycet002-posnl.
APPEND wa_zycet002 TO itab_zycet002.
APPEND wa_zycet002 TO itab_002.
CLEAR v_nao_achou.
IF itab_vbfa-vbtyp_n EQ 'S'.
READ TABLE itab_002 WITH KEY vbeln_vf = itab_vbfa-vbeln
posnr = itab_vbfa-posnn.
CHECK sy-subrc NE 0.
ENDIF.
wa_zycet002-vbeln_vf = itab_vbfa-vbeln.
wa_zycet002-posnr = itab_vbfa-posnn.
APPEND wa_zycet002 TO itab_zycet002.
APPEND wa_zycet002 TO itab_002.
ELSE.
* << Fim da inclusão
READ TABLE itab_vbak WITH KEY vbeln = itab_vbfa-vbeln.
IF sy-subrc NE 0.
CONTINUE.
ENDIF.
READ TABLE itab_002 WITH KEY vbeln_va = itab_vbfa-vbeln
...
...
ENDIF.
wa_zycet002-vbeln_va = itab_vbfa-vbeln.
wa_zycet002-aupos = itab_vbfa-posnn.
APPEND wa_zycet002 TO itab_zycet002.
APPEND wa_zycet002 TO itab_002.
* >> Início da inclusão: FORM ATUALIZA_OUTRAS_ORDENS
ENDIF.
* << Fim da inclusão
ENDLOOP.
IF v_exclui EQ 'X'.
DELETE itab_zycet002.
ENDIF.
ENDLOOP.
...
...
ELSE.
itab_zycbt017-parvw = /pws/zycee001-parvw.
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM GERA_TABELA_ZYCBT017
IF /pws/zycee001-loc_emb EQ 'E'.
* << Fim da inclusão
IF itab_zycbt017-parvw EQ 'CG' OR
itab_zycbt017-parvw EQ 'AD'.
itab_zycbt017-vlavinc = itab_zycbt017-vlavinc -
itab_zycbt017-vlcomis.
ENDIF.
* >> Início da inclusão: FORM GERA_TABELA_ZYCBT017
ENDIF.
* << Fim da inclusão
READ TABLE itab_zycet065 WITH KEY inco1 = itab_zycbt017-inco1.
IF /pws/zycee001-tpcalc = '0'.
itab_zycbt017-vlfob = wa_zycee313-vlme_fob.
IF itab_zycet065-frete EQ 'X'.
itab_zycbt017-vlavinc = itab_zycbt017-vlavinc +
...
...
wa_zycbt017_vl-vlfrete = wa_zycee313-vlme_frt.
wa_zycbt017_vl-vlseg = wa_zycee313-vlme_seg.
wa_zycbt017_vl-vldesp = wa_zycee313-vlme_out.
wa_zycbt017_vl-vlavinc = wa_zycee313-vlme_fob.
wa_zycbt017_vl-vlslf = wa_zycee313-vlme_fob.
* >> Início da inclusão: FORM GERA_TABELA_ZYCBT017
wa_zycbt017_vl-vlcomis = wa_zycee313-vlme_com.
* << Fim da inclusão
READ TABLE itab_zycet065 WITH KEY inco1 = wa_zycbt017-inco1.
IF sy-subrc <> 0.
CLEAR itab_zycet065.
ENDIF.
IF /pws/zycee001-tpcalc = '1'.
...
...
IF sy-subrc EQ 0 AND
itab_zycet013-vlme IS INITIAL AND
NOT itab_zycet013-belnr IS INITIAL.
itab_zycbt017-vlcomis = itab_zycet013-vlme.
ENDIF.
* >> Início da inclusão: FORM CABECALHO_ZYCBT017
IF /pws/zycee001-loc_emb EQ 'E'.
* << Fim da inclusão
IF itab_zycbt017-parvw EQ 'CG' OR
itab_zycbt017-parvw EQ 'AD'.
itab_zycbt017-vlavinc = itab_zycbt017-vlavinc -
itab_zycbt017-vlcomis.
itab_zycbt017-vlslf = itab_zycbt017-vlavinc.
itab_zycbt017-vlslfc = itab_zycbt017-vlavinc.
* >> Início da inclusão: FORM CABECALHO_ZYCBT017
ENDIF.
* << Fim da inclusão
ENDIF.
CLEAR itab_017.
READ TABLE itab_017
WITH KEY nrinvoic = itab_zycbt017-nrinvoic
gsberf = itab_zycbt017-gsberf.
...
...
LOOP AT itab_zycbt017.
v_vlfrete = v_vlfrete + itab_zycbt017-vlfrete.
v_vlseg = v_vlseg + itab_zycbt017-vlseg.
v_vlcomis = v_vlcomis + itab_zycbt017-vlcomis.
v_vldesp = v_vldesp + itab_zycbt017-vldesp.
* >> Início da inclusão: FORM CORRECAO_ITENS_CAMBIO
READ TABLE itab_zycbt030 WITH KEY nrinvoic = itab_zycbt017-nrinvoic
gsberf = itab_zycbt017-gsberf
nrparcf = itab_zycbt017-nrparcf.
CHECK sy-subrc EQ 0.
CLEAR: itab_zycbt017-vlavinc,
itab_zycbt017-vlslf.
LOOP AT itab_zycbt030 WHERE nrinvoic = itab_zycbt017-nrinvoic AND
gsberf = itab_zycbt017-gsberf AND
nrparcf = itab_zycbt017-nrparcf.
ADD itab_zycbt030-vlslliq TO: itab_zycbt017-vlavinc,
itab_zycbt017-vlslf.
ENDLOOP.
IF itab_zycbt017-parvw EQ 'CG' OR
itab_zycbt017-parvw EQ 'AD'.
SUBTRACT itab_zycbt017-vlcomis FROM itab_zycbt017-vlslf.
ENDIF.
MODIFY itab_zycbt017 TRANSPORTING vlavinc
vlslf.
* << Fim da inclusão
ENDLOOP.
DESCRIBE TABLE itab_zycbt017 LINES v_lines.
READ TABLE itab_zycbt017 INDEX v_lines.
IF v_vlfrete NE wa_zycee313-vlme_frt.
itab_zycbt017-vlfrete = itab_zycbt017-vlfrete -
...
...
itab_zycbt017-vlseg = itab_zycbt017-vlseg -
( v_vlseg - wa_zycee313-vlme_seg ).
ENDIF.
IF v_vlcomis NE wa_zycee313-vlme_com.
itab_zycbt017-vlcomis = itab_zycbt017-vlcomis -
* >> Início da inclusão: FORM CORRECAO_ITENS_CAMBIO
( v_vlcomis - wa_zycee313-vlme_com ).
IF itab_zycbt017-parvw EQ 'CG' OR
itab_zycbt017-parvw EQ 'AD'.
itab_zycbt017-vlslf = itab_zycbt017-vlslf -
* << Fim da inclusão
( v_vlcomis - wa_zycee313-vlme_com ).
* >> Início da inclusão: FORM CORRECAO_ITENS_CAMBIO
ENDIF.
* << Fim da inclusão
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE003F02
...
itab_zycet002-nrseq = /pws/zycee001-nrseq.
itab_zycet002-vbeln_va = itab_zycet002_tc-vbeln_va.
itab_zycet002-ebeln = itab_zycet002_tc-ebeln.
itab_zycet002-novo = 'X'.
COLLECT itab_zycet002.
* >> Início da exclusão: FORM OKCODE_0102
IF wa_controle-novos_itens IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM OKCODE_0102
IF wa_controle-novos_itens IS INITIAL OR
sy-tcode EQ c_transacao_c.
* << Fim da inclusão
wa_controle-novos_itens = 'X'.
okcode = 'REFRESH'.
ENDIF.
ENDLOOP.
WHEN 'DEL_MK'.
...
...
APPEND 'ENV_CB' TO i_botoes.
APPEND 'REM_CB' TO i_botoes.
APPEND 'F_APROP' TO i_botoes.
APPEND 'F_RGVEN' TO i_botoes.
APPEND 'F_RVEND' TO i_botoes.
* >> Início da inclusão: FORM EXCLUI_STATUS_GUI_0010_HDR
APPEND 'F_CEFET' TO i_botoes.
APPEND 'F_VCAMB' TO i_botoes.
APPEND 'F_LCAMB' TO i_botoes.
APPEND 'F_PEXPA' TO i_botoes.
* << Fim da inclusão
ENDIF.
IF /pws/zycee001-tipo_emb EQ 'C'.
IF /pws/zycee001-emb_consig EQ 'C'.
APPEND 'ENV_CB' TO i_botoes.
APPEND 'REM_CB' TO i_botoes.
...