CE PLUS - Nota 013700
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 12/02/2014 10:30:08
Data/Hora Última Alteração: 12/02/2014 10:30:08
Descrição da Nota: ERRO VÁRIOS PAGAMENTO ANTECIPADO PASTA CAMBIO DI
Sintoma
pasta cambio DI só mostra um 1 pagamento antecipado
Solução
Ajustado para buscar todos os pagamentos antecipados validos
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 13700 Data: 12/02/2014 Hora: 09:48:21
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 13700
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 9.0
Pacote : 00007
Agrupamento : 00170
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
11171 - 00001 - 8.0 - 00007 - NOVA FÓRMULA VALOR ICMS ST.
13665 - 00002 - 9.0 - 00007 - CAMPO VOLUME DI NACIONALIZAÇÃO ADM. TEMPORARIA, REGIME 13
----------------------------------------------------------------------------------------------------
ERRO VÁRIOS PAGAMENTO ANTECIPADO PASTA CAMBIO DI
----------------------------------------------------------------------------------------------------
Palavras Chave:
PAGAMENTO - ANTECIPADO - CAMBIO - DI
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F05
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F05
...
FORM load_cambio USING p_ebeln p_ebelp.
TABLES : /pws/zycbt117,
/pws/zycbt119,
/pws/zycbt031,
/pws/zycbt048,
/pws/zycbt064,
/pws/zycbt115.
* >> Início da inclusão: FORM LOAD_CAMBIO
DATA: lt_zycbt117 TYPE STANDARD TABLE OF /pws/zycbt117.
* << Fim da inclusão
IF sy-tcode = '/PWS/ZYCI023_C'
AND v_adicao IS INITIAL.
LOOP AT itab_zycit263 WHERE ebeln = p_ebeln
AND ebelp = p_ebelp .
LOOP AT itab_zycit006
WHERE nrseq_pgfat = itab_zycit263-nrseq_pgfat
AND belnr_p <> space.
CLEAR v_tipo.
SELECT SINGLE frpagto FROM /pws/zycit128
INTO v_tipo
WHERE codigo = itab_zycit006-gpcambio.
* >> Início da exclusão: FORM LOAD_CAMBIO
SELECT SINGLE * FROM /pws/zycbt117
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_CAMBIO
SELECT * FROM /pws/zycbt117
INTO TABLE lt_zycbt117
* << Fim da inclusão
WHERE ebeln = p_ebeln
AND status NE 'E'. "#EC CI_NOFIELD
IF sy-subrc NE 0.
SELECT SINGLE * FROM /pws/zycbt119
WHERE nrseq = itab_zycit006-nrseq_pgfat.
...
...
SELECT SINGLE * FROM /pws/zycbt115
WHERE nrcorrep = /pws/zycbt119-nrseq
AND tpdoc = 'P'.
ENDIF.
ENDIF.
IF v_tipo = 02.
* >> Início da inclusão: FORM LOAD_CAMBIO
LOOP AT lt_zycbt117 INTO /pws/zycbt117.
* << 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.
itab_zycit121-banco = /pws/zycbt031-bcooper+5(5).
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.
* >> Início da inclusão: FORM LOAD_CAMBIO
ENDLOOP.
* << Fim da inclusão
ENDIF.
IF v_tipo = 01.
* >> Início da inclusão: FORM LOAD_CAMBIO
LOOP AT lt_zycbt117 INTO /pws/zycbt117.
* << Fim da inclusão
SELECT *
FROM /pws/zycbt064
UP TO 1 ROWS
WHERE nrchave = /pws/zycbt117-nrseq
AND mdcorresp = 'IA'.
...
...
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.
* >> Início da inclusão: FORM LOAD_CAMBIO
ENDLOOP.
* << Fim da inclusão
ENDIF.
ENDLOOP.
ENDLOOP.
ENDIF.
ENDFORM.
...