CE PLUS - Nota 008575
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DA
Data/Hora da Publicação: 15/09/2011 15:13:20
Data/Hora Última Alteração: 15/09/2011 15:13:20
Descrição da Nota: AJUSTES PARA PREENCHIMENTO DAS INFORMAÇÕES DE FABRICANTE.
Sintoma
Realizado ajuste para preenchimento das informações de fabricante.Não há código do material na pasta
itens da DA.
Solução
Realizado ajuste para preenchimento das informações de fabricante. E ajustada exibição das
informações de fabricante nas adições da DA.
Incluido codigo do material na pasta de itens da DA.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08575 Data: 23/06/2009 Hora: 11:46:23
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08575
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00010
Agrupamento : 00102
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02292 - 00001 - 6.0 - 00025 - TRATAMENTO PARA CENTROS DIFERENTES NO EMBARQUE
04314 - 00002 - 7.0 - 00002 - DI DE NACIONALIZAÇÃO TRAZ PESO LIQ E BRUTO DIFERENTES DA DA DE RE
07247 - 00003 - 7.0 - 00006 - CONFIRMAÇÃO DE INCLUSÃO DE LOTE AUTOMATICO APARECE 2 VEZES
08527 - 00004 - 7.0 - 00009 - NÃO ESTÁ GRAVANDO O FABRICANTE QUE VEIO DO PEDIDO.
----------------------------------------------------------------------------------------------------
AJUSTES PARA PREENCHIMENTO DAS INFORMAÇÕES DE FABRICANTE.
----------------------------------------------------------------------------------------------------
Palavras Chave:
FABRICANTE - PREENCHIMENTO - DA - CODIGO - MATERIAL - ITENS - ADIÇÕES
/PWS/SAPMZYCI070
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI070 0150
DYNP /PWS/SAPMZYCI070 0153
DYNP /PWS/SAPMZYCI070 0310
DYNP /PWS/SAPMZYCI070 0312
DYNP /PWS/SAPMZYCI070 0500
REPS /PWS/MZYCI070F01
REPS /PWS/MZYCI070F02
REPS /PWS/MZYCI070F03
REPS /PWS/MZYCI070F05
REPS /PWS/MZYCI070I01
REPS /PWS/MZYCI070O01
REPS /PWS/MZYCI070TOP
REPS /PWS/MZYCI070X01
REPT /PWS/SAPMZYCI070
TABD /PWS/ZYCIT443
TABL /PWS/ZYCIT500
----------------------------------------------------------------------------------------------------
* Quando o campo adicionado na tela for de uma tabela transparente, utilizar o botão
* "Janela campos dict." (F6), porque utilizando este botão o campo vem com as propriedades do
* Dicionário de Dados.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI070 0150
*Após o campo "/PWS/ZYCIE443A-LIFNR" , incluir "/PWS/ZYCIE443A-LIFNRFABR"
INCLUIR TEXTO "/PWS/ZYCIE443A-LIFNRFABR" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 14
Linha 1
Coluna 13
Formato CHAR
Texto Cod.Fabricante
*Após o campo "/PWS/ZYCIE443A-EBELP" incluir "/PWS/ZYCIE443A-MATNR"
INCLUIR CAMPO TEXTO "/PWS/ZYCIE443A-MATNR" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 18
Linha 1
Coluna 4
Formato CHAR
Linhas mínimas 18
Texto __________________
Código função
* Campo de Saída
INCLUIR TEXTO "/PWS/ZYCIE443A-MATNR" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 15
Linha 1
Coluna 4
Formato CHAR
Texto Material
*No final da Table control, incluir o campo "/PWS/ZYCIT500-NAME1"
INCLUIR CAMPO TEXTO "/PWS/ZYCIT500-NAME1" em tbl.contr./tabstr.
Altura 30
Comprimento Visível 60
Linha 1
Coluna 14
Formato CHAR
Linhas mínimas 60
Texto _______________________________________________
* Campo de saída
INCLUIR TEXTO "/PWS/ZYCIT500-NAME1" em tbl.contr./tabstr.
Altura 30
Comprimento Visível 11
Linha 1
Coluna 14
Formato CHAR
Texto Fabricante
*Ao fim da fileira de botões sobre a table control, incluir o botão "BTNT0150_08"
INCLUIR BOTÃO "BTNT0150_08"
Altura 2
Comprimento Visível 18
Linha 1
Coluna 23
Formato CHAR
Texto @ND\QFabricante@
Código função FABRI
*Ao fim da fileira de botões sobre a table control, incluir o botão "BTNT0150_09"
INCLUIR BOTÃO "BTNT0150_09"
Altura 2
Comprimento Visível 36
Linha 1
Coluna 26
Formato CHAR
Texto @5O\QReplicar Fabricante@
Código função REPL
*MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0150
...
PROCESS AFTER INPUT.
module sort_by_ebeln.
LOOP AT itab_it.
CHAIN.
FIELD v_qtd_da MODULE saldo_online_da ON INPUT.
ENDCHAIN.
* >> Início da inclusão:
CHAIN.
FIELD /PWS/ZYCIE443A-LIFNRFABR MODULE modif_fab ON INPUT.
ENDCHAIN.
* << Fim da inclusão
MODULE: modi_datait.
ENDLOOP.
MODULE user_command_drill_down.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI070 0153
* todos os campos desta tela estão fechados, isto é, campo de saída = X
INCLUIR CAMPO TEXTO "/PWS/ZYCIE443-DESCR" em tbl.contr./tabstr.
Altura 40
Comprimento Visível 40
Linha 1
Coluna 4
Formato CHAR
Linhas mínimas 40
Texto ________________________________________
INCLUIR TEXTO "/PWS/ZYCIE443-DESCR" em tbl.contr./tabstr.
Altura 40
Comprimento Visível 9
Linha 1
Coluna 4
Formato CHAR
Texto Descrição
INCLUIR CAMPO TEXTO "/PWS/ZYCIE443-EBELN" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 10
Linha 1
Coluna 1
Formato CHAR
Linhas mínimas 10
Texto __________
Código função
INCLUIR TEXTO "/PWS/ZYCIE443-EBELN" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 15
Linha 1
Coluna 1
Formato CHAR
Texto Doc.compra
INCLUIR CAMPO TEXTO "/PWS/ZYCIE443-EBELP" em tbl.contr./tabstr.
Altura 5
Comprimento Visível 5
Linha 1
Coluna 2
Formato NUMC
Linhas mínimas 5
Texto _____
INCLUIR TEXTO "/PWS/ZYCIE443-EBELP" em tbl.contr./tabstr.
Altura 5
Comprimento Visível 15
Linha 1
Coluna 2
Formato CHAR
Texto Item
INCLUIR CAMPO TEXTO "/PWS/ZYCIE443-J_1BNBM" em tbl.contr./tabstr.
Altura 16
Comprimento Visível 16
Linha 1
Coluna 5
Formato CHAR
Linhas mínimas 16
Texto ________________
INCLUIR TEXTO "/PWS/ZYCIE443-J_1BNBM" em tbl.contr./tabstr.
Altura 16
Comprimento Visível 3
Linha 1
Coluna 5
Formato CHAR
Texto NCM
INCLUIR CAMPO TEXTO "/PWS/ZYCIE443-MATNR" em tbl.contr./tabstr.
Altura 12
Comprimento Visível 18
Linha 1
Coluna 3
Formato CHAR
Linhas mínimas 18
Texto __________________
Código função
INCLUIR TEXTO "/PWS/ZYCIE443-MATNR" em tbl.contr./tabstr.
Altura 12
Comprimento Visível 15
Linha 1
Coluna 3
Formato CHAR
Texto Material
INCLUIR CONTROLE DE TABELA "TC_REPLI"
Altura 13
Comprimento Visível 91
Linha 1
Coluna 2
INCLUIR CAIXA DE VERIFICAÇÃO "V_MARK" em tbl.contr./tabstr.
Altura 1
Comprimento Visível 1
Linha 1
Formato CHAR
Texto _
*O layout ficará da seguinte maneira
....+...10....+...10....+...30....+...40....+...50....+...60....+...70....+...80....+...90....
+..100...
001 Doc.compra Item Material Descrição NCM
002 W __________>_____ ___________>>________________________________________ ________________
003 W __________>_____ ___________>>________________________________________ ________________
004 W __________>_____ ___________>>________________________________________ ________________
005 W __________>_____ ___________>>________________________________________ ________________
006 W __________>_____ ___________>>________________________________________ ________________
007 W __________>_____ ___________>>________________________________________ ________________
008 W __________>_____ ___________>>________________________________________ ________________
009 W __________>_____ ___________>>________________________________________ ________________
010 W __________>_____ ___________>>________________________________________ ________________
011 W __________>_____ ___________>>________________________________________ ________________
012 W __________>_____ ___________>>________________________________________ ________________
013
014
015
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0153
PROCESS BEFORE OUTPUT.
* >> Início da inclusão:
MODULE STATUS_0153.
LOOP AT itab_it_aux WITH CONTROL tc_repli
CURSOR tc_repli-current_line.
MODULE preench_153.
ENDLOOP.
* << Fim da inclusão
PROCESS AFTER INPUT.
* >> Início da inclusão:
LOOP AT itab_it_aux.
MODULE modif_153.
ENDLOOP.
MODULE USER_COMMAND_0153.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI070 0310
*Antes do campo "A_SPAIS", incluir campo "/PWS/ZYCIE080A-LANDA"
INCLUIR CAMPO TEXTO "/PWS/ZYCIE080A-LANDA"
Comprimento Visível 3
Linha 1
Coluna 17
Formato CHAR
Grupo 4 TP3
Linhas mínimas 3
Texto ___
Código função
* Campo de saída
EXCLUIR TEXTO "TXTFABR"
EXCLUIR CAMPO TEXTO "WA_IT-LIFNRFABR"
EXCLUIR CAMPO TEXTO "WA_IT-PORIGEM"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI070 0312
*EXCLUIR TEXTO "TXTFORN" E AJUSTAR OS OUTROS À TELA
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI070 0500
*CRIAR TELA 0500
* todos os campos desta telas são de entrada e saída.
INCLUIR CX.DIÁLOGO 0500
Descrição DI - Inclui Fabricante
Tela seguinte 0500
Altura atual (linhas) 7
Largura atual (colunas) 77
INCLUIR TEXTO "/PWS/ZYCIT500-NAME1"
Comprimento Visível 4
Linha 1
Coluna 2
Formato CHAR
Texto Nome
Código função
INCLUIR CAMPO TEXTO "/PWS/ZYCIT500-NAME1"
Comprimento Visível 60
Linha 1
Coluna 17
Formato CHAR
Linhas mínimas 60
Texto _______________________________________________
INCLUIR TEXTO "/PWS/ZYCIT500-LANDO"
Comprimento Visível 12
Linha 2
Coluna 2
Formato CHAR
Texto País
Código função
INCLUIR CAMPO TEXTO "/PWS/ZYCIT500-LANDO"
Comprimento Visível 3
Linha 2
Coluna 17
Formato CHAR
Linhas mínimas 3
Texto ___
Código função
INCLUIR TEXTO "/PWS/ZYCIT500-LOGRADOURO"
Comprimento Visível 13
Linha 3
Coluna 2
Formato CHAR
Texto Logradouro/N°
Código função
INCLUIR CAMPO TEXTO "/PWS/ZYCIT500-LOGRADOURO"
Comprimento Visível 40
Linha 3
Coluna 17
Formato CHAR
Linhas mínimas 40
Texto ________________________________________
INCLUIR CAMPO TEXTO "/PWS/ZYCIT500-NRLOGR"
Comprimento Visível 6
Linha 3
Coluna 58
Formato CHAR
Linhas mínimas 6
Texto ______
INCLUIR TEXTO "/PWS/ZYCIT500-COMPL"
Comprimento Visível 11
Linha 4
Coluna 2
Formato CHAR
Texto Complemento
Código função
INCLUIR CAMPO TEXTO "/PWS/ZYCIT500-COMPL"
Comprimento Visível 21
Linha 4
Coluna 17
Formato CHAR
Linhas mínimas 21
Texto _____________________
INCLUIR TEXTO "/PWS/ZYCIT500-CITY"
Comprimento Visível 6
Linha 5
Coluna 2
Formato CHAR
Texto Cidade
Código função
INCLUIR CAMPO TEXTO "/PWS/ZYCIT500-CITY"
Comprimento Visível 25
Linha 5
Coluna 17
Formato CHAR
Linhas mínimas 25
Texto _________________________
INCLUIR TEXTO "/PWS/ZYCIT500-REGIO"
Comprimento Visível 6
Linha 6
Coluna 2
Formato CHAR
Texto Estado
Código função
INCLUIR CAMPO TEXTO "/PWS/ZYCIT500-REGIO"
Comprimento Visível 25
Linha 6
Coluna 17
Formato CHAR
Linhas mínimas 25
Texto _________________________
INCLUIR OKCODE ""
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0500
* >> Início da inclusão:
PROCESS BEFORE OUTPUT.
MODULE STATUS_0500.
PROCESS AFTER INPUT.
MODULE USER_COMMAND_0500.
* << Fim da inclusão
*O layout será como a figura abaixo:
....+...10....+...10....+...30....+...40....+...50....+...60....+...
001 Nome _____________________________________________________
002 País ___
003 Logradouro/N° ________________________________________ ______
004 Complemento _____________________
005 Cidade _________________________
006 Estado _________________________
007
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070F01
...
DELETE FROM /pws/zycit451 WHERE nrseqda = /pws/zycie442-nrseqda.
MODIFY /pws/zycit451 FROM TABLE itab_zycit451.
DELETE FROM /pws/zycit452 WHERE nrseqda = /pws/zycie442-nrseqda.
MODIFY /pws/zycit452 FROM TABLE itab_zycit452.
DELETE FROM /pws/zycit453 WHERE nrseqda = /pws/zycie442-nrseqda.
MODIFY /pws/zycit453 FROM TABLE itab_zycit453.
DELETE FROM /pws/zycit454 WHERE nrseqda = /pws/zycie442-nrseqda.
MODIFY /pws/zycit454 FROM TABLE itab_zycit454.
DELETE FROM /pws/zycit460 WHERE nrseqda = /pws/zycie442-nrseqda.
MODIFY /pws/zycit460 FROM TABLE itab_zycit460.
* >> Início da inclusão: FORM SAVE_DATA
LOOP AT itab_zycit500.
READ TABLE itab_it WITH KEY fabrinr = itab_zycit500-fabrinr.
IF sy-subrc NE 0.
DELETE itab_zycit500.
ENDIF.
ENDLOOP.
DELETE FROM /pws/zycit500 WHERE nrseqda = /pws/zycie442-nrseqda.
MODIFY /pws/zycit500 FROM TABLE itab_zycit500.
* << Fim da inclusão
LOOP AT itab_del.
DELETE itab_zycit463 WHERE nrseqda = itab_del-nrseqda
AND ebeln = itab_del-ebeln
AND ebelp = itab_del-ebelp.
ENDLOOP.
LOOP AT itab_lote_del.
DELETE itab_zycit463 WHERE nrseqda = itab_lote_del-nrseqda
AND ebeln = itab_lote_del-ebeln
AND ebelp = itab_lote_del-ebelp
AND nrseqlote = itab_lote_del-nrseqlote.
...
...
itab_zycit443a,
itab_zycit455a,
itab_zycit449a,
itab_zycit450a,
itab_zycit451a,
itab_zycit452a,
itab_zycit453a,
itab_zycit454a,
itab_zycit460a,
itab_zycit463a,
* >> Início da inclusão: FORM SAVE_DATA
itab_zycit500a,
* << Fim da inclusão
itab_zycit464a,
itab_zycit200a,
itab_lote_del.
REFRESH: itab_zycit444a,
itab_zycit445a,
itab_zycit447a,
itab_zycit448a,
itab_zycit443a,
itab_zycit455a,
itab_zycit449a,
itab_zycit450a,
itab_zycit451a,
itab_zycit452a,
itab_zycit453a,
itab_zycit454a,
itab_zycit460a,
itab_zycit463a,
* >> Início da inclusão: FORM SAVE_DATA
itab_zycit500a,
* << Fim da inclusão
itab_zycit464a,
itab_zycit200a,
itab_lote_del.
MOVE: itab_zycit444[] TO itab_zycit444a[],
itab_zycit445[] TO itab_zycit445a[],
itab_zycit447[] TO itab_zycit447a[],
itab_zycit448[] TO itab_zycit448a[],
itab_zycit443[] TO itab_zycit443a[],
itab_zycit455[] TO itab_zycit455a[],
itab_zycit460[] TO itab_zycit460a[],
itab_zycit463[] TO itab_zycit463a[],
* >> Início da inclusão: FORM SAVE_DATA
itab_zycit500[] TO itab_zycit500a[],
* << Fim da inclusão
itab_zycit464[] TO itab_zycit464a[],
itab_zycit449[] TO itab_zycit449a[],
itab_zycit450[] TO itab_zycit450a[],
itab_zycit451[] TO itab_zycit451a[],
itab_zycit452[] TO itab_zycit452a[],
itab_zycit453[] TO itab_zycit453a[],
itab_zycit454[] TO itab_zycit454a[],
itab_zycit200[] TO itab_zycit200a[],
itab_zycit049di2[] TO itab_zycit049di[],
itab_it[] TO itab_ita[],
...
...
ENDIF.
IF itab_zycit460[] NE itab_zycit460a[].
v_changed = '1'.
ENDIF.
IF itab_zycit463[] NE itab_zycit463a[].
v_changed = '1'.
ENDIF.
IF itab_zycit464[] NE itab_zycit464a[].
v_changed = '1'.
ENDIF.
* >> Início da inclusão: FORM VERIFY_CHANGES
IF itab_zycit500[] NE itab_zycit500a[].
v_changed = '1'.
ENDIF.
* << Fim da inclusão
ELSE.
IF /pws/zycie442 NE wa_zycit442.
v_changed = '1'.
ENDIF.
IF itab_zycit049di[] NE itab_zycit049di2[].
v_changed = '1'.
ENDIF.
IF itab_zycit447[] NE itab_zycit447a[].
v_changed = '1'.
ENDIF.
...
...
WHERE nrseqda = /pws/zycie442-nrseqda.
SELECT * FROM /pws/zycit452 INTO TABLE itab_zycit452
WHERE nrseqda = /pws/zycie442-nrseqda.
SELECT * FROM /pws/zycit453 INTO TABLE itab_zycit453
WHERE nrseqda = /pws/zycie442-nrseqda.
SELECT * FROM /pws/zycit454 INTO TABLE itab_zycit454
WHERE nrseqda = /pws/zycie442-nrseqda.
SELECT * FROM /pws/zycit460 INTO TABLE itab_zycit460
WHERE nrseqda = /pws/zycie442-nrseqda.
SELECT * FROM /pws/zycit464 INTO TABLE itab_zycit464
* >> Início da inclusão: FORM LOADING_ALL
WHERE nrseqda = /pws/zycie442-nrseqda.
REFRESH: itab_zycit500.
SELECT * FROM /pws/zycit500 INTO TABLE itab_zycit500
* << Fim da inclusão
WHERE nrseqda = /pws/zycie442-nrseqda.
MOVE: itab_zycit049[] TO itab_zycit049a[],
itab_zycit444[] TO itab_zycit444a[],
itab_zycit445[] TO itab_zycit445a[],
itab_zycit448[] TO itab_zycit448a[],
itab_zycit449[] TO itab_zycit449a[],
itab_zycit450[] TO itab_zycit450a[],
itab_zycit451[] TO itab_zycit451a[],
itab_zycit452[] TO itab_zycit452a[],
itab_zycit453[] TO itab_zycit453a[],
itab_zycit454[] TO itab_zycit454a[],
itab_zycit460[] TO itab_zycit460a[],
* >> Início da inclusão: FORM LOADING_ALL
itab_zycit500[] TO itab_zycit500a[],
* << Fim da inclusão
itab_zycit464[] TO itab_zycit464a[].
ENDIF.
SELECT * FROM /pws/zycit200 INTO TABLE itab_zycit200
WHERE id = /pws/zycie442-nrseqda.
SELECT * FROM /pws/zycit447 INTO TABLE itab_zycit447
WHERE nrseqda = /pws/zycie442-nrseqda.
MOVE: itab_zycit447[] TO itab_zycit447a[],
itab_zycit200[] TO itab_zycit200a[].
CLEAR: v_calci.
IF NOT /pws/zycie442-nrbl IS INITIAL.
...
...
IF sy-tabix = 1.
MOVE-CORRESPONDING itab_it TO itab_itb.
ENDIF.
v_tabix = v_tabix + 1.
CLEAR v_flag_quebra.
v_cont = v_cont + 1.
IF itab_it-j_1bnbm NE itab_itb-j_1bnbm OR
itab_it-fabric NE itab_itb-fabric OR
itab_it-lifnrfabr NE itab_itb-lifnrfabr OR
itab_it-lifnr NE itab_itb-lifnr OR
* >> Início da inclusão: FORM ADIC_LIST
itab_it-fabrinr NE itab_itb-fabrinr OR
* << Fim da inclusão
itab_it-advalii NE itab_itb-advalii OR
itab_it-advalipi NE itab_itb-advalipi OR
itab_it-naladi NE itab_itb-naladi OR
itab_it-naladincca NE itab_itb-naladincca OR
itab_it-codregtri NE itab_itb-codregtri OR
itab_it-codregtriipi NE itab_itb-codregtriipi OR
itab_it-zterm NE itab_itb-zterm OR
itab_it-meinsest NE itab_itb-meinsest OR
itab_it-pproc NE itab_itb-pproc OR
itab_it-nrseqli NE itab_itb-nrseqli OR
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070F02
...
FORM load_forn USING p_lifnr p_zycie.
CLEAR wa_lfa1.
SELECT SINGLE lifnr name1 land1 adrnr stras ort01 ort02 regio
FROM lfa1
INTO CORRESPONDING FIELDS OF wa_lfa1
WHERE lifnr EQ p_lifnr.
CLEAR wa_adrc.
SELECT SINGLE * FROM adrc INTO wa_adrc
WHERE addrnumber EQ wa_lfa1-adrnr.
* >> Início da inclusão: FORM LOAD_FORN
IF p_zycie = '800'.
* << Fim da inclusão
CLEAR /pws/zycie080-regio.
SELECT SINGLE bezei FROM t005u INTO /pws/zycie080-regio
WHERE land1 = wa_lfa1-land1 AND
spras = sy-langu AND
bland = wa_adrc-region.
* >> Início da exclusão: FORM LOAD_FORN
IF p_zycie = '800'.
* << Fim da exclusão
/pws/zycie080-lifnr = wa_lfa1-lifnr.
/pws/zycie080-name1 = wa_lfa1-name1.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070F03
...
ad_orgemiss ad_numero ad_anoemiss aladi tribipi
* >> Início da exclusão: FORM DATA_SORT
advalicms vlantid meinsantid qtdeantid.
* << Fim da exclusão
* >> Início da inclusão: FORM DATA_SORT
advalicms vlantid meinsantid qtdeantid fabrinr.
* << Fim da inclusão
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070F05
...
* >> Início da inclusão:
FORM informa_fabricante.
DATA v_messag TYPE c.
CLEAR: v_messag.
LOOP AT itab_it WHERE mark EQ 'X'.
IF v_messag IS INITIAL.
v_messag = 'X'.
ELSE.
v_messag = 'M'.
EXIT.
ENDIF.
ENDLOOP.
CLEAR: /pws/zycit500.
IF v_messag EQ 'X'.
IF NOT itab_it-lifnrfabr IS INITIAL.
READ TABLE itab_fabric WITH KEY lifnr = itab_it-lifnrfabr.
/pws/zycit500-name1 = itab_fabric-name1 .
/pws/zycit500-lando = itab_fabric-landa .
/pws/zycit500-logradouro = itab_fabric-logradouro.
/pws/zycit500-nrlogr = itab_fabric-nrlogr .
/pws/zycit500-compl = itab_fabric-compl .
/pws/zycit500-regio = itab_fabric-regio .
/pws/zycit500-city = itab_fabric-city .
ELSEIF NOT itab_it-fabrinr IS INITIAL.
READ TABLE itab_zycit500 WITH KEY fabrinr = itab_it-fabrinr.
/pws/zycit500 = itab_zycit500.
ENDIF.
CALL SCREEN '0500' STARTING AT 5 2.
ELSEIF v_messag EQ 'M'.
MESSAGE i015 WITH text-540.
ELSE.
MESSAGE i015 WITH text-012.
ENDIF.
ENDFORM.
FORM replicar.
DATA v_messag TYPE c.
CLEAR: v_messag.
LOOP AT itab_it WHERE mark EQ 'X'.
IF v_messag IS INITIAL.
v_messag = 'X'.
ELSE.
v_messag = 'M'.
EXIT.
ENDIF.
ENDLOOP.
IF v_messag EQ 'X'.
REFRESH itab_it_aux.
itab_it_aux[] = itab_it[].
DELETE itab_it_aux WHERE mark EQ 'X'.
LOOP AT itab_lote WHERE qtd_nac > 0.
DELETE itab_it_aux WHERE ebeln EQ itab_lote-ebeln
AND ebelp EQ itab_lote-ebelp.
ENDLOOP.
IF NOT itab_it_aux[] IS INITIAL.
SORT itab_it_aux BY matnr j_1bnbm ebeln ebelp.
CALL SCREEN '0153' STARTING AT 5 2.
REFRESH itab_it_aux.
ELSE.
MESSAGE i015 WITH text-544.
ENDIF.
ELSEIF v_messag EQ 'M'.
MESSAGE i015 WITH text-540.
ELSE.
MESSAGE i015 WITH text-012.
ENDIF.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070I01
...
WHEN 'RESUMO'.
PERFORM resumo.
* >> Início da inclusão: MODULE USER_COMMAND_0050
WHEN 'FABRI'.
PERFORM informa_fabricante.
WHEN 'REPL'.
PERFORM replicar.
* << Fim da inclusão
ENDCASE.
ENDIF.
PERFORM atualiza_qtd_po.
CLEAR: sy-ucomm, r_okcode, okcode.
ENDMODULE.
...
...
MODULE modi_datait INPUT.
itab_it-mark = wa_it-mark.
MOVE: v_saldo_da TO itab_it-v_saldo_da,
v_qtd_da TO itab_it-qtd_da,
v_vlreal TO itab_it-vlreal.
IF itab_it-mandt IS INITIAL.
itab_it-mandt = sy-mandt.
ENDIF.
IF v_dit = 'S'.
ELSE.
* >> Início da inclusão: MODULE MODI_DATAIT
itab_it-lifnrfabr = /pws/zycie443a-lifnrfabr.
* << Fim da inclusão
MODIFY itab_it TRANSPORTING mark v_saldo_da qtd_da vlreal ntgew
* >> Início da inclusão: MODULE MODI_DATAIT
lifnrfabr
* << Fim da inclusão
WHERE ebeln EQ itab_it-ebeln
AND ebelp EQ itab_it-ebelp.
ENDIF.
ENDMODULE.
...
...
* >> Início da inclusão:
MODULE user_command_0500 INPUT.
CASE sy-ucomm.
WHEN 'BACK'.
LEAVE TO SCREEN 0.
WHEN 'ENTE'.
IF itab_it-lifnrfabr IS INITIAL.
/pws/zycit500-nrseqda = /pws/zycie442-nrseqda.
IF itab_it-fabrinr IS INITIAL.
IF /pws/zycit500-name1 IS INITIAL AND
/pws/zycit500-lando IS INITIAL AND
/pws/zycit500-logradouro IS INITIAL AND
/pws/zycit500-nrlogr IS INITIAL AND
/pws/zycit500-compl IS INITIAL AND
/pws/zycit500-city IS INITIAL AND
/pws/zycit500-regio IS INITIAL.
LEAVE TO SCREEN 0.
ENDIF.
CLEAR: itab_zycit500.
LOOP AT itab_zycit500
WHERE name1 = /pws/zycit500-name1
AND lando = /pws/zycit500-lando
AND logradouro = /pws/zycit500-logradouro
AND nrlogr = /pws/zycit500-nrlogr
AND compl = /pws/zycit500-compl
AND city = /pws/zycit500-city
AND regio = /pws/zycit500-regio.
EXIT.
ENDLOOP.
IF itab_zycit500 IS INITIAL.
SORT itab_zycit500 DESCENDING BY fabrinr.
READ TABLE itab_zycit500 INDEX 1.
ADD 1 TO itab_zycit500-fabrinr.
/pws/zycit500-fabrinr = itab_zycit500-fabrinr.
itab_zycit500 = /pws/zycit500.
APPEND itab_zycit500.
ENDIF.
ELSE.
IF /pws/zycit500 NE itab_zycit500.
IF /pws/zycit500-name1 IS INITIAL AND
/pws/zycit500-lando IS INITIAL AND
/pws/zycit500-logradouro IS INITIAL AND
/pws/zycit500-nrlogr IS INITIAL AND
/pws/zycit500-compl IS INITIAL AND
/pws/zycit500-city IS INITIAL AND
/pws/zycit500-regio IS INITIAL.
CLEAR itab_it-fabrinr.
MODIFY itab_it TRANSPORTING fabrinr
WHERE ebeln EQ itab_it-ebeln
AND ebelp EQ itab_it-ebelp.
LEAVE TO SCREEN 0.
ENDIF.
CLEAR: itab_zycit500.
LOOP AT itab_zycit500
WHERE name1 = /pws/zycit500-name1
AND lando = /pws/zycit500-lando
AND logradouro = /pws/zycit500-logradouro
AND nrlogr = /pws/zycit500-nrlogr
AND compl = /pws/zycit500-compl
AND city = /pws/zycit500-city
AND regio = /pws/zycit500-regio.
EXIT.
ENDLOOP.
IF itab_zycit500-fabrinr IS INITIAL.
CLEAR v_resposta.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
titlebar = text-023
text_question = text-541
text_button_1 = text-542
text_button_2 = text-543
default_button = '1'
display_cancel_button = 'X'
start_column = 25
start_row = 6
IMPORTING
answer = v_resposta
EXCEPTIONS
text_not_found = 0
OTHERS = 0.
CASE v_resposta.
WHEN '1'.
CLEAR: itab_zycit500.
SORT itab_zycit500 DESCENDING BY fabrinr.
READ TABLE itab_zycit500 INDEX 1.
ADD 1 TO itab_zycit500-fabrinr.
/pws/zycit500-fabrinr = itab_zycit500-fabrinr.
itab_zycit500 = /pws/zycit500.
APPEND itab_zycit500.
WHEN '2'.
LOOP AT itab_zycit500 WHERE
fabrinr = /pws/zycit500-fabrinr.
itab_zycit500 = /pws/zycit500.
MODIFY itab_zycit500.
ENDLOOP.
WHEN 'A'.
EXIT.
ENDCASE.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
itab_it-fabrinr = itab_zycit500-fabrinr.
MODIFY itab_it TRANSPORTING fabrinr
WHERE ebeln EQ itab_it-ebeln
AND ebelp EQ itab_it-ebelp.
LEAVE TO SCREEN 0.
WHEN 'CLEAR'.
CLEAR /pws/zycit500.
ENDCASE.
ENDMODULE.
MODULE modif_fab INPUT.
IF NOT /pws/zycie443a-lifnrfabr IS INITIAL.
CLEAR: itab_it-fabrinr.
MODIFY itab_it TRANSPORTING fabrinr
WHERE ebeln EQ itab_it-ebeln
AND ebelp EQ itab_it-ebelp.
ENDIF.
ENDMODULE.
MODULE modif_153 INPUT.
itab_it_aux-mark = v_mark.
MODIFY itab_it_aux TRANSPORTING mark
WHERE ebeln EQ itab_it_aux-ebeln
AND ebelp EQ itab_it_aux-ebelp.
ENDMODULE.
MODULE user_command_0153 INPUT.
CASE sy-ucomm.
WHEN 'MALL'.
itab_it_aux-mark = 'X'.
MODIFY itab_it_aux TRANSPORTING mark
WHERE mark NE 'X'.
WHEN 'DALL'.
CLEAR itab_it_aux-mark.
MODIFY itab_it_aux TRANSPORTING mark
WHERE mark EQ 'X'.
WHEN 'BACK'.
LEAVE TO SCREEN 0.
WHEN 'ENTE'.
READ TABLE itab_it WITH KEY mark = 'X'.
LOOP AT itab_it_aux WHERE mark EQ 'X'.
MODIFY itab_it TRANSPORTING fabrinr lifnrfabr
WHERE ebeln EQ itab_it_aux-ebeln
AND ebelp EQ itab_it_aux-ebelp.
ENDLOOP.
LEAVE TO SCREEN 0.
ENDCASE.
ENDMODULE.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070O01
...
IF /pws/zycie442-codreg EQ '15'.
screen-input = screen-required = '0'.
screen-invisible = '1'.
ENDIF.
ENDIF.
CHECK v_acto NE 'E'.
MODIFY SCREEN.
ENDLOOP.
WHEN '0310'.
LOOP AT SCREEN.
* >> Início da exclusão: MODULE SET_SCREEN
IF v_acto = 'A'.
IF screen-group2 EQ 'AC'.
screen-input = '1'.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN
screen-invisible = 0.
CASE v_fabric.
WHEN '1'.
IF screen-group4 EQ 'TP3' OR
screen-group1 EQ 'F1' OR
screen-group1 EQ 'F2'.
screen-invisible = 1.
* << Fim da inclusão
ENDIF.
* >> Início da exclusão: MODULE SET_SCREEN
IF screen-group4 EQ 'REQ'.
screen-required = '1'.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN
WHEN '2'.
IF screen-group4 EQ 'TP3' OR
screen-group1 EQ 'F3'.
screen-invisible = 1.
* << Fim da inclusão
ENDIF.
* >> Início da exclusão: MODULE SET_SCREEN
MODIFY SCREEN.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN
WHEN '3'.
IF screen-group1 EQ 'F2' OR
screen-group1 EQ 'F3'.
screen-invisible = 1.
* << Fim da inclusão
ENDIF.
* >> Início da exclusão: MODULE SET_SCREEN
ENDLOOP.
WHEN '0311'.
LOOP AT SCREEN.
IF v_acto = 'A'.
IF screen-group1 EQ 'AC'.
screen-input = '1'.
ENDIF.
IF screen-group4 EQ 'REQ'.
screen-required = '1'.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
WHEN '0313'.
LOOP AT SCREEN.
IF v_acto = 'A'.
IF screen-group1 EQ 'AC'.
screen-input = '1'.
ENDIF.
IF screen-group4 EQ 'REQ'.
screen-required = '1'.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
WHEN '0312'.
LOOP AT SCREEN.
IF v_acto = 'A'.
IF screen-group1 EQ 'AC'.
screen-input = '1'.
ENDIF.
IF screen-group4 EQ 'REQ'.
screen-required = '1'.
ENDIF.
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN
ENDCASE.
* << Fim da inclusão
MODIFY SCREEN.
ENDLOOP.
WHEN '0350'.
v_input = '0'.
IF v_acto = 'A'.
v_input = '1'.
ENDIF.
MOVE /pws/zycie451-codcambial TO v_m.
LOOP AT SCREEN.
screen-input = '0'.
...
...
WHEN '0220'.
LOOP AT SCREEN.
IF /pws/zycie442-codreg = '02' AND
screen-name = 'BTNT220_04'.
screen-invisible = '0'.
MODIFY SCREEN.
ENDIF.
IF /pws/zycie442-codreg <> '02' AND
screen-name = 'BTNT220_04'.
screen-invisible = '1'.
* >> Início da inclusão: MODULE SET_SCREEN
MODIFY SCREEN.
ENDIF.
ENDLOOP.
WHEN '0150'.
IF v_acto NE 'A'.
LOOP AT SCREEN.
IF screen-name EQ 'BTNT0150_09'.
screen-invisible = 1.
screen-active = 0.
* << Fim da inclusão
MODIFY SCREEN.
ENDIF.
ENDLOOP.
* >> Início da inclusão: MODULE SET_SCREEN
ENDIF.
* << Fim da inclusão
ENDCASE.
ENDMODULE.
...
...
/pws/zycie443a-nrseqd = itab_it-nrseqd.
/pws/zycie443a-nrdrawback = itab_it-nrdrawback.
/pws/zycie443a-modalidade = itab_it-modalidade.
ENDIF.
wa_it-mark = itab_it-mark.
v_qtd_da = itab_it-qtd_da.
v_saldo_da = itab_it-v_saldo_da.
v_vlreal = itab_it-vlreal.
MOVE-CORRESPONDING itab_it TO /pws/zycie003.
MOVE-CORRESPONDING itab_it TO /pws/zycie443a.
* >> Início da inclusão: MODULE FILL_STRUCTIT
IF NOT /pws/zycie443a-lifnrfabr IS INITIAL.
CLEAR: itab_fabric, /pws/zycie080.
READ TABLE itab_fabric WITH KEY
lifnr = /pws/zycie443a-lifnrfabr.
IF sy-subrc NE 0.
PERFORM load_forn USING /pws/zycie443a-lifnrfabr
'800'.
itab_fabric-lifnr = /pws/zycie080-lifnr.
itab_fabric-name1 = /pws/zycie080-name1.
itab_fabric-landa = /pws/zycie080-landa.
itab_fabric-logradouro = /pws/zycie080-logradouro.
itab_fabric-nrlogr = /pws/zycie080-nrlogr.
itab_fabric-compl = /pws/zycie080-compl.
itab_fabric-regio = /pws/zycie080-regio.
itab_fabric-city = /pws/zycie080-city.
IF NOT /pws/zycie080-lifnr IS INITIAL.
APPEND itab_fabric.
ENDIF.
ENDIF.
/pws/zycit500-name1 = itab_fabric-name1.
ELSEIF NOT itab_it-fabrinr IS INITIAL.
READ TABLE itab_zycit500 WITH KEY fabrinr = itab_it-fabrinr.
/pws/zycit500-name1 = itab_zycit500-name1.
ENDIF.
* << Fim da inclusão
ENDMODULE.
...
...
a_1taxarate = a_2taxarate = a_3taxarate =
/pws/zycie451-taxarate.
a_1parcnum = a_2parcnum = a_3parcnum =
/pws/zycie451-parcnum.
a_1periodic = a_2periodic = a_3periodic =
/pws/zycie451-periodic.
a_1indice = a_2indice = a_3indice =
/pws/zycie451-indice.
a_1valtot = a_2valtot = a_3valtot =
/pws/zycie451-valtot.
* >> Início da exclusão: MODULE LOAD_ADIC
IF itab_zycit003-fabric EQ '1'.
PERFORM load_forn USING: /pws/zycie451-lifnr '800'.
ELSEIF itab_zycit003-fabric EQ '2'.
PERFORM load_forn USING: /pws/zycie451-lifnr '800'.
IF itab_zycit003-flagfabr = 'N'.
/pws/zycie080a-name1 = itab_zycit003-descfab.
/pws/zycie080a-landa = /pws/zycie451-paisfab.
CLEAR: /pws/zycie080a-logradouro, /pws/zycie080a-nrlogr,
/pws/zycie080a-compl,
/pws/zycie080a-city, /pws/zycie080a-regio.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_ADIC
CLEAR: /pws/zycie080, /pws/zycie080a.
v_fabric = 3.
READ TABLE itab_it WITH KEY adicao = wa_it-adicao.
PERFORM load_forn USING: itab_it-lifnr '800'.
IF NOT itab_it-lifnrfabr IS INITIAL.
IF itab_it-lifnrfabr NE itab_it-lifnr.
v_fabric = 2.
PERFORM load_forn USING itab_it-lifnrfabr '80A'.
* << Fim da inclusão
ELSE.
* >> Início da exclusão: MODULE LOAD_ADIC
PERFORM load_forn USING itab_zycit003-lifnrfabr '80A'.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_ADIC
v_fabric = 1.
* << Fim da inclusão
ENDIF.
* >> Início da exclusão: MODULE LOAD_ADIC
ELSEIF itab_zycit003-fabric EQ '3'.
PERFORM load_forn USING /pws/zycie451-lifnr '800'.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_ADIC
ELSEIF NOT itab_it-fabrinr IS INITIAL.
CLEAR: itab_zycit500, /pws/zycie080a, wa_it-porigem,
a_spais, a_pais.
READ TABLE itab_zycit500
WITH KEY fabrinr = itab_it-fabrinr.
/pws/zycie080a-name1 = itab_zycit500-name1.
/pws/zycie080a-landa = itab_zycit500-lando.
/pws/zycie080a-logradouro = itab_zycit500-logradouro.
/pws/zycie080a-nrlogr = itab_zycit500-nrlogr.
/pws/zycie080a-regio = itab_zycit500-regio.
/pws/zycie080a-compl = itab_zycit500-compl.
/pws/zycie080a-city = itab_zycit500-city.
PERFORM load_pais USING /pws/zycie080a-landa
CHANGING a_spais2 a_pais2.
IF /pws/zycie080a-name1 IS INITIAL AND
/pws/zycie080a-logradouro IS INITIAL AND
/pws/zycie080a-nrlogr IS INITIAL AND
/pws/zycie080a-compl IS INITIAL AND
/pws/zycie080a-regio IS INITIAL AND
/pws/zycie080a-city IS INITIAL.
v_fabric = 3.
wa_it-porigem = /pws/zycie080a-landa.
a_spais = a_spais2.
a_pais = a_pais2.
ELSE.
v_fabric = 2.
ENDIF.
* << Fim da inclusão
ENDIF.
PERFORM: load_cncm USING wa_it-j_1bnbm,
load_pais USING wa_it-porigem
CHANGING a_spais a_pais,
load_pais USING /pws/zycie080-landa
CHANGING a_spais1 a_pais1,
load_inco USING /pws/zycie442-inco1,
load_regt USING wa_it-codregtri /pws/zycie442-ntimp '1'
CHANGING t_regdes,
load_regt USING wa_it-codregtriipi /pws/zycie442-ntimp '2'
...
...
CASE sy-dynnr.
WHEN '0150'.
LOOP AT SCREEN.
IF v_acto NE 'A'.
CASE screen-name.
WHEN '/PWS/ZYCIE443A-QTD_ITEN' OR 'V_SALDO_DA'.
IF /pws/zycie442-codreg EQ '04'.
screen-input = '0'.
screen-invisible = '1'.
ENDIF.
* >> Início da exclusão: MODULE SET_SCREEN_TABLE
WHEN 'V_QTD_DA' OR 'V_VLREAL'.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN_TABLE
WHEN 'V_QTD_DA' OR 'V_VLREAL' OR
'/PWS/ZYCIE443A-LIFNRFABR'.
* << Fim da inclusão
screen-input = '0'.
ENDCASE.
ELSE.
CASE screen-name.
WHEN '/PWS/ZYCIE443A-QTD_ITEN' OR 'V_SALDO_DA'.
IF /pws/zycie442-codreg EQ '04'.
screen-input = '0'.
screen-invisible = '1'.
ENDIF.
WHEN 'V_QTD_DA'.
...
...
qtd_nac > 0.
ENDLOOP.
IF itab_it-ebelp_ori IS INITIAL AND sy-subrc NE 0.
screen-input = '1'.
ENDIF.
ENDIF.
IF v_doccmp EQ 'X' OR v_embnac EQ 'X' OR
NOT /pws/zycie463-qtd_nac IS INITIAL.
screen-input = '0'.
ENDIF.
* >> Início da inclusão: MODULE SET_SCREEN_TABLE
WHEN '/PWS/ZYCIE443A-LIFNRFABR'.
LOOP AT itab_lote WHERE ebeln = itab_it-ebeln AND
ebelp = itab_it-ebelp AND
qtd_nac > 0.
screen-input = '0'.
EXIT.
ENDLOOP.
* << Fim da inclusão
ENDCASE.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
LOOP AT tc_item-cols INTO v_cols.
IF v_cols-screen-name EQ '/PWS/ZYCIE443A-NRSEQ'.
v_cols-screen-input = 0.
v_cols-invisible = '1'.
MODIFY tc_item-cols FROM v_cols.
ENDIF.
...
...
* >> Início da inclusão:
MODULE status_0500 OUTPUT.
DATA v_mscreen TYPE c.
SET TITLEBAR '0500'.
v_mscreen = v_acto.
LOOP AT itab_lote WHERE ebeln = itab_it-ebeln AND
ebelp = itab_it-ebelp AND
qtd_nac > 0.
v_mscreen = 'E'.
EXIT.
ENDLOOP.
IF NOT itab_it-lifnrfabr IS INITIAL OR
v_mscreen NE 'A'.
LOOP AT SCREEN.
screen-input = 0.
MODIFY SCREEN.
ENDLOOP.
SET PF-STATUS 'ST0500' EXCLUDING 'CLEAR'.
ELSE.
SET PF-STATUS 'ST0500'.
ENDIF.
ENDMODULE.
MODULE preench_153 OUTPUT.
/pws/zycie443-ebeln = itab_it_aux-ebeln .
/pws/zycie443-ebelp = itab_it_aux-ebelp .
/pws/zycie443-matnr = itab_it_aux-matnr .
/pws/zycie443-descr = itab_it_aux-descr .
/pws/zycie443-j_1bnbm = itab_it_aux-j_1bnbm .
v_mark = itab_it_aux-mark .
ENDMODULE.
MODULE status_0153 OUTPUT.
SET PF-STATUS 'ST0153'.
SET TITLEBAR '0153'.
ENDMODULE.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070TOP
...
tc_arm TYPE TABLEVIEW USING SCREEN 0131,
tc_item TYPE TABLEVIEW USING SCREEN 0150,
tc_desp TYPE TABLEVIEW USING SCREEN 0160,
tc_adic TYPE TABLEVIEW USING SCREEN 0170,
tc_text TYPE TABLEVIEW USING SCREEN 0181,
t269 TYPE TABLEVIEW USING SCREEN 0190,
tc_fornec TYPE TABLEVIEW USING SCREEN 0210,
tc_lote TYPE TABLEVIEW USING SCREEN 0220,
tc_lote_aux TYPE TABLEVIEW USING SCREEN 0151,
tc_lote_aux2 TYPE TABLEVIEW USING SCREEN 0152,
* >> Início da inclusão:
TC_REPLI TYPE TABLEVIEW USING SCREEN 0153,
* << Fim da inclusão
tc_ades TYPE TABLEVIEW USING SCREEN 0321,
tc_adoc TYPE TABLEVIEW USING SCREEN 0321,
tc_aite TYPE TABLEVIEW USING SCREEN 0322,
tc_anom TYPE TABLEVIEW USING SCREEN 0323,
tc_aacr TYPE TABLEVIEW USING SCREEN 0331,
tc_aded TYPE TABLEVIEW USING SCREEN 0332,
tc_apga TYPE TABLEVIEW USING SCREEN 0351,
tc_apgv TYPE TABLEVIEW USING SCREEN 0352,
tc_apar TYPE TABLEVIEW USING SCREEN 0353,
tc_arep TYPE TABLEVIEW USING SCREEN 0360,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070X01
...
* >> Início da inclusão:
TABLES /pws/zycit500.
* << Fim da inclusão
DATA: BEGIN OF COMMON PART a.
...
...
* >> Início da inclusão:
DATA: itab_zycit500 TYPE /pws/zycit500 OCCURS 0 WITH HEADER LINE,
itab_zycit500a TYPE /pws/zycit500 OCCURS 0 WITH HEADER LINE,
itab_fabric TYPE /pws/zycit080 OCCURS 0 WITH HEADER LINE,
itab_it_aux LIKE itab_it OCCURS 0 WITH HEADER LINE,
v_fabric TYPE /pws/zycit003-fabric.
* << Fim da inclusão
DATA: END OF COMMON PART.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI070
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 540
Texto: (22 caracteres)
"Marcar apenas um item."
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 541
Texto: (57 caracteres)
"Considerar como novo fabricante ou modificar informações?"
Comprimento máximo: 57
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 542
Texto: (4 caracteres)
"Novo"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 543
Texto: (9 caracteres)
"Modificar"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 544
Texto: (48 caracteres)
"Nenhum item disponível para replicar fabricante."
Comprimento máximo: 50
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT443
Nome de campo Chv Elem.dados Tab.verif. N CtDt Comp. Grupo
...
PIS_DEV /PWS/ZYCIL307 CURR 16
COFI_CALC /PWS/ZYCIL307 CURR 16
COFI_DEV /PWS/ZYCIL307 CURR 16
CODREGTRIICMS /PWS/ZYCEL265 /PWS/ZYCIT167 CHAR 1
CODFUNLEGICMS /PWS/ZYCIL203 CHAR 2
* >> Início da exclusão:
LIFNRFABR LIFNR CHAR 10
* << Fim da exclusão
* >> Início da inclusão:
LIFNRFABR LIFNR LFA1 CHAR 10
FABRINR NUMC3 NUMC 3
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABL /PWS/ZYCIT500
*Características gerais:
Nome da tabela : /PWS/ZYCIT500
Descrição breve : CI - Fabricantes DA
Ctg.tabela : Tabela transparente
Arm.bff.permitido :
AtualTab.permitida: X
Classe de entrega : A
Nome campo Chv Elem.dados Tab.verif. N CtDt Comp. Grupo
MANDT X MANDT X CLNT 3
NRSEQDA X /PWS/ZYCIL831 X CHAR 10
FABRINR X NUMC3 X NUMC 3
NAME1 /PWS/ZYCIL205 CHAR 60
LANDO LAND1 T005 CHAR 3
LOGRADOURO /PWS/ZYCIL206 CHAR 40
NRLOGR /PWS/ZYCIL207 CHAR 6
COMPL /PWS/ZYCIL208 CHAR 21
CITY /PWS/ZYCIL204 CHAR 25
REGIO /PWS/ZYCIL204 CHAR 25