CE PLUS - Nota 012592
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 08/10/2012 00:00:00
Data/Hora Última Alteração: 16/04/2014 09:02:49
Descrição da Nota: A ADIÇÃO DA DI NÃO QUEBRA COM A MUDANÇA DA PERIODICIDADE DA FATURA
Sintoma
A adição da DI não quebra com a mudança da periodicidade da fatura
Solução
Novo tratamento na quebra de adição. Inserido novo "Peridiocidade" na pasta câmbio da Fatura e
considerado como regra para quebrar adição na DI.
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 12592 Data: 08/10/2012 Hora: 11:42:39
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 12592
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 9.0
Pacote : 00002
Agrupamento : 00132
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00567 - 00001 - 6.0 - 00022 - TRATAMENTO DE INCOTERM PELA TABELA /PWS/ZYCIT031
01760 - 00002 - 6.0 - 00024 - NAS CONSISTÊNCIAS DO PW.CE PARA A QUEBRA DE ADIÇÕES, ELE DEVE LEV
01861 - 00003 - 6.0 - 00024 - NA DI, O CAMPO FUNDAMENTO LEGAL (CODFUNLEG),.
02658 - 00004 - 6.0 - 00025 - DI
03821 - 00005 - 7.0 - 00001 - ERROS COM TIPO DE FABRICANTE NA FATURA, DI E TRANSMISSÃO SISCOMEX
03830 - 00006 - 7.0 - 00001 - AJUSTES PARA TRANSMISSÃO DE DESPESAS DI
06475 - 00007 - 7.0 - 00005 - NÃO ATUALIZA VALOR DA FATURA NA PASTA CÂMBIO DA ADIÇÃO DA DI
08231 - 00008 - 7.0 - 00009 - AJUSTE NO CALCULO DO VALOR DA MERCADORIA PARA CONFORME FEITO NA F
08430 - 00009 - 7.0 - 00009 - NO MODO EXIBIÇÃO, ALGUMAS FUNCIONALIDADES FICAM COM CAMPO ABERTO
08580 - 00010 - 7.0 - 00010 - NECESSIDADE DE EXIT PARA PROGRAMA ESPECIFICO.
08696 - 00011 - 7.0 - 00010 - TRATAMENTO PARA PREENCHIMENTO AUTOMÁTICO DE NÍVEL NVE
10129 - 00012 - 8.0 - 00003 - QUEBRA POR ADIÇÃO NA DI POR DESCRIÇÃO DO FABRICANTE
10535 - 00013 - 8.0 - 00004 - TRATAMENTO DE ADMISSÃO TEMPORÁRIA E CONSUMO NO EMBARQUE
12024 - 00014 - 8.0 - 00010 - CAMPOS HABILITADOS PARA ALTERAÇÃO QUANDO FATURA POSSUI DI.
----------------------------------------------------------------------------------------------------
A ADIÇÃO DA DI NÃO QUEBRA COM A MUDANÇA DA PERIODICIDADE DA FATURA
----------------------------------------------------------------------------------------------------
Palavras Chave:
ADIÇÃO DI - QUEBRA - PERIODICIDADE - FATURA - PASTA CÂMBIO
----------------------------------------------------------------------------------------------------
Objetos da nota:
TABD /PWS/ZYCIT006
TABD /PWS/ZYCIE006
DYNP /PWS/SAPMZYCI003 0350
REPS /PWS/MZYCI003O01
REPS /PWS/MZYCI023F01
REPS /PWS/MZYCI023F03
REPS /PWS/MZYCI023O01
REPS /PWS/MZYCI023X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT006
*Incluir o campo ao final da tabela
Nome de campo Chv Elem.dados Tab.verif. N CtDt Comp. Grupo
PERIODIC NUMC3 NUMC 3
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE006
*Incluir o campo ao final da estrutura
Nome de campo Elem.dados Tab.verif. N CtDt Comp. Grupo
PERIODIC NUMC3 NUMC 3
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI003 0350
O Download das telas encontra-se disponível no link abaixo
http://produtos.sondait.com.br/home/PW.CE/Notas/
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003O01
...
ENDIF.
IF screen-name = '/PWS/ZYCIE006-VLME'.
IF /pws/zycie006-kursf IS INITIAL .
IF NOT sy-tcode EQ '/PWS/ZYCI003_L'.
screen-input = 1.
ENDIF.
ELSE.
screen-input = 0.
ENDIF.
ENDIF.
* >> Início da inclusão: MODULE SET_SCREEN
IF screen-name EQ '/PWS/ZYCIE006-PERIODIC'.
IF ( v_m = '1' OR
v_m = '2' ) .
IF NOT sy-tcode EQ '/PWS/ZYCI003_E'.
screen-input = 1.
ENDIF.
screen-invisible = 0 .
ELSE.
clear /pws/zycie006-periodic.
screen-invisible = 1 .
ENDIF.
ENDIF.
* << Fim da inclusão
MODIFY SCREEN.
ENDLOOP.
IF v_status_s = 0 OR sy-tcode = '/PWS/ZYCI003_M'.
LOOP AT tc_cambio-cols INTO wa_cols.
wa_cols-screen-input = '0'.
MODIFY tc_cambio-cols FROM wa_cols.
ENDLOOP.
ELSEIF v_status_s = 1.
LOOP AT tc_cambio-cols INTO wa_cols.
IF /pws/zycie006-codcambial = '4'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
ELSEIF itab_it_aux-meinsantid NE itab_itb-meinsantid .
PERFORM adic_next.
ELSEIF itab_it_aux-codcambial NE itab_itb-codcambial .
PERFORM adic_next.
ELSEIF itab_it_aux-inco_item NE itab_itb-inco_item .
PERFORM adic_next.
ELSEIF itab_it_aux-paisfab NE itab_itb-paisfab .
PERFORM adic_next.
ELSEIF itab_it_aux-tp_certif NE itab_itb-tp_certif .
PERFORM adic_next.
* >> Início da inclusão: FORM ADIC_LIST
ELSEIF itab_it_aux-codcambial EQ itab_itb-codcambial .
IF itab_it_aux-periodic NE itab_itb-periodic.
PERFORM adic_next.
ENDIF.
* << Fim da inclusão
ELSEIF itab_it_aux-descfab NE itab_itb-descfab .
PERFORM adic_next.
ELSEIF itab_zycit001-flag_adicao EQ 'X'.
PERFORM adic_next.
ELSEIF v_flag_quebra IS INITIAL AND v_cont > 80.
PERFORM adic_next.
ELSEIF itab_it_aux-quebra_nve NE itab_itb-quebra_nve.
PERFORM adic_next.
ELSE.
PERFORM verifica_exit USING 'D'
...
...
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
LOOP AT itab_zycit124 WHERE adicao = wa_it-adicao.
APPEND itab_zycit124 TO itab_zycit124b.
ENDLOOP.
READ TABLE itab_zycit116 WITH KEY
adicao = it_alist-adicao.
IF sy-subrc EQ 0.
* >> Início da inclusão: FORM ADIC_LOAD
itab_zycit116-periodic = itab_itb-periodic.
* << Fim da inclusão
itab_zycit116-valtot = a_vlrtot.
* >> Início da exclusão: FORM ADIC_LOAD
MODIFY itab_zycit116 TRANSPORTING valtot
* << Fim da exclusão
* >> Início da inclusão: FORM ADIC_LOAD
MODIFY itab_zycit116 TRANSPORTING valtot periodic
* << Fim da inclusão
WHERE adicao = it_alist-adicao.
wa_ad-identify = it_alist-identify.
MOVE-CORRESPONDING: itab_zycit116 TO wa_ad,
...
...
ebelp = itab_it-ebelp.
IF sy-subrc EQ 0.
READ TABLE itab_zycit006 WITH KEY
nrseq_pgfat = itab_zycit263-nrseq_pgfat.
IF sy-subrc = 0.
itab_it-zterm = itab_zycit006-zterm.
itab_it-nrseqfat = itab_zycit006-nrseq.
itab_it-nrfat = itab_zycit006-nrfat.
itab_it-vinculo = itab_zycit006-vinculo.
itab_it-codcambial = itab_zycit006-codcambial.
* >> Início da inclusão: FORM FILL_ITABIT
IF itab_zycit006-codcambial EQ '1' OR
itab_zycit006-codcambial EQ '2' .
itab_it-periodic = itab_zycit006-periodic.
ENDIF.
* << Fim da inclusão
IF itab_it-fabric EQ '3'.
IF itab_it-porigem IS INITIAL.
itab_it-porigem = itab_zycit006-paisfab.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
IF v_waers IS INITIAL.
v_waers = itab_it-waersbem.
ELSE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
acordo acordorate reduzida percreduz notatipi
reduzidaipi unit_valor unit_meins unit_reccapac unit_rectipo
waersbem dttaxbem antidrate extarif_al tipo_al
orgemiss_al numero_al anoemiss_al ii_extarif ii_tipo
ii_orgemiss ii_numero ii_anoemiss ipi_extarif ipi_tipo
ipi_orgemiss ipi_numero ipi_anoemiss ad_extarif ad_tipo
ad_orgemiss ad_numero ad_anoemiss aladi tribipi
advalicms vlantid meinsantid qtdeantid
inco_item atributo_nve quebra_nve
paisfab
* >> Início da exclusão: FORM DATA_SORT
descfab.
* << Fim da exclusão
* >> Início da inclusão: FORM DATA_SORT
descfab
periodic.
* << Fim da inclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023O01
...
if ( screen-group2 = 'FIX' and
/pws/zycie116-parcfixas is initial ) or
( screen-group2 = 'VAR' and
/pws/zycie116-parcvar is initial ) or
( screen-group2 = 'JUR' and
/pws/zycie116-taxajuros is initial ).
screen-input = '0'.
endif.
modify screen.
endif.
* >> Início da inclusão: MODULE SET_SCREEN
IF screen-name EQ '/PWS/ZYCIE116-PERIODIC' AND
( /pws/zycie006-codcambial = '1' OR
/pws/zycie006-codcambial = '2' ).
screen-input = 0 .
MODIFY SCREEN.
ENDIF.
* << Fim da inclusão
endloop.
when '0413'.
perform define_tab.
endcase.
clear v_existe_li.
endmodule.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023X01
...
matnr LIKE /pws/zycie003-matnr,
matnr_item LIKE /pws/zycie003-matnr,
qtd_itenc3 TYPE /pws/zycit263-qtd_iten,
qtd_itendc3 TYPE /pws/zycit263-qtd_iten,
nivel_nve TYPE /pws/zycie003-nivel_nve,
atributo_nve TYPE /pws/zycie003-atributo_nve,
especif_nve TYPE /pws/zycie003-especif_nve ,
quebra_nve TYPE char200,
descfab LIKE /pws/zycie003-descfab,
adm_temp LIKE /pws/zycie003-adm_temp,
* >> Início da inclusão:
periodic TYPE /pws/zycie006-periodic ,
* << Fim da inclusão
END OF itab_it.
...