CE PLUS - Nota 007611
Módulo: CÂMBIO IMPORTAÇÃO
Funcionalidade: Rotina Mensal
Data/Hora da Publicação: 20/11/2008 00:00:00
Data/Hora Última Alteração: 04/03/2010 15:21:50
Descrição da Nota: ROTINA MENSAL - NÃO BUSCA CORRETAMENTE DADOS TAB.PARAMETRO /PWS/ZYCBT011
Sintoma
Programa de rotina mensal-importação , exportação, financeiro - não busca dados da tabela de
parametros /PWS/ZYCBT011 por empresa
Solução
buscar a tabela de parametros /PWS/ZYCBT011 por empresa .
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07611 Data: 20/11/2008 Hora: 11:40:16
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07611
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00074
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
ROTINA MENSAL - NÃO BUSCA CORRETAMENTE DADOS TAB.PARAMETRO /PWS/ZYCBT011
----------------------------------------------------------------------------------------------------
Palavras Chave:
ROTINA MENSAL - NÃO BUSCA CORRETAMENTE DADOS TAB.PARAMETRO /PWS/ZYCBT011
IMPORTAÇÃO, EXPORTAÇÃO , FINANCEIRO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCBI003
REPS /PWS/ZYCBI112
REPS /PWS/ZYCBI113
REPS /PWS/ZYCBR003
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBI003
...
SELECT SINGLE * FROM /pws/zycbt007
INTO wa_zycbt007
WHERE bukrs EQ s_bukrs.
ENDIF.
CLEAR itab_zycbt011.
SELECT * FROM /pws/zycbt011
INTO TABLE itab_zycbt011
WHERE ( codeven LIKE '005%'
OR codeven LIKE '008%'
OR codeven LIKE '025%' )
* >> Início da exclusão: FORM GET_PARAMETERS_001
AND codmod = 'E'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_001
AND codmod = 'E'
AND bukrs = S_BUKRS .
* << Fim da inclusão
ENDFORM.
FORM preenche_contas.
DATA: v_dtinicio LIKE sy-datum,
v_dtfinal LIKE sy-datum,
v_nrdias TYPE i,
v_prazo,
v_tpcontr LIKE /pws/zycbt001-tpcontr.
DATA: v_codaux1 LIKE /pws/zyglt316-codaux1,
v_codaux2 LIKE /pws/zyglt316-codaux2,
v_codaux3 LIKE /pws/zyglt316-codaux3.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBI112
...
REFRESH itab_zycbt013.
SELECT * FROM /pws/zycbt013
INTO TABLE itab_zycbt013
WHERE tabela = '/PWS/ZYCBT006'.
CLEAR itab_zycbt011.
SELECT * FROM /pws/zycbt011
INTO TABLE itab_zycbt011
WHERE ( codeven LIKE '001%'
OR codeven LIKE '002%'
OR codeven LIKE '003%' )
* >> Início da exclusão: FORM GET_PARAMETERS_001
AND codmod = 'I'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_001
AND codmod = 'I'
AND bukrs = S_BUKRS .
* << Fim da inclusão
ENDFORM.
FORM preenche_contas.
CLEAR itab_zycbt011.
v_codeven = '003I'.
READ TABLE itab_zycbt011 WITH KEY codeven = v_codeven.
itab_relat-blartir = itab_zycbt011-blart.
itab_relat-d_sgtxtir = itab_zycbt011-txtdesc.
itab_relat-c_sgtxtir = itab_zycbt011-txtdesc.
CLEAR: itab_zyglt316.
REFRESH: itab_zyglt316.
...
...
MESSAGE i061 WITH itab_zycbt034-descricao.
ENDLOOP.
ENDIF.
ENDIF.
ENDFORM.
FORM get_parameters_f-51t.
CLEAR wa_zycbt011.
SELECT SINGLE * FROM /pws/zycbt011
INTO wa_zycbt011
WHERE codeven = '001T'
* >> Início da exclusão: FORM GET_PARAMETERS_F-51T
AND codmod = 'I'. "#EC *
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F-51T
AND codmod = 'I' "#EC *
AND bukrs = S_BUKRS .
* << Fim da inclusão
ENDFORM.
FORM clear_date_batch.
CLEAR: itab_zycbt032,
itab_zycbe033,
itab_zycbt034,
itab_zycbt036.
REFRESH: itab_zycbt032,
itab_zycbe033,
itab_zycbt034,
itab_zycbt036.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBI113
...
REFRESH itab_zycbt013.
SELECT * FROM /pws/zycbt013
INTO TABLE itab_zycbt013
WHERE tabela = '/PWS/ZYCBT006'.
CLEAR itab_zycbt011.
SELECT * FROM /pws/zycbt011
INTO TABLE itab_zycbt011
WHERE ( codeven LIKE '001%'
OR codeven LIKE '002%'
OR codeven LIKE '003%' )
* >> Início da exclusão: FORM GET_PARAMETERS_001
AND codmod = 'F'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_001
AND codmod = 'F'
AND bukrs = S_BUKRS .
* << Fim da inclusão
REFRESH: itab_zycbt012.
IF NOT itab_zycbt011[] IS INITIAL.
SELECT * FROM /pws/zycbt012
INTO TABLE itab_zycbt012
FOR ALL ENTRIES IN itab_zycbt011
WHERE codeven = itab_zycbt011-codeven
AND codmod = itab_zycbt011-codmod.
ENDIF.
ENDFORM.
FORM preenche_contas.
...
...
ENDLOOP.
ENDIF.
ENDIF.
ENDFORM.
FORM get_parameters_f-51t.
CLEAR wa_zycbt011.
SELECT * FROM /pws/zycbt011
up to 1 rows
INTO wa_zycbt011
WHERE codeven = '001T'
* >> Início da exclusão: FORM GET_PARAMETERS_F-51T
AND codmod = 'F'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F-51T
AND codmod = 'F'
AND bukrs = S_BUKRS .
* << Fim da inclusão
endselect.
ENDFORM.
FORM clear_date_batch.
CLEAR: itab_zycbt032,
itab_zycbe033,
itab_zycbt034,
itab_zycbt036.
REFRESH: itab_zycbt032,
itab_zycbe033,
itab_zycbt034,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR003
...
FORM seleciona_taxa.
DATA:
v_kurst LIKE /pws/zycbt009-kurst.
CONCATENATE '005' itab_zycbt001-tpcontr INTO v_codeven.
CLEAR wa_zycbt011.
SELECT *
UP TO 1 ROWS
FROM /pws/zycbt011
INTO wa_zycbt011
WHERE codeven = v_codeven AND
* >> Início da exclusão: FORM SELECIONA_TAXA
codmod = text-066.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_TAXA
codmod = text-066 AND
bukrs = S_BUKRS .
* << Fim da inclusão
ENDSELECT.
IF NOT s_bukrs IS INITIAL.
SELECT SINGLE *
FROM /pws/zycbt007
INTO wa_zycbt007
WHERE bukrs EQ s_bukrs.
ENDIF.
SELECT kurst
UP TO 1 ROWS
FROM /pws/zycbt009
...
...
v_prazo TYPE c,
v_codaux1 TYPE /pws/zyglt316-codaux1,
v_codaux2 TYPE /pws/zyglt316-codaux2,
v_codaux3 TYPE /pws/zyglt316-codaux3,
itab_contas TYPE STANDARD TABLE OF /pws/zyglt316
WITH HEADER LINE.
SELECT *
FROM /pws/zycbt011
APPENDING TABLE itab_zycbt011
WHERE codmod EQ 'E' AND
* >> Início da exclusão: FORM PREENCHE_CONTAS_COMISSAO
codeven EQ '004CM'.
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_CONTAS_COMISSAO
codeven EQ '004CM' and
bukrs = S_BUKRS .
* << Fim da inclusão
CASE itab_zycbt001-tpcontr+0(1).
WHEN 'P' OR 'S'.
v_dtfinal = itab_zycbt002c-dtfinal.
WHEN OTHERS.
v_dtfinal = itab_zycbt001-dtliquid.
ENDCASE.
v_nrdias = v_dtfinal - s_dtentr.
IF v_nrdias GT /pws/zyglt009-nrdias_cp.
v_prazo = 'L'.
ELSE.
...
...
FORM calcula_vlmi USING p_tpcontr
p_waers
p_vlmej
p_txc
CHANGING p_vlmij.
IF wa_zycbt011-ctmoed IS INITIAL.
CONCATENATE '005' p_tpcontr INTO v_codeven.
SELECT ctmoed UP TO 1 ROWS FROM /pws/zycbt011
INTO wa_zycbt011-ctmoed
WHERE codeven = v_codeven AND
* >> Início da exclusão: FORM CALCULA_VLMI
codmod = text-066.
* << Fim da exclusão
* >> Início da inclusão: FORM CALCULA_VLMI
codmod = text-066 AND
bukrs = S_BUKRS .
* << Fim da inclusão
ENDSELECT.
ENDIF.
READ TABLE itab_zycbt009 WITH KEY codpadr = wa_zycbt011-ctmoed+3(1).
IF sy-subrc NE 0 OR itab_zycbt009-kurst IS INITIAL.
itab_zycbt009-kurst = 'M'.
ENDIF.
CALL FUNCTION '/PWS/ZYCB_MONTANTE_CONVERTE'
EXPORTING
i_montante = p_vlmej
i_demoeda = p_waers
...