CE PLUS - Nota 006906
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Vinculação
Data/Hora da Publicação: 03/07/2008 00:00:00
Data/Hora Última Alteração: 18/02/2011 17:59:03
Descrição da Nota: VINCULAÇÃO - TAXAS /PWS/ZYGLT007
Sintoma
O programa não respeita as taxas configuradas no programa de parametros.
Solução
Programa ajustado para que as taxas sejam respeitadas.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06906 Data: 03/07/2008 Hora: 10:30:34
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06906
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00054
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03538 - 00001 - 7.0 - 00001 - VINCULAÇÃO - LIQUIDAÇÃO CAMBIO PRONTO
04109 - 00002 - 7.0 - 00002 - VINCULAÇÃO - LIQUIDAÇÃO AUTOMÁTICA CP - CONTA LIQ. ANDAMENTO
04725 - 00003 - 7.0 - 00002 - VINCULAÇÃO - CONTABILIZAÇÃO E ESTORNO DE CAMBIO PRONTO
05064 - 00004 - 7.0 - 00003 - VINCULAÇÃO - LIQ. AUTOM. DE CAMBIO PRONTO COM LIQUIDAÇÃO EM ANDAM
----------------------------------------------------------------------------------------------------
VINCULAÇÃO - TAXAS /PWS/ZYGLT007
----------------------------------------------------------------------------------------------------
Palavras Chave:
VINCULAÇÃO - TAXAS /PWS/ZYGLT007
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB009F07
REPS /PWS/MZYCB009F08
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F07
...
WHERE bukrs = itab_zycbt005-bukrs
AND belnr = itab_zycbt030-belnr
AND gjahr = v_year.
PERFORM verify_null_field USING wa_zycbt011-blart
'BLART'
text-006.
itab_zycbe033-blart = wa_zycbt011-blart.
IF itab_zycbe033-d_newko IS INITIAL.
itab_zycbe033-d_newko = itab_zycbt005-kunnr.
ENDIF.
* >> Início da exclusão: FORM LANCA_CP
IF wa_zycbt007-dtliqcp NE 'DTCONTR' AND
wa_zycbt007-dtliqcp NE 'TXCONTR'.
itab_zycbe033-kursf = wa_zycbt005-txcamb.
ELSE.
itab_zycbe033-kursf = /pws/zycbe001-txcneg.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCA_CP
PERFORM verifica_data2 USING /pws/zycbt089-tx_desm_cli
itab_zycbt005-dtvincul
itab_zycbt005-nrinvoic.
IF NOT v_databl IS INITIAL.
PERFORM define_cambio USING v_databl
itab_zycbt005-waers
wa_zycbt007-waersb
itab_zycbe033-kursf.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM LANCA_CP
IF itab_zycbe033-kursf IS INITIAL.
* << Fim da inclusão
PERFORM verify_null_field USING itab_zycbe033-kursf
* >> Início da exclusão: FORM LANCA_CP
'TXCAMB'
* << Fim da exclusão
* >> Início da inclusão: FORM LANCA_CP
'KURSF'
* << Fim da inclusão
text-080.
* >> Início da inclusão: FORM LANCA_CP
ENDIF.
* << Fim da inclusão
CLEAR v_wrbtr.
LOOP AT itab_zycbt209
WHERE nrinvoic = wa_zycbt005-nrinvoic AND
gsberf = wa_zycbt005-gsberf AND
saldo > 0 AND
nrparcf = wa_zycbt005-nrparcf.
...
...
'BCONEGOC'
text-001.
v_banco_d = itab_zycbt005-bconegoc.
WHEN 'P' OR 'S'.
PERFORM verify_null_field USING itab_zycbt005-bcofinan
'BCOFINAN'
text-002.
v_banco_d = itab_zycbt005-bcofinan.
ENDCASE.
itab_zycbe033-blart = wa_zycbt011-blart.
* >> Início da exclusão: FORM DESMEMBRA_ACE_CP
IF NOT /pws/zycbt017-dtbl IS INITIAL.
PERFORM define_cambio USING /pws/zycbt017-dtbl
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRA_ACE_CP
IF wa_zycbt007-dtliqcp EQ 'TXCONTR'.
itab_zycbe033-kursf = /pws/zycbe001-txcneg.
ELSE.
PERFORM verifica_data2 USING wa_zycbt007-dtliqcp
itab_zycbt005-dtvincul
itab_zycbt005-nrinvoic.
IF NOT v_databl IS INITIAL.
PERFORM define_cambio USING v_databl
* << Fim da inclusão
itab_zycbt005-waers
wa_zycbt007-waersb
itab_zycbe033-kursf.
* >> Início da inclusão: FORM DESMEMBRA_ACE_CP
ENDIF.
ENDIF.
IF itab_zycbe033-kursf IS INITIAL.
PERFORM verify_null_field USING itab_zycbe033-kursf
'KURSF'
text-080.
* << Fim da inclusão
ENDIF.
v_nrdias = /pws/zycbe006-dtpagto - itab_zycbt005-dtvincul.
IF v_nrdias > 360.
v_prazo = 'L'.
ELSE.
v_prazo = 'S'.
ENDIF.
IF /pws/zycbe001-desc_receb IS INITIAL.
CONCATENATE itab_zycbt005-tpcontr v_prazo
INTO v_codaux SEPARATED BY space.
...
...
ENDCASE.
ENDLOOP.
PERFORM get_parameters_003.
itab_zycbe033-d_gsber = wa_zycbt005-gsberf.
itab_zycbe033-c_gsber = wa_zycbt005-gsberf.
SELECT SINGLE dtemb kurrf_bl viatrans dtaverb dtcruze nrseq
FROM /pws/zycet001
INTO (v_dtemb, v_kurrf_bl, v_viatrans, v_dtaverb2, v_dtcruze,
v_nrseq)
WHERE nrseq EQ wa_zycbt005-nrinvoic.
* >> Início da exclusão: FORM CLEARING_030_CP
IF wa_zycbt007-dtliqcp EQ 'DTCONTR' AND
/pws/zycbe001-tpcontr(1) EQ 'C'.
itab_zycbe033-kursf = /pws/zycbe001-txcneg.
ELSEIF wa_zycbt007-dtliqcp EQ 'TXCONTR' AND
/pws/zycbe001-tpcontr(1) EQ 'C'.
itab_zycbe033-kursf = /pws/zycbe001-txcneg.
ELSE.
IF NOT itab_zycbt017-dtbl IS INITIAL.
PERFORM define_cambio USING itab_zycbt017-dtbl
wa_zycbt005-waers
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_030_CP
PERFORM verifica_data2 USING wa_zycbt007-dtliquid
itab_zycbt005-dtvincul
itab_zycbt005-nrinvoic.
IF NOT v_databl IS INITIAL.
PERFORM define_cambio USING v_databl
itab_zycbt005-waers
* << Fim da inclusão
wa_zycbt007-waersb
itab_zycbe033-kursf.
* >> Início da exclusão: FORM CLEARING_030_CP
ENDIF.
* << Fim da exclusão
ENDIF.
* >> Início da exclusão: FORM CLEARING_030_CP
IF wa_zycbt007-dtliquid EQ 'VIATRANS' AND
itab_zycbe033-kursf IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_030_CP
IF itab_zycbe033-kursf IS INITIAL.
* << Fim da inclusão
MESSAGE i061 WITH text-215 wa_zycbt005-nrinvoic text-216 text-217.
PERFORM verify_null_field USING itab_zycbe033-kursf
'KURSF'
text-051.
ENDIF.
READ TABLE itab_zycbt209 WITH KEY nrinvoic = itab_zycbt030-nrinvoic
nrparcf = itab_zycbt030-nrparcf
gsberf = itab_zycbt030-gsberf.
IF sy-subrc = 0.
IF /pws/zycbt089-tp_liq_and EQ 'Z'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F08
...
v_data_aux = itab_zycbt005_ant-dtvincul.
v_nrinv_aux = itab_zycbt005_ant-nrinvoic.
ELSE.
v_data_aux = itab_zycbt005-dtvincul.
v_nrinv_aux = itab_zycbt005-nrinvoic.
ENDIF.
PERFORM verifica_data2 USING wa_zycbt007-dtvincul
v_data_aux
v_nrinv_aux.
WHEN 'DTVINCUL'.
* >> Início da exclusão: FORM VERIFICA_DATA2
v_dtbl = itab_zycbt005-dtvincul.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_DATA2
v_databl = itab_zycbt005-dtvincul.
* << Fim da inclusão
WHEN 'TXFAT'.
* >> Início da inclusão: FORM VERIFICA_DATA2
IF v_kursf6 IS INITIAL.
IF not itab_zycbt030-belnr6 IS INITIAL.
SELECT kursf FROM bkpf INTO v_kursf6
WHERE bukrs = itab_zycbt005-bukrs AND
belnr = itab_zycbt030-belnr6 AND
gjahr = itab_zycbt030-budat(4).
ENDSELECT.
ELSE.
SELECT kursf FROM bkpf INTO v_kursf6
WHERE bukrs = itab_zycbt005-bukrs AND
belnr = itab_zycbt030-belnr AND
gjahr = itab_zycbt030-budat(4).
ENDSELECT.
ENDIF.
ENDIF.
* << Fim da inclusão
itab_zycbe033-kursf = v_kursf6.
WHEN 'DTCREDEXT'.
WHEN 'VIATRANS'.
SELECT SINGLE dtemb dtvencto viatrans dtaverb dtcruze nrseq
FROM /pws/zycet001
INTO (v_dtemb, v_dtvencto,v_viatrans, v_dtaverb2, v_dtcruze,
v_nrseq)
WHERE nrseq EQ itab_zycbt030-nrinvoic.
SELECT SINGLE vktra FROM /pws/zycit054
INTO (v_vktra)
...
...
MODIFY /pws/zycbt209 FROM TABLE itab_zycbt209.
COMMIT WORK.
IF v_subrc NE 0.
EXIT.
ENDIF.
IF itab_zycbt231[] IS INITIAL.
SELECT * FROM /pws/zycbt231
INTO TABLE itab_zycbt231
WHERE nrseqc = itab_zycbt006-nrseqc
AND dtpagext = itab_zycbt006-dtpagext
* >> Início da exclusão: FORM ESTORNO_PERIODO_ABERTO
AND dtpagto = itab_zycbt006-dtpagto."#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNO_PERIODO_ABERTO
AND dtpagto = itab_zycbt006-dtpagto. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
SELECT * FROM /pws/zycbt084 INTO TABLE itab_zycbt084
WHERE nrseqc = itab_zycbt006-nrseqc.
READ TABLE it_zycbt006
WITH KEY nrinvoic = itab_zycbt006-nrinvoic
gsberf = itab_zycbt006-gsberf
nrparcf = itab_zycbt006-nrparcf
dtvincul = itab_zycbt006-dtvincul.
IF NOT it_zycbt006-tpfatura_or IS INITIAL.
LOOP AT itab_zycbt231.
...
...
itab_zycbt005-dtvincul
itab_zycbt005-nrinvoic.
IF NOT v_databl IS INITIAL.
PERFORM define_cambio USING v_databl
itab_zycbt005-waers
wa_zycbt007-waersb
itab_zycbe033-kursf.
ENDIF.
IF /pws/zycbt089-tx_desm_cli EQ 'VIATRANS' AND
itab_zycbe033-kursf IS INITIAL.
* >> Início da inclusão: FORM DESMEMBRA_CLIENTE
PERFORM verify_null_field USING itab_zycbe033-kursf
'KURSF'
text-080.
ENDIF.
IF /pws/zycbt089-tx_desm_cli EQ 'TXFAT'.
v_gjahr = itab_zycbt030-budat(4).
SELECT SINGLE kursf
FROM bkpf
INTO itab_zycbe033-kursf
WHERE bukrs = itab_zycbe033-bukrs
AND belnr = itab_zycbt030-belnr
AND gjahr = v_gjahr.
* << Fim da inclusão
PERFORM verify_null_field USING itab_zycbe033-kursf
'KURSF'
text-080.
ENDIF.
IF NOT /pws/zycbe005-j_1bbranch IS INITIAL.
PERFORM verifica_pais_filial USING /pws/zycbe005-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
ELSE.
PERFORM local_negocio.
...
...
ENDIF.
ENDFORM.
FORM determina_fator CHANGING e_parafator
e_defator.
SELECT SINGLE ffact tfact
FROM tcurf
INTO (e_parafator,
e_defator)
WHERE fcurr = itab_zycbt005-waers
AND tcurr = itab_zycbt005-waers_c
* >> Início da exclusão: FORM DETERMINA_FATOR
AND gdatu >= sy-datum."#EC PORTABLE
* << Fim da exclusão
* >> Início da inclusão: FORM DETERMINA_FATOR
AND gdatu >= sy-datum. "#EC PORTABLE
* << Fim da inclusão
ENDFORM.
FORM contabiliza_cp_arbitr.
DATA: v_linha TYPE i.
PERFORM get_parameters_cp.
PERFORM get_parameters_arbitr.
CLEAR wa_zycbt005.
CLEAR itab_belnr.
REFRESH itab_belnr.
MOVE itab_zycbt005 TO wa_zycbt005.
LOOP AT itab_zycbt030 WHERE nrinvoic = wa_zycbt005-nrinvoic AND
...