CE PLUS - Nota 004280
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DA
Data/Hora da Publicação: 26/07/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:43:31
Descrição da Nota: DECLARAÇÃO DE ADMISSÃO - VARIAÇÃO CAMBIAL
Sintoma
A variação cambial não foi feita na DI devido a problemas na conta.
O sistema salva a DI, não gera a variação mas não dá nenhuma mensagem de erro.
Quando o sistema não conseguir fazer F-05 ou F-51 na variação da DI, deverá aparecer uma mensagem de
erro sobre o problema.
Solução
Exibir mensagens de erros, se houver, depois da função de Variação Cambial.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04280 Data: 26/07/2007 Hora: 11:18:02
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04280
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00005
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02861 - 00001 - 6.0 - 00026 - NF PARA PROCESSO DE RECOF
----------------------------------------------------------------------------------------------------
DECLARAÇÃO DE ADMISSÃO - VARIAÇÃO CAMBIAL
----------------------------------------------------------------------------------------------------
Palavras Chave:
PASTA; VARIAÇÃO; CAMBIAL
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI070 0100
REPS /PWS/MZYCI070F03
REPS /PWS/MZYCI070F05
REPS /PWS/MZYCI070O01
REPS /PWS/MZYCI070TOP
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI070 0100
Atributos tela
Tela /PWS/SAPMZYCI070 0100 , status ant., F6DK943096 28.02.2007 PWSCI
Descrição breve DI - Cabeçalho de Desembaraço de DI
Idioma original P
Gravação tela 28.02.2007 11:17:20
Tipo tela Tela include (subtela)
Tela seguin 0100
Manter dados Desativado
Fonte equidistante Desativado
Compressão tmp.exec. Ativado
Tela-modelo Desativado
Manter posição de rola Desativado
Posição cursor
Grp.telas
Linhas/colunas Ocupds 28 /120
Atual. 30 /120
Tela /PWS/SAPMZYCI070 0100 , status novo, 25.07.2007
Descrição breve DI - Cabeçalho de Desembaraço de DI
Idioma original P
Gravação tela 25.07.2007 14:24:29
Tipo tela Tela include (subtela)
Tela seguin 0100
Manter dados Desativado
Fonte equidistante Desativado
Compressão tmp.exec. Ativado
Tela-modelo Desativado
Manter posição de rola Desativado
Posição cursor
Grp.telas
Linhas/colunas Ocupds 28 /120
Atual. 30 /120
Layout
Tela /PWS/SAPMZYCI070 0100 , status ant., F6DK943096 28.02.2007 PWSCI
001
002 Identificação _______________ __________>
003 Empresa/Importador ____>____>__________________ ___________________________>
004 Regime Importação __>_________________________ Canal __ D>
005
006
007 Básicas Transporte Carga Pagamento Itens Pagamento Despesas Complementares Status
Fornecedores Lote
008
009
....................................................................................................
.................
Tela /PWS/SAPMZYCI070 0100 , status novo, 25.07.2007
>> Inclusão da pasta variação
001
002 Identificação _______________ __________>
003 Empresa/Importador ____>____>__________________ ___________________________>
004 Regime Importação __>_________________________ Canal __ D>
005
006
007 Básicas Transporte Carga Pagamento Itens Pagamento Despesas Complementares Variação
Status Fornecedores Lote
008
009
....................................................................................................
.................
Tela /PWS/SAPMZYCI070 0100 , status ant., F6DK943096 28.02.2007 PWSCI
Nome
Ctg. Linha Coluna CmprDf CmVis Altura Format Dict Modif At.Des.Só At
Gr1 Gr2 Gr3 Gr4 SPA GPA ID parâm Cód.F TCmp TpoLoopExbLoop
Outros atributos
FRM1
Quadr 1 2 119 119 1 CHAR
/PWS/ZYCIE085-NRSEQDI
Texto 2 4 13 13 1 CHAR X F
/PWS/ZYCIE442-IDENTIFY
I/O 2 23 15 15 1 CHAR X Off
AC REQ /PWS/ZYGLP089
/PWS/ZYCIE442-NRSEQDA
I/O 2 39 10 10 1 CHAR X Off
SPA GPA /PWS/ZYCIP442
Chave externa, Botão EntrsPoss.stand.
/PWS/ZYCIE442-BUKRS
Texto 3 4 18 18 1 CHAR X F
Chave externa
/PWS/ZYCIE442-BUKRS
I/O 3 23 4 4 1 CHAR X Off
AC REQ SPA GPA BUK
Chave externa, Botão EntrsPoss.stand.
/PWS/ZYCIE442-J_1BBRANCH
I/O 3 28 4 4 1 CHAR X Off
AC REQ
Chave externa, Botão EntrsPoss.stand.
S_CNPJ
I/O 3 33 18 18 1 CHAR Off
Bidimens
WA_J_1BBRANCH-NAME
I/O 3 52 30 28 1 CHAR Off S.Sd
Bidimens, PossRol
/PWS/ZYCIE442-CODREG
Texto 4 4 17 17 1 CHAR X F
Chave externa
/PWS/ZYCIE442-CODREG
I/O 4 23 2 2 1 CHAR X Off
AC REQ /PWS/ZYCIP062
Chave externa, Botão EntrsPoss.temp
S_REGDESCR
I/O 4 26 25 25 1 CHAR Off S.Sd
Bidimens
/PWS/ZYCIE442-CANAL
Texto 4 62 5 5 1 CHAR X 1
/PWS/ZYCIE442-CANAL
I/O 4 68 2 9 1 CHAR X Off
AC
Botão EntrsPoss.temp, Drop-down, Caixa listagem
S_ICON
I/O 4 78 33 2 1 CHAR Off S.Sd
Bidimens
C/ícone
+ TS_DES
TbStr 7 2 119 119 22
- TAB_BASIC
Push 1 1 8 8 1 CHAR
FC_BASIC P
Elem.em TabStripControl
- TAB_TRANS
Push 1 2 11 11 1 CHAR
FC_TRANS P
Elem.em TabStripControl
- TAB_CARGA
Push 1 3 6 6 1 CHAR
FC_CARGA P
Elem.em TabStripControl
- TAB_PAGTO
Push 1 4 10 10 1 CHAR
12 FC_PAGTO P
Elem.em TabStripControl
- TAB_ITE
Push 1 5 5 5 1 CHAR
FC_ITEM P
Elem.em TabStripControl
- TAB_PG2
Push 1 6 9 9 1 CHAR
34 FC_PAGTO P
Elem.em TabStripControl
- TAB_DES
Push 1 7 8 8 1 CHAR
FC_DESP P
Elem.em TabStripControl
- TAB_COM
Push 1 8 14 14 1 CHAR
FC_COM P
Elem.em TabStripControl
- TAB_STATUS
Push 1 9 6 6 1 CHAR
FC_ST P
Elem.em TabStripControl
- TAB_FORN
Push 1 10 12 12 1 CHAR
Elem.em TabStripControl
- TAB_LOTE
Push 1 11 12 12 1 CHAR
FC_LOTE P
Elem.em TabStripControl
- SS_FORN
Subte 9 4 117 117 1
- SS_DES
Subte 9 4 117 117 1
- SS_COM
Subte 9 4 117 117 1
- SS_CAR
Subte 9 4 117 117 1
- SS_BAS
Subte 9 4 117 117 1
- SS_ITE
Subte 9 4 117 117 1
- SS_TRA
Subte 9 4 117 117 1
- SS_STAT
Subte 9 4 89 89 1
- SS_PG2
Subte 9 4 117 117 1
- SS_PAG
Subte 9 4 117 117 1
- SS_LOTE
Subte 9 4 117 117 1
OK
ela /PWS/SAPMZYCI070 0100 , status novo, 25.07.2007
Nome
Ctg. Linha Coluna CmprDf CmVis Altura Format Dict Modif At.Des.Só At
Gr1 Gr2 Gr3 Gr4 SPA GPA ID parâm Cód.F TCmp TpoLoopExbLoop
Outros atributos
FRM1
Quadr 1 2 119 119 1 CHAR
/PWS/ZYCIE085-NRSEQDI
Texto 2 4 13 13 1 CHAR X F
/PWS/ZYCIE442-IDENTIFY
I/O 2 23 15 15 1 CHAR X Off
AC REQ /PWS/ZYGLP089
/PWS/ZYCIE442-NRSEQDA
I/O 2 39 10 10 1 CHAR X Off
SPA GPA /PWS/ZYCIP442
Chave externa, Botão EntrsPoss.stand.
/PWS/ZYCIE442-BUKRS
Texto 3 4 18 18 1 CHAR X F
Chave externa
/PWS/ZYCIE442-BUKRS
I/O 3 23 4 4 1 CHAR X Off
AC REQ SPA GPA BUK
Chave externa, Botão EntrsPoss.stand.
/PWS/ZYCIE442-J_1BBRANCH
I/O 3 28 4 4 1 CHAR X Off
AC REQ
Chave externa, Botão EntrsPoss.stand.
S_CNPJ
I/O 3 33 18 18 1 CHAR Off
Bidimens
WA_J_1BBRANCH-NAME
I/O 3 52 30 28 1 CHAR Off S.Sd
Bidimens, PossRol
/PWS/ZYCIE442-CODREG
Texto 4 4 17 17 1 CHAR X F
Chave externa
/PWS/ZYCIE442-CODREG
I/O 4 23 2 2 1 CHAR X Off
AC REQ /PWS/ZYCIP062
Chave externa, Botão EntrsPoss.temp
S_REGDESCR
I/O 4 26 25 25 1 CHAR Off S.Sd
Bidimens
/PWS/ZYCIE442-CANAL
Texto 4 62 5 5 1 CHAR X 1
/PWS/ZYCIE442-CANAL
I/O 4 68 2 9 1 CHAR X Off
AC
Botão EntrsPoss.temp, Drop-down, Caixa listagem
S_ICON
I/O 4 78 33 2 1 CHAR Off S.Sd
Bidimens
C/ícone
+ TS_DES
TbStr 7 2 119 119 22
- TAB_BASIC
Push 1 1 8 8 1 CHAR
FC_BASIC P
Elem.em TabStripControl
- TAB_TRANS
Push 1 2 11 11 1 CHAR
FC_TRANS P
Elem.em TabStripControl
- TAB_CARGA
Push 1 3 6 6 1 CHAR
FC_CARGA P
Elem.em TabStripControl
- TAB_PAGTO
Push 1 4 10 10 1 CHAR
12 FC_PAGTO P
Elem.em TabStripControl
- TAB_ITE
Push 1 5 5 5 1 CHAR
FC_ITEM P
Elem.em TabStripControl
- TAB_PG2
Push 1 6 9 9 1 CHAR
34 FC_PAGTO P
Elem.em TabStripControl
- TAB_DES
Push 1 7 8 8 1 CHAR
FC_DESP P
Elem.em TabStripControl
- TAB_COM
Push 1 8 14 14 1 CHAR
FC_COM P
Elem.em TabStripControl
- TAB_CONT
Push 1 9 8 8 1 CHAR
FC_CONT P
Elem.em TabStripControl
- TAB_STATUS
Push 1 10 6 6 1 CHAR
FC_ST P
Elem.em TabStripControl
- TAB_FORN
Push 1 11 12 12 1 CHAR
FC_FOR P
Elem.em TabStripControl
- TAB_LOTE
Push 1 12 12 12 1 CHAR
FC_LOTE P
Elem.em TabStripControl
- SS_BAS
Subte 9 4 117 117 1
- SS_TRA
Subte 9 4 117 117 1
- SS_CAR
Subte 9 4 117 117 1
- SS_PAG
Subte 9 4 117 117 1
- SS_ITE
Subte 9 4 117 117 1
- SS_PG2
Subte 9 4 117 117 1
- SS_DES
Subte 9 4 117 117 1
- SS_COM
Subte 9 4 117 117 1
- SS_CONT
Subte 9 4 117 117 1
- SS_STAT
Subte 9 4 89 89 1
- SS_FORN
Subte 9 4 117 117 1
- SS_LOTE
Subte 9 4 117 117 1
OK
Diferenças na lista de elementos
Nome
Ctg. Linha Coluna CmprDf CmVis Altura Format Dict Modif At.Des.Só At
Gr1 Gr2 Gr3 Gr4 SPA GPA ID parâm Cód.F TCmp
TpoLoopExbLoop
Outros atributos
Modific. - TAB_STATUS
Push 1 9 6 6 1 CHAR
FC_ST P
Elem.em TabStripControl
Inserido - TAB_CONT
Push 1 9 8 8 1 CHAR
FC_CONT P
Elem.em TabStripControl
Modific. - TAB_FORN
Push 1 10 12 12 1 CHAR
FC_FOR P
Elem.em TabStripControl
Modific. - TAB_LOTE
Push 1 11 12 12 1 CHAR
FC_LOTE P
Elem.em TabStripControl
Inserido - SS_CONT
Subte 9 4 117 117 1
Tela /PWS/SAPMZYCI070 0100 , status ant., F6DK943096 28.02.2007 PWSCI
00001
00002 PROCESS BEFORE OUTPUT.
00003
00004 MODULE: init_editor_di_compl,
00005 load_data,
00006 propoe_banco,
00007 set_screen,
00008 exit_tela.
00009
00010 CALL SUBSCREEN: ss_bas INCLUDING syst-cprog '0110',
00011 ss_tra INCLUDING syst-cprog '0120',
00012 ss_car INCLUDING syst-cprog '0130',
00013 ss_pag INCLUDING syst-cprog '0141',
00014 ss_pg2 INCLUDING syst-cprog '0142',
00015 ss_ite INCLUDING syst-cprog '0150',
00016 ss_des INCLUDING syst-cprog '0160',
00017 ss_com INCLUDING syst-cprog '0180',
00018 *364089 inicio
00019 * ss_cont INCLUDING syst-cprog '0450',
00020 *364089 fim
00021 ss_stat INCLUDING syst-cprog '0200',
00022 ss_forn INCLUDING syst-cprog '0210',
00023 ss_lote INCLUDING syst-cprog '0220'.
00024
00025 PROCESS AFTER INPUT.
00026 FIELD /pws/zycie442-bukrs MODULE authority_empresa.
00027
00028 CALL SUBSCREEN: ss_bas ,
00029 ss_tra ,
00030 ss_car ,
00031 ss_pag ,
00032 ss_pg2 ,
00033 ss_ite ,
00034 ss_des ,
00035 ss_com ,
00036 *364089 inicio
00037 * ss_cont,
00038 *364089 fim
00039 ss_stat,
00040 ss_forn,
00041 ss_lote.
00042 CHAIN.
00043 FIELD /pws/zycie442-bukrs.
00044 FIELD /pws/zycie442-j_1bbranch.
00045
00046 MODULE load_cpnj ON CHAIN-REQUEST.
00047 ENDCHAIN.
00048 *PWS280450 - Início
00049 FIELD: /pws/zycie442-codreg MODULE load_reg ON REQUEST.
00050 *PWS280450 - Fim
00051 FIELD: /pws/zycie442-canal MODULE load_cana ON REQUEST.
00052
00053 MODULE carrega_dados.
00054
00055
Tela /PWS/SAPMZYCI070 0100 , status novo, 25.07.2007
00001
00002 PROCESS BEFORE OUTPUT.
00003
00004 MODULE: init_editor_di_compl,
00005 load_data,
00006 propoe_banco,
00007 set_screen,
00008 exit_tela.
00009
00010 CALL SUBSCREEN: ss_bas INCLUDING syst-cprog '0110',
00011 ss_tra INCLUDING syst-cprog '0120',
00012 ss_car INCLUDING syst-cprog '0130',
00013 ss_pag INCLUDING syst-cprog '0141',
00014 ss_pg2 INCLUDING syst-cprog '0142',
00015 ss_ite INCLUDING syst-cprog '0150',
00016 ss_des INCLUDING syst-cprog '0160',
00017 ss_com INCLUDING syst-cprog '0180',
00018 *364089 inicio
00019 *396617 início
00020 * Pasta de variação deve aparecer para regime '04'
00021 ss_cont INCLUDING syst-cprog '0450',
00022 *396617 fim
00023 *364089 fim
00024 ss_stat INCLUDING syst-cprog '0200',
00025 ss_forn INCLUDING syst-cprog '0210',
00026 ss_lote INCLUDING syst-cprog '0220'.
00027
00028 PROCESS AFTER INPUT.
00029 FIELD /pws/zycie442-bukrs MODULE authority_empresa.
00030
00031 CALL SUBSCREEN: ss_bas ,
00032 ss_tra ,
00033 ss_car ,
00034 ss_pag ,
00035 ss_pg2 ,
00036 ss_ite ,
00037 ss_des ,
00038 ss_com ,
00039 *364089 inicio
00040 *396617 início
00041 * Pasta de variação deve aparecer para regime '04'
00042 ss_cont,
00043 *396617 fim
00044 *364089 fim
00045 ss_stat,
00046 ss_forn,
00047 ss_lote.
00048 CHAIN.
00049 FIELD /pws/zycie442-bukrs.
00050 FIELD /pws/zycie442-j_1bbranch.
00051
00052 MODULE load_cpnj ON CHAIN-REQUEST.
00053 ENDCHAIN.
00054 *PWS280450 - Início
00055 FIELD: /pws/zycie442-codreg MODULE load_reg ON REQUEST.
00056 *PWS280450 - Fim
00057 FIELD: /pws/zycie442-canal MODULE load_cana ON REQUEST.
00058
00059 MODULE carrega_dados.
00060
00061
Diferenças na lóg.processamento
Modific. 00019 * ss_cont INCLUDING syst-cprog '0450',
Inserido 00020 * Pasta de variação deve aparecer para regime '04'
Inserido 00021 ss_cont INCLUDING syst-cprog '0450',
Inserido 00022 *396617 fim
Modific. 00037 * ss_cont,
Inserido 00038 * Pasta de variação deve aparecer para regime '04'
Inserido 00039 ss_cont,
Inserido 00040 *396617 fim
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070F03
...
space.
ENDIF.
APPEND itab_matuse_aux.
CLEAR itab_matuse_aux.
ENDIF.
ENDLOOP.
CLEAR v_tntgew.
LOOP AT itab_zycit003.
v_tntgew = v_tntgew + itab_zycit003-ntgew.
ENDLOOP.
* >> Início da inclusão: FORM RECLASSIFICACAO_IA
CLEAR: itab_ekkn_aux.
REFRESH: itab_ekkn_aux.
IF NOT itab_zycit443[] IS INITIAL.
SELECT ebeln ebelp prctr kostl kokrs fistl fipos aufnr ps_psp_pnr
FROM ekkn
INTO TABLE itab_ekkn_aux
FOR ALL ENTRIES IN itab_zycit443
WHERE ebeln = itab_zycit443-ebeln
AND ebelp = itab_zycit443-ebelp.
ENDIF.
* << Fim da inclusão
LOOP AT itab_zycit443.
CLEAR: itab_matuse, itab_matuse_aux.
READ TABLE itab_matuse WITH KEY ebeln = itab_zycit443-ebeln
ebelp = itab_zycit443-ebelp.
READ TABLE itab_matuse_aux WITH KEY
j_1bmatuse = itab_matuse-j_1bmatuse.
* >> Início da inclusão: FORM RECLASSIFICACAO_IA
CLEAR: itab_ekkn_aux.
READ TABLE itab_ekkn_aux WITH KEY ebeln = itab_zycit443-ebeln
ebelp = itab_zycit443-ebelp.
itab_di-kostl = itab_ekkn_aux-kostl.
IF /pws/zycit000-clucro_ia = 'X'.
itab_di-prctr = itab_ekkn_aux-prctr.
PERFORM verifica_centro_l TABLES itab_matuse.
ENDIF.
* << Fim da inclusão
MOVE: itab_matuse_aux-hkont TO itab_di-hkont,
itab_zycit443-vlseg TO itab_di-vlseg,
itab_zycit443-vlfre TO itab_di-vlfre.
IF /pws/zycit031-inco1_ci = 'CIF'.
itab_di-vlfob = ( itab_zycit443-dttaxbem * itab_zycit443-vlfob ) -
itab_zycit443-vlseg.
ELSE.
itab_di-vlfob = itab_zycit443-dttaxbem * itab_zycit443-vlfob.
ENDIF.
IF NOT /pws/zycie442-ternacion IS INITIAL OR
...
...
ELSE.
v_valor_variacao = itab_bsis_aux-dmbtr + ABS( vl_variacao_aux ).
ENDIF.
v_diferenca = v_valor_variacao - p_valor.
IF ( v_diferenca < 1
AND v_diferenca > -1
AND v_diferenca NE 0 ).
p_valor = v_valor_variacao.
ENDIF.
itab_contas-tcode = 'F-51'.
* >> Início da inclusão: FORM MOVE_LANCTOS
itab_contas-c_kostl = itab_contas-d_kostl = itab_di-kostl.
IF /pws/zycit000-clucro_ia NE space.
itab_contas-c_prctr = itab_contas-d_prctr = itab_di-prctr.
endif.
* << Fim da inclusão
itab_contas-mandt = sy-mandt.
itab_contas-tabela = '/PWS/ZYCIT044'.
IF v_belnrf05 IS INITIAL.
IF vl_variacao >= 0.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
EXPORTING
input = itab_matuse_aux-hkont
IMPORTING
output = v_conta.
CLEAR itab_cta. REFRESH itab_cta.
...
...
MOVE: itab_zycbt013-descr TO itab_contas-d_sgtxt.
ENDIF.
READ TABLE itab_zycbt013 WITH KEY cpor3 = 'ZUONR'.
IF sy-subrc EQ 0.
MOVE: itab_zycbt013-descr TO itab_contas-d_zuonr.
ENDIF.
APPEND itab_contas.
CLEAR itab_contas.
ENDIF.
itab_contas-tcode = 'F-51'.
* >> Início da inclusão: FORM MOVE_LANCTOS
itab_contas-c_kostl = itab_contas-d_kostl = itab_di-kostl.
IF /pws/zycit000-clucro_ia NE space.
itab_contas-c_prctr = itab_contas-d_prctr = itab_di-prctr.
ENDIF.
* << Fim da inclusão
itab_contas-mandt = sy-mandt.
itab_contas-tabela = '/PWS/ZYCIT044'.
IF vl_variacao >= 0.
itab_contas-bschl = '40'.
itab_contas-wrbtr = p_valor.
itab_contas-d_newko = itab_bsis_aux-hkont.
ELSE.
itab_contas-bschl = '40'.
itab_contas-wrbtr = p_valor .
itab_contas-d_newko = itab_bsis_aux-hkont.
...
...
itab_contas-tabela = '/PWS/ZYCIT044'.
IF vl_variacao > 0.
itab_contas-bschl = '40'.
ELSEIF vl_variacao < 0.
itab_contas-bschl = '50'.
ELSE .
v_erro_f05 = 'S'.
ENDIF.
v_variadec = vl_variacao.
itab_contas-wrbtr = abs( v_variadec ).
* >> Início da inclusão: FORM MOVE_LANCTOS_F05
itab_contas-c_kostl = itab_contas-d_kostl = itab_di-kostl.
IF /pws/zycit000-clucro_ia NE space.
itab_contas-c_prctr = itab_contas-d_prctr = itab_di-prctr.
endif.
* << Fim da inclusão
itab_contas-d_newko = itab_bsis_aux-hkont.
CLEAR: itab_zycbt013. REFRESH: itab_zycbt013.
SELECT * FROM /pws/zycbt013 INTO TABLE itab_zycbt013
WHERE tabela = 'ZYCIT001'.
READ TABLE itab_zycbt013 WITH KEY cpor3 = 'XBLNR'.
IF sy-subrc EQ 0.
MOVE: itab_zycbt013-descr TO itab_contas-d_sgtxt.
ENDIF.
READ TABLE itab_zycbt013 WITH KEY cpor3 = 'ZUONR'.
IF sy-subrc EQ 0.
MOVE: itab_zycbt013-descr TO itab_contas-d_zuonr.
ENDIF.
APPEND itab_contas.
CLEAR itab_contas.
itab_contas-tcode = 'F-05'.
itab_contas-mandt = sy-mandt.
itab_contas-tabela = '/PWS/ZYCIT044'.
* >> Início da inclusão: FORM MOVE_LANCTOS_F05
itab_contas-c_kostl = itab_contas-d_kostl = itab_di-kostl.
IF /pws/zycit000-clucro_ia NE space.
itab_contas-c_prctr = itab_contas-d_prctr = itab_di-prctr.
ENDIF.
* << Fim da inclusão
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
EXPORTING
input = itab_matuse_aux-hkont
IMPORTING
output = v_conta.
CLEAR itab_cta. REFRESH itab_cta.
PERFORM seek_account_number
TABLES itab_cta
USING /pws/zycie442-bukrs
'VCI'
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070F05
...
ENDIF.
ENDLOOP.
MODIFY /pws/zycit466 FROM TABLE itab_zycit466.
IF itab_bapimepoitemx-delete_ind = 'X'.
DELETE FROM /pws/zycit466
WHERE nrseq EQ itab_zycit466_aux-nrseq
AND ebeln EQ itab_zycit466_aux-ebeln
AND ebelp EQ itab_zycit466_aux-ebelp.
ENDIF.
ENDFORM.
* >> Início da inclusão:
form verifica_centro_l tables itab_matuse structure itab_matuse .
data: begin of itab_marc occurs 0 ,
matnr like marc-matnr,
prctr like marc-prctr,
end of itab_marc.
data: begin of itab_csks occurs 0,
kostl like csks-kostl,
kokrs like csks-kokrs,
prctr like csks-prctr,
end of itab_csks.
data: begin of itab_aufk occurs 0,
aufnr like aufk-aufnr,
prctr like aufk-prctr,
end of itab_aufk.
IF itab_matuse-knttp IS INITIAL AND itab_matuse-j_1bmatuse NE '3'.
CLEAR: itab_di-prctr.
CLEAR itab_marc. REFRESH itab_marc.
SELECT SINGLE matnr prctr FROM marc INTO itab_marc
WHERE matnr EQ itab_matuse-matnr AND
werks EQ itab_matuse-werks.
IF sy-subrc NE 0.
SELECT SINGLE matnr prctr FROM marc INTO itab_marc
WHERE matnr EQ itab_matuse-matnr.
ENDIF.
itab_di-prctr = itab_marc-prctr.
ELSEIF itab_matuse-knttp = 'K' AND itab_matuse-j_1bmatuse NE '3'.
CLEAR: itab_di-prctr.
CLEAR itab_csks. REFRESH itab_csks.
SELECT SINGLE kostl kokrs prctr FROM csks INTO itab_csks
WHERE kostl EQ itab_ekkn_aux-kostl
AND kokrs EQ itab_ekkn_aux-kokrs.
itab_di-prctr = itab_csks-prctr.
ELSEIF itab_matuse-knttp = 'F' AND itab_matuse-j_1bmatuse NE '3'.
CLEAR: itab_di-prctr.
CLEAR itab_aufk. REFRESH itab_aufk.
SELECT SINGLE aufnr prctr FROM aufk INTO itab_aufk
WHERE aufnr EQ itab_ekkn_aux-aufnr.
itab_di-prctr = itab_aufk-prctr.
ENDIF.
endform.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070O01
...
MODIFY SCREEN.
ENDIF.
CASE screen-name.
WHEN 'TAB_CONT'.
SELECT SINGLE *
FROM t001
WHERE bukrs EQ /pws/zycie442-bukrs.
SELECT SINGLE *
FROM /pws/zycit000
WHERE land1 EQ t001-land1.
* >> Início da exclusão: MODULE SET_SCREEN
IF /pws/zycit000-flag_reclass IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN
IF /pws/zycit000-flag_reclass IS INITIAL or
( /pws/zycit001-regime ne '04' and not
/pws/zycit001-regime is initial ).
* << Fim da inclusão
IF /pws/zycie442-flag_reclass IS INITIAL AND
/pws/zycie442-belnr_0 IS INITIAL AND
/pws/zycie442-belnr_1 IS INITIAL AND
/pws/zycie442-belnr_2 IS INITIAL AND
/pws/zycie442-belnr_3 IS INITIAL.
screen-invisible = '1'.
MODIFY SCREEN.
ENDIF.
ENDIF.
WHEN '/PWS/ZYCIE442-IDENTIFY' OR
...
...
screen-required = screen-input = '0'.
MODIFY SCREEN.
ENDIF.
WHEN '/PWS/ZYCIE442-CODREG'.
IF v_acto = 'A' AND
NOT itab_it[] IS INITIAL.
screen-required = screen-input = '0'.
MODIFY SCREEN.
ENDIF.
ENDCASE.
* >> Início da exclusão: MODULE SET_SCREEN
IF screen-name = 'TAB_CONT' OR
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN
IF
* << Fim da inclusão
screen-name = 'TAB_FORN' OR
screen-name = 'TAB_LOTE' OR
screen-name = 'TAB_STATUS'.
IF itab_zycit001-regime EQ '04' AND
itab_zycit001-tpdecl EQ 'DI'.
screen-invisible = 1.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDLOOP.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070TOP
...
DATA: BEGIN OF itab_matuse_aux2 OCCURS 0.
DATA: j_1bmatuse LIKE ekpo-j_1bmatuse,
hkont LIKE bsis-hkont .
DATA: END OF itab_matuse_aux2 .
DATA: BEGIN OF itab_di OCCURS 0.
DATA: hkont LIKE bsis-hkont,
vlseg LIKE /pws/zycit443-vlseg,
vlfre LIKE /pws/zycit443-vlfre,
vlfob LIKE /pws/zycit443-vlfob,
vldi LIKE /pws/zycit443-vlfob,
* >> Início da exclusão:
vlfren LIKE /pws/zycit443-vlfre.
* << Fim da exclusão
* >> Início da inclusão:
vlfren LIKE /pws/zycit443-vlfre,
kostl type ekkn-kostl,
prctr type ekkn-prctr.
* << Fim da inclusão
DATA: END OF itab_di .
DATA: BEGIN OF itab_bsis OCCURS 10.
DATA: hkont LIKE bsis-hkont ,
dmbtr LIKE bsis-dmbtr ,
wrbtr LIKE bsis-wrbtr ,
belnr LIKE bsis-belnr ,
buzei LIKE bsis-buzei ,
tpfatura LIKE /pws/zycit006-tpfatura.
DATA: END OF itab_bsis.
DATA: BEGIN OF itab_bsis_aux OCCURS 10.
...
...
DATA: END OF itab_bapimepoaccount.
DATA: BEGIN OF itab_bapimepoaccountx OCCURS 0.
INCLUDE STRUCTURE bapimepoaccountx.
DATA: END OF itab_bapimepoaccountx.
DATA: BEGIN OF itab_bapiret1 OCCURS 0.
INCLUDE STRUCTURE bapiret2.
DATA: END OF itab_bapiret1.
DATA: BEGIN OF itab_bapiret2 OCCURS 0.
INCLUDE STRUCTURE bapiret2.
DATA: END OF itab_bapiret2.
* >> Início da inclusão:
DATA: BEGIN OF itab_ekkn_AUX OCCURS 0.
DATA: ebeln TYPE ekkn-ebeln,
ebelp TYPE ekkn-ebelp,
prctr TYPE ekkn-prctr,
kostl TYPE ekkn-kostl,
kokrs TYPE ekkn-kokrs,
fictr TYPE ekkn-fistl,
fipos TYPE ekkn-fipos,
aufnr TYPE ekkn-aufnr,
ps_psp_pnr TYPE ekkn-ps_psp_pnr.
DATA: END OF itab_ekkn_aux.
* << Fim da inclusão
SELECTION-SCREEN BEGIN OF SCREEN 0299.
SELECT-OPTIONS:
so_inco1 FOR /pws/zycie001-inco1
NO-EXTENSION NO INTERVALS,
so_waers FOR /pws/zycie001-waers
NO-EXTENSION NO INTERVALS,
so_werks FOR /pws/zycie001-werks,
so_lifnr FOR /pws/zycie001-lifnr,
so_bednr FOR /pws/zycie003-bednr
NO-EXTENSION NO INTERVALS,
...