CE PLUS - Nota 004295
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 30/07/2007 00:00:00
Data/Hora Última Alteração: 03/02/2010 16:53:49
Descrição da Nota: NÃO ESTÁ SELECIONANDO OS REGISTROS NA /PWS/ZYCBT011 UTILIZANDO A EMPRESA
Sintoma
Quando geramos uma fatura de mercadoria e parametrizamos na tabela ZYGL011 o tipo de documento como
"KR" para a empresa solicitada, no momento de gerar a F-43 o sistema está buscando na tabela ZYCB011
a primeira empresa cadastrada e não está fazendo a consistência com o parâmetro de cada empresa.
Solução
Atualização do programa de fatura de mercadoria para que o sistema selecione corretamente o tipo de
documento parametrizado na tabela /PWS/ZYCBT011 levando em consideração a empresa.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04295 Data: 30/07/2007 Hora: 10:17:51
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04295
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00005
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
NÃO ESTÁ SELECIONANDO OS REGISTROS NA /PWS/ZYCBT011 UTILIZANDO A EMPRESA
----------------------------------------------------------------------------------------------------
Palavras Chave:
/PWS/ZYCBT011 - EMPRESA - EVENTOS - F-43 - FATURA - SELEÇÃO DE CONTA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F01
REPS /PWS/MZYCI003F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F01
...
REFRESH itab_zycbt013.
SELECT * FROM /pws/zycbt013 INTO TABLE itab_zycbt013
WHERE tabela = '/PWS/ZYCIT006'.
REFRESH: itab_zycbt012.
SELECT * FROM /pws/zycbt012 INTO TABLE itab_zycbt012
WHERE codeven = v_codeven
AND codmod = 'D'.
CLEAR wa_zycbt011.
SELECT SINGLE * FROM /pws/zycbt011 INTO wa_zycbt011
WHERE codeven = v_codeven
* >> Início da inclusão: FORM GET_PARAMETERS_F-43_F-02
and bukrs = /pws/zycie006-bukrs
* << Fim da inclusão
AND codmod = 'D'.
IF NOT itab_zycit130[] IS INITIAL AND /pws/zycie006-tpfatura = '05'.
LOOP AT itab_zycit130.
MOVE itab_zycit130-motivo TO itab_zycit130-motivo2.
MODIFY itab_zycit130.
ENDLOOP.
SELECT * FROM t030 INTO TABLE itab_t030
FOR ALL ENTRIES IN itab_zycit130
WHERE ktopl = 'PCPB'
AND ktosl = 'ZDI'
...
...
/pws/zycie006-tpfatura = '02'.
v_codeven = '001NF'.
v_trans = 'F-43'.
ELSEIF /pws/zycie006-frpagto = 'P' AND
/pws/zycie006-tpfatura = '03'.
v_codeven = '001NS'.
v_trans = 'F-43'.
ENDIF.
SELECT SINGLE * FROM /pws/zycbt011 INTO wa_zycbt011
WHERE codeven = v_codeven
* >> Início da inclusão: FORM BUSCA_TAXA_DIA
and bukrs = /pws/zycie006-bukrs
* << Fim da inclusão
AND codmod = 'D'.
ENDIF.
IF /pws/zycit000-kurst IS INITIAL.
v_kurst = 'M'.
ELSE.
v_kurst = /pws/zycit000-kurst.
ENDIF.
SELECT SINGLE * FROM /pws/zycit286 WHERE tpfatura =
/pws/zycie006-tpfatura.
IF /pws/zycit286-conversao = 'DTDOC'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
PERFORM clear_date_batch.
SELECT SINGLE * FROM /pws/zycit048
WHERE bukrs EQ /pws/zycie006-bukrs.
FREE itab_zycit033.
SELECT * FROM /pws/zycit033
INTO TABLE itab_zycit033.
SELECT SINGLE * FROM t001w
WHERE werks = /pws/zycie001-werks.
v_clnf = 'G'.
SELECT SINGLE * FROM /pws/zycbt011 INTO wa_zycbt011
* >> Início da exclusão: FORM GET_PARAMETERS_MRM1_RECEB
WHERE codeven = '006C'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_MRM1_RECEB
WHERE codeven = '006C'
and bukrs = /pws/zycie006-bukrs .
* << Fim da inclusão
ENDFORM.
FORM get_parameters_mb01_receb.
PERFORM clear_date_batch.
ENDFORM.
FORM multiplos_lancamentos_f_51.
DATA: v_index TYPE i,
v_montante LIKE /pws/zycbe035-wrbtr.
FREE itab_ekkn.
IF NOT itab_zycit003[] IS INITIAL.
SELECT ebeln ebelp prctr kostl kokrs fistl fipos aufnr ps_psp_pnr
...
...
WHERE tabela = '/PWS/ZYCIT006'.
REFRESH: itab_zycbt012.
SELECT * FROM /pws/zycbt012
INTO TABLE itab_zycbt012
WHERE codeven = v_codeven
AND codmod = 'D'.
CLEAR wa_zycbt011.
SELECT SINGLE * FROM /pws/zycbt011
INTO wa_zycbt011
WHERE codeven = v_codeven
* >> Início da inclusão: FORM GET_PARAMETERS_F-51
and bukrs = /pws/zycie006-bukrs
* << Fim da inclusão
AND codmod = 'D'.
LOOP AT itab_zycbt035.
v_index = sy-tabix.
IF itab_zycbt035-bschl EQ '50'.
IF ( t001-land1 = 'AR' OR t001-land1 = 'CL' ).
IF itab_zycbt035-knttp EQ 'F' OR itab_zycbt035-knttp EQ 'K'.
itab_zycbt035-matuse = 3.
ELSE.
itab_zycbt035-matuse = 0.
ENDIF.
...
...
EXIT.
ENDIF.
FREE: itab_contas_aux.
itab_contas_aux[] = itab_contas[].
itab_zycbe033_aux[] = itab_zycbe033[].
PERFORM get_parameters_mrm1_receb.
CASE /pws/zycie006-tpfatura.
WHEN '01'.
SELECT SINGLE * FROM /pws/zycbt011 INTO wa_zycbt011
WHERE codeven = '001N'
* >> Início da exclusão: FORM MIRO_AM_LA
AND codmod EQ 'D'
AND bukrs EQ /pws/zycit006-bukrs.
* << Fim da exclusão
* >> Início da inclusão: FORM MIRO_AM_LA
and bukrs = /pws/zycie006-bukrs
AND codmod EQ 'D'.
* << Fim da inclusão
IF sy-subrc NE 0.
SELECT SINGLE * FROM /pws/zycbt011 INTO wa_zycbt011
WHERE codeven = '001N'
AND codmod EQ 'D'.
ENDIF.
WHEN '02'.
SELECT SINGLE * FROM /pws/zycbt011 INTO wa_zycbt011
WHERE codeven = '001NF'
AND codmod EQ 'D'
* >> Início da exclusão: FORM MIRO_AM_LA
AND bukrs EQ /pws/zycit006-bukrs.
* << Fim da exclusão
* >> Início da inclusão: FORM MIRO_AM_LA
and bukrs = /pws/zycie006-bukrs .
* << Fim da inclusão
IF sy-subrc NE 0.
SELECT SINGLE * FROM /pws/zycbt011 INTO wa_zycbt011
WHERE codeven = '001NF'
AND codmod EQ 'D'.
ENDIF.
WHEN '03'.
SELECT SINGLE * FROM /pws/zycbt011 INTO wa_zycbt011
WHERE codeven = '001NS'
AND codmod EQ 'D'
* >> Início da exclusão: FORM MIRO_AM_LA
AND bukrs EQ /pws/zycit006-bukrs.
* << Fim da exclusão
* >> Início da inclusão: FORM MIRO_AM_LA
and bukrs = /pws/zycie006-bukrs .
* << Fim da inclusão
IF sy-subrc NE 0.
SELECT SINGLE * FROM /pws/zycbt011 INTO wa_zycbt011
WHERE codeven = '001NS'
AND codmod EQ 'D'.
ENDIF.
WHEN '04'.
SELECT SINGLE * FROM /pws/zycbt011 INTO wa_zycbt011
WHERE codeven = '001NO'
AND codmod EQ 'D'
* >> Início da exclusão: FORM MIRO_AM_LA
AND bukrs EQ /pws/zycit006-bukrs.
* << Fim da exclusão
* >> Início da inclusão: FORM MIRO_AM_LA
and bukrs = /pws/zycie006-bukrs .
* << Fim da inclusão
IF sy-subrc NE 0.
SELECT SINGLE * FROM /pws/zycbt011 INTO wa_zycbt011
WHERE codeven = '001NO'
AND codmod EQ 'D'.
ENDIF.
ENDCASE.
SELECT * FROM /pws/zycit030
INTO TABLE itab_zycit030
WHERE bukrs = /pws/zycie006-bukrs.
IF /pws/zycie006-tpfatura NE '01'.
...