CE PLUS - Nota 000948
Módulo: DRAWBACK
Funcionalidade: Forecast
Data/Hora da Publicação: 24/02/2006 00:00:00
Data/Hora Última Alteração: 17/02/2011 13:03:10
Descrição da Nota: PARAMETRO UF DE ENTRADA
Sintoma
Ao fazer várias faturas 04 desaparecia os valores das despesas, ou aparececia o valor da primeira
fatura 04 na segunda.
Solução
Inserida condição para limpar as itabs:
itab_zycit047, itab_zycit047_aux.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00948 Data: 24/02/2006 Hora: 15:00:14
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00948
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00022
Agrupamento : 00101
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00653 - 00001 - 6.0 - 00022 - PARAMETRO TAMANHO NCM E TRATAMENTO DE LISTA P/ AGRUPAMENTO NA COM
----------------------------------------------------------------------------------------------------
PARAMETRO UF DE ENTRADA
----------------------------------------------------------------------------------------------------
Palavras Chave:
PARAMETRO - DRAWBACK - UF - ENTRADA - ICMS
/PWS/ZYCI_VERIFICA_TAXA_DB - /PWS/ZYCIT321
----------------------------------------------------------------------------------------------------
Objetos da nota:
DTEL /PWS/ZYCIL834
FUNC /PWS/ZYCI_VERIFICA_TAXA_DB
TABD /PWS/ZYCIT321
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCIL834
Criar:
Elemento de dados: /PWS/ZYCIL834
Descrição breve: GL- UF Entrad
Dominio: REGIO
Ctg.dados: CHAR
Comprimento: 3
Textos:
Comprim Denominador de campo
Breve 6 UF Ent
Médio 10 UF Entrada
longa 20 UF Entrada
Título 10 UF Entrada
*Características
Última modificação PWSCI
Classe desenvolvimento /PWS/ZYGL
Idioma original PT Português
*Denominação de Campo
Comprim Denominador de campo
Breve 6 UF Ent
Médio 10 UF Entrada
longa 20 UF Entrada
Título 10 UF Entrada
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_VERIFICA_TAXA_DB
...
DATA: WA_zycfT003 LIKE /pws/zycfT003 .
DATA: V_VALIDFROM LIKE /pws/zycfT003-VALIDFROM,
AUX_VALIDFROM LIKE SY-DATUM ,
V_DATA LIKE SY-DATUM ,
V_DATA_DI(10) TYPE C ,
* >> Início da inclusão: FUNCTION /PWS/ZYCI_VERIFICA_TAXA_DB
v_ufent TYPE /pws/zycit321-ufent,
* << Fim da inclusão
V_DATUM(10) TYPE C .
DATA ITAB_zycfT003 LIKE /pws/zycfT003 OCCURS 0 WITH HEADER LINE.
DATA V_MATNR LIKE /PWS/ZYCIE240-CODCOMP.
DATA WA_T001W LIKE T001W.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_VERIFICA_TAXA_DB
SELECT SINGLE ufent FROM /pws/zycit321 INTO v_ufent.
* << Fim da inclusão
Loop At Itab_Itens.
Move: Itab_Itens-Nrseqd To Itab_Impostos-Nrseqd ,
Itab_Itens-CodMat To Itab_Impostos-CodMat ,
Itab_Itens-CodComp To Itab_Impostos-CodComp,
Itab_Itens-Werks To Itab_Impostos-Werks ,
...
...
ENDIF.
ENDIF.
CLEAR V_DATUM.
SELECT SINGLE * FROM J_1BTXIC2 INTO WA_J_1BTXIC2
WHERE LAND1 EQ 'BR'
* >> Início da exclusão: FUNCTION /PWS/ZYCI_VERIFICA_TAXA_DB
AND SHIPFROM EQ WA_j_1btregc-TXreg
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_VERIFICA_TAXA_DB
AND shipfrom EQ v_ufent
* << Fim da inclusão
AND SHIPTO EQ WA_T001W-TXJCD
AND MATNR EQ V_MATNR
AND VALIDFROM EQ V_VALIDFROM.
IF SY-SUBRC NE 0.
SELECT * FROM J_1BTXIC2 INTO TABLE ITAB_J_1BTXIC2
WHERE LAND1 EQ 'BR'
* >> Início da exclusão: FUNCTION /PWS/ZYCI_VERIFICA_TAXA_DB
AND SHIPFROM EQ WA_j_1btregc-TXreg
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_VERIFICA_TAXA_DB
AND shipfrom EQ v_ufent
* << Fim da inclusão
AND SHIPTO EQ WA_T001W-TXJCD
AND MATNR EQ V_MATNR
AND VALIDFROM >= V_VALIDFROM
AND VALIDTO <= V_VALIDFROM.
IF SY-SUBRC EQ 0.
...
...
ENDIF.
ENDLOOP.
ELSE.
SELECT SINGLE * FROM J_1BTXIC1 INTO WA_J_1BTXIC1
WHERE LAND1 EQ 'BR'
* >> Início da exclusão: FUNCTION /PWS/ZYCI_VERIFICA_TAXA_DB
AND SHIPFROM EQ WA_j_1btregc-TXreg
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_VERIFICA_TAXA_DB
AND shipfrom EQ v_ufent
* << Fim da inclusão
AND SHIPTO EQ WA_T001W-TXJCD
AND VALIDFROM EQ V_VALIDFROM.
IF SY-SUBRC NE 0.
SELECT * FROM J_1BTXIC1 INTO TABLE ITAB_J_1BTXIC1
WHERE LAND1 EQ 'BR'
* >> Início da exclusão: FUNCTION /PWS/ZYCI_VERIFICA_TAXA_DB
AND SHIPFROM EQ WA_j_1btregc-TXreg
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_VERIFICA_TAXA_DB
AND shipfrom EQ v_ufent
* << Fim da inclusão
AND SHIPTO EQ WA_T001W-TXJCD
AND VALIDFROM >= V_VALIDFROM.
IF SY-SUBRC EQ 0.
CLEAR AUX_VALIDFROM.
CLEAR V_DATA.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT321
Nome campo |Chv |Elem.dados |Tab.verif. |N |CtDt |Comp. |Grupo
...
NCM_LIST | |/PWS/ZYCIL828 | | |CHAR | 1 |
* >> Início da inclusão:
UFENT | |/PWS/ZYCIL834 |T005S | |CHAR | 3 |
* >> Fim da inclusão: