CE PLUS - Nota 000865
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Relatórios
Data/Hora da Publicação: 13/02/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 14:50:33
Descrição da Nota: AJUSTE NA IMPRESSÃO DO HISTÓRICO CONTÁBIL
Sintoma
Erro na impressão do Histórico Contábil
Solução
Foram efetuadas novas consistências para os documentos que identificam o Layout do Histórico.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00865 Data: 13/02/2006 Hora: 13:25:20
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00865
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00022
Agrupamento : 00100
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
AJUSTE NA IMPRESSÃO DO HISTÓRICO CONTÁBIL
----------------------------------------------------------------------------------------------------
Palavras Chave:
HISTÓRICO CONTÁBIL IMPRESSÃO LAYOUT
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCBR059
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR059
...
SELECT * FROM /pws/zycbt005
INTO TABLE itab_zycbt005
WHERE nrseqc = nrseqc.
* Se não tiver vinculação, exibe dados da captação - Elaine 12.09.02
IF sy-subrc EQ 0.
* >> Início da inclusão: FORM SELECIONA_DADOS
IF /pws/zycbt089-bx_cli_vinc EQ 'X'.
SELECT * FROM /pws/zycbt209
INTO TABLE itab_zycbt209
FOR ALL ENTRIES IN itab_zycbt005
WHERE nrinvoic EQ itab_zycbt005-nrinvoic AND
nrparcf EQ itab_zycbt005-nrparcf AND
gsberf EQ itab_zycbt005-gsberf AND
dtincl EQ itab_zycbt005-dtvincul AND
nrseqc EQ itab_zycbt005-nrseqc.
ELSE.
SELECT * FROM /pws/zycbt209
INTO TABLE itab_zycbt209
FOR ALL ENTRIES IN itab_zycbt005
WHERE nrinvoic EQ itab_zycbt005-nrinvoic AND
bukrs EQ itab_zycbt005-bukrs AND
nrparcf EQ itab_zycbt005-nrparcf AND
gsberf EQ itab_zycbt005-gsberf.
ENDIF.
* >> Fim da inclusão
SELECT * FROM /pws/zycbt017
INTO TABLE itab_zycbt017
FOR ALL ENTRIES IN itab_zycbt005
WHERE nrinvoic EQ itab_zycbt005-nrinvoic
AND nrparcf EQ itab_zycbt005-nrparcf
AND gsberf EQ itab_zycbt005-gsberf.
...
...
READ TABLE itab_zycbt209
WITH KEY nrinvoic = itab_zycbt005-nrinvoic
nrparcf = itab_zycbt005-nrparcf
gsberf = itab_zycbt005-gsberf
nrseqc = itab_zycbt005-nrseqc
dtincl = itab_zycbt005-dtvincul.
IF sy-subrc EQ 0.
MOVE itab_zycbt209-belnr TO itab_dados-belnr_trans.
ENDIF.
* Documento do Desmembramento do ACC
READ TABLE itab_zycbt084
WITH KEY nrinvoic = itab_zycbt005-nrinvoic
nrparcf = itab_zycbt005-nrparcf
gsberf = itab_zycbt005-gsberf
nrseqc = itab_zycbt005-nrseqc
dtvincul = itab_zycbt005-dtvincul
tdesmemb = 'C'
* >> Início da inclusão: FORM SELECIONA_DADOS
liq_and = ' '.
* >> Fim da inclusão
IF sy-subrc EQ 0.
MOVE itab_zycbt084-belnr TO itab_dados-belnr_dcontr.
ENDIF.
* Documento do Desmembramento do Cliente na Bx do Cl na Vinculação
READ TABLE itab_zycbt084
WITH KEY nrinvoic = itab_zycbt005-nrinvoic
nrparcf = itab_zycbt005-nrparcf
gsberf = itab_zycbt005-gsberf
nrseqc = itab_zycbt005-nrseqc
dtvincul = itab_zycbt005-dtvincul
tdesmemb = 'B'.
IF sy-subrc EQ 0.
MOVE itab_zycbt084-belnr TO itab_dados-belnr_dclib.
ENDIF.
...
...
IF v_belnr_perf IS INITIAL.
WRITE:
(01) '|' NO-GAP, (010) itab_dados-belnr_perf CENTERED COLOR
COL_HEADING INVERSE HOTSPOT NO-GAP.
ENDIF.
IF v_belnr_liq IS INITIAL.
* >> Início da exclusão: FORM IMPRIME_DADOS
WRITE: (01) '|' NO-GAP, (010) itab_dados-belnr_liq CENTERED COLOR
* >> Fim da exclusão
* >> Início da inclusão: FORM IMPRIME_DADOS
WRITE: (01) '|' NO-GAP, (010) itab_dados-belnr5 CENTERED COLOR
* >> Fim da inclusão
COL_HEADING INVERSE HOTSPOT NO-GAP.
ENDIF.
IF v_belnr_cli_ace IS INITIAL.
WRITE:
(01) '|' NO-GAP, (010) itab_dados-belnr_cli_ace CENTERED COLOR
COL_HEADING INVERSE HOTSPOT NO-GAP.
ENDIF.
...
...
IF sy-subrc NE 0.
v_belnr_liq = 'X'.
ENDIF.
IF NOT v_belnr_liq IS INITIAL.
IF itab_zycbt006-tpcontr = 'C'.
* >> Início da exclusão: FORM DEFINE_COLUNAS
v_colunas = v_colunas + 21.
* << Fim da exclusão
* >> Início da inclusão: FORM DEFINE_COLUNAS
v_colunas = v_colunas + 11.
* << Fim da inclusão
ELSE.
IF /pws/zycbt089-est_variacao IS INITIAL.
v_colunas = v_colunas + 11.
ENDIF.
IF itab_zycbt006-tpcontr = 'DP'.
...
...
ENDIF.
ENDIF.
ENDIF.
IF NOT itab_dados IS INITIAL.
v_colunas = v_colunas + 11.
* >> Início da exclusão: FORM DEFINE_COLUNAS
ENDIF.
IF ( v_belnr_trans = 'X' AND
v_belnr_dclib = 'X' AND
v_belnr_dcli = 'X' AND
v_belnr_dace = 'X' AND
v_belnr_liq = 'X' AND
v_belnr_cli_ace = 'X' ) .
v_colunas = v_colunas - 10.
* << Fim da exclusão
ENDIF.
ENDFORM.
FORM dados_devolucao.
LOOP AT itab_zycbt051 WHERE tpdesp = itab_zycbt050-tpdesp
AND nrparc = itab_zycbt050-nrparc
...