CE PLUS - Nota 008636
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Relatórios
Data/Hora da Publicação: 06/07/2009 00:00:00
Data/Hora Última Alteração: 09/03/2010 17:02:16
Descrição da Nota: AJUSTES DE LAYOUT E DE EXIBIÇÃO
Sintoma
Ajustar layout em relatórios e Ajustar o Embarque conforme Menu de Visualização
Solução
Ajustar layout em relatórios e Ajustar o Embarque conforme Menu de Visualização
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08636 Data: 06/07/2009 Hora: 16:26:45
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08636
Categoria : Erro de Programa
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00010
Agrupamento : 00104
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
AJUSTES DE LAYOUT E DE EXIBIÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
AJUSTES - LAYOUT - EXIBIÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003O01
REPS /PWS/ZYCRSTIDI
REPS /PWS/ZYCRSTIID
REPT /PWS/ZYCIR014
REPT /PWS/ZYCIR177
REPT /PWS/ZYCRSTIDI
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003O01
...
ENDIF.
MODIFY SCREEN.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE006-VLMERC'.
IF /pws/zycie006-tpfatura = '01' OR
/pws/zycie006-tpfatura = '11'.
PERFORM verifica_pag_antecipado2.
IF v_pg_ant2 = 'X'.
screen-input = 0.
ELSE.
* >> Início da inclusão: MODULE SET_SCREEN
IF v_status_s = 1 OR sy-tcode = '/PWS/ZYCI003_M'.
* << Fim da inclusão
screen-input = 1.
* >> Início da inclusão: MODULE SET_SCREEN
ENDIF.
* << Fim da inclusão
ENDIF.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDLOOP.
IF /pws/zycie006-vlmerc IS INITIAL AND
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCRSTIDI
...
READ TABLE itab_tcurc INDEX 1.
READ TABLE itab_zycit100 INDEX 1.
READ TABLE itab_zycit085 INDEX 1.
READ TABLE itab_zycit054 INDEX 1.
READ TABLE itab_zycit001 INDEX 1.
READ TABLE itab_t001 INDEX 1.
READ TABLE itab_zycit093 INDEX 1.
READ TABLE itab_zycit003 INDEX 1.
READ TABLE itab_zycit116 INDEX 1.
READ TABLE itab_imposto INDEX 1.
* >> Início da inclusão: FORM IMPRIME_DADOS
IF itab_zycit001[] IS INITIAL.
MESSAGE i017 WITH text-003.
EXIT.
ENDIF.
* << Fim da inclusão
READ TABLE itab_zycet031 WITH KEY id = 'C01'.
WRITE: 1(200) itab_zycet031-name CENTERED.
PERFORM move_itab_relatorio USING 'C' 1 ' '
itab_zycet031-name ' ' ' '.
SKIP 4.
READ TABLE itab_zycet031 WITH KEY id = 'C02'.
WRITE: /10 itab_zycet031-name.
PERFORM move_itab_relatorio USING 'C' 2 ' '
itab_zycet031-name ' ' ' '.
READ TABLE itab_zycit085 INDEX 1.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCRSTIID
...
v_conti = v_conti + 1.
ELSE.
EXIT.
ENDIF.
ENDDO.
READ TABLE itab_lfa1 WITH KEY lifnr = itab_zycit003-lifnrfabr.
READ TABLE itab_t005t WITH KEY land1 = itab_lfa1-land1
spras = 'P'.
WRITE: /,
2 text-045,
* >> Início da exclusão: FORM IMPRIME_DADOS
12 itab_lfa1-name1,
* << Fim da exclusão
* >> Início da inclusão: FORM IMPRIME_DADOS
13 itab_lfa1-name1,
* << Fim da inclusão
/,
2 text-046,
18 itab_t005t-landx.
IF NOT itab_lfa1-name1 IS INITIAL.
PERFORM move_itab_relatorio USING 'I' 14 v_sub
itab_lfa1-name1 ' ' ' '.
ELSE.
PERFORM move_itab_relatorio USING 'I' 14 v_sub v_ponto ' ' ' '.
ENDIF.
IF NOT itab_t005t-landx IS INITIAL.
...
...
v_conti = v_conti + 1.
ELSE.
EXIT.
ENDIF.
ENDDO.
READ TABLE itab_lfa1 WITH KEY lifnr = itab_zycit003-lifnrfabr.
READ TABLE itab_t005t WITH KEY land1 = itab_lfa1-land1
spras = 'P'.
WRITE: /,
2 text-045,
* >> Início da exclusão: FORM NOVO_NCM
12 itab_lfa1-name1,
* << Fim da exclusão
* >> Início da inclusão: FORM NOVO_NCM
13 itab_lfa1-name1,
* << Fim da inclusão
/,
2 text-046,
18 itab_t005t-landx.
IF NOT itab_lfa1-name1 IS INITIAL.
PERFORM move_itab_relatorio USING 'I' 14 v_sub
itab_lfa1-name1 ' ' ' '.
ELSE.
PERFORM move_itab_relatorio USING 'I' 14 v_sub v_ponto ' ' ' '.
ENDIF.
IF NOT itab_t005t-landx IS INITIAL.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/ZYCIR014
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: PT
Símbolo: 001
Texto: (26 caracteres)
"Totalizar o relatório por:"
Comprimento máximo: 27
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/ZYCIR177
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: PT
Símbolo: 012
Texto: (10 caracteres)
"Fornecedor"
Comprimento máximo: 10
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/ZYCRSTIDI
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 003
Texto: (21 caracteres)
"Dados não encontrados"
Comprimento máximo: 21