CE PLUS - Nota 000352
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 25/11/2005 00:00:00
Data/Hora Última Alteração: 21/02/2011 14:16:50
Descrição da Nota: AJUSTES DIVERSOS NO EMBARQUE DE EXPORTAÇÃO
Sintoma
Ajustes dos seguintes pontos:
- Quando exclui todas as Ordens do Embarque, não permite entrar novamente no mesmo.
- Ao inserir um fornecedor inválido na pasta de Parceiros, o programa fica emitindo a mensagem de
parceiro inválido, mesmo após o parceiro ter sido excluído.
- Ajustes no estorno e re-faturamento.
Solução
Aplicar os ajustes constantes nessa nota de atualização.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00352 Data: 25/11/2005 Hora: 20:16:41
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00352
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00021
Agrupamento : 00089
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00346 - 00001 - 6.0 - 00021 - ERRO NO EMBARQUE COM RELAÇÃO A VALORES DE NOTA DE CRÉDITO
----------------------------------------------------------------------------------------------------
AJUSTES DIVERSOS NO EMBARQUE DE EXPORTAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXPORTAÇÃO EMBARQUE AJUSTES
----------------------------------------------------------------------------------------------------
Objetos da nota:
DOCU NA/PWS/ZYCEM265
DYNP /PWS/SAPMZYCE003 0102
MESS /PWS/ZYCEM265
REPS /PWS/MZYCE003F01
REPS /PWS/MZYCE003F02
REPT /PWS/SAPMZYCE003
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCE003 0102
Alterar o campo SCREEN-GROUP4 do campo BOT_COMPL de "DE " para "D ".
----------------------------------------------------------------------------------------------------
Modificações efetuadas em MESS /PWS/ZYCEM265
Criar a mensagem auto-explicativa 265 na classe de mensagens /PWS/ZYCEM:
"Endereço para &1 &2 inválido."
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE003F01
...
CLEAR vbadr.
CALL FUNCTION 'SD_ADDRESS_GET'
EXPORTING
fif_address_number = itab_t001-adrnr
IMPORTING
* >> Início da exclusão: FORM CARREGA_PARAMETROS
fes_address = vbadr.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_PARAMETROS
fes_address = vbadr
EXCEPTIONS
address_not_found = 1
OTHERS = 2.
IF sy-subrc NE 0.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCEM'
msgty = 'W'
msgv1 = 'Empresa'(560)
msgv2 = itab_t001-bukrs
txtnr = 265
zeile = 'BUKRS_ADRNR'.
CONTINUE.
ENDIF.
* << Fim da inclusão
APPEND vbadr TO itab_vbadr.
ENDLOOP.
SELECT bwkey
bukrs
FROM t001k
...
...
CALL FUNCTION 'SD_ADDRESS_GET'
EXPORTING
fif_address_number = itab_t001w-adrnr
IMPORTING
fes_address = vbadr.
* >> Início da inclusão: FORM CARREGA_PARAMETROS
IF sy-subrc NE 0.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCEM'
msgty = 'W'
msgv1 = 'Centro'(565)
msgv2 = itab_t001-bukrs
txtnr = 265
zeile = 'WERKS_ADRNR'.
CONTINUE.
ENDIF.
* << Fim da inclusão
APPEND vbadr TO itab_vbadr.
ENDLOOP.
SELECT spras
sprsl
sptxt
...
...
CALL SCREEN '0010'.
ENDFORM.
FORM verifica_embarque.
DATA: v_nrseq_temp LIKE /pws/zycee001-nrseq,
v_tipo_emb LIKE /pws/zycee001-tipo_emb,
* >> Início da inclusão: FORM VERIFICA_EMBARQUE
v_sta1 LIKE /pws/zycee001-sta1,
* << Fim da inclusão
v_codigo LIKE /pws/zycee008-codigo.
SELECT SINGLE nrseq
tipo_emb
* >> Início da inclusão: FORM VERIFICA_EMBARQUE
sta1
* << Fim da inclusão
FROM /pws/zycet001
* >> Início da exclusão: FORM VERIFICA_EMBARQUE
INTO (v_nrseq_temp, v_tipo_emb)
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_EMBARQUE
INTO (v_nrseq_temp, v_tipo_emb, v_sta1)
* << Fim da inclusão
WHERE nrseq = /pws/zycee001-nrseq.
IF sy-subrc NE 0.
MESSAGE e220.
ENDIF.
IF v_tipo_emb IS INITIAL.
MESSAGE e257.
ENDIF.
* >> Início da exclusão: FORM VERIFICA_EMBARQUE
SELECT SINGLE codigo
FROM /pws/zycet008
INTO v_codigo
WHERE nrseq = /pws/zycee001-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_EMBARQUE
IF v_sta1 IS INITIAL.
* << Fim da inclusão
* >> Início da exclusão: FORM VERIFICA_EMBARQUE
IF sy-subrc NE 0.
* << Fim da exclusão
MESSAGE e257.
ENDIF.
ENDFORM.
FORM seleciona_dados_embarque_pw.
SELECT *
...
...
ENDFORM.
FORM seleciona_dados_adicionais_sap.
PERFORM seleciona_conditions_sap.
PERFORM seleciona_notas_fiscais.
PERFORM seleciona_novos_clientes.
* >> Início da exclusão: FORM SELECIONA_DADOS_ADICIONAIS_SAP
PERFORM seleciona_novos_fornecedores USING space.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_ADICIONAIS_SAP
PERFORM seleciona_novos_fornecedores USING space 'X'.
* << Fim da inclusão
PERFORM seleciona_novos_materiais.
PERFORM seleciona_novos_comex.
ENDFORM.
FORM seleciona_dados_adicionais_pw.
DATA: itab_003 LIKE itab_zycet003 OCCURS 0 WITH HEADER LINE.
...
...
CALL FUNCTION 'SD_ADDRESS_GET'
EXPORTING
fif_address_number = itab_kna1-adrnr
IMPORTING
fes_address = vbadr.
* >> Início da inclusão: FORM SELECIONA_NOVOS_CLIENTES
IF sy-subrc NE 0.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCEM'
msgty = 'W'
msgv1 = 'Cliente'(521)
msgv2 = itab_kna1-kunnr
txtnr = 265
zeile = 'KUNNR_ADRNR'.
CONTINUE.
ENDIF.
* << Fim da inclusão
APPEND vbadr TO itab_vbadr.
ENDIF.
ENDLOOP.
ENDIF.
ENDFORM.
* >> Início da exclusão: FORM SELECIONA_NOVOS_FORNECEDORES
FORM seleciona_novos_fornecedores USING value(p_lifnr) LIKE lfa1-lifnr.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_NOVOS_FORNECEDORES
FORM seleciona_novos_fornecedores USING value(p_lifnr) LIKE lfa1-lifnr
value(p_mensg) TYPE c.
* << Fim da inclusão
DATA: BEGIN OF itab_for OCCURS 0,
lifnr LIKE lfa1-lifnr,
END OF itab_for.
IF NOT p_lifnr IS INITIAL.
itab_for-lifnr = p_lifnr.
...
...
FROM lfa1
APPENDING TABLE itab_lfa1
FOR ALL ENTRIES IN itab_for
WHERE lifnr = itab_for-lifnr.
IF sy-subrc NE 0.
* >> Início da inclusão: FORM SELECIONA_NOVOS_FORNECEDORES
IF p_mensg EQ 'X'.
* << Fim da inclusão
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCEM'
msgty = 'W'
msgv1 = text-517
msgv2 = /pws/zycee001-nrseq
txtnr = 221
zeile = 'LIF_SEL_001'.
* >> Início da inclusão: FORM SELECIONA_NOVOS_FORNECEDORES
ENDIF.
* << Fim da inclusão
ELSE.
SORT itab_lfa1 BY lifnr.
LOOP AT itab_lfa1 WHERE NOT adrnr IS initial.
READ TABLE itab_vbadr WITH KEY adrnr = itab_lfa1-adrnr.
IF sy-subrc NE 0.
...
...
CALL FUNCTION 'SD_ADDRESS_GET'
EXPORTING
fif_address_number = itab_lfa1-adrnr
IMPORTING
fes_address = vbadr.
* >> Início da inclusão: FORM SELECIONA_NOVOS_FORNECEDORES
IF sy-subrc NE 0.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCEM'
msgty = 'W'
msgv1 = 'Cliente'(521)
msgv2 = itab_lfa1-lifnr
txtnr = 265
zeile = 'LIFNR_ADRNR'.
CONTINUE.
ENDIF.
* << Fim da inclusão
APPEND vbadr TO itab_vbadr.
ENDIF.
ENDLOOP.
ENDIF.
ENDFORM.
...
...
vbeln_vf = itab_zycet002-vbeln_vf
posnr = itab_zycet002-posnr.
IF sy-subrc EQ 0.
itab_zycet002-saida = 'X'.
itab_zycet002-vlme = itab_saida-vlme.
* >> Início da inclusão: FORM IDENTIFICA_STATUS_ITENS
itab_zycet002-st_vd = 'VD'.
* << Fim da inclusão
ENDIF.
READ TABLE itab_devolucao WITH KEY
vbeln_va = v_vbeln_va
aupos = v_aupos
vbeln_vl = itab_zycet002-vbeln_vl
...
...
vbeln_vf = itab_zycet002-vbeln_vf
posnr = itab_zycet002-posnr.
IF sy-subrc EQ 0.
itab_zycet002-devolucao = 'X'.
itab_zycet002-vlme = itab_devolucao-vlme.
* >> Início da inclusão: FORM IDENTIFICA_STATUS_ITENS
itab_zycet002-st_vd = 'DT'.
* << Fim da inclusão
ENDIF.
READ TABLE itab_complemento WITH KEY
vbeln_va = v_vbeln_va
aupos = v_aupos
vbeln_vl = itab_zycet002-vbeln_vl
...
...
vbeln_vf = itab_zycet002-vbeln_vf
posnr = itab_zycet002-posnr.
IF sy-subrc EQ 0.
itab_zycet002-complemento = 'X'.
itab_zycet002-vlme = itab_complemento-vlme.
* >> Início da inclusão: FORM IDENTIFICA_STATUS_ITENS
itab_zycet002-st_vd = 'SC'.
* << Fim da inclusão
ENDIF.
CLEAR itab_zycet020.
IF NOT itab_zycet002-auart IS INITIAL.
READ TABLE itab_zycet020 WITH KEY auart = itab_zycet002-auart
bukrs = itab_zycet002-bukrs.
...
...
IF itab_zycet020-tipodoc = 'OS'.
CLEAR: itab_zycet002-saida,
itab_zycet002-devolucao,
itab_zycet002-complemento.
itab_zycet002-servico = 'X'.
* >> Início da inclusão: FORM IDENTIFICA_STATUS_ITENS
itab_zycet002-st_vd = 'SC'.
* << Fim da inclusão
ENDIF.
READ TABLE itab_estorno WITH KEY
vbeln_va = v_vbeln_va
aupos = v_aupos
vbeln_vl = itab_zycet002-vbeln_vl
posnl = itab_zycet002-posnl
vbeln_vf = itab_zycet002-vbeln_vf
posnr = itab_zycet002-posnr.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM IDENTIFICA_STATUS_ITENS
itab_zycet002-estornado = 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM IDENTIFICA_STATUS_ITENS
itab_zycet002-estornado = 'X'.
CLEAR: itab_zycet002-saida,
itab_zycet002-devolucao,
itab_zycet002-complemento.
itab_zycet002-st_vd = 'ES'.
* << Fim da inclusão
ENDIF.
MODIFY itab_zycet002 INDEX v_index TRANSPORTING vlme
saida
devolucao
complemento
estornado
* >> Início da exclusão: FORM IDENTIFICA_STATUS_ITENS
servico.
* << Fim da exclusão
* >> Início da inclusão: FORM IDENTIFICA_STATUS_ITENS
servico
st_vd.
* << Fim da inclusão
ENDLOOP.
* >> Início da inclusão: FORM IDENTIFICA_STATUS_ITENS
itab_zycet002-st_vd = 'ES'.
* << Fim da inclusão
itab_zycet002-estorno = 'X'.
* >> Início da exclusão: FORM IDENTIFICA_STATUS_ITENS
MODIFY itab_zycet002 TRANSPORTING estorno
* << Fim da exclusão
* >> Início da inclusão: FORM IDENTIFICA_STATUS_ITENS
MODIFY itab_zycet002 TRANSPORTING estorno st_vd
* << Fim da inclusão
WHERE saida = space AND
estornado = space AND
devolucao = space AND
complemento = space AND
servico = space.
...
...
ENDIF.
ENDIF.
IF itab_zycet020-tipodoc = 'OS'.
CLEAR itab_zycet002-devolucao.
itab_zycet002-servico = 'X'.
* >> Início da inclusão: FORM IDENTIFICA_STATUS_ITENS
itab_zycet002-st_vd = 'SC'.
* << Fim da inclusão
ELSEIF NOT ( itab_zycet020-tipodoc = 'OD' OR
itab_zycet020-tipodoc = 'DR' ).
CLEAR itab_zycet002-devolucao.
itab_zycet002-saida = 'X'.
* >> Início da inclusão: FORM IDENTIFICA_STATUS_ITENS
itab_zycet002-st_vd = 'VD'.
* << Fim da inclusão
ENDIF.
MODIFY itab_zycet002 INDEX v_index TRANSPORTING saida
devolucao
* >> Início da exclusão: FORM IDENTIFICA_STATUS_ITENS
servico.
* << Fim da exclusão
* >> Início da inclusão: FORM IDENTIFICA_STATUS_ITENS
servico
st_vd.
* << Fim da inclusão
ENDLOOP.
itab_002[] = itab_zycet002[].
itab_vbfa2[] = itab_vbfa[].
LOOP AT itab_002 WHERE complemento = 'X'.
LOOP AT itab_vbfa WHERE vbeln = itab_002-vbeln_vf AND
...
...
posnr = itab_vbfa2-posnv.
IF sy-subrc NE 0.
CONTINUE.
ENDIF.
itab_zycet002-completado = 'X'.
* >> Início da inclusão: FORM IDENTIFICA_STATUS_ITENS
itab_zycet002-st_vd = 'VD'.
* << Fim da inclusão
* >> Início da exclusão: FORM IDENTIFICA_STATUS_ITENS
MODIFY itab_zycet002 TRANSPORTING completado
* << Fim da exclusão
* >> Início da inclusão: FORM IDENTIFICA_STATUS_ITENS
MODIFY itab_zycet002 TRANSPORTING completado st_vd
* << Fim da inclusão
WHERE vbeln_va = itab_zycet002-vbeln_va AND
aupos = itab_zycet002-aupos AND
vbeln_vl = itab_zycet002-vbeln_vl AND
posnl = itab_zycet002-posnl AND
vbeln_vf = itab_zycet002-vbeln_vf AND
...
...
posnr = itab_vbfa2-posnv.
IF sy-subrc NE 0.
CONTINUE.
ENDIF.
itab_zycet002-devolvido_p = 'X'.
* >> Início da inclusão: FORM IDENTIFICA_STATUS_ITENS
itab_zycet002-st_vd = 'DP'.
* << Fim da inclusão
* >> Início da exclusão: FORM IDENTIFICA_STATUS_ITENS
MODIFY itab_zycet002 TRANSPORTING devolvido_p
* << Fim da exclusão
* >> Início da inclusão: FORM IDENTIFICA_STATUS_ITENS
MODIFY itab_zycet002 TRANSPORTING devolvido_p st_vd
* << Fim da inclusão
WHERE vbeln_va = itab_zycet002-vbeln_va AND
aupos = itab_zycet002-aupos AND
vbeln_vl = itab_zycet002-vbeln_vl AND
posnl = itab_zycet002-posnl AND
vbeln_vf = itab_zycet002-vbeln_vf AND
...
...
ELSE.
v_fkimg = v_fkimg + itab_vbrp-fkimg.
ENDIF.
ENDLOOP.
IF v_fkimg IS INITIAL.
* >> Início da inclusão: FORM IDENTIFICA_STATUS_ITENS
itab_zycet002-st_vd = 'DT'.
* << Fim da inclusão
itab_zycet002-devolvido_t = 'X'.
itab_zycet002-devolvido_p = ' '.
ELSE.
itab_zycet002-devolvido_t = ' '.
itab_zycet002-devolvido_p = 'X'.
* >> Início da inclusão: FORM IDENTIFICA_STATUS_ITENS
itab_zycet002-st_vd = 'DP'.
* << Fim da inclusão
ENDIF.
MODIFY itab_zycet002 INDEX v_index TRANSPORTING devolvido_t
* >> Início da exclusão: FORM IDENTIFICA_STATUS_ITENS
devolvido_p.
* << Fim da exclusão
* >> Início da inclusão: FORM IDENTIFICA_STATUS_ITENS
devolvido_p
st_vd.
* << Fim da inclusão
ENDLOOP.
LOOP AT itab_zycet002 WHERE NOT vbeln_vl IS initial.
READ TABLE itab_likp WITH KEY vbeln = itab_zycet002-vbeln_vl.
CHECK sy-subrc EQ 0.
itab_zycet002-bloq_rem = itab_likp-lifsk.
...
...
ELSE.
CLEAR itab_lfa1.
READ TABLE itab_lfa1 WITH KEY lifnr = itab_zycit244-lifnr.
IF sy-subrc NE 0.
PERFORM seleciona_novos_fornecedores
* >> Início da exclusão: FORM MONTA_DRAWBACK
USING itab_zycit244-lifnr.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_DRAWBACK
USING itab_zycit244-lifnr
'X'.
* << Fim da inclusão
CLEAR itab_lfa1.
READ TABLE itab_lfa1 WITH KEY lifnr = itab_zycit244-lifnr.
ENDIF.
itab_drawback-name1 = itab_lfa1-name1.
WRITE itab_lfa1-stcd1 TO itab_drawback-stcd1
...
...
ENDFORM.
FORM cabecalho_condicao_pagamento.
DATA: v_zterm LIKE t052-zterm.
IF itab_zycet037-alt_cond EQ '0'.
CLEAR /pws/zycee046-zterm.
* >> Início da inclusão: FORM CABECALHO_CONDICAO_PAGAMENTO
LOOP AT itab_zycet020 WHERE tipodoc = 'OV' OR
tipodoc = 'CO' OR
tipodoc = 'VC'.
LOOP AT itab_zycet002 WHERE auart EQ itab_zycet020-auart AND
estornado EQ ' ' AND
estorno EQ ' '.
EXIT.
ENDLOOP.
IF sy-subrc EQ 0.
/pws/zycee046-zterm = itab_zycet002-zterm.
EXIT.
ENDIF.
ENDLOOP.
IF /pws/zycee046-zterm IS INITIAL.
* << Fim da inclusão
LOOP AT itab_zycet020 WHERE tipodoc = 'OV' OR
tipodoc = 'CO' OR
tipodoc = 'VC'.
READ TABLE itab_zycet002 WITH KEY auart = itab_zycet020-auart.
IF sy-subrc EQ 0.
/pws/zycee046-zterm = itab_zycet002-zterm.
EXIT.
ENDIF.
ENDLOOP.
* >> Início da inclusão: FORM CABECALHO_CONDICAO_PAGAMENTO
ENDIF.
* << Fim da inclusão
ENDIF.
READ TABLE itab_zycet002 INDEX 1.
IF /pws/zycee046-zterm IS INITIAL.
/pws/zycee046-zterm = itab_zycet002-zterm.
ENDIF.
...
...
ENDIF.
READ TABLE itab_zycet015 WITH KEY despach = /pws/zycee015-despach
tipo = /pws/zycee015-tipo.
IF sy-subrc EQ 0.
MESSAGE e229 WITH /pws/zycee015-despach v_descricao.
* >> Início da inclusão: FORM CONSISTE_FORNECEDOR
ENDIF.
READ TABLE itab_lfa1 WITH KEY lifnr = /pws/zycee015-despach.
IF sy-subrc NE 0.
PERFORM seleciona_novos_fornecedores
USING /pws/zycee015-despach
' '.
READ TABLE itab_lfa1 WITH KEY lifnr = /pws/zycee015-despach.
ENDIF.
IF sy-subrc NE 0.
MESSAGE e163(f2) WITH /pws/zycee015-despach.
* << Fim da inclusão
ENDIF.
IF itab_parceiro_tc-parvw IS INITIAL AND
NOT /pws/zycee015-despach IS INITIAL AND
/pws/zycee015-tipo IS INITIAL.
MESSAGE e230 WITH /pws/zycee015-despach.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE003F02
...
itab_zycet002-nrseq = /pws/zycee001-nrseq.
itab_zycet002-vbeln_va = itab_zycet002_tc-vbeln_va.
itab_zycet002-ebeln = itab_zycet002_tc-ebeln.
itab_zycet002-novo = 'X'.
COLLECT itab_zycet002.
* >> Início da exclusão: FORM OKCODE_0102
IF wa_controle-novos_itens IS INITIAL OR
sy-tcode EQ c_transacao_c.
* << Fim da exclusão
wa_controle-novos_itens = 'X'.
okcode = 'REFRESH'.
* >> Início da exclusão: FORM OKCODE_0102
ENDIF.
* << Fim da exclusão
ENDLOOP.
WHEN 'DEL_MK'.
PERFORM elimina_itens_marcados USING 'X'.
WHEN 'DETAIL'.
okcode = 'DUMMY'.
...
...
itab_zycet015-parvw TO itab_parceiro_tc-parvw,
itab_zycet015-tipo TO itab_parceiro_tc-tipo,
'K' TO itab_parceiro_tc-koart.
READ TABLE itab_lfa1 WITH KEY lifnr = itab_parceiro_tc-kunnr.
IF sy-subrc NE 0.
* >> Início da exclusão: FORM VALORES_INICIAIS_0105
PERFORM seleciona_novos_fornecedores USING itab_parceiro_tc-kunnr.
* << Fim da exclusão
* >> Início da inclusão: FORM VALORES_INICIAIS_0105
PERFORM seleciona_novos_fornecedores USING itab_parceiro_tc-kunnr
'X'.
* << Fim da inclusão
READ TABLE itab_lfa1 WITH KEY lifnr = itab_parceiro_tc-kunnr.
ENDIF.
CHECK sy-subrc EQ 0.
MOVE-CORRESPONDING itab_lfa1 TO itab_parceiro_tc.
IF NOT itab_lfa1-adrnr IS INITIAL.
...
...
itab_vbpa_aux-parvw TO itab_parceiro_tc-parvw,
space TO itab_parceiro_tc-tipo,
'K' TO itab_parceiro_tc-koart.
READ TABLE itab_lfa1 WITH KEY lifnr = itab_vbpa_aux-lifnr.
IF sy-subrc NE 0.
* >> Início da exclusão: FORM VALORES_INICIAIS_0105
PERFORM seleciona_novos_fornecedores USING itab_vbpa_aux-lifnr.
* << Fim da exclusão
* >> Início da inclusão: FORM VALORES_INICIAIS_0105
PERFORM seleciona_novos_fornecedores USING itab_vbpa_aux-lifnr
'X'.
* << Fim da inclusão
READ TABLE itab_lfa1 WITH KEY lifnr = itab_vbpa_aux-lifnr.
ENDIF.
CHECK sy-subrc EQ 0.
MOVE-CORRESPONDING itab_lfa1 TO itab_parceiro_tc.
IF NOT itab_lfa1-adrnr IS INITIAL.
...
...
/pws/zycee015-tipo TO itab_zycet015-tipo.
APPEND itab_zycet015.
READ TABLE itab_lfa1 WITH KEY lifnr = /pws/zycee015-despach.
IF sy-subrc NE 0.
PERFORM seleciona_novos_fornecedores
* >> Início da exclusão: FORM MODIFICA_LINHA_TC_0105
USING /pws/zycee015-despach.
* << Fim da exclusão
* >> Início da inclusão: FORM MODIFICA_LINHA_TC_0105
USING /pws/zycee015-despach
'X'.
* << Fim da inclusão
READ TABLE itab_lfa1 WITH KEY lifnr = /pws/zycee015-despach.
ENDIF.
IF sy-subrc EQ 0.
MOVE: itab_lfa1-name1 TO itab_zycet015-name1,
itab_lfa1-regio TO itab_zycet015-regio.
...
...
TRANSPORTING despach
tipo.
READ TABLE itab_lfa1 WITH KEY lifnr = /pws/zycee015-despach.
IF sy-subrc NE 0.
PERFORM seleciona_novos_fornecedores
* >> Início da exclusão: FORM MODIFICA_LINHA_TC_0105
USING /pws/zycee015-despach.
* << Fim da exclusão
* >> Início da inclusão: FORM MODIFICA_LINHA_TC_0105
USING /pws/zycee015-despach
'X'.
* << Fim da inclusão
READ TABLE itab_lfa1 WITH KEY lifnr = /pws/zycee015-despach.
ENDIF.
IF sy-subrc EQ 0.
MOVE: itab_lfa1-name1 TO itab_zycet015-name1,
itab_lfa1-regio TO itab_zycet015-regio.
...
...
tdynpread-stepl = v_stepl.
tdynpread-fieldvalue = v_lifnr.
APPEND tdynpread.
READ TABLE itab_lfa1 WITH KEY lifnr = v_lifnr1.
IF sy-subrc NE 0.
* >> Início da exclusão: FORM SELECIONA_PARCEIRO
PERFORM seleciona_novos_fornecedores USING v_lifnr1.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_PARCEIRO
PERFORM seleciona_novos_fornecedores USING v_lifnr1 'X'.
* << Fim da inclusão
READ TABLE itab_lfa1 WITH KEY lifnr = v_lifnr1.
ENDIF.
IF sy-subrc EQ 0.
tdynpread-fieldname = 'SDPARTNERLIST-NAME1'.
tdynpread-stepl = v_stepl.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCE003
Criar o elemento de texto, conforme abaixo:
574: Fornecedor
574: Fornecedor
574: Fornecedor