CE PLUS - Nota 001328
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: LI
Data/Hora da Publicação: 12/05/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:37:47
Descrição da Nota: EMPRESA NÃO APARECE AO CRIAR LI OU PLI
Sintoma
Ao colocar a empresa no SU01 não está levando para a LI ou PLI e após ter criado uma PLI ou LI e na
sequencia criar um outro documento de LI ou PLI o sistema está levando a Empresa do documento criado
anteriormente.
Solução
Foi inserida uma variável para armazenar a empresa padrão e após o usuário selecionar outra empresa
e gravar o documento, a variável é gravada novamente como padrão, voltando ao que era antes.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01328 Data: 12/05/2006 Hora: 10:04:46
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01328
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00113
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
EMPRESA NÃO APARECE AO CRIAR LI OU PLI
----------------------------------------------------------------------------------------------------
Palavras Chave:
EMPRESA - LI - PLI - SU01
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020I01
REPS /PWS/MZYCI020O01
REPS /PWS/MZYCI020TOP
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020O01
...
ELSEIF v_tcode EQ '/PWS/ZYCI020_E'.
SET TITLEBAR '0100E'.
ENDIF.
ENDMODULE.
MODULE load_data OUTPUT.
* >> Início da inclusão: MODULE LOAD_DATA
data: flag_emp type c.
if flag_emp is initial.
GET PARAMETER ID 'BUK' FIELD v_emp.
flag_emp = 'X'.
endif.
* << Fim da inclusão
IF v_tcode EQ '/PWS/ZYCI020_C' OR
v_tcode EQ '/PWS/ZYCI020_P'.
clear v_linhas.
* >> Início da inclusão: MODULE LOAD_DATA
GET PARAMETER ID 'BUK' FIELD /PWS/ZYCIE078-BUKRS.
* << Fim da inclusão
IF /pws/zycie078-bukrs IS INITIAL.
Select count( * ) into v_linhas from /pws/zycbt007.
if not v_linhas >= 2.
SELECT SINGLE bukrs
FROM /pws/zycbt007
INTO /pws/zycie078-bukrs.
wa_zycit078-bukrs = /pws/zycie078-bukrs.
endif.
* >> Início da inclusão: MODULE LOAD_DATA
ENDIF.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: MODULE LOAD_DATA
SET PARAMETER ID 'BUK' FIELD v_emp.
* << Fim da inclusão
* >> Início da exclusão: MODULE LOAD_DATA
ENDIF.
* << Fim da exclusão
IF /pws/zycit000 IS INITIAL.
SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie078-bukrs.
SELECT SINGLE * FROM /pws/zycit000
WHERE land1 EQ t001-land1.
ENDIF.
...
...
ENDIF.
ENDMODULE.
MODULE load_data_pli OUTPUT.
SET PARAMETER ID 'LND' FIELD ' '.
SET PARAMETER ID 'FWS' FIELD ' '.
* >> Início da inclusão: MODULE LOAD_DATA_PLI
if flag_emp is initial.
GET PARAMETER ID 'BUK' FIELD v_emp.
flag_emp = 'X'.
endif.
* << Fim da inclusão
IF v_tcode EQ '/PWS/ZYCI020_I'.
clear v_linhas.
IF /pws/zycie078-bukrs IS INITIAL.
Select count( * ) into v_linhas from /pws/zycbt007.
if not v_linhas >= 2.
...
...
INTO /pws/zycie078-bukrs.
wa_zycit078-bukrs = /pws/zycie078-bukrs.
endif.
ENDIF.
ENDIF.
* >> Início da inclusão: MODULE LOAD_DATA_PLI
SET PARAMETER ID 'BUK' FIELD v_emp.
* << Fim da inclusão
IF /pws/zycit274 IS INITIAL.
SELECT SINGLE * FROM /pws/zycit274
WHERE nomeacao EQ '04'.
ENDIF.
IF NOT /pws/zycit274-autonome IS INITIAL AND
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020TOP
...
v_steuc2 LIKE /pws/zycit078-steuc2,
v_steuc_temp1(8),
v_steuc_temp2(8) ,
v_steuc_temp3(8),
v_executou,
* >> Início da exclusão:
v_incentivo.
* << Fim da exclusão
* >> Início da inclusão:
v_incentivo,
v_emp like /pws/zycbt007-bukrs.
* << Fim da inclusão
SELECTION-SCREEN BEGIN OF SCREEN 0300.
PARAMETERS: pa_bukrs LIKE /pws/zycie078-bukrs DEFAULT
/pws/zycie078-bukrs.
SELECT-OPTIONS:
so_ncm FOR /pws/zycie078-steuc1
...