CE PLUS - Nota 000965
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Despesas
Data/Hora da Publicação: 01/03/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:05:59
Descrição da Nota: FABRICANTE NO PEDIDO DE COMPRAS (EKPO-MFRNR)
Sintoma
Temos Standard no SAP o campo Fabricante no pedido de compras (EKPO-MFRNR) e o sistema não esta
trazendo para o embarque (e por conseqüência a DI) o código do fornecedor quando preenchido.
Solução
Inserida consistencia para levar Fabricante.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00965 Data: 01/03/2006 Hora: 16:10:49
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00965
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00022
Agrupamento : 00102
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
FABRICANTE NO PEDIDO DE COMPRAS (EKPO-MFRNR)
----------------------------------------------------------------------------------------------------
Palavras Chave:
FABRICANTE - PEDIDO - DI - FORNECEDOR
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI001 0102
REPS /PWS/MZYCI001F01
REPS /PWS/MZYCI001F03
REPS /PWS/MZYCI001O01
REPS /PWS/MZYCI001TOP
REPS /PWS/MZYCI001X01
REPS /PWS/MZYCI003F01
REPS /PWS/MZYCI003F02
REPS /PWS/MZYCI003I01
REPS /PWS/MZYCI003O01
REPS /PWS/MZYCI003TOP
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI001 0102
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F01
...
CONCATENATE '0' itab_zycit003-ebelp INTO v_kposn_fob.
LOOP AT itab_komv
WHERE kposn EQ v_kposn_fob
AND kschl EQ it_zycit287-kschl
AND ebeln EQ itab_zycit003-ebeln.
* >> Início da inclusão: FORM LOAD_VALOR_FOB_PED
IF itab_zycit003-menge EQ 0.
itab_zycit003-menge = 1.
ENDIF.
* << Fim da inclusão
it_zycit287_aux-valor = itab_komv-kwert /
itab_zycit003-menge.
APPEND it_zycit287_aux.
ENDLOOP.
ENDLOOP.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F03
...
for all entries in itab_zycit003
where ebeln eq itab_zycit003-ebeln
and ebelp eq itab_zycit003-ebelp.
endif.
endform.
* >> Início da inclusão:
form call_da.
EXPORT /pws/zycie001-nrseq TO MEMORY ID rimc7.
LOOP AT itab_zycit003.
v_qtd_iten = itab_zycit003-qtd_iten.
IF itab_zycit003-invoiced NE v_qtd_iten AND
itab_zycit003-servico NE 'X'.
MESSAGE e061 WITH text-046 itab_zycit003-ebeln
itab_zycit003-ebelp text-193.
EXIT.
ELSEIF v_consist = 'X'.
MESSAGE e015 WITH text-048.
EXIT.
ENDIF.
ENDLOOP.
IF /pws/zycie001-tpdecl IS INITIAL.
EXIT.
ENDIF.
IF NOT itab_zycit003[] IS INITIAL.
SELECT * FROM /pws/zycit443
INTO TABLE itab_zycit443
FOR ALL ENTRIES IN itab_zycit003
WHERE nrseq EQ itab_zycit003-nrseq
AND ebeln EQ itab_zycit003-ebeln
AND ebelp EQ itab_zycit003-ebelp.
IF sy-subrc EQ 0.
READ TABLE itab_zycit443 INDEX 1.
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zycit442
WHERE nrseqda = itab_zycit443-nrseqda.
v_nrseqda = /pws/zycit442-nrseqda.
ENDIF.
SET PARAMETER ID '/PWS/ZYCIP442' FIELD v_nrseqda.
EXPORT v_nrseqda TO MEMORY ID rimc1.
IF /pws/zycie001-tpdecl = 'DI'.
IF sy-tcode EQ '/PWS/ZYCI001_A' OR sy-tcode EQ '/PWS/ZYCI001_C'.
PERFORM valida_trans USING '/PWS/ZYCI070_A' 'skip'.
ELSE.
PERFORM valida_trans USING '/PWS/ZYCI070_E' 'skip'.
ENDIF.
ENDIF.
ELSE.
SELECT SINGLE * FROM /pws/zycit093
WHERE nrseqce = /pws/zycit094-nrseqce.
IF sy-subrc EQ 0.
MOVE-CORRESPONDING /pws/zycit093 TO wa_zycie085.
MOVE: /pws/zycit093-nrseqce TO wa_zycie442-nrbl,
/pws/zycie001-embarca TO wa_zycie442-identify.
EXPORT wa_zycie442 TO MEMORY ID rimc4.
IF /pws/zycie001-tpdecl EQ 'DI'.
IF sy-tcode NE '/PWS/ZYCI001_E'.
PERFORM valida_trans USING '/PWS/ZYCI070_C' ''.
ELSE.
MESSAGE e015 WITH text-166.
ENDIF.
ENDIF.
FREE wa_zycie442.
ENDIF.
ENDIF.
PERFORM recuperando_itens.
ELSE.
MESSAGE i015 WITH text-026.
ENDIF.
endform.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001O01
...
screen-input = 1.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDIF.
* >> Início da exclusão: MODULE SET_SCREEN
IF screen-name = '/PWS/ZYCIE001-DT_ENT_DE' OR
screen-name = '/PWS/ZYCIE001-DT_ENT_ATE'.
IF /pws/zycie001-regime = '02'.
screen-input = 0.
screen-invisible = 1.
ENDIF.
MODIFY SCREEN.
ENDIF.
* << Fim da exclusão
IF screen-name EQ '/PWS/ZYCIE001-NRDESPADU'.
IF NOT /pws/zycit000-oil IS INITIAL.
screen-required = '1'.
ELSE.
screen-required = 0 .
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001TOP
...
DATA: BEGIN OF itab_t006 OCCURS 0,
msehi LIKE t006-msehi,
zaehl LIKE t006-zaehl,
nennr LIKE t006-nennr,
END OF itab_t006.
* >> Início da exclusão:
DATA: BEGIN OF itab_komk OCCURS 0.
INCLUDE STRUCTURE komk.
DATA: END OF itab_komk.
DATA: BEGIN OF itab_komk_aux OCCURS 0.
INCLUDE STRUCTURE komk.
DATA: ebeln LIKE ekko-ebeln.
DATA: END OF itab_komk_aux.
DATA: BEGIN OF itab_komv OCCURS 0.
INCLUDE STRUCTURE komv.
DATA: ebeln LIKE ekko-ebeln.
DATA: END OF itab_komv.
DATA: BEGIN OF itab_komp OCCURS 0.
INCLUDE STRUCTURE konp.
DATA: END OF itab_komp.
DATA: BEGIN OF itab_a016 OCCURS 0.
INCLUDE STRUCTURE a016.
DATA: END OF itab_a016.
DATA: BEGIN OF itab_konp OCCURS 0.
INCLUDE STRUCTURE konp.
DATA: ebeln LIKE ekpo-ebeln,
ebelp LIKE ekpo-ebelp.
DATA: END OF itab_konp.
DATA: BEGIN OF itab_zycit030 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit030.
DATA: END OF itab_zycit030.
* << Fim da exclusão
DATA : BEGIN OF itab_imposto OCCURS 0.
INCLUDE STRUCTURE /pws/zycie110.
DATA : END OF itab_imposto.
DATA : BEGIN OF itab_zycit125 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit125.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001X01
...
INCLUDE STRUCTURE /pws/zycit442.
DATA: END OF itab_zycit442.
DATA: BEGIN OF itab_zycit443 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit443.
DATA: END OF itab_zycit443.
* >> Início da inclusão:
DATA: BEGIN OF itab_komk OCCURS 0.
INCLUDE STRUCTURE komk.
DATA: END OF itab_komk.
DATA: BEGIN OF itab_komk_aux OCCURS 0.
INCLUDE STRUCTURE komk.
DATA: ebeln LIKE ekko-ebeln.
DATA: END OF itab_komk_aux.
DATA: BEGIN OF itab_komv OCCURS 0.
INCLUDE STRUCTURE komv.
DATA: ebeln LIKE ekko-ebeln.
DATA: END OF itab_komv.
DATA: BEGIN OF itab_komp OCCURS 0.
INCLUDE STRUCTURE konp.
DATA: END OF itab_komp.
DATA: BEGIN OF itab_a016 OCCURS 0.
INCLUDE STRUCTURE a016.
DATA: END OF itab_a016.
DATA: BEGIN OF itab_konp OCCURS 0.
INCLUDE STRUCTURE konp.
DATA: ebeln LIKE ekpo-ebeln,
ebelp LIKE ekpo-ebelp.
DATA: END OF itab_konp.
DATA: BEGIN OF itab_zycit030 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit030.
DATA: END OF itab_zycit030.
* << Fim da inclusão
data: end of common part a.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F01
...
ENDIF.
MOVE /pws/zycie006-vltotal TO v_tot_fat2.
PERFORM retorna_decimais USING /pws/zycie006-waers
CHANGING v_tot_fat2.
IF /pws/zycie006-tpfatura = '11'.
* >> Início da inclusão: FORM SALVAR_DADOS
perform trata_fabricante.
* << Fim da inclusão
LOOP AT itab_zycit003 WHERE servico NE 'X'.
ENDLOOP.
IF sy-subrc EQ 0.
MESSAGE i013 WITH text-130.
v_stop = 'X'.
ENDIF.
ELSEIF /pws/zycie006-tpfatura = '01'.
* >> Início da inclusão: FORM SALVAR_DADOS
perform trata_fabricante.
* << Fim da inclusão
LOOP AT itab_zycit003 WHERE servico EQ 'X'.
ENDLOOP.
IF sy-subrc EQ 0.
MESSAGE i001 WITH text-129.
v_stop = 'X'.
...
...
ENDIF.
IF NOT /pws/zycie006-paquis IS INITIAL AND
v_paquis NE /pws/zycie006-paquis
AND NOT itab_zycit003[] IS INITIAL.
LOOP AT itab_zycit003.
* >> Início da exclusão: FORM MOVE_PAIS
MOVE /pws/zycie006-paquis TO itab_zycit003-paquis.
MODIFY itab_zycit003.
* << Fim da exclusão
* >> Início da inclusão: FORM MOVE_PAIS
MOVE /pws/zycie006-paisfab TO itab_zycit003-paquis.
MODIFY: itab_zycit003.
* << Fim da inclusão
ENDLOOP.
MOVE /pws/zycie006-paquis TO v_paquis.
ENDIF .
ENDFORM.
FORM exibir_fabricante.
...
...
AND land1 EQ /pws/zycie080-landa.
SELECT SINGLE landx FROM t005t INTO v_pais_origem
WHERE spras = sy-langu
AND land1 EQ itab_zycit003-porigem.
/pws/zycie003-porigem = itab_zycit003-porigem.
* >> Início da inclusão: FORM LOAD_FORN
ELSEIF itab_zycit003-fabric EQ '0'.
SELECT SINGLE lifnr name1 land1 adrnr stras ort01 ort02 regio
FROM lfa1
INTO CORRESPONDING FIELDS OF wa_lfa1
WHERE lifnr EQ /pws/zycie006-lifnr.
SELECT SINGLE * FROM adrc INTO wa_adrc
WHERE addrnumber EQ wa_lfa1-adrnr.
SELECT SINGLE bezei FROM t005u INTO /pws/zycie080-regio
WHERE land1 = wa_lfa1-land1 AND
spras = sy-langu AND
bland = wa_adrc-region.
/pws/zycie080-lifnr = wa_lfa1-lifnr.
/pws/zycie080-name1 = wa_lfa1-name1.
/pws/zycie080-landa = wa_lfa1-land1.
/pws/zycie080-logradouro = wa_lfa1-adrnr.
/pws/zycie080-nrlogr = wa_lfa1-stras.
/pws/zycie080-compl = wa_lfa1-ort02.
/pws/zycie080-city = wa_lfa1-ort01.
/pws/zycie003-ebeln = itab_zycit003-ebeln.
/pws/zycie003-ebelp = itab_zycit003-ebelp.
SELECT SINGLE landx FROM t005t INTO v_pais_origem
WHERE spras = sy-langu
AND land1 EQ /pws/zycie080-landa.
* << Fim da inclusão
ELSE.
MESSAGE s015 WITH text-050.
v_flag_fabric = 'X'.
ENDIF.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
MOVE v_tot_desp TO v_total_desp.
MESSAGE s061 WITH text-051 v_total_desp text-020 .
ENDIF.
ENDIF.
PERFORM move_pais.
* >> Início da exclusão: FORM TRATA_ENTE
IF /pws/zycie006-fabricante = '0'.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_ENTE
perform trata_fabricante.
ENDFORM.
FORM consiste_fabr.
* << Fim da inclusão
* >> Início da exclusão: FORM TRATA_ENTE
IF v_fabr_ant = '1'.
CLEAR: /pws/zycie006-flagfabr,
/pws/zycie006-lifnrfabr, /pws/zycie006-descfab,
/pws/zycie006-paisfab, v_fabr_ant.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_ENTE
IF '02' ca /pws/zycie006-fabricante .
READ TABLE itab_mfrnr WITH KEY ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
IF sy-subrc NE 0.
/pws/zycie006-lifnrfabr = /pws/zycie003-lifnrfabr.
/pws/zycie006-descfab = /pws/zycie003-descfab .
/pws/zycie006-paisfab = /pws/zycie003-paisfab .
else.
/pws/zycie006-lifnrfabr = itab_mfrnr-mfrnr.
SELECT SINGLE *
FROM lfa1
WHERE lifnr = itab_mfrnr-mfrnr.
IF sy-subrc EQ 0.
/pws/zycie006-descfab = lfa1-name1.
/pws/zycie006-paisfab = lfa1-land1.
endif.
ENDIF.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM TRATA_ENTE
ENDFORM.
form trata_fabricante.
IF /pws/zycie006-fabricante = '0'.
* << Fim da inclusão
IF /pws/zycie006-flagfabr = 'S'.
IF NOT /pws/zycie006-lifnrfabr IS INITIAL.
CLEAR:
lfa1.
SELECT SINGLE *
...
...
CLEAR /pws/zycie006-lifnrfabr.
ENDIF.
LOOP AT itab_zycit003.
READ TABLE itab_mfrnr WITH KEY ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
* >> Início da inclusão: FORM TRATA_ENTE
IF sy-subrc EQ 0.
READ TABLE itab_lfa1 WITH KEY
lifnr = itab_mfrnr-mfrnr.
IF sy-subrc EQ 0.
SELECT SINGLE * FROM lfa1
WHERE lifnr EQ itab_mfrnr-mfrnr.
* << Fim da inclusão
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM TRATA_ENTE
MOVE itab_mfrnr-mfrnr TO /pws/zycie006-lifnrfabr.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_ENTE
itab_zycit003-descfab = itab_lfa1-name1.
itab_zycit003-paisfab = itab_lfa1-land1.
endif.
itab_zycit003-lifnrfabr = itab_mfrnr-mfrnr.
ELSE.
* << Fim da inclusão
SELECT SINGLE *
FROM lfa1
WHERE lifnr = /pws/zycie006-lifnrfabr.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM TRATA_ENTE
itab_zycit003-lifnrfabr = /pws/zycie006-lifnrfabr .
* << Fim da exclusão
/pws/zycie006-descfab = lfa1-name1.
/pws/zycie006-paisfab = lfa1-land1.
* >> Início da inclusão: FORM TRATA_ENTE
ENDIF.
itab_zycit003-lifnrfabr = /pws/zycie006-lifnrfabr .
* << Fim da inclusão
ENDIF.
ELSE.
MOVE /pws/zycie006-lifnrfabr TO itab_zycit003-lifnrfabr.
ENDIF.
MOVE: /pws/zycie006-descfab TO itab_zycit003-descfab,
/pws/zycie006-paisfab TO itab_zycit003-paisfab,
/pws/zycie006-flagfabr TO itab_zycit003-flagfabr,
'0' TO itab_zycit003-fabric.
* >> Início da exclusão: FORM TRATA_ENTE
MODIFY itab_zycit003.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_ENTE
MODIFY: itab_zycit003,/pws/zycit003.
* << Fim da inclusão
ENDLOOP.
v_flag = 'X'.
ELSEIF /pws/zycie006-fabricante = '1'.
v_fabr_ant = '1'.
CLEAR lfa1.
...
...
WHERE lifnr EQ /pws/zycie006-lifnr.
/pws/zycie006-lifnrfabr = /pws/zycie006-lifnr.
/pws/zycie006-flagfabr = 'S'.
/pws/zycie006-descfab = lfa1-name1.
/pws/zycie006-paisfab = lfa1-land1.
* >> Início da inclusão: FORM TRATA_ENTE
loop at itab_zycit003.
itab_zycit003-fabric = '1'.
modify itab_zycit003.
endloop.
* << Fim da inclusão
LOOP AT itab_zycit003.
MOVE: /pws/zycie006-descfab TO itab_zycit003-descfab,
/pws/zycie006-paisfab TO itab_zycit003-paisfab,
/pws/zycie006-lifnrfabr TO itab_zycit003-lifnrfabr,
* >> Início da exclusão: FORM TRATA_ENTE
/pws/zycie006-flagfabr TO itab_zycit003-flagfabr,
'1' TO itab_zycit003-fabric.
MODIFY itab_zycit003.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_ENTE
/pws/zycie006-flagfabr TO itab_zycit003-flagfabr.
MODIFY: itab_zycit003, /pws/zycit003.
* << Fim da inclusão
ENDLOOP.
v_flag = 'X'.
ELSEIF /pws/zycie006-fabricante = '2'.
CLEAR: /pws/zycie006-descfab,
/pws/zycie006-paisfab , /pws/zycie006-lifnrfabr,
/pws/zycie006-flagfabr.
* >> Início da inclusão: FORM TRATA_ENTE
loop at itab_zycit003.
itab_zycit003-fabric = '2'.
modify itab_zycit003.
endloop.
* << Fim da inclusão
IF v_flag EQ 'X'.
LOOP AT itab_zycit003.
READ TABLE itab_mfrnr WITH KEY ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
IF sy-subrc EQ 0.
...
...
lifnr = /pws/zycie006-lifnrfabr.
IF sy-subrc EQ 0.
itab_zycit003-lifnrfabr = itab_mfrnr-mfrnr.
itab_zycit003-descfab = itab_lfa1-name1.
itab_zycit003-paisfab = itab_lfa1-land1.
* >> Início da exclusão: FORM TRATA_ENTE
itab_zycit003-fabric = '2'.
* << Fim da exclusão
ELSE.
SELECT SINGLE * FROM lfa1
WHERE lifnr EQ itab_mfrnr-mfrnr.
itab_zycit003-lifnrfabr = itab_mfrnr-mfrnr.
itab_zycit003-descfab = lfa1-name1.
itab_zycit003-paisfab = lfa1-land1.
* >> Início da exclusão: FORM TRATA_ENTE
itab_zycit003-fabric = '2'.
* << Fim da exclusão
ENDIF.
ELSE.
CLEAR: itab_zycit003-fabric, itab_zycit003-paisfab,
itab_zycit003-descfab, itab_zycit003-lifnrfabr,
itab_zycit003-flagfabr.
ENDIF.
* >> Início da exclusão: FORM TRATA_ENTE
MODIFY itab_zycit003.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_ENTE
MODIFY: itab_zycit003,/pws/zycit003 .
* << Fim da inclusão
ENDLOOP.
v_flag = space.
ENDIF.
ELSEIF /pws/zycie006-fabricante = '3'.
v_flag = 'X'.
CLEAR: /pws/zycie006-descfab,
/pws/zycie006-paisfab ,
/pws/zycie006-lifnrfabr,
/pws/zycie006-flagfabr.
* >> Início da inclusão: FORM TRATA_ENTE
loop at itab_zycit003.
itab_zycit003-fabric = '3'.
modify itab_zycit003.
endloop.
* << Fim da inclusão
LOOP AT itab_zycit003.
CLEAR: itab_zycit003-descfab,
itab_zycit003-lifnrfabr, itab_zycit003-flagfabr.
CLEAR: itab_zycit003-paisfab, itab_zycit003-porigem .
MOVE: '3' TO itab_zycit003-fabric.
* >> Início da exclusão: FORM TRATA_ENTE
MODIFY itab_zycit003.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_ENTE
MODIFY: itab_zycit003,/pws/zycit003.
* << Fim da inclusão
ENDLOOP.
* >> Início da exclusão: FORM TRATA_ENTE
ENDIF.
ENDFORM.
FORM consiste_fabr.
IF /pws/zycie006-fabricante EQ '2'.
READ TABLE itab_mfrnr WITH KEY ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
IF sy-subrc NE 0.
/pws/zycie006-lifnrfabr = /pws/zycie003-lifnrfabr.
/pws/zycie006-descfab = /pws/zycie003-descfab .
/pws/zycie006-paisfab = /pws/zycie003-paisfab .
* << Fim da exclusão
ENDIF.
* >> Início da exclusão: FORM CONSISTE_FABR
ENDIF.
ENDFORM.
* << Fim da exclusão
* >> Início da inclusão:
endform.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003I01
...
PERFORM eliminar_fatura.
WHEN 'SAVE'.
perform trata_save.
WHEN 'MODI'.
perform trata_modi.
* >> Início da inclusão: MODULE USER_COMMAND_0100
WHEN 'MODO'.
DATA: v_autoriza TYPE feld.
CALL FUNCTION '/PWS/ZYGL_AUTORIZA_MODO_BATCH'
EXPORTING
codmod = 'D'
usuario = sy-uname
func = 'FAT'
IMPORTING
autoriza = v_autoriza.
* << Fim da inclusão
* >> Início da exclusão: MODULE USER_COMMAND_0100
WHEN 'MODO'.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0100
IF v_autoriza = 'X'.
* << Fim da inclusão
PERFORM modo_batch_input.
* >> Início da inclusão: MODULE USER_COMMAND_0100
ELSE.
MESSAGE w013 WITH text-161 text-162.
ENDIF.
* << Fim da inclusão
WHEN 'BACK'.
SELECT SINGLE *
FROM /pws/zycit085
WHERE nrbl EQ /pws/zycie006-nrseqce
AND nrdi NE ''
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003O01
...
ELSEIF screen-name EQ 'TAB_FORN2' OR
screen-name EQ 'TAB_FORN1'.
screen-invisible = '1'.
ENDIF.
MODIFY SCREEN.
* >> Início da inclusão: MODULE SET_SCREEN_200
ELSEIF v_fabricante EQ '0'.
IF screen-group1 = 'F1'.
screen-invisible = '1'.
ENDIF.
IF screen-group1 = 'F2'.
screen-invisible = '1'.
ENDIF.
IF screen-group1 = 'F3'.
screen-invisible = '0'.
ENDIF.
IF screen-group2 = 'C1'.
screen-invisible = '1'.
ENDIF.
IF screen-group2 = 'C2'.
screen-invisible = '0'.
ENDIF.
IF screen-name EQ 'TAB_FORN3' .
screen-invisible = '0'.
ELSEIF screen-name EQ 'TAB_FORN2' OR
screen-name EQ 'TAB_FORN1'.
screen-invisible = '1'.
ENDIF.
MODIFY SCREEN.
* << Fim da inclusão
ENDIF.
ENDLOOP.
ENDMODULE.
MODULE set_screen_202 OUTPUT.
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003TOP
...
data: begin of itab_mfrnr occurs 0,
ebeln like ekpo-ebeln,
ebelp like ekpo-ebelp,
mfrnr like ekpo-mfrnr,
end of itab_mfrnr.
* >> Início da inclusão:
data: begin of itab_lfa1 occurs 0,
lifnr like lfa1-lifnr,
land1 like lfa1-land1,
name1 like lfa1-name1,
end of itab_lfa1 .
* << Fim da inclusão
CONTROLS:
ts_fa TYPE TABSTRIP,
ts_faturas TYPE TABSTRIP,
tc_faturas TYPE TABLEVIEW USING SCREEN '0001',
tc_ccambio TYPE TABLEVIEW USING SCREEN '0103',
...
...
v_forn,
v_tela_help LIKE sy-dynnr value '0052',
v_kurst like /pws/zycit000-kurst ,
v_nrseq LIKE /pws/zycit001-nrseq ,
v_awkey LIKE bkpf-awkey ,
* >> Início da exclusão:
v_existe_lc type C .
* << Fim da exclusão
* >> Início da inclusão:
v_existe_lc type C ,
v_descfab(01).
* << Fim da inclusão
DATA: gv_subscreen_0050 TYPE sy-dynnr VALUE '0051',
gv_subscreen_0100_1 TYPE sy-dynnr,
gv_subscreen_0300_2 TYPE sy-dynnr.
CONSTANTS: BEGIN OF gc_subscreen,
prog TYPE sy-dynnr VALUE '0100',
...