CE PLUS - Nota 002031
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Request
Data/Hora da Publicação: 01/09/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 15:21:20
Descrição da Nota: CORREÇÃO DA VERSÃO 6.0
Sintoma
Correção da Versão 6.0
Solução
Correção da Versão 6.0
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02031 Data: 01/09/2006 Hora: 13:57:42
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02031
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00024
Agrupamento : 00129
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
CORREÇÃO DA VERSÃO 6.0
----------------------------------------------------------------------------------------------------
Palavras Chave:
CORREÇÃO DA VERSÃO 6.0
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCB_TRANSACAO_F_30_W
REPS /PWS/MZYCA110F01
REPS /PWS/ZZYCBGF3U03
SHLD /PWS/ZYCBA118
VIED /PWS/ZYCBV108
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_TRANSACAO_F_30_W
...
ENDIF.
PERFORM bdc_field USING 'BDC_OKCODE' '=ENTE'.
ENDIF.
ENDIF.
ENDIF.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_W
DATA: BEGIN OF t_bseg OCCURS 0.
INCLUDE STRUCTURE bseg.
DATA: END OF t_bseg.
IF NOT t_partidas[] IS INITIAL.
SELECT *
FROM bseg
INTO TABLE t_bseg
FOR ALL ENTRIES IN t_partidas
WHERE bukrs EQ t_partidas-bukrs AND
belnr EQ t_partidas-belnr AND
gjahr EQ t_partidas-dtdocto(4).
ENDIF.
* << Fim da exclusão
CLEAR v_partidas.
LOOP AT t_partidas WHERE tcode = t_dados-tcode
AND tabela = t_dados-tabela
AND cpochv = t_dados-cpochv.
v_partidas = 'X'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA110F01
...
/pws/zycbe145-vlmetc EQ wa_zycbt145-vlmetc AND
/pws/zycbe031-dtcredpr EQ wa_zycbt031-dtcredpr AND
/pws/zycbe031-bcooper EQ wa_zycbt031-bcooper.
CONTINUE.
ENDIF.
* >> Início da exclusão: FORM CONTABILIZA_TV_FUNC
IF NOT /pws/zycbe145-vlmetc IS INITIAL AND
NOT /pws/zycbe145-vlmetc EQ '0.
00'.
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_TV_FUNC
IF /pws/zycbe145-vlmetc GT 0.
* << Fim da inclusão
IF /pws/zycbe031-frgzu = '2'.
PERFORM contabiliza_f02_tv_func.
ENDIF.
IF /pws/zyglt009-comp_trans EQ 'C' AND v_erro_f02 IS INITIAL AND
v_erro_fbra_tc IS INITIAL AND v_erro_fb08_tc IS INITIAL.
...
...
/pws/zycbe145-vlmecash EQ wa_zycbt145-vlmecash AND
/pws/zycbe031-dtcredpr EQ wa_zycbt031-dtcredpr AND
/pws/zycbe031-bcooper EQ wa_zycbt031-bcooper.
CONTINUE.
ENDIF.
* >> Início da exclusão: FORM CONTABILIZA_TV_FUNC
IF NOT /pws/zycbe145-vlmecash IS INITIAL AND
NOT /pws/zycbe145-vlmecash EQ '0.
00'.
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_TV_FUNC
IF /pws/zycbe145-vlmecash GT 0.
* << Fim da inclusão
IF /pws/zycbe031-frgzu = '2'.
PERFORM contabiliza_f02_tv_func.
ENDIF.
IF /pws/zyglt009-comp_trans EQ 'C' AND v_erro_f02 IS INITIAL AND
v_erro_fbra_cash IS INITIAL AND v_erro_fb08_cash IS INITIAL.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZZYCBGF3U03
DATA: BEGIN OF itab_zycet001 OCCURS 0,
nrinvoic LIKE /pws/zycet001-nrseq,
gsberf LIKE /pws/zycet001-gsber,
END OF itab_zycet001.
* >> Início da exclusão:
SELECT nrseq gsber
FROM /pws/zycet001
* << Fim da exclusão
* >> Início da inclusão:
SELECT nrseq gsber FROM /PWS/ZYCET001
* << Fim da inclusão
INTO TABLE itab_zycet001
* >> Início da exclusão:
FOR ALL ENTRIES IN record_tab
WHERE nrseq = record_tab-string+3(10).
IF sy-subrc NE 0.
SELECT nrseq gsber
FROM /pws/zycet001
INTO TABLE itab_zycet001
FOR ALL ENTRIES IN record_tab
WHERE nrseq = record_tab-string(10).
ENDIF.
* << Fim da exclusão
* >> Início da inclusão:
WHERE envia_c EQ 'X'.
* << Fim da inclusão
LOOP AT record_tab.
READ TABLE itab_zycet001 WITH KEY
nrinvoic = record_tab-string+3(10).
IF sy-subrc NE 0.
READ TABLE itab_zycet001 WITH KEY
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em SHLD /PWS/ZYCBA118
----------------------------------------------------------------------------------------------------
Modificações efetuadas em VIED /PWS/ZYCBV108