CE PLUS - Nota 000659
Módulo: DRAWBACK
Funcionalidade: Ato Concessório
Data/Hora da Publicação: 16/01/2006 00:00:00
Data/Hora Última Alteração: 17/02/2011 12:35:50
Descrição da Nota: AJUSTE NOS BOTOES DE NAVEGAÇÃO DO REALIZADO DO ATO CONCESSÓRIO
Sintoma
Ao utilizar oo botões para visualizar outro item no realizado do ato
concessório, alguns itens não são exibidos.
Solução
Verificar apenas o numero do item.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00659 Data: 16/01/2006 Hora: 10:58:56
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00659
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00022
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
Texto Rápido:
AJUSTE NOS BOTOES DE NAVEGAÇÃO DO REALIZADO DO ATO CONCESSÓRIO
----------------------------------------------------------------------------------------------------
Palavras Chave:
BOTÕES - ATO CONCESSÓRIO - REALIZADO - NAVEGAÇÃO
/PWS/SAPMZYCI040
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI040F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F02
...
MOVE: itab_zycit245-qtd_iten TO /pws/zycie245c-qtd_iten.
ENDIF.
IF /pws/zycie244-tipo NE 'F'.
CLEAR: itab_zycit246. REFRESH: itab_zycit246.
LOOP AT itab_zycit246_final.
* >> Início da exclusão: FORM CHECK_BUTTON_FIRST_0204
CHECK itab_zycit246_final-nritem EQ /pws/zycie245c-nritem
AND itab_zycit246_final-codcomp EQ /pws/zycie245c-codcomp.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_BUTTON_FIRST_0204
CHECK itab_zycit246_final-nritem EQ /pws/zycie245c-nritem.
* << Fim da inclusão
MOVE-CORRESPONDING itab_zycit246_final TO itab_zycit246.
APPEND itab_zycit246.
ENDLOOP.
ELSE.
CLEAR: itab_zycit246. REFRESH: itab_zycit246.
LOOP AT itab_zycit246_final.
* >> Início da exclusão: FORM CHECK_BUTTON_FIRST_0204
CHECK itab_zycit246_final-nritem EQ /pws/zycie245c-nritem
AND itab_zycit246_final-j_1bnbm EQ /pws/zycie245c-j_1bnbm.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_BUTTON_FIRST_0204
CHECK itab_zycit246_final-nritem EQ /pws/zycie245c-nritem.
* << Fim da inclusão
MOVE-CORRESPONDING itab_zycit246_final TO itab_zycit246.
APPEND itab_zycit246.
ENDLOOP.
ENDIF.
ENDIF.
...
...
MOVE: itab_zycit245-qtd_iten TO /pws/zycie245c-qtd_iten.
ENDIF.
IF /pws/zycie244-tipo NE 'F'.
CLEAR: itab_zycit246. REFRESH: itab_zycit246.
LOOP AT itab_zycit246_final.
* >> Início da exclusão: FORM CHECK_BUTTON_PRIOR_0204
CHECK itab_zycit246_final-nritem EQ /pws/zycie245c-nritem
AND itab_zycit246_final-codcomp EQ /pws/zycie245c-codcomp.
MOVE-CORRESPONDING itab_zycit246_final TO itab_zycit246.
APPEND itab_zycit246.
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_BUTTON_PRIOR_0204
IF /pws/zycie244-tipo NE 'G'.
CHECK itab_zycit246_final-nritem EQ /pws/zycie245c-nritem.
* << Fim da inclusão
ELSE.
* >> Início da exclusão: FORM CHECK_BUTTON_PRIOR_0204
REFRESH: itab_zycit246.
LOOP AT itab_zycit246_final.
CHECK itab_zycit246_final-nritem EQ /pws/zycie245c-nritem
AND itab_zycit246_final-j_1bnbm EQ /pws/zycie245c-j_1bnbm.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_BUTTON_PRIOR_0204
CHECK itab_zycit246_final-nritem EQ /pws/zycie245c-nritem.
ENDIF.
* << Fim da inclusão
MOVE-CORRESPONDING itab_zycit246_final TO itab_zycit246.
APPEND itab_zycit246.
ENDLOOP.
* >> Início da exclusão: FORM CHECK_BUTTON_PRIOR_0204
ENDIF.
* << Fim da exclusão
ENDIF.
* >> Início da exclusão: FORM CHECK_BUTTON_PRIOR_0204
IF itab_zycit246_final[] IS INITIAL.
MOVE: /pws/zycie245c-qtd_ncm TO /pws/zycie244-s_realqtd,
/pws/zycie245c-netpr_t TO /pws/zycie244-s_realfob.
* << Fim da exclusão
ENDIF.
ENDFORM.
FORM check_button_next_0204.
IF pressed_tab_3a NE 'FS_REALIZ1'.
EXIT.
...
...
MOVE: itab_zycit245-qtd_iten TO /pws/zycie245c-qtd_iten.
ENDIF.
IF /pws/zycie244-tipo NE 'F'.
CLEAR: itab_zycit246. REFRESH: itab_zycit246.
LOOP AT itab_zycit246_final.
* >> Início da exclusão: FORM CHECK_BUTTON_NEXT_0204
CHECK itab_zycit246_final-nritem EQ /pws/zycie245c-nritem
AND itab_zycit246_final-codcomp EQ /pws/zycie245c-codcomp.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_BUTTON_NEXT_0204
CHECK itab_zycit246_final-nritem EQ /pws/zycie245c-nritem.
* << Fim da inclusão
MOVE-CORRESPONDING itab_zycit246_final TO itab_zycit246.
APPEND itab_zycit246.
ENDLOOP.
ELSE.
CLEAR: itab_zycit246. REFRESH: itab_zycit246.
LOOP AT itab_zycit246_final.
* >> Início da exclusão: FORM CHECK_BUTTON_NEXT_0204
CHECK itab_zycit246_final-nritem EQ /pws/zycie245c-nritem
AND itab_zycit246_final-j_1bnbm EQ /pws/zycie245c-j_1bnbm.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_BUTTON_NEXT_0204
CHECK itab_zycit246_final-nritem EQ /pws/zycie245c-nritem.
* << Fim da inclusão
MOVE-CORRESPONDING itab_zycit246_final TO itab_zycit246.
APPEND itab_zycit246.
ENDLOOP.
ENDIF.
ENDIF.
...
...
MOVE: itab_zycit245-qtd_iten TO /pws/zycie245c-qtd_iten.
ENDIF.
IF /pws/zycie244-tipo NE 'F'.
CLEAR: itab_zycit246. REFRESH: itab_zycit246.
LOOP AT itab_zycit246_final.
* >> Início da exclusão: FORM CHECK_BUTTON_LAST_0204
CHECK itab_zycit246_final-nritem EQ /pws/zycie245c-nritem
AND itab_zycit246_final-codcomp EQ /pws/zycie245c-codcomp.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_BUTTON_LAST_0204
CHECK itab_zycit246_final-nritem EQ /pws/zycie245c-nritem.
* << Fim da inclusão
MOVE-CORRESPONDING itab_zycit246_final TO itab_zycit246.
APPEND itab_zycit246.
ENDLOOP.
ELSE.
CLEAR: itab_zycit246. REFRESH: itab_zycit246.
LOOP AT itab_zycit246_final.
* >> Início da exclusão: FORM CHECK_BUTTON_LAST_0204
CHECK itab_zycit246_final-nritem EQ /pws/zycie245c-nritem
AND itab_zycit246_final-j_1bnbm EQ /pws/zycie245c-j_1bnbm.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_BUTTON_LAST_0204
CHECK itab_zycit246_final-nritem EQ /pws/zycie245c-nritem.
* << Fim da inclusão
MOVE-CORRESPONDING itab_zycit246_final TO itab_zycit246.
APPEND itab_zycit246.
ENDLOOP.
ENDIF.
ENDIF.
...
...
IF /pws/zycie244-tipo EQ 'N'.
ELSE.
CLEAR: itab_zycit248. REFRESH: itab_zycit248.
LOOP AT itab_zycit248_final.
IF /pws/zycie244-tipo EQ 'G'.
* >> Início da exclusão: FORM CHECK_BUTTON_FIRST_0207
CHECK itab_zycit248_final-nritem EQ /pws/zycie247c-nritem AND
itab_zycit248_final-j_1bnbm EQ /pws/zycie247c-j_1bnbm.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_BUTTON_FIRST_0207
CHECK itab_zycit248_final-nritem EQ /pws/zycie247c-nritem.
* << Fim da inclusão
ELSE.
* >> Início da exclusão: FORM CHECK_BUTTON_FIRST_0207
CHECK itab_zycit248_final-nritem EQ /pws/zycie247c-nritem AND
itab_zycit248_final-codmat EQ /pws/zycie247c-codmat.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_BUTTON_FIRST_0207
CHECK itab_zycit248_final-nritem EQ /pws/zycie247c-nritem.
* << Fim da inclusão
ENDIF.
MOVE-CORRESPONDING itab_zycit248_final TO itab_zycit248.
APPEND itab_zycit248.
ENDLOOP.
ENDIF.
...
...
IF /pws/zycie244-tipo EQ 'N'.
ELSE.
CLEAR: itab_zycit248. REFRESH: itab_zycit248.
LOOP AT itab_zycit248_final.
IF /pws/zycie244-tipo EQ 'G'.
* >> Início da exclusão: FORM CHECK_BUTTON_PRIOR_0207
CHECK itab_zycit248_final-nritem EQ /pws/zycie247c-nritem AND
itab_zycit248_final-j_1bnbm EQ /pws/zycie247c-j_1bnbm.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_BUTTON_PRIOR_0207
CHECK itab_zycit248_final-nritem EQ /pws/zycie247c-nritem.
* << Fim da inclusão
ELSE.
* >> Início da exclusão: FORM CHECK_BUTTON_PRIOR_0207
CHECK itab_zycit248_final-nritem EQ /pws/zycie247c-nritem AND
itab_zycit248_final-codmat EQ /pws/zycie247c-codmat.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_BUTTON_PRIOR_0207
CHECK itab_zycit248_final-nritem EQ /pws/zycie247c-nritem.
* << Fim da inclusão
ENDIF.
MOVE-CORRESPONDING itab_zycit248_final TO itab_zycit248.
APPEND itab_zycit248.
ENDLOOP.
ENDIF.
...
...
IF /pws/zycie244-tipo EQ 'N'.
ELSE.
CLEAR: itab_zycit248. REFRESH: itab_zycit248.
LOOP AT itab_zycit248_final.
IF /pws/zycie244-tipo EQ 'G'.
* >> Início da exclusão: FORM CHECK_BUTTON_NEXT_0207
CHECK itab_zycit248_final-nritem EQ /pws/zycie247c-nritem AND
itab_zycit248_final-j_1bnbm EQ /pws/zycie247c-j_1bnbm.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_BUTTON_NEXT_0207
CHECK itab_zycit248_final-nritem EQ /pws/zycie247c-nritem.
* << Fim da inclusão
ELSE.
* >> Início da exclusão: FORM CHECK_BUTTON_NEXT_0207
CHECK itab_zycit248_final-nritem EQ /pws/zycie247c-nritem AND
itab_zycit248_final-codmat EQ /pws/zycie247c-codmat.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_BUTTON_NEXT_0207
CHECK itab_zycit248_final-nritem EQ /pws/zycie247c-nritem.
* << Fim da inclusão
ENDIF.
MOVE-CORRESPONDING itab_zycit248_final TO itab_zycit248.
APPEND itab_zycit248.
ENDLOOP.
ENDIF.
...
...
IF /pws/zycie244-tipo EQ 'N'.
ELSE.
CLEAR: itab_zycit248. REFRESH: itab_zycit248.
LOOP AT itab_zycit248_final.
IF /pws/zycie244-tipo EQ 'G'.
* >> Início da exclusão: FORM CHECK_BUTTON_LAST_0207
CHECK itab_zycit248_final-nritem EQ /pws/zycie247c-nritem AND
itab_zycit248_final-j_1bnbm EQ /pws/zycie247c-j_1bnbm.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_BUTTON_LAST_0207
CHECK itab_zycit248_final-nritem EQ /pws/zycie247c-nritem.
* << Fim da inclusão
ELSE.
* >> Início da exclusão: FORM CHECK_BUTTON_LAST_0207
CHECK itab_zycit248_final-nritem EQ /pws/zycie247c-nritem AND
itab_zycit248_final-codmat EQ /pws/zycie247c-codmat.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECK_BUTTON_LAST_0207
CHECK itab_zycit248_final-nritem EQ /pws/zycie247c-nritem.
* << Fim da inclusão
ENDIF.
MOVE-CORRESPONDING itab_zycit248_final TO itab_zycit248.
APPEND itab_zycit248.
ENDLOOP.
ENDIF.
...