CE PLUS - Nota 005297
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Nomeação - Carga Rota Viagem Transp
Data/Hora da Publicação: 23/11/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 11:17:48
Descrição da Nota: NOMEAÇÃO / VINCULAÇÃO POR FORNECIMENTO
Sintoma
Desenvolvimento Adicional
Solução
Desenvolvimento Adicional
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05297 Data: 23/11/2007 Hora: 14:03:58
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05297
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00022
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04582 - 00001 - 7.0 - 00002 - DADOS DE TRANSPORTE NÃO SÃO CARREGADOS COM PEDIDO DE COMPRA
04757 - 00002 - 7.0 - 00003 - TRATAMENTO DE QUANTIFICAÇÃO DE VOLUME NA VINCULAÇÃO NOMEAÇÃO
04787 - 00003 - 7.0 - 00003 - CORREÇÃO NA VINCULAÇÃO DE DOCUMENTO DE COMPRA
04872 - 00004 - 7.0 - 00003 - ATUALIZAÇÃO DOS DADOS ADICIONAIS DO EMBARQUE
----------------------------------------------------------------------------------------------------
NOMEAÇÃO / VINCULAÇÃO POR FORNECIMENTO
----------------------------------------------------------------------------------------------------
Palavras Chave:
NOMEAÇÃO VINCULAÇÃO FORNECIMENTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCE103 1300
DYNP /PWS/SAPMZYCE103 1500
DYNP /PWS/SAPMZYCE103 1530
DYNP /PWS/SAPMZYCE103 1600
MESS /PWS/ZYCEM297
MESS /PWS/ZYCEM298
REPS /PWS/MZYCE003F01
REPS /PWS/MZYCE003TCD
REPS /PWS/MZYCE038F01
REPS /PWS/MZYCE103F01
REPS /PWS/MZYCE103I01
REPS /PWS/MZYCE103O01
REPS /PWS/MZYCE103TOP
REPS /PWS/MZYCE103X01
REPT /PWS/SAPMZYCE103
TABD /PWS/ZYCEE108
TABD /PWS/ZYCEE109
TABD /PWS/ZYCEE111
TABD /PWS/ZYCET108
TABD /PWS/ZYCET109
TABD /PWS/ZYCET111
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCE103 1300
Incluir Coluna na Table Control "TC_NOMEA" entre /PWS/ZYCEE108-VBELN_VA e /PWS/ZYCEE108-POSNR
Elem. Tela: Cpo.txt
Nome: /PWS/ZYCEE108-VBELN_VL
Texto: Fornecimento
Linha:1 CompDef: 12
Coluna:3 Compr.vis: 12
Marcar Do Dict.
Elem. Tela: Cpo.entr./saída
Nome: /PWS/ZYCEE108-VBELN_VL
Texto: __________
Linha:1 CompDef: 10
Coluna:3 Compr.vis: 12
Grupos: AC
Marcar Do Dict.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCE103 1500
Incluir Coluna na Table Control "TC_VINCU" entre /PWS/ZYCEE109-POSNR e /PWS/ZYCEE109-ETENR
Elem. Tela: Cpo.txt
Nome: /PWS/ZYCEE109-VBELN
Texto: Fornecimento
Linha:1 CompDef: 12
Coluna:9 Compr.vis: 10
Marcar Do Dict.
Elem. Tela: Cpo.entr./saída
Nome: /PWS/ZYCEE109-VBELN
Texto: __________
Linha:1 CompDef: 10
Coluna:9 Compr.vis: 12
Marcar Do Dict.
...
Elem. Tela: Botão
Nome: I_FO
Texto: _______________
Nome Ícone: ICON_CHANGE_TEXT
Linha:1 CompDef: 10
Coluna:10 Compr.vis: 2
Cód.função: I_FO
...
Elem. Tela: Cpo.txt
Nome: /PWS/ZYCEE109-POSNR_VL
Texto: Item
Linha:1 CompDef: 4
Coluna:11 Compr.vis: 6
Marcar Do Dict.
Elem. Tela: Cpo.entr./saída
Nome: /PWS/ZYCEE109-POSNR_VL
Texto: ______
Linha:1 CompDef: 6
Coluna:11 Compr.vis: 6
Marcar Do Dict.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCE103 1530
Criar Tela:
Características:
Nº Tela: 1530
Descrição breve: CE - Nomeação - SS - Vinculação - Fornecimento
Cl.Desenvolvimento: /PWS/ZYCE
Tipo de Tela: Caixa de Diálogo Modal
...
LógProcess:
* >> Início da inclusão:
PROCESS BEFORE OUTPUT.
MODULE: status_1530,
screen_lines.
LOOP AT itfor WITH CONTROL tc_fo.
MODULE load_for.
ENDLOOP.
PROCESS AFTER INPUT.
LOOP AT itfor.
MODULE fill_for.
ENDLOOP.
MODULE user_command_1530.
* << Fim da inclusão
...
Layout:
Criar Table Control: TC_FO:
Nome: TC_FO
Linha: 1 CompDef: 59
Coluna: 1 Compr.vis: 59
Altura: 9
Adicionar Colunas na Table Control TC_FO:
Elem. Tela: Cpo.txt
Nome: /PWS/ZYCEE108-VBELN_VL
Texto: Fornecim._
Linha: 1 CompDef: 10
Coluna:1 Compr.vis: 10
Marcar Do Dict.
Elem. Tela: Cpo.entr./saída
Nome: /PWS/ZYCEE108-VBELN_VL
Texto: ______
Linha: 1 CompDef: 10
Coluna:1 Compr.vis: 10
Marcar Do Dict.
Elem. Tela: Cpo.txt
Nome: /PWS/ZYCEE108-POSNR
Texto: Item
Linha:1 CompDef: 4
Coluna:2 Compr.vis: 6
Marcar Do Dict.
Elem. Tela: Cpo.entr./saída
Nome: /PWS/ZYCEE108-POSNR
Texto: ______
Linha:1 CompDef: 6
Coluna:2 Compr.vis: 6
Marcar Do Dict.
Elem. Tela: Cpo.txt
Nome: /PWS/ZYCEE108-ETENR
Texto: Divisão________
Linha:1 CompDef: 15
Coluna:3 Compr.vis: 4
Marcar Do Dict.
Elem. Tela: Cpo.entr./saída
Nome: /PWS/ZYCEE108-ETENR
Texto: ______
Linha:1 CompDef: 4
Coluna:3 Compr.vis: 4
Marcar Do Dict.
Elem. Tela: Cpo.txt
Nome: /PWS/ZYCEE108-BMENG
Texto: Qtd.
Linha:1 CompDef: 4
Coluna:4 Compr.vis: 17
Marcar Do Dict.
Elem. Tela: Cpo.entr./saída
Nome: /PWS/ZYCEE108-BMENG
Texto: _.___.___.___,___
Linha:1 CompDef: 17
Coluna:4 Compr.vis: 17
Marcar Do Dict.
Cpo.ref: /PWS/ZYCEE108-VRKME
Elem. Tela: Cpo.txt
Nome: /PWS/ZYCEE108-NTGEW
Texto: Peso_líquido___
Linha:1 CompDef: 15
Coluna:5 Compr.vis: 19
Marcar Do Dict.
Elem. Tela: Cpo.entr./saída
Nome: /PWS/ZYCEE108-NTGEW
Texto: ___.___.___.___,___
Linha:1 CompDef: 19
Coluna:5 Compr.vis: 19
Marcar Do Dict.
Cpo.ref: /PWS/ZYCEE108-GEWEI
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCE103 1600
Incluir Coluna na Table Control "TC_SINT2" entre IT111-VBELN_VA e IT111-NTGEW
Elem. Tela: Cpo.txt
Nome: TXTFO
Texto: Fornecimento
Linha:1 CompDef: 12
Coluna:3 Compr.vis: 12
Elem. Tela: Cpo.entr./saída
Nome: IT111-VBELN_VL
Texto: ____________
Linha:1 CompDef: 12
Coluna:3 Compr.vis: 12
----------------------------------------------------------------------------------------------------
Modificações efetuadas em MESS /PWS/ZYCEM297
Incluir Mensagem
Mensagem: 297
Txt.breve mensagem: Fornecimento &1 não encontrado!
----------------------------------------------------------------------------------------------------
Modificações efetuadas em MESS /PWS/ZYCEM298
Incluir Mensagem
Mensagem: 298
Txt.breve mensagem: Fornecimento já vinculado: &1 Nomeação: &2
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE003F01
...
FROM /pws/zycet100
INTO TABLE itab_zycet100
WHERE nrseq = /pws/zycee001-nrseq.
ENDIF.
IF NOT itab_zycet002[] IS INITIAL.
IF /pws/zycee001-tipo_emb <> 'D'.
SELECT nrseqno
nrseqtr
vbeln_va
posnr
* >> Início da inclusão: FORM SELECIONA_DADOS_ADICIONAIS_PW
vbeln_vl
* << Fim da inclusão
nrrota_tr
portdest
zolla
FROM /pws/zycet108
INTO TABLE itab_zycet108
FOR ALL ENTRIES IN itab_zycet002
WHERE vbeln_va = itab_zycet002-vbeln_va AND
posnr = itab_zycet002-aupos.
IF sy-subrc = 0.
* >> Início da inclusão: FORM SELECIONA_DADOS_ADICIONAIS_PW
itab_nrseqno[] = itab_zycet108[].
ELSE.
SELECT nrseqno
nrseqtr
vbeln_va
posnr
vbeln_vl
nrrota_tr
portdest
zolla
FROM /pws/zycet108
INTO TABLE itab_zycet108
FOR ALL ENTRIES IN itab_zycet002
WHERE vbeln_vl = itab_zycet002-vbeln_vl AND
posnr = itab_zycet002-posnl.
IF sy-subrc = 0.
* << Fim da inclusão
itab_nrseqno[] = itab_zycet108[].
* >> Início da inclusão: FORM SELECIONA_DADOS_ADICIONAIS_PW
ENDIF.
* << Fim da inclusão
ENDIF.
ELSE.
SELECT nrseqno
nrseqtr
ebeln
ebelp
...
...
ENDIF.
ENDIF.
READ TABLE itab_zycet002 INDEX 1.
IF sy-subrc EQ 0.
IF itab_zycet312-transporte EQ 'N'.
IF /pws/zycee046-nrseqno IS INITIAL.
IF /pws/zycee001-tipo_emb NE 'D'.
READ TABLE itab_zycet108
WITH KEY vbeln_va = itab_zycet002-vbeln_va
posnr = itab_zycet002-aupos.
* >> Início da inclusão: FORM CABECALHO_OUTROS_DADOS
IF sy-subrc EQ 0.
/pws/zycee046-nrseqno = itab_zycet108-nrseqno.
ELSE.
READ TABLE itab_zycet108
WITH KEY vbeln_vl = itab_zycet002-vbeln_vl
posnr = itab_zycet002-posnl.
* << Fim da inclusão
IF sy-subrc EQ 0.
/pws/zycee046-nrseqno = itab_zycet108-nrseqno.
* >> Início da inclusão: FORM CABECALHO_OUTROS_DADOS
ENDIF.
* << Fim da inclusão
ENDIF.
ELSE.
READ TABLE itab_pedidos_intercompany WITH KEY
ebeln = itab_zycet002-ebeln
ebelp = itab_zycet002-ebelp.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE003TCD
...
nrseqno TYPE /pws/zycet106-nrseqno,
nrseqtr TYPE /pws/zycet106-nrseqtr,
nrrota_tr TYPE /pws/zycet106-nrrota_tr,
nome_tr TYPE /pws/zycet106-nome_tr,
END OF itab_zycet106.
DATA: BEGIN OF itab_zycet108 OCCURS 0,
nrseqno TYPE /pws/zycet108-nrseqno,
nrseqtr TYPE /pws/zycet108-nrseqtr,
vbeln_va TYPE /pws/zycet108-vbeln_va,
posnr TYPE /pws/zycet108-posnr,
* >> Início da inclusão:
vbeln_vl TYPE /pws/zycet108-vbeln_vl,
* << Fim da inclusão
nrrota_tr TYPE /pws/zycet108-nrrota_tr,
portdest TYPE /pws/zycet108-portdest,
zolla TYPE /pws/zycet108-zolla,
END OF itab_zycet108.
DATA: BEGIN OF itab_zycet112 OCCURS 0,
nrseqrv TYPE /pws/zycet112-nrseqrv,
nrrv TYPE /pws/zycet112-nrrv,
dtincl TYPE /pws/zycet112-dtincl,
END OF itab_zycet112.
DATA: BEGIN OF itab_zycet113 OCCURS 0,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE038F01
...
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.
v_vinc ='X'.
* >> Início da inclusão: FORM BUSCA_ROTA
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.
* << Fim da inclusão
ENDIF.
ENDLOOP.
select nrseqcg
FROM /pws/zycet054
up to 1 rows
INTO /pws/zycee046-nrseqcg
WHERE nrseq = /pws/zycee001-nrseq.
endselect.
IF /pws/zycee046-nrseqno IS INITIAL.
select nrseqno
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE103F01
...
nrseqtr = /pws/zycee106-nrseqtr AND
nrrota_tr = /pws/zycee106-nrrota_tr.
SELECT * FROM /pws/zycet107 INTO TABLE it107 WHERE
nrseqno EQ /pws/zycee106-nrseqno AND
nrseqtr EQ /pws/zycee106-nrseqtr.
SORT it107 BY tpcont nreserva.
SELECT * FROM /pws/zycet108 INTO TABLE it108 WHERE
nrseqno EQ /pws/zycee106-nrseqno AND
nrseqtr EQ /pws/zycee106-nrseqtr AND
ntgew > 0.
* >> Início da exclusão: FORM FILL_NMC
IF /pws/zycee106-tipo_nome NE 'PI'.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_NMC
IF /pws/zycee106-tipo_nome NE 'PI' AND
/pws/zycee106-tipo_nome NE 'FO'.
* << Fim da inclusão
PERFORM trata_ov.
ENDIF.
SELECT * FROM /pws/zycet109 INTO TABLE it109 WHERE
nrseqno EQ /pws/zycee106-nrseqno AND
nrseqtr EQ /pws/zycee106-nrseqtr AND
ntgew > 0.
IF sy-subrc NE 0.
LOOP AT it107.
CLEAR it109.
it109-nreserva = it107-nreserva.
...
...
CLEAR /pws/zycee103-dtetd.
SELECT SINGLE dtetd FROM /pws/zycet103 INTO /pws/zycee103-dtetd WHERE
nrseqtr = /pws/zycee106-nrseqtr AND
nrrota_tr = /pws/zycee106-nrrota_tr AND
tpemb = 'E'.
SELECT * FROM tvzbt INTO TABLE ittvzbt
FOR ALL ENTRIES IN it108 WHERE
zterm = it108-zterm AND
spras = sy-langu.
PERFORM: fill_sint1.
* >> Início da exclusão: FORM LOAD_INIT
IF gtipo NE 'PI'.
PERFORM: fill_sint2,
fill_sint2_exit4.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_INIT
IF gtipo EQ 'PI'.
PERFORM fill_sintpo2.
ELSEIF gtipo EQ 'FO'.
PERFORM fill_sintfo2.
* << Fim da inclusão
ELSE.
* >> Início da exclusão: FORM LOAD_INIT
PERFORM fill_sintpo2.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_INIT
PERFORM fill_sint2.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM verify_changes.
...
...
REFRESH: it_tipo_nome.
FREE : it_tipo_nome.
IF /pws/zycee106-tipo_nome IS INITIAL AND
/pws/zycee106-dtincl IS INITIAL.
it_tipo_nome-varoption = text-037.
APPEND it_tipo_nome.
it_tipo_nome-varoption = text-039.
APPEND it_tipo_nome.
it_tipo_nome-varoption = text-041.
APPEND it_tipo_nome.
* >> Início da inclusão: FORM DEFINE_TIPO
it_tipo_nome-varoption = text-043.
APPEND it_tipo_nome.
* << Fim da inclusão
CALL FUNCTION 'POPUP_TO_DECIDE_LIST'
EXPORTING
textline1 = text-045
textline2 = ' '
titel = text-044
IMPORTING
answer = gtipo
TABLES
t_spopli = it_tipo_nome
EXCEPTIONS
...
...
too_much_marks = 3
OTHERS = 4.
IF gtipo EQ '1'.
gtipo = text-036.
/pws/zycee106-tipo_nome = gtipo.
ELSEIF gtipo EQ '2'.
gtipo = text-038.
/pws/zycee106-tipo_nome = gtipo.
ELSEIF gtipo EQ '3'.
gtipo = text-040.
* >> Início da inclusão: FORM DEFINE_TIPO
/pws/zycee106-tipo_nome = gtipo.
ELSEIF gtipo EQ '4'.
gtipo = text-030.
* << Fim da inclusão
/pws/zycee106-tipo_nome = gtipo.
ELSEIF gtipo = text-046.
CLEAR: gtipo,
/pws/zycee106-tipo_nome.
LEAVE PROGRAM.
ENDIF.
CALL SCREEN '1000'.
ENDIF.
ELSE.
gtipo = /pws/zycee106-tipo_nome.
...
...
ENDIF.
ENDLOOP.
ENDFORM.
FORM screen_oculta_tipo USING pdynnr.
CASE pdynnr.
WHEN '1500'.
LOOP AT tc_vincu-cols INTO wa_col.
IF wa_col-screen-name = '/PWS/ZYCEE109-VBELN_VA' OR
wa_col-screen-name = '/PWS/ZYCEE109-POSNR' OR
wa_col-screen-name = 'I_OV' .
* >> Início da exclusão: FORM SCREEN_OCULTA_TIPO
IF gtipo = 'PI'.
* << Fim da exclusão
* >> Início da inclusão: FORM SCREEN_OCULTA_TIPO
IF gtipo = 'PI' OR gtipo = 'FO'.
* << Fim da inclusão
wa_col-invisible = '1'.
ELSE.
wa_col-invisible = '0'.
ENDIF.
ELSEIF wa_col-screen-name = '/PWS/ZYCEE109-EBELN' OR
wa_col-screen-name = '/PWS/ZYCEE109-EBELP' OR
wa_col-screen-name = '/PWS/ZYCEE109-ETENR'.
* >> Início da exclusão: FORM SCREEN_OCULTA_TIPO
IF gtipo = 'OV'.
* << Fim da exclusão
* >> Início da inclusão: FORM SCREEN_OCULTA_TIPO
IF gtipo = 'OV' OR gtipo = 'FO'.
wa_col-invisible = '1'.
ELSE.
wa_col-invisible = '0'.
ENDIF.
ELSEIF wa_col-screen-name = '/PWS/ZYCEE109-VBELN' OR
wa_col-screen-name = '/PWS/ZYCEE109-POSNR_VL' OR
wa_col-screen-name = 'I_FO' .
IF gtipo NE 'FO'.
* << Fim da inclusão
wa_col-invisible = '1'.
ELSE.
wa_col-invisible = '0'.
ENDIF.
ENDIF.
MODIFY tc_vincu-cols FROM wa_col.
ENDLOOP.
WHEN '1600'.
LOOP AT tc_sint2-cols INTO wa_col.
IF wa_col-screen-name = 'IT111-VBELN_VA'.
* >> Início da exclusão: FORM SCREEN_OCULTA_TIPO
IF gtipo = 'PI'.
* << Fim da exclusão
* >> Início da inclusão: FORM SCREEN_OCULTA_TIPO
IF gtipo = 'PI' OR gtipo = 'FO'.
* << Fim da inclusão
wa_col-invisible = '1'.
ELSE.
wa_col-invisible = '0'.
ENDIF.
ELSEIF wa_col-screen-name = 'IT111-EBELN'.
* >> Início da exclusão: FORM SCREEN_OCULTA_TIPO
IF gtipo = 'OV'.
* << Fim da exclusão
* >> Início da inclusão: FORM SCREEN_OCULTA_TIPO
IF gtipo = 'OV' OR gtipo = 'FO'.
wa_col-invisible = '1'.
ELSE.
wa_col-invisible = '0'.
ENDIF.
ELSEIF wa_col-screen-name = 'IT111-VBELN_VL'.
IF gtipo = 'PI' OR gtipo = 'OV' OR gtipo = 'OI'.
* << Fim da inclusão
wa_col-invisible = '1'.
ELSE.
wa_col-invisible = '0'.
ENDIF.
ENDIF.
MODIFY tc_sint2-cols FROM wa_col.
ENDLOOP.
WHEN '1400'.
LOOP AT tc_inter-cols INTO wa_col.
IF wa_col-screen-name = '/PWS/ZYCEE135-IHREZ'.
...
...
IF wa_col-screen-name = '/PWS/ZYCEE108-VLME1' OR
wa_col-screen-name = '/PWS/ZYCEE108-ZOLLA' OR
wa_col-screen-name = '/PWS/ZYCEE108-NETWR'.
wa_col-invisible = '1'.
MODIFY tc_nomea-cols FROM wa_col.
ENDIF.
ENDLOOP.
IF gtipo NE 'OI'.
LOOP AT tc_nomea-cols INTO wa_col.
IF wa_col-screen-name = 'SZTERMT'.
* >> Início da inclusão: FORM SCREEN_OCULTA_TIPO
wa_col-invisible = '1'.
MODIFY tc_nomea-cols FROM wa_col.
ENDIF.
ENDLOOP.
ENDIF.
IF gtipo = 'FO'.
LOOP AT tc_nomea-cols INTO wa_col.
IF wa_col-screen-name = '/PWS/ZYCEE108-VBELN_VA' OR
wa_col-screen-name = '/PWS/ZYCEE108-VLME1'.
* << Fim da inclusão
wa_col-invisible = '1'.
* >> Início da inclusão: FORM SCREEN_OCULTA_TIPO
ELSE.
wa_col-invisible = '0'.
ENDIF.
* << Fim da inclusão
MODIFY tc_nomea-cols FROM wa_col.
* >> Início da inclusão: FORM SCREEN_OCULTA_TIPO
ENDLOOP.
ENDIF.
IF gtipo <> 'FO'.
LOOP AT tc_nomea-cols INTO wa_col.
IF wa_col-screen-name = '/PWS/ZYCEE108-VBELN_VL'.
wa_col-invisible = '1'.
ELSE.
wa_col-invisible = '0'.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM SCREEN_OCULTA_TIPO
MODIFY tc_nomea-cols FROM wa_col.
* << Fim da inclusão
ENDLOOP.
ENDIF.
WHEN '1200'.
LOOP AT tc_reser-cols INTO wa_col.
IF wa_col-screen-name = '/PWS/ZYCEE107-TIPOPRD' OR
wa_col-screen-name = '/PWS/ZYCEE107-TIPOFRETE' OR
...
...
IF FOUND.
ENDFORM.
FORM marcacao_doc_compra
USING
p_marca TYPE char1.
LOOP AT itcomp.
itcomp-mark = p_marca.
MODIFY itcomp.
ENDLOOP.
ENDFORM.
* >> Início da inclusão:
FORM preenche_fornecimento.
IF NOT it107[] IS INITIAL.
SELECT vbeln inco1 waerk FROM likp
INTO TABLE itab_likp
WHERE vbeln = /pws/zycee108-vbeln_vl.
IF NOT itab_likp[] IS INITIAL.
SELECT vbeln posnr vrkme arktx ntgew lfimg gewei netpr FROM lips
INTO TABLE itab_lips
FOR ALL ENTRIES IN itab_likp
WHERE vbeln = itab_likp-vbeln.
ENDIF.
LOOP AT itab_lips.
SELECT SINGLE * FROM /pws/zycet108 WHERE
vbeln_vl EQ itab_lips-vbeln AND
posnr EQ itab_lips-posnr AND
nrseqno NE /pws/zycee106-nrseqno.
IF sy-subrc EQ 0.
CLEAR gmsgx.
CONCATENATE itab_lips-vbeln '-' itab_lips-posnr INTO gmsgx.
MESSAGE s016 WITH text-028 gmsgx text-029
/pws/zycet108-nrseqno.
CONTINUE.
ENDIF.
READ TABLE itab_likp WITH KEY vbeln = itab_lips-vbeln.
it108-mandt = sy-mandt.
it108-nrseqtr = /pws/zycee106-nrseqtr.
it108-nrseqno = /pws/zycee106-nrseqno.
it108-vbeln_vl = itab_lips-vbeln.
it108-posnr = itab_lips-posnr.
it108-nrrota_tr = /pws/zycee106-nrrota_tr.
IF itab_likp-inco1 <> 'FOB'.
it108-frete = 'SIM'.
ELSE.
it108-frete = 'NÃO'.
ENDIF.
it108-arktx = itab_lips-arktx.
it108-waers = itab_likp-waerk.
it108-gewei = itab_lips-gewei.
it108-bmeng = itab_lips-lfimg.
it108-ntgew = itab_lips-ntgew.
it108-vrkme = itab_lips-vrkme.
it108-vlme = itab_lips-netpr.
READ TABLE it108 WITH KEY vbeln_vl = itab_lips-vbeln
posnr = itab_lips-posnr.
IF sy-subrc = 0.
CLEAR it108.
CONTINUE.
ELSE.
APPEND it108.
ENDIF.
ENDLOOP.
ELSE.
MESSAGE i001 WITH text-011.
ENDIF.
ENDFORM.
FORM comm1_ok.
LOOP AT itfor WHERE marc = 'X'.
it109-vbeln = itfor-vbeln_vl.
it109-posnr_vl = itfor-posnr.
it109-etenr = itfor-etenr.
it109-bmeng = itfor-bmeng.
it109-ntgew = itfor-ntgew.
it109-qtdvol = itfor-lfimg.
it109-undvol = itfor-undvol.
APPEND it109.
ENDLOOP.
DELETE it109 WHERE vbeln IS initial
AND posnr IS initial
AND etenr IS initial.
SORT it109 BY vbeln
posnr
ASCENDING.
ENDFORM.
FORM fill_sintfo2.
CLEAR svltot.
REFRESH it111.
LOOP AT it108.
svltot = svltot + it108-netwr.
READ TABLE it111 WITH KEY vbeln_vl = it108-vbeln_vl.
IF sy-subrc EQ 0.
it111-ntgew = it111-ntgew + it108-ntgew.
it111-vltot = it111-vltot + it108-netwr.
MODIFY it111 INDEX sy-tabix.
ELSE.
CLEAR it111.
it111-mandt = sy-mandt.
it111-nrseqno = /pws/zycee106-nrseqno.
it111-nrseqtr = /pws/zycee106-nrseqtr.
it111-vbeln_vl = it108-vbeln_vl.
it111-ntgew = it108-ntgew.
it111-vltot = it108-netwr.
APPEND it111.
ENDIF.
ENDLOOP.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE103I01
...
it108-mark = 'X'.
MODIFY it108 TRANSPORTING mark WHERE
nrseqno = /pws/zycee106-nrseqno AND
nrseqtr = /pws/zycee106-nrseqtr.
WHEN 'FC_DES'.
it108-mark = space.
MODIFY it108 TRANSPORTING mark WHERE
nrseqno = /pws/zycee106-nrseqno AND
nrseqtr = /pws/zycee106-nrseqtr.
WHEN 'FC_DEL'.
* >> Início da inclusão: MODULE USER_COMMAND_1300
IF gtipo = 'FO'.
* << Fim da inclusão
LOOP AT it108 WHERE mark = 'X'.
gidx = sy-tabix.
* >> Início da inclusão: MODULE USER_COMMAND_1300
READ TABLE it109 WITH KEY vbeln = it108-vbeln_vl
posnr_vl = it108-posnr.
IF sy-subrc EQ 0.
IF NOT it109-nreserva IS INITIAL.
it108-mark = space.
MODIFY it108 INDEX gidx TRANSPORTING mark.
MESSAGE s016 WITH text-113 it108-vbeln_vl
it108-posnr.
ELSE.
DELETE it109 WHERE vbeln = it108-vbeln_vl AND
posnr_vl = it108-posnr.
ENDIF.
ENDIF.
ENDLOOP.
ELSE.
LOOP AT it108 WHERE mark = 'X'.
gidx = sy-tabix.
* << Fim da inclusão
IF v_flagexito = 'X'.
READ TABLE itab_zyglt100 WITH KEY zexit = 'NOM002'.
IF sy-subrc = 0.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa)
USING it108-vbeln_va
IF FOUND.
ENDIF.
ENDIF.
READ TABLE it109 WITH KEY vbeln_va = it108-vbeln_va
...
...
MESSAGE s016 WITH text-032 it108-vbeln_va
it108-posnr.
ELSE.
DELETE it109 WHERE vbeln_va = it108-vbeln_va AND
posnr = it108-posnr.
ENDIF.
ENDIF.
DELETE it135 WHERE ihrez = it108-vbeln_va
AND ebelp = it108-posnr
AND etenr = it108-etenr.
* >> Início da inclusão: MODULE USER_COMMAND_1300
ENDLOOP.
ENDIF.
* << Fim da inclusão
* >> Início da exclusão: MODULE USER_COMMAND_1300
ENDLOOP.
* << Fim da exclusão
DELETE it108 WHERE mark = 'X'.
PERFORM: fill_sint1.
* >> Início da exclusão: MODULE USER_COMMAND_1300
IF gtipo NE 'PI'.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_1300
IF gtipo EQ 'PI'.
PERFORM fill_sintpo2.
ELSEIF gtipo EQ 'FO'.
PERFORM fill_sintfo2.
ELSE.
* << Fim da inclusão
PERFORM fill_sint2.
* >> Início da exclusão: MODULE USER_COMMAND_1300
ELSE.
PERFORM fill_sintpo2.
* << Fim da exclusão
ENDIF.
ENDCASE.
ENDMODULE.
MODULE fill_it135 INPUT.
CHECK NOT /pws/zycee135-ebelp IS INITIAL.
...
...
MODIFY it135 INDEX gidx TRANSPORTING mark.
MESSAGE s016 WITH text-042 it135-ebeln.
ELSE.
DELETE it109 WHERE ebeln = it135-ebeln.
ENDIF.
ENDIF.
ENDLOOP.
DELETE it135 WHERE mark = 'X'.
SORT it135 BY bukrs ebeln ebelp etenr.
PERFORM: fill_sint1.
* >> Início da exclusão: MODULE USER_COMMAND_1400
IF gtipo NE 'PI'.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_1400
IF gtipo EQ 'PI'.
PERFORM fill_sintpo2.
ELSEIF gtipo EQ 'FO'.
PERFORM fill_sintfo2.
ELSE.
* << Fim da inclusão
PERFORM fill_sint2.
* >> Início da exclusão: MODULE USER_COMMAND_1400
ELSE.
PERFORM fill_sintpo2.
* << Fim da exclusão
ENDIF.
ENDCASE.
ENDMODULE.
MODULE fill_it109 INPUT.
MOVE-CORRESPONDING /pws/zycee109 TO it109.
...
...
ENDLOOP.
CLEAR it109.
READ TABLE it109 INDEX gpos.
IF NOT itovv[] IS INITIAL.
CALL SCREEN '1520' STARTING AT 5 6.
ELSE.
MESSAGE i001 WITH text-057.
ENDIF.
ENDIF.
CLEAR: sy-ucomm.
* >> Início da inclusão: MODULE USER_COMMAND_1500
WHEN 'I_FO'.
CLEAR: okcode.
GET CURSOR FIELD gfield VALUE gvalue LINE gidx.
gpos = tc_vincu-top_line + gidx - 1.
READ TABLE it109 INDEX gpos.
IF sy-subrc = 0.
FREE itfor.
CLEAR itfor.
LOOP AT it108.
MOVE: it108-vbeln_vl TO itfor-vbeln_vl,
it108-posnr TO itfor-posnr,
it108-etenr TO itfor-etenr,
it108-bmeng TO itfor-bmeng,
it108-ntgew TO itfor-ntgew.
APPEND itfor.
ENDLOOP.
LOOP AT it109.
READ TABLE itfor WITH KEY vbeln_vl = it109-vbeln
posnr = it109-posnr_vl.
IF sy-subrc = 0.
DELETE itfor WHERE vbeln_vl = it109-vbeln AND
posnr = it109-posnr_vl.
ENDIF.
ENDLOOP.
CLEAR it109.
READ TABLE it109 INDEX gpos.
IF NOT itfor[] IS INITIAL.
CALL SCREEN '1530' STARTING AT 5 6.
ELSE.
MESSAGE i001 WITH text-112.
ENDIF.
ENDIF.
CLEAR: sy-ucomm.
* << Fim da inclusão
WHEN 'FC_COPY'.
CLEAR wa_it109.
LOOP AT it109 WHERE mark = 'X'.
CLEAR: gqtdcont.
MOVE: sy-mandt TO wa_it109-mandt,
/pws/zycee106-nrseqno TO wa_it109-nrseqno,
/pws/zycee106-nrseqtr TO wa_it109-nrseqtr,
it109-nreserva TO wa_it109-nreserva,
it109-tpcont TO wa_it109-tpcont,
it109-qtdcont TO wa_it109-qtdcont.
...
...
MESSAGE e001 WITH text-016.
ENDIF.
ELSE.
MESSAGE i001 WITH text-014.
ENDIF.
ELSE.
MESSAGE i001 WITH text-014.
ENDIF.
ENDMODULE.
MODULE fill_sint2 INPUT.
* >> Início da exclusão: MODULE FILL_SINT2
IF gtipo NE 'PI'.
* << Fim da exclusão
* >> Início da inclusão: MODULE FILL_SINT2
IF gtipo EQ 'PI'.
PERFORM fill_sintpo2.
ELSEIF gtipo EQ 'FO'.
PERFORM fill_sintfo2.
ELSE.
* << Fim da inclusão
PERFORM fill_sint2.
* >> Início da exclusão: MODULE FILL_SINT2
ELSE.
PERFORM fill_sintpo2.
* << Fim da exclusão
ENDIF.
ENDMODULE.
MODULE fill_sint1 INPUT.
PERFORM fill_sint1.
ENDMODULE.
...
...
WHEN 'SAIR'.
v_cancelar = 'X'.
SET SCREEN 0.
LEAVE SCREEN.
ENDCASE.
ENDMODULE.
MODULE modify_line INPUT.
MOVE s_check TO itab_zycet105_tela-mark.
MODIFY itab_zycet105_tela INDEX tc_zycet105-current_line .
ENDMODULE.
* >> Início da inclusão:
MODULE load_fo INPUT.
CHECK NOT /pws/zycee108-vbeln_vl IS INITIAL.
REFRESH: itab_likp, itab_lips.
SELECT vbeln inco1 waerk kunag vkorg FROM likp
INTO TABLE itab_likp
WHERE vbeln = /pws/zycee108-vbeln_vl.
IF sy-subrc NE 0.
MESSAGE e297 WITH /pws/zycee108-vbeln_vl.
ELSE.
SELECT vbeln posnr vrkme arktx ntgew lfimg gewei netpr werks
FROM lips
INTO TABLE itab_lips
WHERE vbeln = /pws/zycee108-vbeln_vl.
READ TABLE itab_likp WITH KEY vbeln = /pws/zycee108-vbeln_vl.
SELECT vkorg bukrs FROM tvko
INTO TABLE itab_tvko
WHERE vkorg = itab_likp-vkorg.
IF /pws/zycee106-bukrs IS INITIAL.
READ TABLE itab_tvko INDEX 1.
IF sy-subrc EQ 0.
MOVE itab_tvko-bukrs TO /pws/zycee106-bukrs.
IF NOT /pws/zycee106-bukrs IS INITIAL.
SELECT SINGLE *
FROM /pws/zycet037
INTO wa_zycet037
WHERE bukrs = /pws/zycee106-bukrs.
ENDIF.
ENDIF.
ELSE.
READ TABLE itab_tvko INDEX 1.
IF /pws/zycee106-bukrs NE itab_tvko-bukrs.
MESSAGE i016 WITH text-068 /pws/zycee108-vbeln_vl text-069.
EXIT.
ENDIF.
ENDIF.
SELECT nrseqno vbeln_vl posnr FROM /pws/zycet108
INTO TABLE itab_zycet108
WHERE vbeln_vl = /pws/zycee108-vbeln_vl.
LOOP AT itab_lips.
IF sy-subrc EQ 0.
READ TABLE itab_zycet108 WITH KEY vbeln_vl = itab_lips-vbeln
posnr = itab_lips-posnr.
IF sy-subrc = 0.
IF itab_zycet108-nrseqno <> /pws/zycee106-nrseqno.
DELETE itab_lips INDEX sy-tabix.
CLEAR /pws/zycee108-vbeln_vl.
MESSAGE w298 WITH itab_zycet108-vbeln_vl
itab_zycet108-nrseqno.
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
PERFORM preenche_fornecimento.
ENDIF.
ENDMODULE.
MODULE fill_for INPUT.
MOVE: /pws/zycee108-vbeln_vl TO itfor-vbeln_vl,
/pws/zycee108-posnr TO itfor-posnr,
/pws/zycee108-etenr TO itfor-etenr,
/pws/zycee108-bmeng TO itfor-lfimg,
/pws/zycee108-ntgew TO itfor-ntgew,
marc TO itfor-marc.
MODIFY itfor INDEX tc_fo-current_line.
IF sy-subrc NE 0.
APPEND itfor.
ENDIF.
ENDMODULE.
MODULE user_command_1530 INPUT.
CASE sy-ucomm.
WHEN 'CANCEL'.
CLEAR: itfor.
LEAVE TO SCREEN 0.
WHEN 'OK'.
PERFORM comm1_ok.
IF gidx = 0.
MESSAGE i001 WITH text-010.
ENDIF.
LEAVE TO SCREEN 0.
WHEN 'MARCA'.
LOOP AT itfor.
itfor-marc = 'X'.
MODIFY itfor INDEX sy-tabix.
ENDLOOP.
WHEN 'DESMARCA'.
LOOP AT itfor.
itfor-marc = ' '.
MODIFY itfor INDEX sy-tabix.
ENDLOOP.
ENDCASE.
ENDMODULE.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE103O01
...
tc_nomea-lines = glines + 11.
WHEN '1400'.
DESCRIBE TABLE it135 LINES glines.
tc_inter-lines = glines + 11.
WHEN '1500'.
DESCRIBE TABLE it109 LINES glines.
tc_vincu-lines = glines + 11.
WHEN '1520'.
DESCRIBE TABLE itovv LINES glines.
tc_ov-lines = glines .
* >> Início da inclusão: MODULE SCREEN_LINES
WHEN '1530'.
DESCRIBE TABLE itfor LINES glines.
tc_fo-lines = glines .
* << Fim da inclusão
WHEN '1600'.
DESCRIBE TABLE it110 LINES glines.
tc_sint1-lines = glines.
DESCRIBE TABLE it111 LINES glines.
tc_sint2-lines = glines.
WHEN '1610'.
DESCRIBE TABLE it228 LINES glines.
tc_sint3-lines = glines.
DESCRIBE TABLE it111 LINES glines.
tc_sint2-lines = glines.
...
...
IF screen-group4 = 'REQ'.
screen-required = '1'.
ENDIF.
ENDIF.
MODIFY SCREEN.
ELSEIF screen-name EQ 'TAB_INT' OR
screen-name EQ 'TAB_INS'.
screen-invisible = '1'.
MODIFY SCREEN.
IF ( screen-name EQ 'TAB_INT' ) AND
* >> Início da exclusão: MODULE SET_SCREEN_1000
( gtipo NE 'OV' AND gtipo NE 'PC' ).
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN_1000
( gtipo EQ 'PI' ).
* << Fim da inclusão
screen-invisible = '0'.
MODIFY SCREEN.
ENDIF.
ELSEIF screen-name EQ 'TAB_NOM'.
IF gtipo = 'PC' OR gtipo = 'PI'.
screen-invisible = '1'.
MODIFY SCREEN.
ENDIF.
ELSEIF screen-name EQ 'TAB_SIE' OR
screen-name EQ 'TAB_EMB'.
...
...
SET SCREEN '1900'.
tc_zycet105-lines = tc_zycet105-top_line + 15.
ENDMODULE.
MODULE carrega_tc_zycet105 OUTPUT.
/pws/zycee105-nrseqtr = itab_zycet105_tela-nrseqtr.
/pws/zycee105-nrrota_tr = itab_zycet105_tela-nrrota_tr.
/pws/zycee105-codint = itab_zycet105_tela-codint.
/pws/zycee105-bukrs = itab_zycet105_tela-bukrs.
/pws/zycee108-nrseqno = itab_zycet105_tela-nrseqno.
ENDMODULE.
* >> Início da inclusão:
MODULE status_1530 OUTPUT.
SET PF-STATUS '1500'.
ENDMODULE.
MODULE load_for OUTPUT.
MOVE-CORRESPONDING itfor TO /pws/zycee108.
MOVE: itfor-marc TO marc.
ENDMODULE.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE103TOP
...
CONTROLS: ts_nome TYPE TABSTRIP,
tc_lista TYPE TABLEVIEW USING SCREEN '0010',
tc_nome TYPE TABLEVIEW USING SCREEN '0011',
tc_reser TYPE TABLEVIEW USING SCREEN '1200',
tc_frete TYPE TABLEVIEW USING SCREEN '1210',
tc_nomea TYPE TABLEVIEW USING SCREEN '1300',
tc_inter TYPE TABLEVIEW USING SCREEN '1400',
tc_vincu TYPE TABLEVIEW USING SCREEN '1500',
tc_comp TYPE TABLEVIEW USING SCREEN '1510',
tc_ov TYPE TABLEVIEW USING SCREEN '1520',
* >> Início da inclusão:
tc_fo TYPE TABLEVIEW USING SCREEN '1530',
* << Fim da inclusão
tc_sint1 TYPE TABLEVIEW USING SCREEN '1600',
tc_sint2 TYPE TABLEVIEW USING SCREEN '1600',
tc_sint3 TYPE TABLEVIEW USING SCREEN '1610',
tc_insp TYPE TABLEVIEW USING SCREEN '1700',
tc_emb TYPE TABLEVIEW USING SCREEN '1800'.
INCLUDE: /pws/mzyce103x01,
/pws/zygli100.
TABLES: /pws/zycee103,
/pws/zycee103a,
/pws/zycee105,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE103X01
...
DATA: BEGIN OF itovv OCCURS 10,
vbeln_va LIKE /pws/zycee108-vbeln_va,
posnr LIKE /pws/zycee108-posnr,
etenr LIKE /pws/zycee108-etenr,
bmeng LIKE /pws/zycee108-bmeng,
ntgew LIKE /pws/zycee108-ntgew,
qtdvol TYPE /pws/zycee109-qtdvol,
undvol TYPE /pws/zycee109-undvol,
marc,
END OF itovv.
* >> Início da inclusão:
DATA: BEGIN OF itfor OCCURS 10,
vbeln_vl LIKE /pws/zycee108-vbeln_vl,
posnr LIKE /pws/zycee108-posnr,
etenr LIKE /pws/zycee108-etenr,
bmeng LIKE /pws/zycee108-bmeng,
ntgew LIKE /pws/zycee108-ntgew,
lfimg TYPE /pws/zycee109-qtdvol,
undvol TYPE /pws/zycee109-undvol,
marc,
END OF itfor.
DATA: BEGIN OF itab_likp OCCURS 0,
vbeln TYPE likp-vbeln,
inco1 TYPE likp-inco1,
waerk TYPE likp-waerk,
kunag TYPE likp-kunag,
vkorg TYPE likp-vkorg,
END OF itab_likp.
DATA: BEGIN OF itab_lips OCCURS 0,
vbeln TYPE lips-vbeln,
posnr TYPE lips-posnr,
vrkme TYPE lips-vrkme,
arktx TYPE lips-arktx,
ntgew TYPE lips-ntgew,
lfimg TYPE lips-lfimg,
gewei TYPE lips-gewei,
netpr TYPE lips-netpr,
werks TYPE lips-werks,
END OF itab_lips.
DATA: BEGIN OF itab_tvko OCCURS 0,
vkorg TYPE tvko-vkorg,
bukrs TYPE tvko-bukrs,
END OF itab_tvko.
DATA: BEGIN OF itab_zycet108 OCCURS 0,
nrseqno TYPE /pws/zycet108-nrseqno,
vbeln_vl TYPE /pws/zycet108-vbeln_vl,
posnr TYPE /pws/zycet108-posnr,
END OF itab_zycet108.
* << Fim da inclusão
DATA: END OF COMMON PART.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCE103
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 030
Texto: (2 caracteres)
"FO"
Comprimento máximo: 2
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 043
Texto: (44 caracteres)
"Nomeação com Fornecimento sem Ordem de Venda"
Comprimento máximo: 44
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 111
Texto: (53 caracteres)
"Este Fornecimento não pertence ao cliente da Reserva."
Comprimento máximo: 53
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 112
Texto: (42 caracteres)
"Não existem Fornecimentos para Vinculação!"
Comprimento máximo: 42
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 113
Texto: (35 caracteres)
"Fornecimento ainda está vinculado :"
Comprimento máximo: 35
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCEE108
Nome campo Elem.dados Tab.verif. CtDt Comp.
...
NRSEQNO /PWS/ZYCEL001 CHAR 10
NRSEQTR /PWS/ZYCEL255 /PWS/ZYCET101 CHAR 10
VBELN_VA /PWS/ZYCEL439 CHAR 10
VBELN_VF /PWS/ZYCEL440 CHAR 10
* << Início da inclusão:
VBELN_VL VBELN_VL CHAR 10
* << Fim da inclusão
POSNR POSNR_VF NUMC 6
NRROTA_TR /PWS/ZYCEL106 CHAR 6
ETENR ETENR NUMC 4
PORTDEST /PWS/ZYCEL011 CHAR 30
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCEE109
Nome campo Elem.dados Tab.verif. CtDt Comp.
...
POSNR POSNR_VF NUMC 6
ETENR ETENR NUMC 4
EBELN /PWS/ZYCEL462 CHAR 10
EBELP EBELP NUMC 5
* << Início da inclusão:
VBELN VBELN_VL CHAR 10
POSNR_VL POSNR_VL NUMC 6
* << Fim da inclusão
TPCONT /PWS/ZYCEL113 CHAR 15
GEWEI GEWEI UNIT 3
QTDCONT /PWS/ZYCEL114 QUAN 8
QTDVOL VOLUM_AP QUAN 15
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCEE111
Nome campo Elem.dados Tab.verif. CtDt Comp.
...
NRSEQNO /PWS/ZYCEL001 CHAR 10
NRSEQTR /PWS/ZYCEL255 CHAR 10
VBELN_VA /PWS/ZYCEL439 CHAR 10
EBELN /PWS/ZYCEL462 CHAR 10
* << Início da inclusão:
VBELN_VL /PWS/ZYCEL441 CHAR 10
* << Fim da inclusão
VRKME VRKME T006 UNIT 3
WAERS /PWS/ZYCEL444 TCURC CUKY 5
NTGEW /PWS/ZYCEL216 QUAN 17
VLTOT /PWS/ZYCEL215 CURR 17
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCET108
Nome campo Chv Elem.dados Tab.verif. CtDt Comp.
...
NRSEQNO x /PWS/ZYCEL001 CHAR 10
NRSEQTR x /PWS/ZYCEL255 /PWS/ZYCET101 CHAR 10
VBELN_VA x /PWS/ZYCEL439 CHAR 10
VBELN_VF x /PWS/ZYCEL440 CHAR 10
* << Início da inclusão
VBELN_VL x VBELN_VL CHAR 10
* << Fim da inclusão
POSNR x POSNR_VF NUMC 6
NRROTA_TR x /PWS/ZYCEL106 CHAR 6
ETENR x ETENR NUMC 4
PORTDEST x /PWS/ZYCEL011 CHAR 30
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCET109
Nome campo Chv Elem.dados Tab.verif. CtDt Comp.
...
POSNR x POSNR_VF NUMC 6
ETENR x ETENR NUMC 4
EBELN x /PWS/ZYCEL462 CHAR 10
EBELP x EBELP NUMC 5
* << Início da inclusão
VBELN x VBELN_VL CHAR 10
POSNR_VL x POSNR_VL NUMC 6
* << Fim da inclusão
TPCONT x /PWS/ZYCEL113 CHAR 15
GEWEI GEWEI UNIT 3
QTDCONT /PWS/ZYCEL114 QUAN 8
QTDVOL VOLUM_AP QUAN 15
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCET111
Nome campo Chv Elem.dados Tab.verif. CtDt Comp.
...
NRSEQTR x /PWS/ZYCEL255 CHAR 10
VBELN_VA x /PWS/ZYCEL439 CHAR 10
EBELN x /PWS/ZYCEL462 CHAR 10
* << Início da inclusão
VBELN_VL x /PWS/ZYCEL441 CHAR 10
* << Fim da inclusão
VRKME x VRKME T006 UNIT 3
WAERS x /PWS/ZYCEL444 TCURC CUKY 5
NTGEW x /PWS/ZYCEL216 QUAN 17
...