CE PLUS - Nota 003150
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Prest.Contas DA
Data/Hora da Publicação: 26/02/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:40:11
Descrição da Nota: PRESTAÇÃO DE CONTAS - ENTREPOSTO ADUANEIRO
Sintoma
Dump ao liberar Prestação de Contas.
não pode deixar fazer prestação de contas, débito em conta e adiantamento depois que já foi feito o
embarque de nacionalização e os custos foram atualizados.
Solução
Não permitir solicitar Prestação de Contas quando a DA já estiver totalmente nacionalizada. E quando
clicado o botão "Gravar Custos DA" no Embarque não exibí-lo mais.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03150 Data: 26/02/2007 Hora: 17:04:58
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03150
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00154
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01383 - 00001 - 6.0 - 00023 - AJUSTES NA DA
02291 - 00002 - 6.0 - 00025 - AJUSTES FEITOS NA DA PARA TRATAMENTO DE CENTROS DIFERENTES
----------------------------------------------------------------------------------------------------
PRESTAÇÃO DE CONTAS - ENTREPOSTO ADUANEIRO
----------------------------------------------------------------------------------------------------
Palavras Chave:
LIBERAÇÃO; PRESTAÇÃO; ADIANTAMENTO; DESPESAS; CUSTOS;
DA; NACIONALIZADA.
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI001F03
REPS /PWS/MZYCI070F05
REPS /PWS/MZYCI070TOP
REPS /PWS/MZYCI075F02
REPT /PWS/SAPMZYCI070
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F03
...
IF itab_zycit003_saldo-nrseq NE /pws/zycie001-nrseq.
v_qtdutil_da = v_qtdutil_da + itab_zycit003_saldo-qtd_iten .
ENDIF.
ENDLOOP.
READ TABLE itab_zycit443 WITH KEY
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
IF sy-subrc EQ 0 .
itab_zycit003-sld_da = itab_zycit443-qtd_da -
( v_qtdutil_da + itab_zycit003-qtd_iten ).
* >> Início da inclusão: FORM VERIFICA_ITENS_DA
IF itab_zycit003-sld_da LT 0.
CLEAR itab_zycit443_saldo.
READ TABLE itab_zycit443_saldo WITH KEY
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
itab_zycit003-sld_da = itab_zycit443_saldo-qtd_iten -
v_qtdutil_da - itab_zycit003-qtd_iten.
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
MODIFY itab_zycit003 INDEX v_tabix.
ENDLOOP.
ENDFORM.
FORM trata_screen_0111.
SELECT tabname
INTO v_tabname1
FROM dd02l
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070F05
...
SELECT SINGLE *
FROM /pws/zycit460
WHERE nrseqda GE v_nrseqda
AND nrseqda LE v_nrseqda
AND lifnr EQ v_despach.
IF NOT sy-subrc IS INITIAL.
MESSAGE i015 WITH text-046.
CLEAR sy-ucomm.
EXIT.
ENDIF.
* >> Início da inclusão: FORM ATUALIZA_VARIAVEIS
CLEAR: v_qtd_nac,
v_sdo_da.
LOOP AT itab_zycit467.
v_qtd_nac = v_qtd_nac + itab_zycit467-qtd_nac.
ENDLOOP.
v_sdo_da = v_qtd_da - v_qtd_nac.
IF v_sdo_da IS INITIAL.
SELECT SINGLE nrpres
INTO /pws/zycit459-nrpres
FROM /pws/zycit459
WHERE nrseqda EQ v_nrseqda.
SELECT SINGLE *
FROM /pws/zycit036
WHERE origem EQ 'PCD'
AND nrseqori EQ /pws/zycit459-nrpres.
IF sy-subrc IS INITIAL.
MESSAGE i015 WITH text-529.
CLEAR sy-ucomm.
EXIT.
ENDIF.
ENDIF.
* << Fim da inclusão
SET PARAMETER ID 'LIF' FIELD v_despach.
SET PARAMETER ID '/PWS/ZYCIP003' FIELD v_despach.
SET PARAMETER ID '/PWS/ZYCIP442' FIELD v_nrseqda.
ENDFORM.
FORM solicita_debito.
CHECK sy-ucomm EQ 'DEBIT'.
IF sy-tcode <> '/PWS/ZYCI072_E'.
PERFORM aviso_debito.
PERFORM valida_trans USING '/PWS/ZYCI072' 'skip'.
ELSE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070TOP
...
/pws/zycet050,
j_1btregc,
/pws/zycit101,
/pws/zycit132,
/pws/zyglt369,
bsis ,
/pws/zyglt217,
/pws/zycit460,
/pws/zycie460,
/pws/zycie463,
* >> Início da inclusão:
/pws/zycit459,
/pws/zycit036,
* << Fim da inclusão
/pws/zycit463,
/pws/zycie464.
TYPES:
BEGIN OF ty_zycit003.
INCLUDE STRUCTURE /pws/zycie003.
TYPES:
slqtde TYPE /pws/zycie013-slqtde,
uebto TYPE ekpo-uebto,
uebtk TYPE ekpo-uebtk,
noinitial TYPE char1,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI075F02
...
ENDLOOP.
LOOP AT itab_zycit003.
READ TABLE itab_zycit036 WITH KEY nrseq = itab_zycit003-nrseq
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
IF sy-subrc EQ 0.
v_qtd_nac = v_qtd_nac + itab_zycit003-qtd_iten .
ENDIF.
ENDLOOP.
IF NOT v_qtd_da IS INITIAL.
* >> Início da inclusão: FORM VERIFICA_QTD_DA
IF v_qtd_da GT v_qtd_nac.
* << Fim da inclusão
v_qtd_desp = v_qtd_nac / ( v_qtd_da - v_qtd_nac ).
* >> Início da inclusão: FORM VERIFICA_QTD_DA
ELSE.
clear v_qtd_desp.
ENDIF.
* << Fim da inclusão
ENDIF.
LOOP AT it_zycit461 .
IF NOT v_qtd_desp IS INITIAL.
it_zycit461-netpr_da = it_zycit461-vldp * v_qtd_desp .
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI070
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 529
Texto: (45 caracteres)
"Não permitido solicitar PC - DA nacionalizada"
Comprimento máximo: 45