CE PLUS - Nota 001877
Módulo: DRAWBACK
Funcionalidade: Apropriação
Data/Hora da Publicação: 04/08/2006 00:00:00
Data/Hora Última Alteração: 17/02/2011 14:00:59
Descrição da Nota: AJUSTE PARA A APROPRIAÇÃO DE ATOS CONCESSÓRIOS GENÉRICOS
Sintoma
Ajuste para a apropriação de atos concessórios genéricos.
Solução
Ajuste para a apropriação de atos concessórios genéricos.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01877 Data: 04/08/2006 Hora: 10:55:22
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01877
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 6.0
Pacote : 00024
Agrupamento : 00125
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01789 - 00001 - 6.0 - 00024 - AJUSTES PARA TRATAMENTO DO NOVO CAMPO COB_CAMB DA TABELA /PWS/ZYC
----------------------------------------------------------------------------------------------------
AJUSTE PARA A APROPRIAÇÃO DE ATOS CONCESSÓRIOS GENÉRICOS
----------------------------------------------------------------------------------------------------
Palavras Chave:
APROPRIAÇÃO - ATO - CONCESSÓRIO - GENÉRICO
/PWS/ZYCIR254
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCIR254
REPS /PWS/ZYCIR254F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR254
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR254F01
...
CLEAR it_zycit244. REFRESH it_zycit244.
SELECT * FROM /pws/zycit244 INTO TABLE it_zycit244
FOR ALL ENTRIES IN it_zycit247
WHERE nrseqd EQ it_zycit247-nrseqd
AND status EQ 'D'
* >> Início da exclusão: FORM RUN_APPROPRIATION_EXPORTATION
AND ( tipo EQ 'C' OR tipo EQ 'F' )
* << Fim da exclusão
* >> Início da inclusão: FORM RUN_APPROPRIATION_EXPORTATION
AND ( tipo EQ 'C' OR tipo EQ 'F' OR tipo EQ 'G' )
* << Fim da inclusão
AND vcto_fn >= sy-datum
AND dtatoc NE '00000000'
AND modalidade EQ 'S'.
CLEAR it_zycit245. REFRESH it_zycit245.
SELECT * FROM /pws/zycit245 INTO TABLE it_zycit245
...
...
ELSE.
v_qtdbase = itab_stko-bmeng.
ENDIF.
CLEAR it_zycit244.
READ TABLE it_zycit244 WITH KEY nrseqd = it_zycit247-nrseqd.
* >> Início da exclusão: FORM APPROPRIATE_CURRENT_RECORD
IF sy-subrc NE 0.
* << Fim da exclusão
* >> Início da inclusão: FORM APPROPRIATE_CURRENT_RECORD
IF sy-subrc NE 0 or (
it_zycit244-tipo eq 'C' and
/pws/zycit321-c_comum eq ' ' and
it_zycit247-codmat ne it_zycet002-matnr ).
* << Fim da inclusão
CONTINUE.
ENDIF.
IF it_zycit244-vcto_vg IS INITIAL.
CLEAR: v_errolog, it_log_erro.
CONCATENATE text-031 it_zycit244-nrseqd text-076
...
...
IF v_qtdaprop >= it_zycet002-fkimg.
EXIT.
ENDIF.
v_apmat = 'S'.
v_error = 'N'.
* >> Início da exclusão: FORM APPROPRIATE_CURRENT_RECORD
IF it_zycit244-tipo NE 'G'.
* << Fim da exclusão
PERFORM appropriate_tng CHANGING v_qtdaprop v_qtdbase v_error.
* >> Início da exclusão: FORM APPROPRIATE_CURRENT_RECORD
ELSE.
PERFORM appropriate_tg CHANGING v_qtdaprop v_qtdbase v_error.
ENDIF.
* << Fim da exclusão
v_pct_com = v_qtdaprop / it_zycet002-fkimg .
IF v_error EQ 'S'.
CONTINUE.
ENDIF.
ENDLOOP.
...
...
DELETE it_zycit279 WHERE nrseqd EQ it_zycit244-nrseqd.
CONTINUE.
ENDIF.
LOOP AT it_zycit247_aux WHERE nrseqd = it_zycit244-nrseqd.
CLEAR it_zycit247.
* >> Início da exclusão: FORM SORT_RECORDS_ZYCIT247
IF it_zycit244-tipo EQ 'C' .
* << Fim da exclusão
* >> Início da inclusão: FORM SORT_RECORDS_ZYCIT247
IF it_zycit244-tipo EQ 'C' or it_zycit244-tipo EQ 'G'.
* << Fim da inclusão
MOVE-CORRESPONDING it_zycit247_aux TO it_zycit247.
READ TABLE it_zycit279 WITH KEY nrseqd = it_zycit247_aux-nrseqd.
IF sy-subrc EQ 0.
APPEND it_zycit247.
ENDIF.
...