CE PLUS - Nota 002726
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DA
Data/Hora da Publicação: 18/12/2006 00:00:00
Data/Hora Última Alteração: 21/02/2011 12:47:16
Descrição da Nota: CRIAÇÃO DE DA
Sintoma
Dump ao vincular Pedido, não digitar quantidade e clicar no botão Atualizar.
Ao compensar
Solução
Dump ao vincular Pedido, não digitar quantidade e clicar no botão Atualizar.
Ao compensar
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02726 Data: 18/12/2006 Hora: 16:27:28
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02726
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00144
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
CRIAÇÃO DE DA
----------------------------------------------------------------------------------------------------
Palavras Chave:
VINCULAÇÃO; F-51; MENSAGEM
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI070F05
REPS /PWS/MZYCI070TOP
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070F05
...
v_diff = 'X'.
ENDLOOP.
IF NOT itab_zycit003[] IS INITIAL.
LOOP AT itab_zycit003
WHERE waers NE v_waers.
v_diff = 'X'.
ENDLOOP.
ENDIF.
CLEAR v_test.
MOVE itab_zycit003[] TO itab_werks[].
* >> Início da exclusão: FORM SELECIONAR_ITENS
IF NOT t001-land1 EQ 'CL' AND NOT t001-land1 EQ 'AR'.
IF NOT itab_itens[] IS INITIAL.
SELECT *
INTO TABLE itab_t001w
FROM t001w
FOR ALL ENTRIES IN itab_itens
WHERE werks = itab_itens-werks.
LOOP AT itab_t001w
WHERE j_1bbranch NE /pws/zycie442-j_1bbranch.
ENDLOOP.
IF sy-subrc EQ 0.
MESSAGE e039 WITH text-320.
ENDIF.
IF NOT itab_werks[] IS INITIAL.
SELECT *
INTO TABLE itab_t001w
FROM t001w
FOR ALL ENTRIES IN itab_werks
WHERE werks = itab_werks-werks.
LOOP AT itab_t001w
WHERE j_1bbranch NE /pws/zycie442-j_1bbranch.
ENDLOOP.
IF sy-subrc EQ 0.
MESSAGE e039 WITH text-320.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_ITENS
SELECT SINGLE *
INTO wa_zycbt007
FROM /pws/zycbt007
WHERE bukrs EQ /pws/zycie442-bukrs.
* << Fim da inclusão
DESCRIBE TABLE itab_itens LINES v_nolin.
IF v_nolin IS INITIAL.
MESSAGE e105.
ELSE.
SELECT *
INTO TABLE itab_zycit031
FROM /pws/zycit031
WHERE inco1 EQ v_inco1.
READ TABLE itab_zycit031
WITH KEY inco1 = v_inco1.
...
...
LOOP AT itab_zycit202 WHERE
nrseq = itab_zycit467_aux-nrseq.
IF itab_zycit202-belnr_f51_mt0 IS INITIAL AND
itab_zycit202-belnr_f51_mt1 IS INITIAL AND
itab_zycit202-belnr_f51_mt2 IS INITIAL AND
itab_zycit202-belnr_f51_mt3 IS INITIAL.
v_f51 = c_n.
MESSAGE i013 WITH text-481.
CONTINUE.
ELSE.
* >> Início da exclusão: FORM COMPENSA_CONTA_IA
CLEAR v_f51.
* << Fim da exclusão
EXIT.
ENDIF.
ENDLOOP.
ENDLOOP.
ENDIF.
ENDIF.
CHECK v_f51 NE c_n.
PERFORM contabiliza_debito_conta.
PERFORM contabiliza_prestacao_contas.
IF v_f51 IS INITIAL.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070TOP
...
TYPES:
slqtde TYPE /pws/zycie013-slqtde,
uebto TYPE ekpo-uebto,
uebtk TYPE ekpo-uebtk,
noinitial TYPE char1,
mark TYPE char1,
idnlf TYPE mepo1319-idnlf,
invoiced TYPE /pws/zycie263-qtd_iten.
TYPES:
END OF ty_zycit003.
* >> Início da exclusão:
DATA itab_zycit003 TYPE /pws/zycit003 OCCURS 0 WITH HEADER LINE.
* << Fim da exclusão
* >> Início da inclusão:
DATA itab_zycit003 TYPE ty_zycit003 OCCURS 0 WITH HEADER LINE.
* << Fim da inclusão
DATA: itab_zycit003a LIKE itab_zycit003 OCCURS 0 WITH HEADER LINE.
TYPES: BEGIN OF msg_struc,
tcode LIKE bdcmsgcoll-tcode,
dyname LIKE bdcmsgcoll-dyname,
dynumb LIKE bdcmsgcoll-dynumb,
msgtyp LIKE bdcmsgcoll-msgtyp,
msgspra LIKE bdcmsgcoll-msgspra,
msgid LIKE bdcmsgcoll-msgid,
msgnr LIKE bdcmsgcoll-msgnr,
msgv1 LIKE balm-msgv1,
...