CE PLUS - Nota 003257
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DA
Data/Hora da Publicação: 15/03/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:39:52
Descrição da Nota: DA APOS ATUALIZAR NÃO DEVE DEIXAR FAZER DC, PC E AD
Sintoma
Após fazer o embarque de nacionalização e clicar no botão atualizar custo, que leva as despesas da
DA para o embarque de nacionalização o sistema não deveria mais deixar fazer debito, prestação e
adiantamento na DA, porém o sistema está deixando fazer.
Solução
Atualizado o programa da DA para calcular corretamente o saldo da DA
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03257 Data: 15/03/2007 Hora: 14:20:17
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03257
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00157
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01683 - 00001 - 6.0 - 00024 - CRIAÇÃO DE BOTÃO NA DA PARA F-51 MANUALMENTE.
01999 - 00002 - 6.0 - 00024 - QUANTIDADE NACIONALIZADA DA DA NÃO ESTÁ CORRETA
02726 - 00003 - 6.0 - 00025 - CRIAÇÃO DE DA
03150 - 00004 - 6.0 - 00026 - PRESTAÇÃO DE CONTAS - ENTREPOSTO ADUANEIRO
----------------------------------------------------------------------------------------------------
DA APOS ATUALIZAR NÃO DEVE DEIXAR FAZER DC, PC E AD
----------------------------------------------------------------------------------------------------
Palavras Chave:
DA - ATUALIZAR - PC - DC - AD
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI070F05
REPS /PWS/MZYCI070TOP
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070F05
...
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.
CLEAR: v_qtd_nac,
* >> Início da inclusão: FORM ATUALIZA_VARIAVEIS
v_tot_da,
* << Fim da inclusão
v_sdo_da.
* >> Início da exclusão: FORM ATUALIZA_VARIAVEIS
LOOP AT itab_zycit467.
v_qtd_nac = v_qtd_nac + itab_zycit467-qtd_nac.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_VARIAVEIS
CLEAR itab_zycit467_aux.
FREE itab_zycit467_aux.
SELECT *
INTO TABLE itab_zycit467_aux
FROM /pws/zycit467
FOR ALL ENTRIES IN itab_it
WHERE ebeln EQ itab_it-ebeln
AND ebelp EQ itab_it-ebelp.
LOOP AT itab_it.
v_tot_da = v_tot_da + itab_it-qtd_iten.
ENDLOOP.
LOOP AT itab_zycit467_aux.
v_qtd_nac = v_qtd_nac + itab_zycit467_aux-qtd_nac.
* << Fim da inclusão
ENDLOOP.
* >> Início da exclusão: FORM ATUALIZA_VARIAVEIS
v_sdo_da = v_qtd_da - v_qtd_nac.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_VARIAVEIS
v_sdo_da = v_tot_da - v_qtd_nac.
CLEAR itab_zycit467_aux.
FREE itab_zycit467_aux.
* << Fim da inclusão
IF v_sdo_da IS INITIAL.
* >> Início da inclusão: FORM ATUALIZA_VARIAVEIS
CLEAR /pws/zycit459-nrpres.
* << Fim da inclusão
SELECT SINGLE nrpres
INTO /pws/zycit459-nrpres
FROM /pws/zycit459
WHERE nrseqda EQ v_nrseqda.
* >> Início da inclusão: FORM ATUALIZA_VARIAVEIS
CLEAR /pws/zycit465-nradto.
SELECT SINGLE nradto
INTO /pws/zycit465-nradto
FROM /pws/zycit465
WHERE nrseq EQ v_nrseqda
AND tpgto EQ 'D'.
IF /pws/zycit459-nrpres IS INITIAL AND
/pws/zycit465-nradto IS INITIAL.
MESSAGE i015 WITH text-529.
CLEAR sy-ucomm.
EXIT.
ENDIF.
* << Fim da inclusão
* >> Início da exclusão: FORM ATUALIZA_VARIAVEIS
SELECT SINGLE *
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_VARIAVEIS
SELECT *
INTO TABLE itab_zycit036
* << Fim da inclusão
FROM /pws/zycit036
* >> Início da exclusão: FORM ATUALIZA_VARIAVEIS
WHERE origem EQ 'PCD'
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_VARIAVEIS
FOR ALL ENTRIES IN itab_it
WHERE ebeln EQ itab_it-ebeln
AND ebelp EQ itab_it-ebelp
AND origem EQ 'PCD'
* << Fim da inclusão
AND nrseqori EQ /pws/zycit459-nrpres.
* >> Início da inclusão: FORM ATUALIZA_VARIAVEIS
IF sy-subrc IS INITIAL.
MESSAGE i015 WITH text-529.
CLEAR sy-ucomm.
EXIT.
ELSE.
SELECT *
INTO TABLE itab_zycit036
FROM /pws/zycit036
FOR ALL ENTRIES IN itab_it
WHERE ebeln EQ itab_it-ebeln
AND ebelp EQ itab_it-ebelp
AND origem EQ 'DCD'
AND nrseqori EQ /pws/zycit465-nradto.
* << Fim da inclusão
IF sy-subrc IS INITIAL.
MESSAGE i015 WITH text-529.
CLEAR sy-ucomm.
EXIT.
* >> Início da inclusão: FORM ATUALIZA_VARIAVEIS
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
SET PARAMETER ID 'LIF' FIELD v_despach.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070TOP
...
/pws/zycit101,
/pws/zycit132,
/pws/zyglt369,
bsis ,
/pws/zyglt217,
/pws/zycit460,
/pws/zycie460,
/pws/zycie463,
/pws/zycit459,
/pws/zycit036,
* >> Início da inclusão:
/pws/zycit465,
* << 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,
...
...
v_desp_acr LIKE /pws/zycit049-vldp,
v_desp_brl LIKE /pws/zycit049-vldp,
v_evento LIKE /pws/zyglt321-codeven,
v_required,
v_qtd_it LIKE /pws/zycit443-qtd_iten,
v_centro LIKE /pws/zycit003-werks,
v_salvo.
DATA:
v_cpochv(80),
v_descricao(50),
* >> Início da inclusão:
v_tot_da LIKE /pws/zycie003-qtd_iten,
* << Fim da inclusão
v_qtd_nac LIKE /pws/zycit467-qtd_nac,
v_sdo_da LIKE /pws/zycit467-qtd_nac.
DATA: progname TYPE sy-repid,
dynnum TYPE sy-dynnr,
dynpro_values TYPE TABLE OF dynpread,
field_value LIKE LINE OF dynpro_values,
mod_tab TYPE TABLE OF /pws/zycit025.
DATA: BEGIN OF itab_divisao OCCURS 0,
ebeln LIKE ekko-ebeln,
ebelp LIKE ekpo-ebelp,
...