CE PLUS - Nota 004958
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Vinculação
Data/Hora da Publicação: 10/10/2007 00:00:00
Data/Hora Última Alteração: 21/02/2011 10:55:02
Descrição da Nota: FATURA/VINCULAÇÃO/LIQUIDAÇÃO - COMMODITIES
Sintoma
DA para considerar se fatura esta pendente de atualização commodities.
Solução
DA para considerar se fatura esta pendente de atualização commodities.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04958 Data: 10/10/2007 Hora: 15:32:02
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04958
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00016
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00197 - 00001 - 6.0 - 00021 - MATCHCODE DINÂMICO VINCULAÇÃO E LIQUIDAÇÃO EM ANDAMENTO
00234 - 00002 - 6.0 - 00021 - MATCHCODE DESCONTO DE RECEBIVEIS
02101 - 00003 - 6.0 - 00025 - LIQUIDAÇÃO DE FATURAS - ARBITRAGEM - CASAS DECIMAIS
----------------------------------------------------------------------------------------------------
FATURA/VINCULAÇÃO/LIQUIDAÇÃO - COMMODITIES
----------------------------------------------------------------------------------------------------
Palavras Chave:
FATURA/VINCULAÇÃO/LIQUIDAÇÃO - COMMODITIES
----------------------------------------------------------------------------------------------------
Objetos da nota:
DTEL /PWS/ZYGLL1364
DYNP /PWS/SAPMZYCB005 0104
REPS /PWS/MZYCB004F01
REPS /PWS/MZYCB005F01
REPS /PWS/MZYCB005I01
REPS /PWS/MZYCB009F05
REPS /PWS/MZYCB031F01
REPS /PWS/MZYCB033F01
REPS /PWS/MZYCB034F01
REPS /PWS/MZYCB035F01
REPS /PWS/MZYCB035F03
REPT /PWS/SAPMZYCB004
REPT /PWS/SAPMZYCB005
REPT /PWS/SAPMZYCB009
REPT /PWS/SAPMZYCB031
REPT /PWS/SAPMZYCB033
REPT /PWS/SAPMZYCB034
REPT /PWS/SAPMZYCB035
TABD /PWS/ZYCBE030
TABD /PWS/ZYCBT030
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYGLL1364
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYGLL1364
Classe de desenvolvimento: /PWS/ZYGL
Idioma original: PT
Descrição breve incluída: (43 caracteres), idioma: PT
"GL - PENDENTE DE ATUALIZAÇÃO DE COMMODITIES"
Categoria de dados: Domínio
Domínio: /PWS/ZYGLD107
ID parâmetro:
Nome componente default:
Documentar modificações: NÃO
Nome da ajuda de pesquisa:
Parâmetro da ajuda de pesquisa:
Comprimento máximo do denominador breve: 10
Denominador breve incluído (9 caracteres), idioma: PT
"Pend. At."
Comprimento máximo do denominador médio: 17
Denominador médio incluído (17 caracteres), idioma: PT
"Pend. Atual. Comm"
Comprimento máximo do denominador longo: 27
Denominador longo incluído (27 caracteres), idioma: PT
"Pend. Atual. de Commodities"
Comprimento máximo do título: 38
Título incluído (38 caracteres), idioma: PT
"Pendente de Atualização de Commodities"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCB005 0104
Copiar texto abaixo em um arquivo de download de tela, salvar e efetuar upload no programa.
****************************************************************
* THIS FILE IS GENERATED BY THE SCREEN PAINTER. *
* NEVER CHANGE IT MANUALLY, PLEASE ! *
****************************************************************
%_DYNPRO
/PWS/SAPMZYCB005
0104
46C
40
%_HEADER
/PWS/SAPMZYCB005 0104I0100 14 71192 35 0 0 14 73 0G P
20071009162150
%_DESCRIPTION
CB - Cadastro de faturas - Sub-tela de Doc. Faturamento
%_FIELDS
TC_DOCFAT
71E0C0000000 1 2E101 1 1 14T 0 0
/PWS/ZYCBT030_VBELN
CHAR 150000083080 1 1T101 1 1 16 0 0
Doc.faturamento
/PWS/ZYCBT030-KWERT
0CHAR 53000103080 1 2T101 1 1 18 0 0
Valor
/PWS/ZYCBT030-BELNR
0CHAR 113000003080 1 3T101 1 1 12 0 0
NºDoc.Cont.
/PWS/ZYCBT030_BELNR6
CHAR 100000083080 1 4T101 1 1 12 0 0
NºDoc.Liq.
/PWS/ZYCBT030-SHKZG
2CHAR 153000013080 1 5T101 1 1 9 0 0
Devolução______
*/PWS/ZYCBT030-PENDCOMM
4CHAR 383000013080 1 6T101 1 1 2 0 0
Pendente_de_Atualização_de_Commodities
/PWS/ZYCBT030-VBELN
CCHAR 10A000883800 1 1T101 1 1 16 VF ALPHA 10 0
__________
/PWS/ZYCBT030-KWERT
PCURR 18A000903000 1 2T101 1 1 18 13 2 /PWS/ZYCBT030-WAERS
__________________
/PWS/ZYCBT030-BELNR
CCHAR 10A000883800 1 3T101 1 1 12 BLN ALPHA 10 0
__________
/PWS/ZYCBT030-BELNR6
CCHAR 10A000883800 1 4T101 1 1 12 BLN ALPHA 10 0
__________
/PWS/ZYCBT030-SHKZG
CCHAR 1A000813008 1 5T101 1 1 9 1 0
_
X
/PWS/ZYCBT030-PENDCOMM
CCHAR 1A000813008 1 6T101 1 1 2C 1 0102
_
X
CHAR 208010080000255 1O 0 0 0 0 0 0
____________________
%_FLOWLOGIC
PROCESS BEFORE OUTPUT.
LOOP AT itab_zycbt030
WITH CONTROL tc_docfat CURSOR tc_docfat-current_line.
MODULE exibe_zycbt030.
ENDLOOP.
PROCESS AFTER INPUT.
LOOP AT itab_zycbt030.
ENDLOOP.
MODULE user_command_0104.
%_PARAMS
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F01
FORM carrega_itab_zycbt005.
* >> Início da exclusão: FORM CARREGA_ITAB_ZYCBT005
DATA: v_bukrs_fat LIKE /pws/zycbt017-bukrs.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_ITAB_ZYCBT005
TYPES:
BEGIN OF t_pendcomm,
nrinvoic TYPE /pws/zycbt030-nrinvoic,
nrparcf TYPE /pws/zycbt030-nrparcf,
gsberf TYPE /pws/zycbt030-gsberf,
pendcomm TYPE /pws/zycbt030-pendcomm,
END OF t_pendcomm,
t_itab_pendcomm TYPE SORTED TABLE OF t_pendcomm
WITH UNIQUE KEY nrinvoic nrparcf gsberf.
DATA:
itab_pendcomm TYPE t_itab_pendcomm,
v_bukrs_fat LIKE /pws/zycbt017-bukrs.
* << Fim da inclusão
REFRESH: itab_zycbt005.
CLEAR: /pws/zycbe005, /pws/zycbe006.
IF v_trans IS INITIAL.
IF v_dtvencto IS INITIAL AND
v_nrinvoic IS INITIAL.
SELECT *
FROM /pws/zycbt005
INTO TABLE itab_zycbt005
WHERE nrseqc EQ v_nrseqc
AND tpdesp EQ ' '
...
...
FROM /pws/zycbt005
INTO TABLE itab_zycbt005
WHERE nrseqc EQ v_nrseqc
AND tpdesp EQ ' '
AND dtvincul EQ v_dtvincul
AND slpagar GT 0
AND dtvencto <= v_dtvencto
AND nrinvoic = v_nrinvoic
AND nrparcf = v_nrparcf
AND gsberf = v_gsberf.
* >> Início da inclusão: FORM CARREGA_ITAB_ZYCBT005
ENDIF.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM CARREGA_ITAB_ZYCBT005
IF NOT itab_zycbt005[] IS INITIAL.
SELECT nrinvoic nrparcf gsberf pendcomm
FROM /pws/zycbt030 INTO TABLE itab_pendcomm
FOR ALL ENTRIES IN itab_zycbt005
WHERE nrinvoic = itab_zycbt005-nrinvoic
AND nrparcf = itab_zycbt005-nrparcf
AND gsberf = itab_zycbt005-gsberf
AND pendcomm = 'X'.
* << Fim da inclusão
ENDIF.
LOOP AT itab_zycbt005.
* >> Início da inclusão: FORM CARREGA_ITAB_ZYCBT005
READ TABLE itab_pendcomm
WITH KEY
nrinvoic = itab_zycbt005-nrinvoic
nrparcf = itab_zycbt005-nrparcf
gsberf = itab_zycbt005-gsberf
pendcomm = 'X'
TRANSPORTING NO FIELDS.
IF sy-subrc EQ 0.
MESSAGE i061 WITH text-054
itab_zycbt005-nrinvoic
text-231
text-217.
DELETE itab_zycbt005.
CONTINUE.
ENDIF.
* << Fim da inclusão
itab_zycbt005-vlme = itab_zycbt005-slpagar.
IF itab_zycbt005-waers NE itab_zycbt005-waers_c.
itab_zycbt005-vlme = itab_zycbt005-vlme / itab_zycbt005-parid.
PERFORM verifica_casas_decimais
USING
itab_zycbt005-vlme
itab_zycbt005-waers
itab_zycbt005-waers_c
CHANGING itab_zycbt005-vlme.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB005F01
...
ENDIF.
ENDFORM.
FORM exibe_zycbt030.
IF v_ok30 EQ 'X'.
/pws/zycbt030-vbeln = itab_zycbt030-vbeln.
/pws/zycbt030-kwert = itab_zycbt030-kwert.
/pws/zycbt030-waers = itab_zycbt030-waers.
/pws/zycbt030-belnr = itab_zycbt030-belnr.
/pws/zycbt030-belnr6 = itab_zycbt030-belnr6.
/pws/zycbt030-shkzg = itab_zycbt030-shkzg.
* >> Início da inclusão: FORM EXIBE_ZYCBT030
/pws/zycbt030-pendcomm = itab_zycbt030-pendcomm.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM lock_record.
CHECK sy-tcode NE text-302.
CALL FUNCTION '/PWS/ZYCB_ENQUEUE_ZYCBT017'
EXPORTING
nrinvoic = /pws/zycbe017-nrinvoic
gsberf = /pws/zycbe017-gsberf
EXCEPTIONS
foreign_lock = 1
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB005I01
...
WHEN 'ENTE'.
SELECT name1
UP TO 1 ROWS
FROM lfa1
INTO v_txtbcoentr
WHERE lifnr EQ /pws/zycbe017-bcoentr.
ENDSELECT.
WHEN 'MODO'.
PERFORM modo_batch_input.
WHEN 'DEVC'.
* >> Início da inclusão: MODULE USER_COMMAND_0100
IF NOT /pws/zycbt030-pendcomm IS INITIAL.
MESSAGE i061 WITH text-235
/pws/zycbt030-nrinvoic
text-236
text-237.
EXIT.
ENDIF.
* << Fim da inclusão
PERFORM cria_devolucao.
WHEN 'DEVA'.
PERFORM altera_devolucao.
WHEN 'DEVE'.
PERFORM exibe_devolucao.
ENDCASE.
CLEAR ok_code.
ENDMODULE.
MODULE user_exit_0001 INPUT.
CASE ok_code.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F05
...
wa_dynpread-fieldvalue = p_fieldvalue.
wa_dynpread-stepl = p_stepl.
APPEND wa_dynpread TO p_itab_dynpread.
ENDFORM.
FORM transfere_campos
USING
p_itab_zycbt017_chave TYPE t_itab_zycbt017_chave
CHANGING
p_itab_dynpread TYPE t_itab_dynpread.
TYPES:
* >> Início da inclusão: FORM TRANSFERE_CAMPOS
BEGIN OF t_pendcomm,
nrinvoic TYPE /pws/zycbt030-nrinvoic,
nrparcf TYPE /pws/zycbt030-nrparcf,
gsberf TYPE /pws/zycbt030-gsberf,
pendcomm TYPE /pws/zycbt030-pendcomm,
END OF t_pendcomm,
t_itab_pendcomm TYPE SORTED TABLE OF t_pendcomm
WITH UNIQUE KEY nrinvoic nrparcf gsberf,
* << Fim da inclusão
BEGIN OF t_zycbt017,
nrinvoic TYPE /pws/zycbt017-nrinvoic,
nrparcf TYPE /pws/zycbt017-nrparcf,
gsberf TYPE /pws/zycbt017-gsberf,
kunag TYPE /pws/zycbt017-kunag,
dtvencto TYPE /pws/zycbt017-dtvencto,
waers TYPE /pws/zycbt017-waers,
codmod TYPE /pws/zycbt017-codmod,
prazo TYPE /pws/zycbt017-prazo,
werks TYPE /pws/zycbt017-werks,
END OF t_zycbt017,
t_itab_zycbt017 TYPE SORTED TABLE OF t_zycbt017
WITH UNIQUE KEY nrinvoic nrparcf gsberf.
DATA:
* >> Início da inclusão: FORM TRANSFERE_CAMPOS
itab_pendcomm TYPE t_itab_pendcomm,
* << Fim da inclusão
itab_zycbt017 TYPE t_itab_zycbt017,
v_data_aux(10) TYPE c,
v_index TYPE i VALUE 0.
FIELD-SYMBOLS:
<fs_zycbt017> TYPE t_zycbt017.
CHECK NOT p_itab_zycbt017_chave IS INITIAL.
SELECT
nrinvoic nrparcf gsberf kunag dtvencto waers
codmod prazo werks
FROM /pws/zycbt017
INTO TABLE itab_zycbt017
FOR ALL ENTRIES IN p_itab_zycbt017_chave
WHERE
nrinvoic EQ p_itab_zycbt017_chave-nrinvoic AND
nrparcf EQ p_itab_zycbt017_chave-nrparcf AND
gsberf EQ p_itab_zycbt017_chave-gsberf.
* >> Início da inclusão: FORM TRANSFERE_CAMPOS
IF NOT itab_zycbt017[] is initial.
SELECT nrinvoic nrparcf gsberf pendcomm
FROM /pws/zycbt030 INTO TABLE itab_pendcomm
FOR ALL ENTRIES IN itab_zycbt017
WHERE nrinvoic = itab_zycbt017-nrinvoic
AND nrparcf = itab_zycbt017-nrparcf
AND gsberf = itab_zycbt017-gsberf
AND pendcomm = 'X'.
ENDIF.
* << Fim da inclusão
LOOP AT itab_zycbt017
ASSIGNING <fs_zycbt017>.
CLEAR itab_zycbt005.
READ TABLE itab_zycbt005
WITH KEY
nrinvoic = <fs_zycbt017>-nrinvoic
nrparcf = <fs_zycbt017>-nrparcf
gsberf = <fs_zycbt017>-gsberf
TRANSPORTING NO FIELDS.
IF sy-subrc EQ 0.
MESSAGE i061 WITH text-059 <fs_zycbt017>-nrinvoic.
* >> Início da inclusão: FORM TRANSFERE_CAMPOS
CONTINUE.
ENDIF.
READ TABLE itab_pendcomm
WITH KEY
nrinvoic = <fs_zycbt017>-nrinvoic
nrparcf = <fs_zycbt017>-nrparcf
gsberf = <fs_zycbt017>-gsberf
pendcomm = 'X'
TRANSPORTING NO FIELDS.
IF sy-subrc EQ 0.
MESSAGE i061 WITH text-368
<fs_zycbt017>-nrinvoic
text-397
text-398.
* << Fim da inclusão
CONTINUE.
ENDIF.
v_index = v_index + 1.
IF v_index GT 1.
v_line = v_line + 1.
ENDIF.
CALL FUNCTION '/PWS/ZYGL_TRATA_DATA'
EXPORTING
i_trdata = <fs_zycbt017>-dtvencto
IMPORTING
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB031F01
...
WHERE nrinvoic = record_tab-string+3(15)
AND nrparcf = record_tab-string+27(2)
AND gsberf = record_tab-string+23(4).
IF sy-subrc NE 0.
SHIFT record_tab-string RIGHT BY 3 PLACES.
SELECT SINGLE * FROM /pws/zycbt017 INTO wa_zycbt017a
WHERE nrinvoic = record_tab-string+3(15)
AND nrparcf = record_tab-string+27(2)
AND gsberf = record_tab-string+23(4).
ENDIF.
* >> Início da inclusão: FORM GET_INVOICE
SELECT SINGLE pendcomm
FROM /pws/zycbt030 into /pws/zycbt030-pendcomm
WHERE nrinvoic = record_tab-string+3(15)
AND nrparcf = record_tab-string+27(2)
AND gsberf = record_tab-string+23(4).
IF sy-subrc EQ 0 AND NOT /pws/zycbt030-pendcomm IS INITIAL.
v_line = v_line - 1.
MESSAGE i061 WITH text-049 record_tab-string+3(15) text-075.
CONTINUE.
ENDIF.
* << Fim da inclusão
READ TABLE itab_zycbt209 WITH KEY nrinvoic = record_tab-string+3(15)
nrparcf = record_tab-string+27(2)
gsberf = record_tab-string+23(4)
belnr = space.
IF sy-subrc EQ 0.
MESSAGE i061 WITH text-049 itab_zycbt209-nrinvoic text-067.
v_line = v_line - 1.
CONTINUE.
ENDIF.
tdynpread-fieldname = '/PWS/ZYCBE209-NRINVOIC'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB033F01
...
EXIT.
ENDIF.
ENDDO.
CLEAR tdynpread.
REFRESH tdynpread.
LOOP AT record_tab.
IF sy-tabix > 1.
v_line = v_line + 1.
ENDIF.
clear itab_zycbt219.
* >> Início da exclusão: FORM GET_INVOICE
SELECT SINGLE vlsltrans FROM /pws/zycbt030
INTO /pws/zycbt030-vlsltrans
* << Fim da exclusão
* >> Início da inclusão: FORM GET_INVOICE
SELECT SINGLE vlsltrans pendcomm FROM /pws/zycbt030
INTO (/pws/zycbt030-vlsltrans, /pws/zycbt030-pendcomm)
* << Fim da inclusão
WHERE nrinvoic = record_tab-string+3(15)
AND nrparcf = record_tab-string+27(2)
AND gsberf = record_tab-string+23(4).
IF sy-subrc NE 0.
SHIFT record_tab-string RIGHT BY 3 PLACES.
* >> Início da exclusão: FORM GET_INVOICE
SELECT SINGLE vlsltrans FROM /pws/zycbt030
INTO /pws/zycbt030-vlsltrans
* << Fim da exclusão
* >> Início da inclusão: FORM GET_INVOICE
SELECT SINGLE vlsltrans pendcomm FROM /pws/zycbt030
INTO (/pws/zycbt030-vlsltrans, /pws/zycbt030-pendcomm)
* << Fim da inclusão
WHERE nrinvoic = record_tab-string+3(15)
AND nrparcf = record_tab-string+27(2)
AND gsberf = record_tab-string+23(4).
* >> Início da inclusão: FORM GET_INVOICE
ENDIF.
IF NOT /pws/zycbt030-pendcomm IS INITIAL.
v_line = v_line - 1.
MESSAGE i061 WITH text-049 record_tab-string+3(15) text-060.
CONTINUE.
* << Fim da inclusão
ENDIF.
READ TABLE itab_zycbt219 WITH KEY nrinvoic = record_tab-string+3(15)
gsberf = record_tab-string+23(4)
nrparcf = record_tab-string+27(2)
belnr = space.
IF sy-subrc EQ 0.
MESSAGE i061 WITH text-049 itab_zycbt219-nrinvoic text-059.
v_line = v_line - 1.
CONTINUE.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB034F01
...
INCLUDE STRUCTURE seahlpres.
DATA: END OF record_tab.
DATA: v_line TYPE sy-lilli,
l_display(1) TYPE c,
tdynpread TYPE dynpread OCCURS 0 WITH HEADER LINE,
wa_zycbt017 TYPE t_s_zycbt017,
itab_zycbt017 TYPE t_t_zycbt017,
v_moeda TYPE /pws/zycbe226-waers,
wa_invoice TYPE t_s_invoice,
v_valor(16) TYPE c,
* >> Início da inclusão: FORM GET_INVOICE
v_pendcomm TYPE /pws/zycbt030-pendcomm,
* << Fim da inclusão
wa_zycbt226 TYPE LINE OF t_t_zycbt226.
CLEAR tdynpread.
REFRESH tdynpread.
CALL FUNCTION 'DYNP_GET_STEPL'
IMPORTING
povstepl = v_line.
tdynpread-fieldname = '/PWS/ZYCBE226-NRINVOIC'.
tdynpread-stepl = v_line.
APPEND tdynpread.
CALL FUNCTION 'DYNP_VALUES_READ'
...
...
SELECT SINGLE * FROM /pws/zycbt017 INTO wa_zycbt017
WHERE nrinvoic = record_tab-string+3(20)
AND nrparcf = record_tab-string+23(2)
AND gsberf = record_tab-string+25(4).
IF sy-subrc NE 0.
SHIFT record_tab-string RIGHT BY 3 PLACES.
SELECT SINGLE * FROM /pws/zycbt017 INTO wa_zycbt017
WHERE nrinvoic = record_tab-string+3(20)
AND nrparcf = record_tab-string+23(2)
AND gsberf = record_tab-string+25(4).
* >> Início da inclusão: FORM GET_INVOICE
ENDIF.
CLEAR v_pendcomm.
SELECT SINGLE pendcomm
FROM /pws/zycbt030 into v_pendcomm
WHERE nrinvoic = record_tab-string+3(20)
AND nrparcf = record_tab-string+23(2)
AND gsberf = record_tab-string+25(4).
IF NOT v_pendcomm IS INITIAL.
MESSAGE i061 WITH text-029 record_tab-string+3(20) text-030.
CONTINUE.
* << Fim da inclusão
ENDIF.
READ TABLE itab_invoice INTO wa_invoice
WITH KEY nrinvoic = record_tab-string+3(20)
nrparcf = record_tab-string+23(2)
gsberf = record_tab-string+25(4).
IF sy-subrc = 0.
APPEND wa_invoice TO itab_invoice_aux.
ENDIF.
ENDLOOP.
LOOP AT itab_invoice_aux INTO wa_invoice.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB035F01
...
LEAVE TO TRANSACTION c_transacao_c AND SKIP FIRST SCREEN.
WHEN 'ENTE'.
ok_code = 'DUMMY'.
IF btn_embarque = 'X'.
CLEAR v_nrseq.
wa_controle-processo = c_flag_embarque.
wa_fatura-nrinvoic = /pws/zycbe227a-nrinvoic.
wa_fatura-nrparcf = /pws/zycbe227a-nrparcf.
wa_fatura-gsberf = /pws/zycbe227a-gsberf.
v_dtassoc = /pws/zycbe227a-dtassoc.
* >> Início da inclusão: FORM USER_COMMAND_0001
PERFORM verifica_commodities
using wa_fatura.
CHECK sy-subrc NE 0.
* << Fim da inclusão
ELSE.
CLEAR wa_fatura.
wa_controle-processo = c_flag_remessa.
v_nrseq = /pws/zycbe229a-nrseq.
v_dtassoc = /pws/zycbe227a-dtassoc.
CLEAR /pws/zycbe227a.
ENDIF.
FREE itab_zycbt228a.
PERFORM seleciona_dados
USING wa_fatura v_nrseq v_dtassoc.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB035F03
...
CHANGING wa_mensagem.
IF NOT wa_mensagem IS INITIAL.
<fs_zycbt209>-saldo = <fs_zycbt209>-saldo +
<fs_zycbt228>-vlr_associado.
<fs_zycbt209>-belnr2 = wa_mensagem-belnr.
<fs_zycbt209>-dtbelnr = wa_mensagem-dtcont.
ENDIF.
ENDIF.
ENDLOOP.
ENDFORM.
* >> Início da inclusão:
form verifica_commodities
using p_wa_fatura type t_s_fatura.
DATA:
wa_zycbt030 type /pws/zycbe030.
SELECT SINGLE * FROM /pws/zycbt030
INTO wa_zycbt030
WHERE nrinvoic = p_wa_fatura-nrinvoic
AND nrparcf = p_wa_fatura-nrparcf
AND gsberf = p_wa_fatura-gsberf
AND pendcomm = 'X'.
IF sy-subrc EQ 0.
MESSAGE i061 WITH text-M53
p_wa_fatura-nrinvoic
text-M54.
ENDIF.
endform.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB004
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 231
Texto: (39 caracteres)
"pendente de atualização do Commodities."
Comprimento máximo: 39
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB005
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 235
Texto: (6 caracteres)
"Fatura"
Comprimento máximo: 6
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 236
Texto: (39 caracteres)
"pendente de atualização do Commodities."
Comprimento máximo: 39
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 237
Texto: (24 caracteres)
" Devolução não permitida"
Comprimento máximo: 24
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: ES
Símbolo: 286
Texto: (10 caracteres)
"Documento:"
Comprimento máximo: 12
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB009
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 397
Texto: (44 caracteres)
"está pendente de atualização do Commodities."
Comprimento máximo: 44
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 398
Texto: (25 caracteres)
"Vinculação não permitida."
Comprimento máximo: 25
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB031
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 075
Texto: (38 caracteres)
"pendente de atualização do Commodities"
Comprimento máximo: 38
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB033
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 060
Texto: (38 caracteres)
"pendente de atualização do Commodities"
Comprimento máximo: 38
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB034
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 029
Texto: (6 caracteres)
"Fatura"
Comprimento máximo: 6
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 030
Texto: (38 caracteres)
"pendente de atualização do Commodities"
Comprimento máximo: 38
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB035
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: M53
Texto: (6 caracteres)
"Fatura"
Comprimento máximo: 6
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: M54
Texto: (38 caracteres)
"pendente de atualização do Commodities"
Comprimento máximo: 38
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCBE030
MODIFICAR ESTRUTURA: /PWS/ZYCBE030
DESCRIÇÃO BREVE: CB - Cadastro de Fatura - Doc. Faturamento
COMPONENTES NOVOS
COMPONENTE: TP. COMP: TAB.REF.: CPO.REF.: AJUD. PESQU.
PENDCOMM /PWS/ZYGLL1364
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCBT030
MODIFICAR TABELA TRANSPARENTE: /PWS/ZYCBT030
DESCRIÇÃO BREVE: CB - Cadastro de Fatura - Doc. Faturamento
CAMPOS NOVOS
CAMPOS: TP. CAMPO CH: INI: TAB.VERIF.: TAB.REF.: CPO.RE
PENDCOMM /PWS/ZYGLL1364 ' ' ' '
PENDCOMM /PWS/ZYGLL1364 ' ' ' '
PENDCOMM /PWS/ZYGLL1364 ' ' ' '
PENDCOMM /PWS/ZYGLL1364 ' ' ' '