CE PLUS - Nota 005310
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Dados Adicionais
Data/Hora da Publicação: 26/11/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 10:17:20
Descrição da Nota: ADAPTAÇÃO DO PROGRAMA DADOS ADICIONAIS PARA EMBARQUE POR FORNECIMENTO
Sintoma
Necessária a adaptação do programa Dados Adicionais para atender a cenários onde a ordem de venda
não está preenchida no item do Embarque: Embarque de Fornecimento e Embarque de Pedido de Compra.
Solução
Alteração do programa para atender cenários de Embarque de Fornecimento e Embarque de Pedido de
Compra.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05310 Data: 26/11/2007 Hora: 15:57:32
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05310
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00023
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
05227 - 00001 - 7.0 - 00003 - VINCULAÇÃO DO REGISTRO DE VENDA PELO NÚMERO DO EMBARQUE.
05297 - 00002 - 7.0 - 00003 - NOMEAÇÃO / VINCULAÇÃO POR FORNECIMENTO
05298 - 00003 - 7.0 - 00003 - AJUSTES PARA PADRONIZAÇÃO DE CÓDIGO DO PROGRAMA DADOS ADICIONAIS.
----------------------------------------------------------------------------------------------------
ADAPTAÇÃO DO PROGRAMA DADOS ADICIONAIS PARA EMBARQUE POR FORNECIMENTO
----------------------------------------------------------------------------------------------------
Palavras Chave:
DADOS, ADICIONAIS, EMBARQUE, FORNECIMENTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCE038 0107
REPS /PWS/MZYCE038F01
REPS /PWS/MZYCE038O01
REPS /PWS/MZYCE038TOP
TABD /PWS/ZYCEE056
TABD /PWS/ZYCET056
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCE038 0107
INCLUIR CAMPOS:
INCLUIR CAMPO: /PWS/ZYCEE056-VBELN_VL
ELEMENTO TELA: Cpo.Texto
NOME : /PWS/ZYCEE056-VBELN_VL
TEXTO: Fornecimento
LINHA: 1 COLUNA: 3
COMPR.DEF.: 12 COMPR.VIS.: 14
ALTURA: 1
"GRUPOS: _____;_____;_____;_____
DICIONÁRIO:
FORMATO: CHAR
(X) - DO DICT. MODIFIC.: F
EXIT CONVERS.:
AJUDA PESQ.:
CPO. REF. DE:
ID PARÂMETRO:
(_) - PARÂMETRO SET
(_) - PARÂMETRO GET
(_) - VERIF. CHAVE EXTERNA
(_) - LETRAS MAIÚSCULAS/MINÚSCULAS
PROGRAMA:
(_) - CAMPO DE ENTRADA
(_) - CAMPO DE SAÍDA
(_) - SÓ CAMPO DE SAÍDA
(_) - CAMPO OBRIGATÓRIO
(_) - ENTRS. POSSÍVEIS BOTÃO ENTRS.POSS.:
(_) - ALINH. DIREITA
(_) - ZEROS À ESQUERDA
(_) - ENTRADAS*
(_) - SEM ANULAÇÃO
(_) - SEM PADRÃO
EXIBIÇÃO:
(_) - FONTE EQUIDISTANTE
(_) - VISÍVEL
(_) - OCULTO
(_) - BIDIMENSIONAL
(_) - COM DENOM. À ESQUERDA
(_) - COM DENOM. À DIREITA
INCLUIR CAMPO: /PWS/ZYCEE056-VBELN_VL
ELEMENTO TELA: Cpo.entr./saída
NOME : /PWS/ZYCEE056-VBELN_VL
TEXTO: __________
LINHA: 1 COLUNA: 3
COMPR.DEF.: 10 COMPR.VIS.: 14
ALTURA: 1
"GRUPOS: EFO;_____;_____;_____
DICIONÁRIO:
FORMATO: CHAR
(X) - DO DICT. MODIFIC.:
EXIT CONVERS.: ALPHA
AJUDA PESQ.:
CPO. REF. DE:
ID PARÂMETRO: VL
(X) - PARÂMETRO SET
(X) - PARÂMETRO GET
(_) - VERIF. CHAVE EXTERNA
(_) - LETRAS MAIÚSCULAS/MINÚSCULAS
PROGRAMA:
(_) - CAMPO DE ENTRADA
(X) - CAMPO DE SAÍDA
(X) - SÓ CAMPO DE SAÍDA
(_) - CAMPO OBRIGATÓRIO
(_) - ENTRS. POSSÍVEIS BOTÃO ENTRS.POSS.:
(_) - ALINH. DIREITA
(_) - ZEROS À ESQUERDA
(_) - ENTRADAS*
(_) - SEM ANULAÇÃO
(_) - SEM PADRÃO
EXIBIÇÃO:
(_) - FONTE EQUIDISTANTE
(_) - VISÍVEL
(_) - OCULTO
(_) - BIDIMENSIONAL
(_) - COM DENOM. À ESQUERDA
(_) - COM DENOM. À DIREITA
INCLUIR CAMPO: /PWS/ZYCEE056-POSNL
ELEMENTO TELA: Cpo.Texto
NOME : /PWS/ZYCEE056-POSNL
TEXTO: Item_Fornec.
LINHA: 1 COLUNA: 4
COMPR.DEF.: 12 COMPR.VIS.: 12
ALTURA: 1
"GRUPOS: _____;_____;_____;_____
DICIONÁRIO:
FORMATO: CHAR
(X) - DO DICT. MODIFIC.: F
EXIT CONVERS.:
AJUDA PESQ.:
CPO. REF. DE:
ID PARÂMETRO:
(_) - PARÂMETRO SET
(_) - PARÂMETRO GET
(_) - VERIF. CHAVE EXTERNA
(_) - LETRAS MAIÚSCULAS/MINÚSCULAS
PROGRAMA:
(_) - CAMPO DE ENTRADA
(_) - CAMPO DE SAÍDA
(_) - SÓ CAMPO DE SAÍDA
(_) - CAMPO OBRIGATÓRIO
(_) - ENTRS. POSSÍVEIS BOTÃO ENTRS.POSS.:
(_) - ALINH. DIREITA
(_) - ZEROS À ESQUERDA
(_) - ENTRADAS*
(_) - SEM ANULAÇÃO
(_) - SEM PADRÃO
EXIBIÇÃO:
(_) - FONTE EQUIDISTANTE
(_) - VISÍVEL
(_) - OCULTO
(_) - BIDIMENSIONAL
(_) - COM DENOM. À ESQUERDA
(_) - COM DENOM. À DIREITA
INCLUIR CAMPO: /PWS/ZYCEE056-POSNL
ELEMENTO TELA: Cpo.entr./saída
NOME : /PWS/ZYCEE056-POSNL
TEXTO: ______
LINHA: 1 COLUNA: 4
COMPR.DEF.: 6 COMPR.VIS.: 12
ALTURA: 1
"GRUPOS: EFO;_____;_____;_____
DICIONÁRIO:
FORMATO: NUMC
(X) - DO DICT. MODIFIC.:
EXIT CONVERS.:
AJUDA PESQ.:
CPO. REF. DE:
ID PARÂMETRO:
(X) - PARÂMETRO SET
(X) - PARÂMETRO GET
(_) - VERIF. CHAVE EXTERNA
(_) - LETRAS MAIÚSCULAS/MINÚSCULAS
PROGRAMA:
(_) - CAMPO DE ENTRADA
(X) - CAMPO DE SAÍDA
(X) - SÓ CAMPO DE SAÍDA
(_) - CAMPO OBRIGATÓRIO
(_) - ENTRS. POSSÍVEIS BOTÃO ENTRS.POSS.:
(_) - ALINH. DIREITA
(_) - ZEROS À ESQUERDA
(_) - ENTRADAS*
(_) - SEM ANULAÇÃO
(_) - SEM PADRÃO
EXIBIÇÃO:
(_) - FONTE EQUIDISTANTE
(_) - VISÍVEL
(_) - OCULTO
(_) - BIDIMENSIONAL
(_) - COM DENOM. À ESQUERDA
(_) - COM DENOM. À DIREITA
INCLUIR CAMPO: /PWS/ZYCEE056-EBELN
ELEMENTO TELA: Cpo.Texto
NOME : /PWS/ZYCEE056-EBELN
TEXTO: Pedido
LINHA: 1 COLUNA: 5
COMPR.DEF.: 6 COMPR.VIS.: 13
ALTURA: 1
"GRUPOS: _____;_____;_____;_____
DICIONÁRIO:
FORMATO: CHAR
(X) - DO DICT. MODIFIC.: F
EXIT CONVERS.:
AJUDA PESQ.:
CPO. REF. DE:
ID PARÂMETRO:
(_) - PARÂMETRO SET
(_) - PARÂMETRO GET
(_) - VERIF. CHAVE EXTERNA
(_) - LETRAS MAIÚSCULAS/MINÚSCULAS
PROGRAMA:
(_) - CAMPO DE ENTRADA
(_) - CAMPO DE SAÍDA
(_) - SÓ CAMPO DE SAÍDA
(_) - CAMPO OBRIGATÓRIO
(_) - ENTRS. POSSÍVEIS BOTÃO ENTRS.POSS.:
(_) - ALINH. DIREITA
(_) - ZEROS À ESQUERDA
(_) - ENTRADAS*
(_) - SEM ANULAÇÃO
(_) - SEM PADRÃO
EXIBIÇÃO:
(_) - FONTE EQUIDISTANTE
(_) - VISÍVEL
(_) - OCULTO
(_) - BIDIMENSIONAL
(_) - COM DENOM. À ESQUERDA
(_) - COM DENOM. À DIREITA
INCLUIR CAMPO: /PWS/ZYCEE056-EBELN
ELEMENTO TELA: Cpo.entr./saída
NOME : /PWS/ZYCEE056-EBELN
TEXTO: __________
LINHA: 1 COLUNA: 5
COMPR.DEF.: 10 COMPR.VIS.: 13
ALTURA: 1
"GRUPOS: EPC;_____;_____;_____
DICIONÁRIO:
FORMATO: CHAR
(X) - DO DICT. MODIFIC.:
EXIT CONVERS.: ALPHA
AJUDA PESQ.:
CPO. REF. DE:
ID PARÂMETRO: BES
(X) - PARÂMETRO SET
(X) - PARÂMETRO GET
(_) - VERIF. CHAVE EXTERNA
(_) - LETRAS MAIÚSCULAS/MINÚSCULAS
PROGRAMA:
(_) - CAMPO DE ENTRADA
(X) - CAMPO DE SAÍDA
(X) - SÓ CAMPO DE SAÍDA
(_) - CAMPO OBRIGATÓRIO
(_) - ENTRS. POSSÍVEIS BOTÃO ENTRS.POSS.:
(_) - ALINH. DIREITA
(_) - ZEROS À ESQUERDA
(_) - ENTRADAS*
(_) - SEM ANULAÇÃO
(_) - SEM PADRÃO
EXIBIÇÃO:
(_) - FONTE EQUIDISTANTE
(_) - VISÍVEL
(_) - OCULTO
(_) - BIDIMENSIONAL
(_) - COM DENOM. À ESQUERDA
(_) - COM DENOM. À DIREITA
INCLUIR CAMPO: /PWS/ZYCEE056-EBELP
ELEMENTO TELA: Cpo.Texto
NOME : /PWS/ZYCEE056-EBELP
TEXTO: Item_Ped.
LINHA: 1 COLUNA: 6
COMPR.DEF.: 9 COMPR.VIS.: 10
ALTURA: 1
"GRUPOS: _____;_____;_____;_____
DICIONÁRIO:
FORMATO: CHAR
(X) - DO DICT. MODIFIC.: F
EXIT CONVERS.:
AJUDA PESQ.:
CPO. REF. DE:
ID PARÂMETRO:
(_) - PARÂMETRO SET
(_) - PARÂMETRO GET
(_) - VERIF. CHAVE EXTERNA
(_) - LETRAS MAIÚSCULAS/MINÚSCULAS
PROGRAMA:
(_) - CAMPO DE ENTRADA
(_) - CAMPO DE SAÍDA
(_) - SÓ CAMPO DE SAÍDA
(_) - CAMPO OBRIGATÓRIO
(_) - ENTRS. POSSÍVEIS BOTÃO ENTRS.POSS.:
(_) - ALINH. DIREITA
(_) - ZEROS À ESQUERDA
(_) - ENTRADAS*
(_) - SEM ANULAÇÃO
(_) - SEM PADRÃO
EXIBIÇÃO:
(_) - FONTE EQUIDISTANTE
(_) - VISÍVEL
(_) - OCULTO
(_) - BIDIMENSIONAL
(_) - COM DENOM. À ESQUERDA
(_) - COM DENOM. À DIREITA
INCLUIR CAMPO: /PWS/ZYCEE056-EBELP
ELEMENTO TELA: Cpo.entr./saída
NOME : /PWS/ZYCEE056-EBELP
TEXTO: _____
LINHA: 1 COLUNA: 6
COMPR.DEF.: 5 COMPR.VIS.: 10
ALTURA: 1
"GRUPOS: EPC;_____;_____;_____
DICIONÁRIO:
FORMATO: NUMC
(X) - DO DICT. MODIFIC.:
EXIT CONVERS.:
AJUDA PESQ.:
CPO. REF. DE:
ID PARÂMETRO:
(X) - PARÂMETRO SET
(X) - PARÂMETRO GET
(_) - VERIF. CHAVE EXTERNA
(_) - LETRAS MAIÚSCULAS/MINÚSCULAS
PROGRAMA:
(_) - CAMPO DE ENTRADA
(X) - CAMPO DE SAÍDA
(X) - SÓ CAMPO DE SAÍDA
(_) - CAMPO OBRIGATÓRIO
(_) - ENTRS. POSSÍVEIS BOTÃO ENTRS.POSS.:
(_) - ALINH. DIREITA
(_) - ZEROS À ESQUERDA
(_) - ENTRADAS*
(_) - SEM ANULAÇÃO
(_) - SEM PADRÃO
EXIBIÇÃO:
(_) - FONTE EQUIDISTANTE
(_) - VISÍVEL
(_) - OCULTO
(_) - BIDIMENSIONAL
(_) - COM DENOM. À ESQUERDA
(_) - COM DENOM. À DIREITA
MODIFICAR CAMPOS:
MODIFICAR CAMPO: /PWS/ZYCEE056-VBELN_VA
ELEMENTO TELA: Cpo.entr./saída
NOME : /PWS/ZYCEE056-VBELN_VA
TEXTO: __________
LINHA: 1 COLUNA: 1
COMPR.DEF.: 10 COMPR.VIS.: 14
ALTURA: 1
"GRUPOS: EOV;_____;_____;_____
DICIONÁRIO:
FORMATO: CHAR
(X) - DO DICT. MODIFIC.:
EXIT CONVERS.: ALPHA
AJUDA PESQ.:
CPO. REF. DE:
ID PARÂMETRO:
(X) - PARÂMETRO SET
(X) - PARÂMETRO GET
(_) - VERIF. CHAVE EXTERNA
(_) - LETRAS MAIÚSCULAS/MINÚSCULAS
PROGRAMA:
(_) - CAMPO DE ENTRADA
(X) - CAMPO DE SAÍDA
(X) - SÓ CAMPO DE SAÍDA
(_) - CAMPO OBRIGATÓRIO
(_) - ENTRS. POSSÍVEIS BOTÃO ENTRS.POSS.:
(_) - ALINH. DIREITA
(_) - ZEROS À ESQUERDA
(_) - ENTRADAS*
(_) - SEM ANULAÇÃO
(_) - SEM PADRÃO
EXIBIÇÃO:
(_) - FONTE EQUIDISTANTE
(_) - VISÍVEL
(_) - OCULTO
(_) - BIDIMENSIONAL
(_) - COM DENOM. À ESQUERDA
(_) - COM DENOM. À DIREITA
MODIFICAR CAMPO: /PWS/ZYCEE056-AUPOS
ELEMENTO TELA: Cpo.entr./saída
NOME : /PWS/ZYCEE056-AUPOS
TEXTO: ______
LINHA: 1 COLUNA: 2
COMPR.DEF.: 6 COMPR.VIS.: 9
ALTURA: 1
"GRUPOS: EOV;_____;_____;_____
DICIONÁRIO:
FORMATO: NUMC
(X) - DO DICT. MODIFIC.:
EXIT CONVERS.:
AJUDA PESQ.:
CPO. REF. DE:
ID PARÂMETRO:
(X) - PARÂMETRO SET
(X) - PARÂMETRO GET
(_) - VERIF. CHAVE EXTERNA
(_) - LETRAS MAIÚSCULAS/MINÚSCULAS
PROGRAMA:
(_) - CAMPO DE ENTRADA
(X) - CAMPO DE SAÍDA
(X) - SÓ CAMPO DE SAÍDA
(_) - CAMPO OBRIGATÓRIO
(_) - ENTRS. POSSÍVEIS BOTÃO ENTRS.POSS.:
(_) - ALINH. DIREITA
(_) - ZEROS À ESQUERDA
(_) - ENTRADAS*
(_) - SEM ANULAÇÃO
(_) - SEM PADRÃO
EXIBIÇÃO:
(_) - FONTE EQUIDISTANTE
(_) - VISÍVEL
(_) - OCULTO
(_) - BIDIMENSIONAL
(_) - COM DENOM. À ESQUERDA
(_) - COM DENOM. À DIREITA
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE038F01
...
MOVE /pws/zycee151-linha8 TO itab_problema-lines.
APPEND itab_problema.
MOVE /pws/zycee151-linha9 TO itab_problema-lines.
APPEND itab_problema.
MOVE /pws/zycee151-linha10 TO itab_problema-lines.
APPEND itab_problema.
ENDIF.
SELECT * FROM /pws/zycet023
INTO TABLE itab_zycet023.
IF NOT itab_zycet002[] IS INITIAL.
* >> Início da exclusão: FORM SELECIONA_DADOS
SELECT b~nrseqrv a~nrrv
b~vbeln_va b~posnr
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
SELECT b~nrseqrv
a~nrrv
b~nrseq
b~vbeln_va b~aupos
b~vbeln_vl b~posnl
b~vbeln_vf b~posnr
b~ebeln b~ebelp
* << Fim da inclusão
FROM /pws/zycet112 AS a "#EC CI_BUFFJOIN
INNER JOIN /pws/zycet113 AS b "#EC CI_BUFFJOIN
ON a~nrseqrv = b~nrseqrv
INTO TABLE itab_rv
FOR ALL ENTRIES IN itab_zycet002
* >> Início da exclusão: FORM SELECIONA_DADOS
WHERE b~vbeln_va = itab_zycet002-vbeln_va
AND b~posnr = itab_zycet002-aupos.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
WHERE b~nrseq = itab_zycet002-nrseq.
* << Fim da inclusão
LOOP AT itab_rv.
READ TABLE itab_zycet049 WITH KEY nrseqrv = itab_rv-nrseqrv.
IF sy-subrc NE 0.
MOVE : /pws/zycee001-nrseq TO itab_zycet049-nrseq,
itab_rv-nrseqrv TO itab_zycet049-nrseqrv,
itab_rv-nrrv TO itab_zycet049-nrrv.
APPEND itab_zycet049.
ELSE.
MOVE : itab_rv-nrrv TO itab_zycet049-nrrv.
MODIFY itab_zycet049 TRANSPORTING nrrv
...
...
DATA v_vinc(1) TYPE c.
DATA: nrseqtr_tela TYPE /pws/zycet046-nrseqtr,
nrrota_tr_tela TYPE /pws/zycet046-nrrota_tr,
nrseqno_tela TYPE /pws/zycet046-nrseqno,
nrseqcg_tela TYPE /pws/zycet046-nrseqcg.
nrseqtr_tela = /pws/zycee046-nrseqtr.
nrrota_tr_tela = /pws/zycee046-nrrota_tr.
nrseqno_tela = /pws/zycee046-nrseqno.
nrseqcg_tela = /pws/zycee046-nrseqcg.
READ TABLE itab_zycet002_102 INDEX 1.
* >> Início da inclusão: FORM BUSCA_ROTA
IF /pws/zycee001-tipo_emb = 'D'.
IF NOT itab_zycet002_102-ebeln IS INITIAL.
SELECT *
FROM /pws/zycet135
UP TO 1 ROWS
INTO /pws/zycet135
WHERE ebeln = itab_zycet002_102-ebeln. "#EC CI_NOFIRST
ENDSELECT.
IF sy-subrc = 0.
MOVE /pws/zycet135-nrseqno TO /pws/zycee046-nrseqno.
SELECT SINGLE * FROM /pws/zycet106 INTO /pws/zycet106
WHERE nrseqno = /pws/zycet135-nrseqno.
IF sy-subrc = 0.
MOVE: /pws/zycet106-nrseqtr TO /pws/zycee046-nrseqtr,
/pws/zycet106-nrrota_tr TO /pws/zycee046-nrrota_tr.
ELSE.
CLEAR: /pws/zycee046-nrseqtr,
/pws/zycee046-nrrota_tr.
ENDIF.
ELSE.
CLEAR: /pws/zycee046-nrseqno,
/pws/zycee046-nrseqtr,
/pws/zycee046-nrrota_tr.
ENDIF.
ELSE.
* << Fim da inclusão
* >> Início da exclusão: FORM BUSCA_ROTA
IF /pws/zycee001-tipo_emb <> 'D'.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_ROTA
CLEAR: /pws/zycee046-nrseqno,
/pws/zycee046-nrseqtr,
/pws/zycee046-nrrota_tr.
ENDIF.
ELSE.
* << Fim da inclusão
IF NOT itab_zycet002_102[] IS INITIAL.
CLEAR v_vinc.
LOOP AT itab_zycet002_102.
* >> Início da inclusão: FORM BUSCA_ROTA
IF /pws/zycee001-tipo_emb EQ 'F'.
CHECK NOT itab_zycet002_102-vbeln_vl IS INITIAL AND
NOT v_vinc = 'X'.
ELSE.
* << Fim da inclusão
CHECK NOT itab_zycet002_102-vbeln_va IS INITIAL AND
NOT v_vinc = 'X'.
* >> Início da inclusão: FORM BUSCA_ROTA
ENDIF.
* << Fim da inclusão
SELECT nrseqtr nrrota_tr nrseqno
FROM /pws/zycet108
UP TO 1 ROWS
INTO (/pws/zycee046-nrseqtr,
/pws/zycee046-nrrota_tr,
/pws/zycee046-nrseqno)
WHERE vbeln_va = itab_zycet002_102-vbeln_va
AND posnr = itab_zycet002_102-aupos.
ENDSELECT.
IF sy-subrc = 0.
...
...
ELSE.
SELECT nrseqtr nrrota_tr nrseqno
FROM /pws/zycet108
UP TO 1 ROWS
INTO (/pws/zycee046-nrseqtr,
/pws/zycee046-nrrota_tr,
/pws/zycee046-nrseqno)
WHERE vbeln_vl = itab_zycet002_102-vbeln_vl
AND posnr = itab_zycet002_102-posnl.
ENDSELECT.
* >> Início da inclusão: FORM BUSCA_ROTA
IF sy-subrc = 0.
v_vinc ='X'.
* << Fim da inclusão
ENDIF.
* >> Início da exclusão: FORM BUSCA_ROTA
ENDLOOP.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_ROTA
ENDIF.
ENDLOOP.
* << Fim da inclusão
SELECT nrseqcg
FROM /pws/zycet054
UP TO 1 ROWS
INTO /pws/zycee046-nrseqcg
* >> Início da exclusão: FORM BUSCA_ROTA
WHERE nrseq = /pws/zycee001-nrseq. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_ROTA
WHERE nrseq = /pws/zycee001-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
ENDSELECT.
IF /pws/zycee046-nrseqno IS INITIAL.
SELECT nrseqno
FROM /pws/zycet108
UP TO 1 ROWS
INTO (/pws/zycee046-nrseqno)
WHERE vbeln_va = itab_zycet002_102-vbeln_va AND
posnr = itab_zycet002_102-aupos.
* >> Início da exclusão: FORM BUSCA_ROTA
ENDSELECT.
ENDIF.
ENDIF.
ELSEIF /pws/zycee001-tipo_emb = 'D'.
IF NOT itab_zycet002_102-ebeln IS INITIAL.
SELECT *
FROM /pws/zycet135
UP TO 1 ROWS
INTO /pws/zycet135
WHERE ebeln = itab_zycet002_102-ebeln. "#EC CI_NOFIRST
* << Fim da exclusão
ENDSELECT.
* >> Início da exclusão: FORM BUSCA_ROTA
IF sy-subrc = 0.
MOVE /pws/zycet135-nrseqno TO /pws/zycee046-nrseqno.
SELECT SINGLE * FROM /pws/zycet106 INTO /pws/zycet106
WHERE nrseqno = /pws/zycet135-nrseqno.
IF sy-subrc = 0.
MOVE: /pws/zycet106-nrseqtr TO /pws/zycee046-nrseqtr,
/pws/zycet106-nrrota_tr TO /pws/zycee046-nrrota_tr.
ELSE.
CLEAR: /pws/zycee046-nrseqtr,
/pws/zycee046-nrrota_tr.
* << Fim da exclusão
ENDIF.
* >> Início da exclusão: FORM BUSCA_ROTA
ELSE.
CLEAR: /pws/zycee046-nrseqno,
/pws/zycee046-nrseqtr,
/pws/zycee046-nrrota_tr.
* << Fim da exclusão
ENDIF.
* >> Início da exclusão: FORM BUSCA_ROTA
ELSE.
CLEAR: /pws/zycee046-nrseqno,
/pws/zycee046-nrseqtr,
/pws/zycee046-nrrota_tr.
* << Fim da exclusão
ENDIF.
* >> Início da exclusão: FORM BUSCA_ROTA
ENDIF.
* << Fim da exclusão
IF nrseqtr_tela <> /pws/zycee046-nrseqtr
OR nrrota_tr_tela <> /pws/zycee046-nrrota_tr
OR nrseqno_tela <> /pws/zycee046-nrseqno
OR nrseqcg_tela <> /pws/zycee046-nrseqcg.
v_datar = 'X'.
ENDIF.
ENDFORM.
FORM busca_banco.
READ TABLE itab_zycet002_102 INDEX 1.
* >> Início da inclusão: FORM BUSCA_BANCO
IF /pws/zycee001-tipo_emb CA 'DF'.
* << Fim da inclusão
IF /pws/zycee046-bco1 IS INITIAL AND
* >> Início da exclusão: FORM BUSCA_BANCO
NOT itab_zycet002_102-vbeln_va IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_BANCO
NOT itab_zycet002_102-vbeln_vl IS INITIAL.
SELECT lifnr
FROM vbpa
UP TO 1 ROWS
INTO /pws/zycee046-bco1
WHERE vbeln = itab_zycet002_102-vbeln_vl AND
parvw = 'ZP'.
ENDSELECT.
ENDIF.
ELSE.
IF /pws/zycee046-bco1 IS INITIAL AND
NOT itab_zycet002_102-vbeln_va IS INITIAL.
* << Fim da inclusão
SELECT lifnr
FROM vbpa
UP TO 1 ROWS
INTO /pws/zycee046-bco1
WHERE vbeln = itab_zycet002_102-vbeln_va AND
parvw = 'ZP'.
ENDSELECT.
* >> Início da inclusão: FORM BUSCA_BANCO
ENDIF.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM busca_armador.
READ TABLE itab_zycet002_102 INDEX 1.
IF NOT itab_zycet002_102-tknum IS INITIAL AND
/pws/zycee046-codarmad IS INITIAL.
SELECT SINGLE tdlnr FROM vttk
INTO /pws/zycee046-codarmad
WHERE tknum = itab_zycet002_102-tknum.
IF NOT /pws/zycee046-codarmad IS INITIAL.
...
...
FORM busca_descr_cli_cambio.
IF NOT /pws/zycee100-cli_cambio IS INITIAL.
SELECT SINGLE name1 FROM kna1
INTO d_cli_cambio
WHERE kunnr = /pws/zycee100-cli_cambio.
ENDIF.
ENDFORM.
FORM busca_agente.
CLEAR: /pws/zycet108, /pws/zycet107.
READ TABLE itab_zycet002_102 INDEX 1.
* >> Início da inclusão: FORM BUSCA_AGENTE
IF /pws/zycee001-tipo_emb EQ 'F'.
SELECT *
FROM /pws/zycet108
UP TO 1 ROWS
INTO /pws/zycet108
WHERE vbeln_vl = itab_zycet002_102-vbeln_vl.
ENDSELECT.
ELSE.
* << Fim da inclusão
SELECT *
FROM /pws/zycet108
UP TO 1 ROWS
INTO /pws/zycet108
WHERE vbeln_va = itab_zycet002_102-vbeln_va.
ENDSELECT.
* >> Início da inclusão: FORM BUSCA_AGENTE
ENDIF.
* << Fim da inclusão
IF sy-subrc = 0.
...
...
ENDFORM.
FORM nome_pais.
IF NOT /pws/zycee046-land1 IS INITIAL.
SELECT SINGLE landx FROM t005t INTO /pws/zycee046-pais
WHERE land1 = /pws/zycee046-land1
AND spras = 'PT'.
ENDIF.
ENDFORM.
FORM busca_outras.
IF /pws/zycee046-kunnr IS INITIAL OR /pws/zycee046-name1 IS INITIAL.
* >> Início da exclusão: FORM BUSCA_OUTRAS
IF /pws/zycee001-tipo_emb <> 'D'.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_OUTRAS
READ TABLE itab_zycet002 INDEX 1.
IF /pws/zycee001-tipo_emb NA 'DF'.
* << Fim da inclusão
READ TABLE itab_zycet076 WITH KEY codigo_ce = 'CF'
codigo_r3 = 'AG'.
IF sy-subrc <> 0.
SELECT kunnr
FROM vbpa
UP TO 1 ROWS
INTO (/pws/zycee046-kunnr)
WHERE vbeln = itab_zycet002-vbeln_va
AND parvw = 'WE'.
ENDSELECT.
...
...
IF itab_zycet002_102[] IS INITIAL AND
NOT itab_zycet225-ntfiscal IS INITIAL.
DELETE itab_zycet225 INDEX v_tabix.
ENDIF.
ENDLOOP.
ENDFORM.
FORM atualiza_normas.
LOOP AT itab_zycet002_102.
v_tabix = sy-tabix.
MOVE /pws/zycee001-nrseq TO itab_zycet002_102-nrseq.
* >> Início da inclusão: FORM ATUALIZA_NORMAS
CASE /pws/zycee001-tipo_emb.
WHEN 'F'.
READ TABLE itab_zycet056 WITH KEY
vbeln_vl = itab_zycet002_102-vbeln_vl
posnl = itab_zycet002_102-posnl.
IF sy-subrc <> 0.
MOVE: sy-mandt TO itab_zycet056-mandt,
itab_zycet002_102-nrseq TO itab_zycet056-nrseq,
itab_zycet002_102-vbeln_vl TO itab_zycet056-vbeln_vl,
itab_zycet002_102-posnl TO itab_zycet056-posnl.
APPEND itab_zycet056.
ENDIF.
WHEN 'D'.
READ TABLE itab_zycet056 WITH KEY
ebeln = itab_zycet002_102-ebeln
ebelp = itab_zycet002_102-ebelp.
IF sy-subrc <> 0.
MOVE: sy-mandt TO itab_zycet056-mandt,
itab_zycet002_102-nrseq TO itab_zycet056-nrseq,
itab_zycet002_102-ebeln TO itab_zycet056-ebeln,
itab_zycet002_102-ebelp TO itab_zycet056-ebelp.
APPEND itab_zycet056.
ENDIF.
WHEN OTHERS.
* << Fim da inclusão
READ TABLE itab_zycet056 WITH KEY
vbeln_va = itab_zycet002_102-vbeln_va
aupos = itab_zycet002_102-posnv.
IF sy-subrc <> 0.
MOVE: sy-mandt TO itab_zycet056-mandt,
itab_zycet002_102-nrseq TO itab_zycet056-nrseq,
itab_zycet002_102-vbeln_va TO itab_zycet056-vbeln_va,
itab_zycet002_102-posnv TO itab_zycet056-aupos.
APPEND itab_zycet056.
ENDIF.
* >> Início da inclusão: FORM ATUALIZA_NORMAS
ENDCASE.
* << Fim da inclusão
ENDLOOP.
LOOP AT itab_zycet056.
v_tabix = sy-tabix.
* >> Início da inclusão: FORM ATUALIZA_NORMAS
CASE /pws/zycee001-tipo_emb.
WHEN 'F'.
READ TABLE itab_zycet002_102 WITH KEY
vbeln_vl = itab_zycet056-vbeln_vl
posnl = itab_zycet056-posnl.
IF sy-subrc <> 0.
DELETE itab_zycet056 INDEX v_tabix.
ENDIF.
WHEN 'D'.
* << Fim da inclusão
READ TABLE itab_zycet002_102 WITH KEY
* >> Início da inclusão: FORM ATUALIZA_NORMAS
ebeln = itab_zycet056-ebeln
ebelp = itab_zycet056-ebelp.
IF sy-subrc <> 0.
DELETE itab_zycet056 INDEX v_tabix.
ENDIF.
WHEN OTHERS.
READ TABLE itab_zycet002_102 WITH KEY
* << Fim da inclusão
vbeln_va = itab_zycet056-vbeln_va
posnv = itab_zycet056-aupos.
IF sy-subrc <> 0.
DELETE itab_zycet056 INDEX v_tabix.
ENDIF.
* >> Início da inclusão: FORM ATUALIZA_NORMAS
ENDCASE.
* << Fim da inclusão
ENDLOOP.
* >> Início da inclusão: FORM ATUALIZA_NORMAS
SORT itab_zycet056 BY nrseq
vbeln_va
aupos
vbeln_vl
posnl
ebeln
ebelp.
* << Fim da inclusão
ENDFORM.
FORM preenche_notify.
CLEAR: wa_thead4,
itab_zycet047.
READ TABLE itab_zycet047 INDEX v_line.
CHECK NOT itab_zycet047-nrbl IS INITIAL.
PERFORM preenche_thead USING wa_thead4 'CE03'.
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE038O01
...
WHEN '0107'.
IF sy-tcode = '/PWS/ZYCE038_E'.
LOOP AT tc_normas-cols INTO wa_cols.
wa_cols-screen-input = 0.
MODIFY tc_normas-cols FROM wa_cols.
ENDLOOP.
LOOP AT SCREEN.
screen-input = 0.
MODIFY SCREEN.
ENDLOOP.
* >> Início da inclusão: MODULE SET_SCREEN
ENDIF.
LOOP AT tc_normas-cols INTO wa_cols.
IF /pws/zycee001-tipo_emb EQ 'F'.
IF wa_cols-screen-group1 EQ 'EOV' OR
wa_cols-screen-group1 EQ 'EPC'.
wa_cols-invisible = 'X'.
ENDIF.
ELSEIF /pws/zycee001-tipo_emb EQ 'D'.
IF wa_cols-screen-group1 EQ 'EOV' OR
wa_cols-screen-group1 EQ 'EFO'..
wa_cols-invisible = 'X'.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: MODULE SET_SCREEN
ELSE.
IF wa_cols-screen-group1 EQ 'EFO' OR
wa_cols-screen-group1 EQ 'EPC'.
wa_cols-invisible = 'X'.
ENDIF.
ENDIF.
MODIFY tc_normas-cols FROM wa_cols.
ENDLOOP.
* << Fim da inclusão
WHEN '0108'.
IF sy-tcode = '/PWS/ZYCE038_E'.
LOOP AT SCREEN.
screen-input = 0.
MODIFY SCREEN.
ENDLOOP.
ENDIF.
WHEN '0109'.
IF sy-tcode = '/PWS/ZYCE038_E'.
LOOP AT tc_pt-cols INTO wa_cols.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE038TOP
...
DATA: BEGIN OF itab_zycet076 OCCURS 25.
INCLUDE STRUCTURE /pws/zycet076.
DATA: END OF itab_zycet076.
DATA: BEGIN OF itab_zyglt320 OCCURS 1.
INCLUDE STRUCTURE /pws/zyglt320.
DATA: END OF itab_zyglt320.
DATA: BEGIN OF itab_zyglt100 OCCURS 1.
INCLUDE STRUCTURE /pws/zyglt100.
DATA: END OF itab_zyglt100.
DATA: BEGIN OF itab_rv OCCURS 10,
* >> Início da exclusão:
nrseqrv LIKE /pws/zycet113-nrseqrv,
nrrv LIKE /pws/zycet112-nrrv,
vbeln_va LIKE /pws/zycet113-vbeln_va,
posnr LIKE /pws/zycet113-posnr,
* << Fim da exclusão
* >> Início da inclusão:
nrseqrv TYPE /pws/zycet113-nrseqrv,
nrrv TYPE /pws/zycet112-nrrv,
nrseq TYPE /pws/zycet113-nrseq,
vbeln_va TYPE /pws/zycet113-vbeln_va,
aupos TYPE /pws/zycet113-aupos,
vbeln_vl TYPE /pws/zycet113-vbeln_vl,
posnl TYPE /pws/zycet113-posnl,
vbeln_vf TYPE /pws/zycet113-vbeln_vf,
posnr TYPE /pws/zycet113-posnr,
ebeln TYPE /pws/zycet113-ebeln,
ebelp TYPE /pws/zycet113-ebelp,
* << Fim da inclusão
END OF itab_rv.
DATA: itab_tline4 LIKE tline OCCURS 10 WITH HEADER LINE,
itab_tline5 LIKE tline OCCURS 10 WITH HEADER LINE.
DATA: header_lfa1 LIKE lfa1 OCCURS 0 WITH HEADER LINE. "#EC *
DATA: BEGIN OF itab_zyglt334 OCCURS 0.
INCLUDE STRUCTURE /pws/zyglt334.
DATA: END OF itab_zyglt334.
DATA: BEGIN OF itab_zycet506 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet506.
DATA: mark.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCEE056
INCLUIR COMPONENTES VBELN_VL, POSNL, EBELN, EBELP conforme tabela abaixo:
Campos
Novo Nome campo Elem.dados Tab.verif. N CtDt Comp. Grupo
MANDT MANDT CLNT 3
NRSEQ /PWS/ZYCEL001 CHAR 10
VBELN_VA /PWS/ZYCEL472 CHAR 10
AUPOS /PWS/ZYCEL458 NUMC 6
X VBELN_VL VBELN_VL CHAR 10
X POSNL POSNR_VL NUMC 6
X EBELN /PWS/ZYCEL462 CHAR 10
X EBELP /PWS/ZYCEL463 NUMC 5
NORMAS /PWS/ZYCEL086 CHAR 100
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCET056
INCLUIR CAMPOS VBELN_VL, POSNL, EBELN, EBELP conforme tabela abaixo:
Campos
Novo Nome campo Chv Elem.dados Tab.verif. N CtDt Comp. Grupo
MANDT X MANDT CLNT 3
NRSEQ X /PWS/ZYCEL001 CHAR 10
VBELN_VA X /PWS/ZYCEL472 CHAR 10
AUPOS X /PWS/ZYCEL458 NUMC 6
X VBELN_VL X EBELN_VL CHAR 10
X POSNL X POSNR_VL NUMC 6
X EBELN X /PWS/ZYCEL462 CHAR 10
X EBELP X /PWS/ZYCEL463 NUMC 5
NORMAS /PWS/ZYCEL086 CHAR 100