CE PLUS - Nota 006979
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 18/07/2008 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:16:57
Descrição da Nota: AJUSTES FRETE INTERNACIONAL E SEGURO PARA EMBARQUES DE REGIME 16
Sintoma
1- Retirar o botão de vinculação da DA manual do embarque 16.
2 - Para os embarques de nacionalização de Recof (Embarque 16), o sistema está levando os valores de
Frete Internacional e Seguro para o custo efetivo. Para o embarque 16 o sistema não deveria levar
estes valores para o Custo Efetivo pois eles já foram para o custo no embarque 01.
Solução
Atualização do programa de embarque para desativar o vinculação da DA manual do embarque 16.
Atualização do programa de embarque para que nos embarques de nacionalização de Recof (Embarque 16),
ao gravar no custo efetivo os valores de Frete Internacional e Seguro não entrem novamente para o
Custo da mercadoria.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06979 Data: 18/07/2008 Hora: 08:04:59
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06979
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00056
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
06865 - 00001 - 7.0 - 00006 - ERRO NO DOCUMENTO CONTÁBIL E VALORES DO EMBARQUE
----------------------------------------------------------------------------------------------------
AJUSTES FRETE INTERNACIONAL E SEGURO PARA EMBARQUES DE REGIME 16
----------------------------------------------------------------------------------------------------
Palavras Chave:
EMBARQUE - FERETEI - SEGURO - NACIONALIZAÇÃO - RECOF - NOTA - FISCAL
/PWS/SAPMZYCI001
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI001 0111
REPS /PWS/MZYCI001F02
REPS /PWS/MZYCI001F03
REPS /PWS/MZYCI016F01
REPS /PWS/MZYCI017F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI001 0111
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE003-NTGEW" em tbl.contr./tabstr.
Comprimento Visível 22
Linhas mínimas 18
Colunas mínimas 6
Texto ___.___.___.___,______
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F02
...
FORM call_bt.
EXPORT /pws/zycie001-embarca TO MEMORY ID '0001'.
READ TABLE itab_zycit100 INDEX 1.
v_nrseqdi = itab_zycit100-nrseqdi.
IF /pws/zycit085 IS INITIAL.
SELECT SINGLE * FROM /pws/zycit085
WHERE nrseqdi = v_nrseqdi.
ENDIF.
CLEAR: e_contab.
* >> Início da inclusão: FORM CALL_BT
IF /pws/zycie001-regime NE '16'.
* << Fim da inclusão
PERFORM check_contab_fat CHANGING e_contab.
IF e_contab EQ 'X'.
EXIT.
ENDIF.
* >> Início da inclusão: FORM CALL_BT
ENDIF.
* << Fim da inclusão
IF v_land1 EQ 'AR' OR v_land1 EQ 'CL'.
READ TABLE itab_zycit477 WITH KEY land = v_land1.
IF sy-subrc EQ 0 .
...
...
IF sy-tcode EQ '/PWS/ZYCI001_A' OR sy-tcode EQ '/PWS/ZYCI001_C'.
PERFORM valida_trans USING '/PWS/ZYCI059_A' 'skip'.
ELSE.
PERFORM valida_trans USING '/PWS/ZYCI059_E' 'skip'.
ENDIF.
ENDIF.
ELSE.
SELECT SINGLE * FROM /pws/zycit093
WHERE nrseqce = /pws/zycit094-nrseqce.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM CALL_DI_MULT
CLEAR: e_contab.
* << Fim da exclusão
* >> Início da inclusão: FORM CALL_DI_MULT
IF /pws/zycie001-regime NE '16'.
* << Fim da inclusão
PERFORM check_contab_fat CHANGING e_contab.
IF e_contab EQ 'X'.
EXIT.
* >> Início da inclusão: FORM CALL_DI_MULT
ENDIF.
* << Fim da inclusão
ENDIF.
MOVE-CORRESPONDING /pws/zycit093 TO wa_zycie085.
MOVE: /pws/zycit093-nrseqce TO wa_zycie085-nrbl,
/pws/zycie001-embarca TO wa_zycie085-identify.
...
...
ENDIF.
LOOP AT itab_zycit006 WHERE tpfatura NE '01'.
p_contab = 'X'.
EXIT.
ENDLOOP.
IF p_contab = 'X'.
MESSAGE i015 WITH text-474.
EXIT.
ENDIF.
LOOP AT itab_zycit006 WHERE tpfatura = '01'.
* >> Início da inclusão: FORM CHECK_CONTAB_FAT
IF itab_zycit006-belnr_p EQ space .
* << Fim da inclusão
SELECT * FROM /pws/zycit132 INTO TABLE itab_zycit132
WHERE nrseq = itab_zycit006-nrseq
AND eliminado = space.
IF sy-subrc EQ 0.
LOOP AT itab_zycit132 WHERE belnr_p EQ space.
p_contab = 'X'.
EXIT.
ENDLOOP.
IF p_contab = 'X'.
EXIT.
ENDIF.
ELSE.
p_contab = 'X'.
EXIT.
* >> Início da inclusão: FORM CHECK_CONTAB_FAT
ENDIF.
* << Fim da inclusão
ENDIF.
ENDLOOP.
IF p_contab = 'X'.
MESSAGE i015 WITH text-474.
EXIT.
ENDIF.
ENDFORM.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F03
...
ENDIF.
LOOP AT SCREEN.
CASE screen-group1.
WHEN 'RC'.
IF /pws/zycie001-regime NE '16'
OR v_tabname1 IS INITIAL.
screen-invisible = '1'.
MODIFY SCREEN.
ENDIF.
ENDCASE.
* >> Início da inclusão: FORM TRATA_SCREEN_0111
IF /pws/zycie001-regime EQ '16'.
IF screen-name EQ 'BTNT0102_06'.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ELSE.
IF screen-name EQ 'BTNT0102_06'.
screen-input = 1.
MODIFY SCREEN.
ENDIF.
ENDIF.
* << Fim da inclusão
ENDLOOP.
IF v_status_s = 0.
LOOP AT tc_da-cols INTO wa_cols.
wa_cols-screen-input = '0'.
IF wa_cols-screen-name EQ 'BTN1_111'.
IF /pws/zycie001-regime EQ '16'.
wa_cols-invisible = 0.
ELSE.
wa_cols-invisible = 1.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
SELECT SINGLE * FROM tcurx WHERE currkey = itab_zycit036-waers_real.
IF sy-subrc <> 0.
tcurx-currdec = 2.
ENDIF.
itab_zycit036-vlreal =
itab_zycit036-vlreal * ( 10 ** ( tcurx-currdec - 2 ) ).
ENDIF.
itab_zycit036-nrseqori = itab_zycit042-docnum.
IF /pws/zycit001-regime = '16'.
CLEAR itab_zycit036-vlmov.
* >> Início da inclusão: FORM CONGELA_DESPESA
IF itab_zycit036-codigo = 'SEGURO' OR
itab_zycit036-codigo = 'FRETEI'.
itab_zycit036-vlmov = itab_zycit036-vlreal.
itab_zycit036-waers_mov = /pws/zycbt007-waersb.
IF itab_zycit036-waers_real NE /pws/zycbt007-waersb.
CASE itab_zycit036-codigo.
WHEN 'SEGURO'.
itab_zycit036-vlmov = itab_zycit036-vlmov *
/pws/zycit085-ukursseg.
WHEN 'FRETEI'.
itab_zycit036-vlmov = itab_zycit036-vlmov *
/pws/zycit085-ukursfre.
ENDCASE.
ENDIF.
ENDIF.
* << Fim da inclusão
itab_zycit036-congelamov = 'X'.
ENDIF.
APPEND itab_zycit036 TO itab_zycit036_s.
ENDLOOP.
MODIFY /pws/zycit036 FROM TABLE itab_zycit036_s.
itab_zycit036-nrseqori = itab_zycit042-docnum.
MODIFY /pws/zycit036 FROM TABLE itab_zycit036_plan.
FREE itab_zycit036_plan.
SELECT SINGLE * FROM /pws/zycit001
WHERE nrseq = itab_zycit042-nrseq.
...
...
SELECT * FROM /pws/zycit020 INTO TABLE itab_zycit020
WHERE regio = space AND ( baseicms = 'X' OR
baseii = 'X' ) AND
land1 EQ t001-land1.
ENDIF.
IF NOT itab_zycit020[] IS INITIAL.
SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie041-bukrs.
SELECT * FROM /pws/zycit019 INTO TABLE itab_zycit019
FOR ALL ENTRIES IN itab_zycit020
WHERE codigo = itab_zycit020-codigo
* >> Início da exclusão: FORM CONGELA_DESPESA
AND land1 = t001-land1. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM CONGELA_DESPESA
AND land1 = t001-land1. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
IF NOT itab_zycit019[] IS INITIAL.
SELECT * FROM /pws/zycit049 INTO TABLE itab_zycit049
FOR ALL ENTRIES IN itab_zycit019
WHERE nrseq = /pws/zycie041-nrseq
AND tpdesp = itab_zycit019-tpdesp
AND vldp > 0.
ENDIF.
LOOP AT itab_zycit049.
v_tabix3 = sy-tabix.
...
...
v_tot_ntgew = v_tot_ntgew + itab_zycit003_aux-ntgew.
ENDIF.
v_tot_plan = v_tot_plan +
( itab_zycit003_aux-netpr * itab_zycit003_aux-qtd_iten ).
v_tot_real = v_tot_real +
( itab_zycit003_aux-vlreal * itab_zycit003_aux-qtd_iten ).
ENDLOOP.
SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie041-bukrs.
SELECT SINGLE codigo FROM /pws/zycit019 INTO v_cod_sisc
WHERE tpdesp = /pws/zycit000-cod_sisc AND
* >> Início da exclusão: FORM CONGELA_DESPESA
land1 = t001-land1. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM CONGELA_DESPESA
land1 = t001-land1. "#EC CI_NOFIRST
* << Fim da inclusão
DESCRIBE TABLE itab_zycit042 LINES v_lines.
SORT itab_zycit003 BY ebeln ebelp.
LOOP AT itab_zycit049aux.
IF itab_zycit049aux-codigo NE v_cod_sisc OR
/pws/zycit000-flag_txsisc IS INITIAL.
READ TABLE itab_zycit039 WITH KEY
codigo = itab_zycit049aux-codigo.
IF itab_zycit049aux-waers NE /pws/zycbt007-waersb.
PERFORM taxa_converte USING itab_zycit049aux-waers wa_zycit085-dttax
CHANGING v_taxa_desp.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F03
...
SELECT * FROM /pws/zycit041
INTO CORRESPONDING FIELDS OF TABLE itab_nfg
WHERE docnum IN itab_nfnum
AND series IN itab_series
AND subser IN itab_subser
AND cancel EQ ' '. "#EC CI_NOFIRST
IF sy-subrc NE 0.
SELECT * FROM /pws/zycit041
INTO CORRESPONDING FIELDS OF TABLE itab_nfg
WHERE nfnum IN itab_nfnum
* >> Início da exclusão: FORM SELECT_TABLES
AND series IN itab_series "#EC CI_NOFIRST
AND subser IN itab_subser "#EC CI_NOFIELD
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_TABLES
AND series IN itab_series "#EC CI_NOFIRST
AND subser IN itab_subser "#EC CI_NOFIELD
* << Fim da inclusão
AND cancel EQ ' '.
ENDIF.
CHECK sy-subrc EQ 0.
DESCRIBE TABLE itab_nfg LINES v_reg.
IF v_reg > 1.
MESSAGE w015 WITH text-260 text-261.
EXIT.
ELSE.
READ TABLE itab_nfg INDEX 1.
MOVE itab_nfg-nrseq TO /pws/zycie043-nrseq.
...
...
AND docnumnfg = itab_nfg-docnum
AND cancel = ' '.
IF sy-subrc EQ 0.
itab_nfg-delete = 'S'.
MODIFY itab_nfg.
ENDIF.
ENDLOOP.
READ TABLE itab_nfg INDEX 1.
SELECT SINGLE * FROM /pws/zycit100 WHERE nrseqdi = itab_nfg-nrseq.
SELECT SINGLE * FROM /pws/zycit001 WHERE nrseq = /pws/zycit100-nrseq.
* >> Início da inclusão: FORM SELECT_TABLES
IF /pws/zycit001-regime NE '16'.
* << Fim da inclusão
CLEAR: itab_zycit006. REFRESH itab_zycit006.
SELECT SINGLE * FROM /pws/zycit094
* >> Início da exclusão: FORM SELECT_TABLES
WHERE nrseq = /pws/zycit100-nrseq. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_TABLES
WHERE nrseq = /pws/zycit100-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
SELECT * FROM /pws/zycit006 INTO TABLE itab_zycit006
WHERE nrseqce = /pws/zycit094-nrseqce AND
eliminado = space AND
* >> Início da exclusão: FORM SELECT_TABLES
belnr_p = space. "#EC CI_NOFIELD
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_TABLES
belnr_p = space. "#EC CI_NOFIELD
* << Fim da inclusão
LOOP AT itab_zycit006 WHERE tpfatura NE '01'.
itab_zycit006-eliminado = 'X'.
EXIT.
ENDLOOP.
LOOP AT itab_zycit006 WHERE tpfatura = '01'.
SELECT * FROM /pws/zycit132 INTO TABLE itab_zycit132
WHERE nrseq = itab_zycit006-nrseq
AND eliminado = space.
IF sy-subrc EQ 0.
LOOP AT itab_zycit132 WHERE belnr_p EQ space.
...
...
EXIT.
ENDIF.
ELSE.
itab_zycit006-eliminado = 'X'.
EXIT.
ENDIF.
ENDLOOP.
IF itab_zycit006-eliminado = 'X'.
MESSAGE i015 WITH text-262.
EXIT.
* >> Início da inclusão: FORM SELECT_TABLES
ENDIF.
* << Fim da inclusão
ENDIF.
IF /pws/zycit001-modalidade = '99'.
READ TABLE itab_nf INDEX 1.
IF sy-subrc NE 0.
MESSAGE s015 WITH text-060.
EXIT.
ENDIF.
ENDIF.
LOOP AT itab_nf.
itab_nf-remessa = 'S'.
...