CE PLUS - Nota 013844
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 31/03/2014 00:00:00
Data/Hora Última Alteração: 16/04/2014 10:28:53
Descrição da Nota: TRAZER O CAMPO BANCO DA FATURA DE CÂMBIO
Sintoma
Trazer o campo banco, na pasta câmbio da Adição, da Fatura de câmbio
Solução
Trazer o campo banco, na pasta câmbio da Adição, da Fatura de câmbio
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 13844 Data: 31/03/2014 Hora: 16:54:00
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 13844
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 9.0
Pacote : 00007
Agrupamento : 00170
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
13700 - 00001 - 9.0 - 00007 - ERRO VÁRIOS PAGAMENTO ANTECIPADO PASTA CAMBIO DI
13705 - 00002 - 9.0 - 00007 - NÃO LEVA OS DADOS CORRETOS DE PAGAMENTO ANTECIPADO NA DI
----------------------------------------------------------------------------------------------------
TRAZER O CAMPO BANCO DA FATURA DE CÂMBIO
----------------------------------------------------------------------------------------------------
Palavras Chave:
CAMPO BANCO - FATURA DE CÂMBIO - DI - ADIÇÃO - PASTA CÂMBIO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F05
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F05
...
FORM sem_pag_antec.
IF v_tipo = '2'.
* >> Início da inclusão: FORM SEM_PAG_ANTEC
SELECT *
FROM /pws/zycbt064
UP TO 1 ROWS
WHERE nrchave = /pws/zycbt117-nrseq
AND mdcorresp = 'IA'.
ENDSELECT.
IF sy-subrc EQ 0.
SELECT *
FROM /pws/zycbt048
UP TO 1 ROWS
WHERE nrseq = /pws/zycbt064-nrboleto
AND mdcorresp = 'IA'
AND nrcorresp = /pws/zycbt117-nrseq.
ENDSELECT.
SELECT *
FROM /pws/zycbt031
UP TO 1 ROWS
WHERE nrcorresp = /pws/zycbt117-nrseq
AND mdcorresp = 'IA'.
ENDSELECT.
SELECT * FROM /pws/zycbt115
UP TO 1 ROWS
WHERE nrcorrep = /pws/zycbt117-nrfinanc.
ENDSELECT.
ENDIF.
* << Fim da inclusão
IF /pws/zycbt117-waers NE wa_zycbt007-waersb.
itab_zycit121-moedanac = 'N'.
ELSE.
itab_zycit121-moedanac = 'S'.
ENDIF.
itab_zycit121-mandt = sy-mandt.
itab_zycit121-nrseqdi = /pws/zycie085-nrseqdi.
itab_zycit121-adicao = wa_it-adicao.
* >> Início da exclusão: FORM SEM_PAG_ANTEC
itab_zycit121-banco = /pws/zycbt031-bcooper+5(5).
* << Fim da exclusão
* >> Início da inclusão: FORM SEM_PAG_ANTEC
itab_zycit121-banco = /pws/zycbt048-instituicao.
* << Fim da inclusão
itab_zycit121-praca = /pws/zycbt048-praca+1(4).
itab_zycit121-contrato = /pws/zycbt048-nrcontr .
itab_zycit121-valor =
itab_zycit263-qtd_iten * itab_zycit263-vlreal.
itab_zycit121-waers = /pws/zycbt117-waers.
itab_zycit121-tipo = 'V'.
COLLECT itab_zycit121.
ENDIF.
IF v_tipo = '1'.
SELECT *
...
...
ENDSELECT.
ENDIF.
IF /pws/zycbt117-waers NE wa_zycbt007-waersb.
itab_zycit121-moedanac = 'N'.
ELSE.
itab_zycit121-moedanac = 'S'.
ENDIF.
itab_zycit121-mandt = sy-mandt.
itab_zycit121-nrseqdi = /pws/zycie085-nrseqdi.
itab_zycit121-adicao = wa_it-adicao.
* >> Início da exclusão: FORM SEM_PAG_ANTEC
itab_zycit121-banco = /pws/zycbt031-bcooper+5(5).
* << Fim da exclusão
* >> Início da inclusão: FORM SEM_PAG_ANTEC
itab_zycit121-banco = /pws/zycbt048-instituicao.
* << Fim da inclusão
itab_zycit121-praca = /pws/zycbt048-praca+1(4).
itab_zycit121-contrato = /pws/zycbt048-nrcontr .
IF NOT /pws/zycbt031-vlme IS INITIAL.
itab_zycit121-valor = /pws/zycbt031-vlme.
ELSE.
itab_zycit121-valor = a_vlrtot.
ENDIF.
itab_zycit121-waers = /pws/zycbt117-waers.
itab_zycit121-tipo = 'A'.
COLLECT itab_zycit121.
...
...
IF v_tipo = '2'.
LOOP AT lt_zycbt117 INTO /pws/zycbt117.
IF /pws/zycbt117-waers NE wa_zycbt007-waersb.
itab_zycit121-moedanac = 'N'.
ELSE.
itab_zycit121-moedanac = 'S'.
ENDIF.
itab_zycit121-mandt = sy-mandt.
itab_zycit121-nrseqdi = /pws/zycie085-nrseqdi.
itab_zycit121-adicao = wa_it-adicao.
* >> Início da exclusão: FORM COM_PAG_ANTEC
itab_zycit121-banco = /pws/zycbt031-bcooper+5(5).
* << Fim da exclusão
* >> Início da inclusão: FORM COM_PAG_ANTEC
itab_zycit121-banco = /pws/zycbt048-instituicao.
* << Fim da inclusão
itab_zycit121-praca = /pws/zycbt048-praca+1(4).
itab_zycit121-contrato = /pws/zycbt048-nrcontr .
itab_zycit121-valor =
itab_zycit263-qtd_iten * itab_zycit263-vlreal.
itab_zycit121-waers = /pws/zycbt117-waers.
itab_zycit121-tipo = 'V'.
COLLECT itab_zycit121.
ENDLOOP.
ENDIF.
IF v_tipo = '1'.
...
...
ENDSELECT.
ENDIF.
IF /pws/zycbt117-waers NE wa_zycbt007-waersb.
itab_zycit121-moedanac = 'N'.
ELSE.
itab_zycit121-moedanac = 'S'.
ENDIF.
itab_zycit121-mandt = sy-mandt.
itab_zycit121-nrseqdi = /pws/zycie085-nrseqdi.
itab_zycit121-adicao = wa_it-adicao.
* >> Início da exclusão: FORM COM_PAG_ANTEC
itab_zycit121-banco = /pws/zycbt031-bcooper+5(5).
* << Fim da exclusão
* >> Início da inclusão: FORM COM_PAG_ANTEC
itab_zycit121-banco = /pws/zycbt048-instituicao.
* << Fim da inclusão
itab_zycit121-praca = /pws/zycbt048-praca+1(4).
itab_zycit121-contrato = /pws/zycbt048-nrcontr .
IF NOT /pws/zycbt031-vlme IS INITIAL.
itab_zycit121-valor = /pws/zycbt031-vlme.
ELSE.
itab_zycit121-valor = a_vlrtot.
ENDIF.
itab_zycit121-waers = /pws/zycbt117-waers.
itab_zycit121-tipo = 'A'.
COLLECT itab_zycit121.
...